diff options
Diffstat (limited to 'mips')
| -rw-r--r-- | mips/main.sail | 1 | ||||
| -rw-r--r-- | mips/mips_extras.lem | 10 |
2 files changed, 11 insertions, 0 deletions
diff --git a/mips/main.sail b/mips/main.sail index 2c4ee064..8ec91ba6 100644 --- a/mips/main.sail +++ b/mips/main.sail @@ -38,6 +38,7 @@ function fetch_and_execute () = { val elf_entry = { ocaml: "Elf_loader.elf_entry", + lem: "elf_entry", c: "elf_entry" } : unit -> int 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 ())))` |