diff options
Diffstat (limited to 'cparser')
-rw-r--r-- | cparser/Ceval.ml | 2 | ||||
-rw-r--r-- | cparser/uint64.c | 5 |
2 files changed, 0 insertions, 7 deletions
diff --git a/cparser/Ceval.ml b/cparser/Ceval.ml index 5770e27..d38054a 100644 --- a/cparser/Ceval.ml +++ b/cparser/Ceval.ml @@ -21,8 +21,6 @@ open Machine (* Extra arith on int64 *) -external int64_unsigned_to_float: int64 -> float - = "cparser_int64_unsigned_to_float" external int64_unsigned_div: int64 -> int64 -> int64 = "cparser_int64_unsigned_div" external int64_unsigned_mod: int64 -> int64 -> int64 diff --git a/cparser/uint64.c b/cparser/uint64.c index 5396617..1528887 100644 --- a/cparser/uint64.c +++ b/cparser/uint64.c @@ -16,11 +16,6 @@ #include <caml/mlvalues.h> #include <caml/alloc.h> -value cparser_int64_unsigned_to_float(value v) -{ - return caml_copy_double((double)((uint64) Int64_val(v))); -} - value cparser_int64_unsigned_div(value v1, value v2) { return caml_copy_int64((uint64) Int64_val(v1) / (uint64) Int64_val(v2)); |