diff options
| author | Thomas Bauereiss | 2018-07-10 22:39:23 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2018-07-11 00:19:52 +0100 |
| commit | 63fccf3902edbeb7816e6c419b0cbdcfea423cb9 (patch) | |
| tree | c10957296f68b25720d10bc9f78d580db9efb10a /mips/mips_extras.lem | |
| parent | 5b9a669cb26d4d2fcee44f17f0328ba7035d2812 (diff) | |
Update CHERI code extraction from Isabelle
Also use zero-initialised memory. Apparently some tests access unitialised
memory, and the default behaviour of the Lem shallow embedding is to fail in
this case.
Diffstat (limited to 'mips/mips_extras.lem')
| -rw-r--r-- | mips/mips_extras.lem | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/mips/mips_extras.lem b/mips/mips_extras.lem index 86e78586..4edb0066 100644 --- a/mips/mips_extras.lem +++ b/mips/mips_extras.lem @@ -111,7 +111,12 @@ 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_bv bs)) +let print_bits msg bs = print_endline (msg ^ (string_of_bv bs)) +let prerr_bits msg bs = prerr_endline (msg ^ (string_of_bv bs)) + +val prerr_string : string -> unit +let prerr_string _ = () +declare ocaml target_rep function prerr_string = `Pervasives.prerr_string` val get_time_ns : unit -> integer let get_time_ns () = 0 |