From 1cd87015f2f1711a2e63719ab3229dc013a30b68 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 16 Dec 2009 14:10:06 +0000 Subject: MAJ extraction after changes in Integers git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1200 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- lib/Camlcoq.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/Camlcoq.ml') diff --git a/lib/Camlcoq.ml b/lib/Camlcoq.ml index 436583f1..2cb1093b 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) -- cgit