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