diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-06 13:10:00 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-06 13:10:00 +0000 |
commit | abf06dadb072b3b8eb0488ce1c72b22bd802b116 (patch) | |
tree | 06b35ce5bec5214e62e4b87056997cc25f914e70 | |
parent | 6c0511a03c8c970435d8b97e600312ac45340801 (diff) |
Definition redondante
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@78 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r-- | caml/Camlcoq.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/caml/Camlcoq.ml b/caml/Camlcoq.ml index fc5d2d8..b0bb4ff 100644 --- a/caml/Camlcoq.ml +++ b/caml/Camlcoq.ml @@ -7,11 +7,6 @@ open BinInt (* Integers *) -let rec camlint_of_nat n = - match n with - | O -> 0l - | S n -> Int32.add (camlint_of_nat n) 1l - let rec camlint_of_positive = function | Coq_xI p -> Int32.add (Int32.shift_left (camlint_of_positive p) 1) 1l | Coq_xO p -> Int32.shift_left (camlint_of_positive p) 1 |