Module Lam_constant

type constructor_tag = {
  1. name : string;
  2. const : int;
  3. non_const : int;
}
type pointer_info =
  1. | None
  2. | Pt_constructor of constructor_tag
  3. | Pt_assertfalse
  4. | Some of string
val string_of_pointer_info : pointer_info -> string option
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 of char
  7. | Const_string of {
    1. s : string;
    2. unicode : bool;
    }
  8. | Const_float of string
  9. | Const_int64 of int64
  10. | Const_pointer of string
  11. | Const_block of int * Lam_tag_info.t * t list
  12. | Const_float_array of string list
  13. | Const_some of t
  14. | Const_module_alias
val eq_approx : t -> t -> bool
val lam_none : t