home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / compiler / Memory.sml < prev    next >
Encoding:
Text File  |  1997-08-18  |  1.5 KB  |  33 lines  |  [TEXT/R*ch]
  1. (* To control the runtime system and bytecode interpreter *)
  2.  
  3. local
  4.   open Obj;
  5. in
  6.  
  7. prim_val global_data : obj Vector.vector = 0 "global_data"
  8. prim_val realloc_global_data : int -> unit = 1 "realloc_global";
  9. prim_val static_alloc : int -> string = 1 "static_alloc";
  10. prim_val static_free : string -> unit = 1 "static_free";
  11. prim_val static_resize : string -> int -> string = 2 "static_resize";
  12. prim_val gc_full_major : unit -> unit = 1 "gc_full_major";
  13. prim_val interprete : string -> int -> int -> obj = 3 "start_interp";
  14. prim_val available_primitives : unit -> string Vector.vector
  15.                                           = 1 "available_primitives";
  16.  
  17. (* The following primitives are not implemented by *)
  18. (* the `standard' Caml Light system. *)
  19.  
  20. prim_val system : string -> int = 1 "sml_system";
  21. prim_val sml_int_of_string : string -> int = 1 "sml_int_of_string";
  22. prim_val sml_hex_of_string : string -> int = 1 "sml_int_of_hex";
  23. prim_val sml_float_of_string : string -> real = 1 "sml_float_of_string";
  24. prim_val sml_string_of_int     : int -> string  = 1 "sml_string_of_int";
  25. prim_val sml_hexstring_of_word : word -> string = 1 "sml_hexstring_of_word";
  26. prim_val sml_string_of_float : real -> string = 1 "sml_string_of_float";
  27. prim_val sml_makestring_of_char : char -> string
  28.                                             = 1 "sml_makestring_of_char";
  29. prim_val sml_makestring_of_string : string -> string
  30.                                             = 1 "sml_makestring_of_string";
  31.  
  32. end;
  33.