diff options
| author | Alasdair Armstrong | 2018-06-27 19:23:41 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-06-27 19:24:17 +0100 |
| commit | 84e5c99514eddd1c8ea962dcf3e787bc5bc91101 (patch) | |
| tree | a004792ea73b611d801834ba79d974ab10e08cfe /src/value2.lem | |
| parent | f3f31252202ea745970e99805574eac39d1d9b7b (diff) | |
Fix reading reals from strings in C lib
Diffstat (limited to 'src/value2.lem')
| -rw-r--r-- | src/value2.lem | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/src/value2.lem b/src/value2.lem index d14dd87d..33416503 100644 --- a/src/value2.lem +++ b/src/value2.lem @@ -70,19 +70,6 @@ type vl = | V_record of list (string * vl) | V_null (* Used for unitialized values and null pointers in C compilation *) -let string_of_value = function - | V_bits bs -> show_bitlist bs ^ "ul" - | V_int i -> show i ^ "l" - | V_bool true -> "true" - | V_bool false -> "false" - | V_null -> "NULL" - | V_unit -> "UNIT" - | V_bit B0 -> "0ul" - | V_bit B1 -> "1ul" - | V_string str -> "\"" ^ str ^ "\"" - | _ -> failwith "Cannot convert value to string" -end - let primops extern args = match (extern, args) with | ("and_bool", [V_bool b1; V_bool b2]) -> V_bool (b1 && b2) |
