diff options
| -rw-r--r-- | backend/RTLgenaux.ml | 2 | ||||
| -rw-r--r-- | lib/Camlcoq.ml | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/backend/RTLgenaux.ml b/backend/RTLgenaux.ml index 7e42c80..1f457f3 100644 --- a/backend/RTLgenaux.ml +++ b/backend/RTLgenaux.ml @@ -18,7 +18,7 @@ let more_likely (c: condexpr) (ifso: stmt) (ifnot: stmt) = false module IntOrd = struct - type t = Integers.int + type t = Integers.Int.int let compare x y = if Integers.Int.eq x y then 0 else if Integers.Int.ltu x y then -1 else 1 diff --git a/lib/Camlcoq.ml b/lib/Camlcoq.ml index 436583f..2cb1093 100644 --- a/lib/Camlcoq.ml +++ b/lib/Camlcoq.ml @@ -15,6 +15,7 @@ open Datatypes open BinPos open BinInt +open Integers (* Integers *) @@ -28,7 +29,7 @@ let camlint_of_z = function | Zpos p -> camlint_of_positive p | Zneg p -> Int32.neg (camlint_of_positive p) -let camlint_of_coqint : Integers.int -> int32 = camlint_of_z +let camlint_of_coqint : Int.int -> int32 = camlint_of_z let rec camlint_of_nat = function | O -> 0 @@ -50,7 +51,7 @@ let z_of_camlint n = if n > 0l then Zpos (positive_of_camlint n) else Zneg (positive_of_camlint (Int32.neg n)) -let coqint_of_camlint (n: int32) : Integers.int = +let coqint_of_camlint (n: int32) : Int.int = (* Interpret n as unsigned so that resulting Z is in range *) if n = 0l then Z0 else Zpos (positive_of_camlint n) |