diff options
| author | Jon French | 2019-04-15 16:18:18 +0100 |
|---|---|---|
| committer | Jon French | 2019-04-15 16:18:18 +0100 |
| commit | a9f0b829507e9882efdb59cce4d83ea7e87f5f71 (patch) | |
| tree | 11cde6c1918bc15f4dda9a8e40afd4a1fe912a0a /src/value2.lem | |
| parent | 0f6fd188ca232cb539592801fcbb873d59611d81 (diff) | |
| parent | 57443173923e87f33713c99dbab9eba7e3db0660 (diff) | |
Merge branch 'sail2' into rmem_interpreter
Diffstat (limited to 'src/value2.lem')
| -rw-r--r-- | src/value2.lem | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/src/value2.lem b/src/value2.lem index e8a8262a..caf355b7 100644 --- a/src/value2.lem +++ b/src/value2.lem @@ -49,34 +49,14 @@ (*========================================================================*) open import Pervasives -open import Assert_extra -open Map open import Sail2_values type vl = - | V_vector of list vl - | V_list of list vl | V_bits of list bitU | V_bit of bitU - | V_tuple of list vl | V_bool of bool - | V_nondet (* Special nondeterministic boolean *) | V_unit | V_int of integer | V_string of string - | V_ctor of string * list vl - | V_ctor_kind of string - | V_record of list (string * vl) | V_null (* Used for unitialized values and null pointers in C compilation *) - - -let value_int_op_int op = function - | [V_int v1; V_int v2] -> V_int (op v1 v2) - | _ -> V_null -end - -let value_bool_op_int op = function - | [V_int v1; V_int v2] -> V_bool (op v1 v2) - | _ -> V_null -end |