diff options
| author | Kathy Gray | 2014-12-18 15:53:42 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-12-18 15:53:42 +0000 |
| commit | df55f6d9842819fdb66bfbffb3102e8eebfb52c2 (patch) | |
| tree | ee13095510bff79db630de6e74e439147f3048d3 | |
| parent | f8a9785b1f4f94c182bc50fed69914c436deaf83 (diff) | |
Fix subtraction with integer type
| -rw-r--r-- | src/type_internal.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/type_internal.ml b/src/type_internal.ml index d771ee4a..069b6775 100644 --- a/src/type_internal.ml +++ b/src/type_internal.ml @@ -277,7 +277,7 @@ let rec compare_nexps n1 n2 = | Nneg_inf , Nneg_inf -> 0 | Nneg_inf , _ -> -1 | _ , Nneg_inf -> 1 - | Nconst n1, Nconst n2 -> compare n1 n2 + | Nconst n1, Nconst n2 -> compare_big_int n1 n2 | Nconst _ , _ -> -1 | _ , Nconst _ -> 1 | Nvar i1 , Nvar i2 -> compare i1 i2 |