diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-07 15:30:24 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-07 15:30:24 +0000 |
| commit | 593ce3f7c5647e284cd2fdc3dd3ed41be9563982 (patch) | |
| tree | 6ec1df325b89bb0c320023861118549deb9a9e71 /caml/Camlcoq.ml | |
| parent | fa7415be2fe9b240374f0a51c1cd4a9de5376c5a (diff) | |
| download | compcert-593ce3f7c5647e284cd2fdc3dd3ed41be9563982.tar.gz compcert-593ce3f7c5647e284cd2fdc3dd3ed41be9563982.zip | |
Integration du front-end CIL developpe par Thomas Moniot
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@84 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml/Camlcoq.ml')
| -rw-r--r-- | caml/Camlcoq.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/caml/Camlcoq.ml b/caml/Camlcoq.ml index b0bb4ff9..ab111c11 100644 --- a/caml/Camlcoq.ml +++ b/caml/Camlcoq.ml @@ -31,8 +31,8 @@ let rec positive_of_camlint n = if n = 0l then assert false else if n = 1l then Coq_xH else if Int32.logand n 1l = 0l - then Coq_xO (positive_of_camlint (Int32.shift_right n 1)) - else Coq_xI (positive_of_camlint (Int32.shift_right n 1)) + then Coq_xO (positive_of_camlint (Int32.shift_right_logical n 1)) + else Coq_xI (positive_of_camlint (Int32.shift_right_logical n 1)) let z_of_camlint n = if n = 0l then Z0 else |