Module Mavryk_webassembly_interpreter.Values

type ('i32, 'i64, 'f32, 'f64) op =
  1. | I32 of 'i32
  2. | I64 of 'i64
  3. | F32 of 'f32
  4. | F64 of 'f64
val pp_op : 'i32 'i64 'f32 'f64. (Ppx_deriving_runtime.Format.formatter -> 'i32 -> Ppx_deriving_runtime.unit) -> (Ppx_deriving_runtime.Format.formatter -> 'i64 -> Ppx_deriving_runtime.unit) -> (Ppx_deriving_runtime.Format.formatter -> 'f32 -> Ppx_deriving_runtime.unit) -> (Ppx_deriving_runtime.Format.formatter -> 'f64 -> Ppx_deriving_runtime.unit) -> Ppx_deriving_runtime.Format.formatter -> ('i32, 'i64, 'f32, 'f64) op -> Ppx_deriving_runtime.unit
val show_op : 'i32 'i64 'f32 'f64. (Ppx_deriving_runtime.Format.formatter -> 'i32 -> Ppx_deriving_runtime.unit) -> (Ppx_deriving_runtime.Format.formatter -> 'i64 -> Ppx_deriving_runtime.unit) -> (Ppx_deriving_runtime.Format.formatter -> 'f32 -> Ppx_deriving_runtime.unit) -> (Ppx_deriving_runtime.Format.formatter -> 'f64 -> Ppx_deriving_runtime.unit) -> ('i32, 'i64, 'f32, 'f64) op -> Ppx_deriving_runtime.string
type 'v128 vecop =
  1. | V128 of 'v128
val pp_vecop : 'v128. (Ppx_deriving_runtime.Format.formatter -> 'v128 -> Ppx_deriving_runtime.unit) -> Ppx_deriving_runtime.Format.formatter -> 'v128 vecop -> Ppx_deriving_runtime.unit
val show_vecop : 'v128. (Ppx_deriving_runtime.Format.formatter -> 'v128 -> Ppx_deriving_runtime.unit) -> 'v128 vecop -> Ppx_deriving_runtime.string
type num = (I32.t, I64.t, F32.t, F64.t) op
val pp_num : Ppx_deriving_runtime.Format.formatter -> num -> Ppx_deriving_runtime.unit
val show_num : num -> Ppx_deriving_runtime.string
type vec = V128.t vecop
val pp_vec : Ppx_deriving_runtime.Format.formatter -> vec -> Ppx_deriving_runtime.unit
val show_vec : vec -> Ppx_deriving_runtime.string
type ref_ = ..
type ref_ +=
  1. | NullRef of Types.ref_type
  2. | ExternRef of int32
type value =
  1. | Num of num
  2. | Vec of vec
  3. | Ref of ref_
val as_num : value -> num
val as_vec : value -> vec
val as_ref : value -> ref_
exception TypeError of int * num * Types.num_type
module type NumType = sig ... end
module I32Num : sig ... end
module I64Num : sig ... end
module F32Num : sig ... end
module F64Num : sig ... end
module type VecType = sig ... end
module V128Vec : sig ... end
val type_of_num : ('a, 'b, 'c, 'd) op -> Types.num_type
val type_of_vec : 'a vecop -> Types.vec_type
val type_of_ref' : (ref_ -> Types.ref_type) Stdlib.ref
val type_of_ref : ref_ -> Types.ref_type
val type_of_value : value -> Types.value_type
val eq_num : 'a -> 'b -> bool
val eq_vec : 'a -> 'b -> bool
val eq_ref' : (ref_ -> ref_ -> bool) Stdlib.ref
val eq_ref : ref_ -> ref_ -> bool
val eq : value -> value -> bool
val default_num : Types.num_type -> (I32.t, I64.t, F32.t, F64.t) op
val default_vec : Types.vec_type -> V128.t vecop
val default_ref : Types.ref_type -> ref_
val default_value : Types.value_type -> value
val value_of_bool : bool -> value
val string_of_num : (I32.t, I64.t, F32.t, F64.t) op -> string
val hex_string_of_num : (I32.t, I64.t, F32.t, F64.t) op -> string
val string_of_vec : V128.t vecop -> string
val hex_string_of_vec : V128.t vecop -> string
val string_of_ref' : (ref_ -> string) Stdlib.ref
val string_of_ref : ref_ -> string
val string_of_value : value -> string
val string_of_values : value list -> string