Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Page
Library
Module
Module type
Parameter
Class
Class type
Source
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
(* This is a hack around Binaryen's stack allocations *) type jsoo = | Int32 of int32 | Int64 of int64 | Float32Bits of int32 | Float64Bits of int64 | Float32 of float | Float64 of float type t = jsoo let int32 value = Int32 value let int64 value = Int64 value let float32_bits value = Float32Bits value let float64_bits value = Float64Bits value let float32 value = Float32 value let float64 value = Float64 value (* This makes our `t` public so we can match on it *) let to_jsoo lit = lit