diff options
| author | Alasdair Armstrong | 2017-09-26 17:10:06 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-09-26 17:10:06 +0100 |
| commit | ced56765ec9324a0e690cbb4e790280d17413f99 (patch) | |
| tree | 18584c77dc93b553b840008774fae4b46a622500 /lib | |
| parent | 15309c879d2c877953512c401e66a7a48af6df97 (diff) | |
Added while-do and repeat-until loops to sail for translating ASL
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ocaml_rts/sail_lib.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/ocaml_rts/sail_lib.ml b/lib/ocaml_rts/sail_lib.ml index 6c0a0f64..a0d6bc5f 100644 --- a/lib/ocaml_rts/sail_lib.ml +++ b/lib/ocaml_rts/sail_lib.ml @@ -317,3 +317,5 @@ let shr_int (n, m) = shift_right_big_int n (int_of_big_int m) let debug (str1, n, str2, v) = prerr_endline (str1 ^ string_of_big_int n ^ str2 ^ string_of_bits v) let eq_string (str1, str2) = String.compare str1 str2 == 0 + +let lt_int (x, y) = lt_big_int x y |