Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/Moscow ML 1.42/src/compiler/Symtable.sig

Text File | 1997-08-18 | 900 b | 26 lines | [TEXT/R*ch]

local
  open BasicIO Const;
in

val literal_table : (int * StructConstant) list ref;
val get_slot_for_variable : QualifiedIdent * int -> int;
val get_slot_for_defined_variable : QualifiedIdent * int -> int;
val get_slot_for_literal : StructConstant -> int;
val number_of_globals : unit -> int;
val get_num_of_exn : QualifiedIdent * int -> int;
val get_exn_of_num : int -> QualifiedIdent * int;
val defineGlobalExceptionAlias :
  QualifiedIdent * (QualifiedIdent * int) -> unit;
val get_num_of_prim : string -> int;
val intOfTag : BlockTag -> int;
val exportPublicNames :
  string -> (QualifiedIdent * (QualifiedIdent * int)) list ->
  (string * int) list -> unit;
val normalizeExnName : QualifiedIdent -> QualifiedIdent;
val reset_linker_tables : unit -> unit;
val save_linker_tables : outstream -> unit;
val init_linker_tables : unit -> unit;
val protect_linker_tables : (unit -> 'a) -> unit;

end;