Source file `literal.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
25
26
type t

external int32 : int32 -> t = "caml_binaryen_literal_int32"

external int64 : int64 -> t = "caml_binaryen_literal_int64"

external float32_bits : int32 -> t = "caml_binaryen_literal_float32_bits"

external float64_bits : int64 -> t = "caml_binaryen_literal_float64_bits"

let float32 n = float32_bits @@ Int32.bits_of_float n

external float64 : float -> t = "caml_binaryen_literal_float64"

(* Hacks for Binaryen.js stack allocations, Don't use in binaryen.native *)
type jsoo =
  | Int32 of int32
  | Int64 of int64
  | Float32Bits of int32
  | Float64Bits of int64
  | Float32 of float
  | Float64 of float

exception Invalid_usage

let to_jsoo _ = raise Invalid_usage