diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-12-16 14:10:06 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-12-16 14:10:06 +0000 |
| commit | 1cd87015f2f1711a2e63719ab3229dc013a30b68 (patch) | |
| tree | 3b076c865326d34e411f9eb24600e84f71a2ab60 /lib | |
| parent | 8d40eb315976d05fe9d1d60b654b5523c8830a67 (diff) | |
MAJ extraction after changes in Integers
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1200 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Camlcoq.ml | 5 |
1 files changed, 3 insertions, 2 deletions
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) |