diff options
| author | Thomas Bauereiss | 2018-02-07 14:11:42 +0000 |
|---|---|---|
| committer | Thomas Bauereiss | 2018-02-07 16:09:24 +0000 |
| commit | b7c7675e78738f356716ba27d212225e60d5a856 (patch) | |
| tree | 70bdca0d9b8acd4097768cfcec8dcc69a22c0a5d /riscv/riscv_extras_embed_sequential.lem | |
| parent | e7471c23826487457e87099664e2b19aa699c94e (diff) | |
Add some printing functions to Lem shallow embedding
Diffstat (limited to 'riscv/riscv_extras_embed_sequential.lem')
| -rw-r--r-- | riscv/riscv_extras_embed_sequential.lem | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/riscv/riscv_extras_embed_sequential.lem b/riscv/riscv_extras_embed_sequential.lem index 4ef3ed36..cc2a5277 100644 --- a/riscv/riscv_extras_embed_sequential.lem +++ b/riscv/riscv_extras_embed_sequential.lem @@ -65,6 +65,9 @@ val prerr_endline : string -> unit let prerr_endline _ = () declare ocaml target_rep function prerr_endline = `prerr_endline` +val print_string : string -> string -> unit +let print_string msg s = prerr_endline (msg ^ s) + val print_int : string -> integer -> unit let print_int msg i = prerr_endline (msg ^ (stringFromInteger i)) |