diff options
| author | Alasdair Armstrong | 2017-09-18 19:01:16 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-09-18 19:01:16 +0100 |
| commit | e4a2b9205daa7dd8a3a05b3a972d00c23f2adc7a (patch) | |
| tree | c1572dd913cf2548b54534c6036050f9dd183b23 /lib/ocaml_rts/sail_lib.ml | |
| parent | bf509b250cf676e96e11ace54648f30e43848754 (diff) | |
Added additional utility functions in ast_util
Also fixed basic ocaml test suite
Diffstat (limited to 'lib/ocaml_rts/sail_lib.ml')
| -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 0602a3d0..6c0a0f64 100644 --- a/lib/ocaml_rts/sail_lib.ml +++ b/lib/ocaml_rts/sail_lib.ml @@ -315,3 +315,5 @@ 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 |