type reloc_info =
| Reloc_literal of Obj.t
| Reloc_getglobal of Ident.t
| Reloc_setglobal of Ident.t
| Reloc_primitive of string
type compilation_unit = {
cu_name : Misc.modname;
mutable cu_pos : int;
cu_codesize : int;
cu_reloc : (reloc_info * int) list;
cu_imports : Misc.crcs;
cu_required_globals : Ident.t list;
cu_primitives : string list;
mutable cu_force_link : bool;
mutable cu_debug : int;
cu_debugsize : int;
}
type library = {
lib_units : compilation_unit list;
lib_custom : bool;
lib_ccobjs : string list;
lib_ccopts : string list;
lib_dllibs : string list;
}