diff options
| author | Alasdair Armstrong | 2018-06-21 16:22:03 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-06-21 17:02:01 +0100 |
| commit | bb694008780f63d84a68893016044b660a1558bf (patch) | |
| tree | 9cef428d8f19673459a07f8387df4b423bba5505 /src/value.ml | |
| parent | 326f0dd88df92d3936b7acadb5073802d3f9d77b (diff) | |
| parent | 3658789d204eb100e901a2adb67b6bf8a30157bf (diff) | |
Merge branch 'tracing' into sail2
Diffstat (limited to 'src/value.ml')
| -rw-r--r-- | src/value.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/value.ml b/src/value.ml index 8ee219b7..41b52720 100644 --- a/src/value.ml +++ b/src/value.ml @@ -491,6 +491,9 @@ let primops = StringMap.empty [ ("and_bool", and_bool); ("or_bool", or_bool); + ("print", value_print); + ("prerr", fun vs -> (prerr_endline (string_of_value (List.hd vs)); V_unit)); + ("dec_str", fun _ -> V_string "X"); ("print_endline", value_print); ("prerr_endline", fun vs -> (prerr_endline (string_of_value (List.hd vs)); V_unit)); ("putchar", value_putchar); |