diff options
Diffstat (limited to 'mips/mips_extras.lem')
| -rw-r--r-- | mips/mips_extras.lem | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/mips/mips_extras.lem b/mips/mips_extras.lem index 28fa07fb..f0f6a0c5 100644 --- a/mips/mips_extras.lem +++ b/mips/mips_extras.lem @@ -111,3 +111,13 @@ let undefined_atom i = return i let undefined_nat () = return (0:ii) let skip () = return () + +val elf_entry : unit -> integer +let elf_entry () = 0 +declare ocaml target_rep function elf_entry = `Elf_loader.elf_entry` + +let print_bits msg bs = prerr_endline (msg ^ (string_of_bits bs)) + +val get_time_ns : unit -> integer +let get_time_ns () = 0 +declare ocaml target_rep function get_time_ns = `(fun () -> Big_int.of_int (int_of_float (1e9 *. Unix.gettimeofday ())))` |