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 /caml/Camlcoq.ml | |
| parent | 6c0511a03c8c970435d8b97e600312ac45340801 (diff) | |
| download | compcert-abf06dadb072b3b8eb0488ce1c72b22bd802b116.tar.gz compcert-abf06dadb072b3b8eb0488ce1c72b22bd802b116.zip | |
Definition redondante
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@78 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml/Camlcoq.ml')
| -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 fc5d2d87..b0bb4ff9 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 |