diff options
| author | Alasdair Armstrong | 2018-07-24 18:09:18 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-07-24 18:09:18 +0100 |
| commit | 6b4f407ad34ca7d4d8a89a5a4d401ac80c7413b0 (patch) | |
| tree | ed09b22b7ea4ca20fbcc89b761f1955caea85041 /src/gen_lib/sail2_values.lem | |
| parent | dafb09e7c26840dce3d522fef3cf359729ca5b61 (diff) | |
| parent | 8114501b7b956ee4a98fa8599c7efee62fc19206 (diff) | |
Merge remote-tracking branch 'origin/sail2' into c_fixes
Diffstat (limited to 'src/gen_lib/sail2_values.lem')
| -rw-r--r-- | src/gen_lib/sail2_values.lem | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/gen_lib/sail2_values.lem b/src/gen_lib/sail2_values.lem index 0f384cab..fd742fb1 100644 --- a/src/gen_lib/sail2_values.lem +++ b/src/gen_lib/sail2_values.lem @@ -47,12 +47,14 @@ let power_real b e = realPowInteger b e*) val print_endline : string -> unit let print_endline _ = () -declare ocaml target_rep function print_endline = `print_endline` +(* declare ocaml target_rep function print_endline = `print_endline` *) val prerr_endline : string -> unit let prerr_endline _ = () declare ocaml target_rep function prerr_endline = `prerr_endline` +let prerr x = prerr_endline x + val print_int : string -> integer -> unit let print_int msg i = print_endline (msg ^ (stringFromInteger i)) |