Module Lam_constant

type constructor_tag = {
  1. name: string,
  2. const: int,
  3. non_const: int,
};
type pointer_info =
  1. | None
  2. | Pt_constructor(constructor_tag)
  3. | Pt_assertfalse
  4. | Some(string)
;
let string_of_pointer_info: pointer_info => option(string);
type t =
  1. | Const_js_null
  2. | Const_js_undefined
  3. | Const_js_true
  4. | Const_js_false
  5. | Const_int of {
    1. i: int32,
    2. comment: pointer_info,
    }
  6. | Const_char(char)
  7. | Const_string of {
    1. s: string,
    2. unicode: bool,
    }
  8. | Const_float(string)
  9. | Const_int64(int64)
  10. | Const_pointer(string)
  11. | Const_block(int, Lam_tag_info.t, list(t))
  12. | Const_float_array(list(string))
  13. | Const_some(t)
  14. | Const_module_alias
;
let eq_approx: t => t => bool;
let lam_none: t;