diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-18 09:22:27 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-18 09:22:27 +0000 |
commit | debae4b0c69060a637489c6d0afe93125c9d9268 (patch) | |
tree | 552ac3e268954f9a21d245bd3d98d8752d477860 /cparser/uint64.c | |
parent | 7d4128f2e6d73b8f105472f12157488d38898eff (diff) | |
download | compcert-debae4b0c69060a637489c6d0afe93125c9d9268.tar.gz compcert-debae4b0c69060a637489c6d0afe93125c9d9268.zip |
Remove the C primitives for unsigned long long arithmetic, replaced
by pure OCaml code.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2153 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/uint64.c')
-rw-r--r-- | cparser/uint64.c | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/cparser/uint64.c b/cparser/uint64.c deleted file mode 100644 index 15288876..00000000 --- a/cparser/uint64.c +++ /dev/null @@ -1,37 +0,0 @@ -/* *********************************************************************/ -/* */ -/* The Compcert verified compiler */ -/* */ -/* Xavier Leroy, INRIA Paris-Rocquencourt */ -/* */ -/* Copyright Institut National de Recherche en Informatique et en */ -/* Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU General Public License as published by */ -/* the Free Software Foundation, either version 2 of the License, or */ -/* (at your option) any later version. This file is also distributed */ -/* under the terms of the INRIA Non-Commercial License Agreement. */ -/* */ -/* *********************************************************************/ - -#include <caml/mlvalues.h> -#include <caml/alloc.h> - -value cparser_int64_unsigned_div(value v1, value v2) -{ - return caml_copy_int64((uint64) Int64_val(v1) / (uint64) Int64_val(v2)); -} - -value cparser_int64_unsigned_mod(value v1, value v2) -{ - return caml_copy_int64((uint64) Int64_val(v1) % (uint64) Int64_val(v2)); -} - -value cparser_int64_unsigned_compare(value v1, value v2) -{ - uint64 n1 = (uint64) Int64_val(v1); - uint64 n2 = (uint64) Int64_val(v2); - if (n1 < n2) return Val_int(-1); - if (n1 > n2) return Val_int(1); - return Val_int(0); -} - |