Source file `word_size.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
open! Import
module Sys = Sys0

type t =
  | W32
  | W64
[@@deriving_inline sexp_of]
let sexp_of_t =
  (function
    | W32 -> Ppx_sexp_conv_lib.Sexp.Atom "W32"
    | W64 -> Ppx_sexp_conv_lib.Sexp.Atom "W64" : t -> Ppx_sexp_conv_lib.Sexp.t)
[@@@end]

let num_bits = function
  | W32 -> 32
  | W64 -> 64
;;

let word_size =
  match Sys.word_size_in_bits with
  | 32 -> W32
  | 64 -> W64
  | _ -> failwith "unknown word size"
;;