Source file word_size.ml

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"
;;