diff options
| author | Brian Campbell | 2017-09-28 11:34:22 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-09-28 11:34:22 +0100 |
| commit | 1bd35a0934582ff08be0b99280b8d7080cbca4d1 (patch) | |
| tree | 276e8d13cffdfc9c0ff2771e534795559d86be61 /lib/ocaml_rts/sail_lib.ml | |
| parent | b5969ea7ca7de19ea2b96c48b1765e2c51e5d2af (diff) | |
| parent | 381a3967ebd9269082b452669f507787decf28b0 (diff) | |
Merge branch 'experiments' into mono-experiments
Diffstat (limited to 'lib/ocaml_rts/sail_lib.ml')
| -rw-r--r-- | lib/ocaml_rts/sail_lib.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/ocaml_rts/sail_lib.ml b/lib/ocaml_rts/sail_lib.ml index 0602a3d0..a0d6bc5f 100644 --- a/lib/ocaml_rts/sail_lib.ml +++ b/lib/ocaml_rts/sail_lib.ml @@ -315,3 +315,7 @@ let shl_int (n, m) = shift_left_big_int n (int_of_big_int m) 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 |