diff options
| author | Shaked Flur | 2015-07-24 11:56:17 +0100 |
|---|---|---|
| committer | Shaked Flur | 2015-07-24 11:56:17 +0100 |
| commit | e5083eca71d9d4a1092c4553c6ca448e256e6738 (patch) | |
| tree | f3404838c66b1d28978e5785e5daeba0c2cf2724 /src/lem_interp/interp_lib.lem | |
| parent | 28c16a5e86c08bd010dbfafccf412921d175610a (diff) | |
| parent | e391bd3d6ade488a26b30b7fc4d5826affb5cf99 (diff) | |
Merge branch 'master' of bitbucket.org:Peter_Sewell/l2
Diffstat (limited to 'src/lem_interp/interp_lib.lem')
| -rw-r--r-- | src/lem_interp/interp_lib.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem index 875907fe..eb555c1c 100644 --- a/src/lem_interp/interp_lib.lem +++ b/src/lem_interp/interp_lib.lem @@ -271,7 +271,7 @@ let eq (V_tuple [x; y]) = retaint combo (if has_unknown x || has_unknown y then V_unknown - else (V_lit (L_aux (if value_eq (detaint x) (detaint y) then L_one else L_zero) Unknown))) + else (V_lit (L_aux (if ((detaint x) = (detaint y)) then L_one else L_zero) Unknown))) (* XXX interpret vectors as unsigned numbers for equality *) let eq_vec_range (V_tuple [v; r]) = eq (V_tuple [to_num Unsigned v; r]) ;; |