ocaml-base-compiler 4.04.2

type compile_time_constant =

| Big_endian
| Word_size
| Int_size
| Max_wosize
| Ostype_unix
| Ostype_win32
| Ostype_cygwin
| Backend_type

type loc_kind =

| Loc_FILE
| Loc_LINE
| Loc_MODULE
| Loc_LOC
| Loc_POS

type immediate_or_pointer =

| Immediate
| Pointer

type initialization_or_assignment =

| Initialization
| Assignment

type is_safe =

| Safe
| Unsafe

type primitive =

| Pidentity
| Pbytes_to_string
| Pbytes_of_string
| Pignore
| Prevapply
| Pdirapply
| Ploc of loc_kind
| Pgetglobal of Ident.t
| Psetglobal of Ident.t
| Pmakeblock of int * Asttypes.mutable_flag * block_shape
| Pfield of int
| Psetfield of int * immediate_or_pointer * initialization_or_assignment
| Pfloatfield of int
| Psetfloatfield of int * initialization_or_assignment
| Pduprecord of Types.record_representation * int
| Plazyforce
| Pccall of Primitive.description
| Praise of raise_kind
| Psequand
| Psequor
| Pnot
| Pnegint
| Paddint
| Psubint
| Pmulint
| Pdivint of is_safe
| Pmodint of is_safe
| Pandint
| Porint
| Pxorint
| Plslint
| Plsrint
| Pasrint
| Pintcomp of comparison
| Poffsetint of int
| Poffsetref of int
| Pintoffloat
| Pfloatofint
| Pnegfloat
| Pabsfloat
| Paddfloat
| Psubfloat
| Pmulfloat
| Pdivfloat
| Pfloatcomp of comparison
| Pstringlength
| Pstringrefu
| Pstringrefs
| Pbyteslength
| Pbytesrefu
| Pbytessetu
| Pbytesrefs
| Pbytessets
| Pmakearray of array_kind * Asttypes.mutable_flag
| Pduparray of array_kind * Asttypes.mutable_flag
(*
For Pduparray, the argument must be an immutable array. The arguments of Pduparray give the kind and mutability of the array being *produced* by the duplication.
*)
| Parraylength of array_kind
| Parrayrefu of array_kind
| Parraysetu of array_kind
| Parrayrefs of array_kind
| Parraysets of array_kind
| Pisint
| Pisout
| Pbittest
| Pbintofint of boxed_integer
| Pintofbint of boxed_integer
| Pcvtbint of boxed_integer * boxed_integer
| Pnegbint of boxed_integer
| Paddbint of boxed_integer
| Psubbint of boxed_integer
| Pmulbint of boxed_integer
| Pdivbint of {
1. size : boxed_integer;
2. is_safe : is_safe;
}
| Pmodbint of {
1. size : boxed_integer;
2. is_safe : is_safe;
}
| Pandbint of boxed_integer
| Porbint of boxed_integer
| Pxorbint of boxed_integer
| Plslbint of boxed_integer
| Plsrbint of boxed_integer
| Pasrbint of boxed_integer
| Pbintcomp of boxed_integer * comparison
| Pbigarrayref of bool * int * bigarray_kind * bigarray_layout
| Pbigarrayset of bool * int * bigarray_kind * bigarray_layout
| Pbigarraydim of int
| Pstring_load_16 of bool
| Pstring_load_32 of bool
| Pstring_load_64 of bool
| Pstring_set_16 of bool
| Pstring_set_32 of bool
| Pstring_set_64 of bool
| Pbigstring_load_16 of bool
| Pbigstring_load_32 of bool
| Pbigstring_load_64 of bool
| Pbigstring_set_16 of bool
| Pbigstring_set_32 of bool
| Pbigstring_set_64 of bool
| Pctconst of compile_time_constant
| Pbswap16
| Pbbswap of boxed_integer
| Pint_as_pointer
| Popaque

and comparison =

| Ceq
| Cneq
| Clt
| Cgt
| Cle
| Cge

and array_kind =

| Pgenarray
| Paddrarray
| Pintarray
| Pfloatarray

and value_kind =

| Pgenval
| Pfloatval
| Pboxedintval of boxed_integer
| Pintval

and block_shape = value_kind list option

and boxed_integer = Primitive.boxed_integer =

| Pnativeint
| Pint32
| Pint64

and bigarray_kind =

| Pbigarray_unknown
| Pbigarray_float32
| Pbigarray_float64
| Pbigarray_sint8
| Pbigarray_uint8
| Pbigarray_sint16
| Pbigarray_uint16
| Pbigarray_int32
| Pbigarray_int64
| Pbigarray_caml_int
| Pbigarray_native_int
| Pbigarray_complex32
| Pbigarray_complex64

and bigarray_layout =

| Pbigarray_unknown_layout
| Pbigarray_c_layout
| Pbigarray_fortran_layout

and raise_kind =

| Raise_regular
| Raise_reraise
| Raise_notrace

type structured_constant =

| Const_base of Asttypes.constant
| Const_pointer of int
| Const_block of int * structured_constant list
| Const_float_array of string list
| Const_immstring of string

type inline_attribute =

| Always_inline
| Never_inline
| Unroll of int
| Default_inline

type specialise_attribute =

| Always_specialise
| Never_specialise
| Default_specialise

type function_kind =

| Curried
| Tupled

type let_kind =

| Strict
| Alias
| StrictOpt
| Variable

type meth_kind =

| Self
| Public
| Cached

type shared_code = (int * int) list

type function_attribute = {

inline : inline_attribute;
specialise : specialise_attribute;
is_a_functor : bool;

}

type lambda =

| Lvar of Ident.t
| Lconst of structured_constant
| Lapply of lambda_apply
| Lfunction of lfunction
| Llet of let_kind * value_kind * Ident.t * lambda * lambda
| Lletrec of (Ident.t * lambda) list * lambda
| Lprim of primitive * lambda list * Location.t
| Lswitch of lambda * lambda_switch
| Lstringswitch of lambda * (string * lambda) list * lambda option * Location.t
| Lstaticraise of int * lambda list
| Lstaticcatch of lambda * int * Ident.t list * lambda
| Ltrywith of lambda * Ident.t * lambda
| Lifthenelse of lambda * lambda * lambda
| Lsequence of lambda * lambda
| Lwhile of lambda * lambda
| Lfor of Ident.t * lambda * lambda * Asttypes.direction_flag * lambda
| Lassign of Ident.t * lambda
| Lsend of meth_kind * lambda * lambda * lambda list * Location.t
| Levent of lambda * lambda_event
| Lifused of Ident.t * lambda

and lfunction = {

kind : function_kind;
params : Ident.t list;
body : lambda;
attr : function_attribute;
loc : Location.t;

}

and lambda_apply = {

ap_func : lambda;
ap_args : lambda list;
ap_loc : Location.t;
ap_should_be_tailcall : bool;
ap_inlined : inline_attribute;
ap_specialised : specialise_attribute;

}

and lambda_switch = {

sw_numconsts : int;
sw_consts : (int * lambda) list;
sw_numblocks : int;
sw_blocks : (int * lambda) list;
sw_failaction : lambda option;

}

and lambda_event = {

lev_loc : Location.t;
lev_kind : lambda_event_kind;
lev_repr : int Pervasives.ref option;
lev_env : Env.summary;

}

and lambda_event_kind =

| Lev_before
| Lev_after of Types.type_expr
| Lev_function
| Lev_pseudo

type program = {

module_ident : Ident.t;
main_module_block_size : int;
required_globals : Ident.Set.t;
code : lambda;

}

val make_key : lambda -> lambda option

val const_unit : structured_constant

val lambda_unit : lambda

val name_lambda : let_kind -> lambda -> (Ident.t -> lambda) -> lambda

val name_lambda_list : lambda list -> (lambda list -> lambda) -> lambda

val iter : (lambda -> unit) -> lambda -> unit

module IdentSet : Set.S with type elt = Ident.t

val free_variables : lambda -> IdentSet.t

val free_methods : lambda -> IdentSet.t

val transl_normal_path : Path.t -> lambda

val transl_path : ?loc:Location.t -> Env.t -> Path.t -> lambda

val make_sequence : ('a -> lambda) -> 'a list -> lambda

val subst_lambda : lambda Ident.tbl -> lambda -> lambda

val map : (lambda -> lambda) -> lambda -> lambda

val bind : let_kind -> Ident.t -> lambda -> lambda -> lambda

val commute_comparison : comparison -> comparison

val negate_comparison : comparison -> comparison

val default_function_attribute : function_attribute

val next_raise_count : unit -> int

val next_negative_raise_count : unit -> int

val staticfail : lambda

val is_guarded : lambda -> bool

val patch_guarded : lambda -> lambda -> lambda

val raise_kind : raise_kind -> string

val lam_of_loc : loc_kind -> Location.t -> lambda

val reset : unit -> unit

package ocaml-base-compiler