1local 2 open BasicIO Const; 3in 4 5val literal_table : (int * StructConstant) list ref; 6val get_slot_for_variable : QualifiedIdent * int -> int; 7val get_slot_for_defined_variable : QualifiedIdent * int -> int; 8val get_slot_for_literal : StructConstant -> int; 9val number_of_globals : unit -> int; 10val get_num_of_prim : string -> int; 11val intOfTag : BlockTag -> int; 12val exportPublicNames : 13 string -> (QualifiedIdent * (QualifiedIdent * int)) list -> 14 (string * int) list -> unit; 15val reset_linker_tables : unit -> unit; 16val save_linker_tables : outstream -> unit; 17val init_linker_tables : unit -> unit; 18val protect_linker_tables : (unit -> 'a) -> unit; 19 20end; 21