diff options
| author | Guillaume Melquiond | 2020-10-01 20:44:30 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2020-11-13 15:14:34 +0100 |
| commit | c9cf844e7bdb4eb8bf1b7259f9edd6116629d201 (patch) | |
| tree | 6d99c6b28ef37b1b87e7948b890c16922753d586 /kernel | |
| parent | 5b2d1c010aa0deb8b5ac89a9c9cdaa263e3b9d64 (diff) | |
Remove floating-point comparison operators as they are no longer needed.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/byterun/coq_float64.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/kernel/byterun/coq_float64.c b/kernel/byterun/coq_float64.c index 5ddddbf650..ebbfe35fa6 100644 --- a/kernel/byterun/coq_float64.c +++ b/kernel/byterun/coq_float64.c @@ -15,15 +15,6 @@ #include "coq_values.h" -#define DECLARE_FREL(name, e) \ - int coq_##name(double x, double y) { \ - return e; \ - } \ - \ - value coq_##name##_byte(value x, value y) { \ - return coq_##name(Double_val(x), Double_val(y)); \ - } - #define DECLARE_FBINOP(name, e) \ double coq_##name(double x, double y) { \ return e; \ @@ -42,9 +33,6 @@ return caml_copy_double(coq_##name(Double_val(x))); \ } -DECLARE_FREL(feq, x == y) -DECLARE_FREL(flt, x < y) -DECLARE_FREL(fle, x <= y) DECLARE_FBINOP(fmul, x * y) DECLARE_FBINOP(fadd, x + y) DECLARE_FBINOP(fsub, x - y) |