diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-02-17 09:45:46 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-02-17 09:45:46 +0000 |
| commit | de2f1fe2a46e498ab064a28f24550228a0d1e030 (patch) | |
| tree | eeb70fe3ef06c069bb04297dae182f787c6c4fc5 /src/floatfns.c | |
| parent | b1f8c38eae8ea23abde5bdaa0d5afa9bd9a719a4 (diff) | |
| download | emacs-de2f1fe2a46e498ab064a28f24550228a0d1e030.tar.gz | |
Remove `LISP_FLOAT_TYPE' and `standalone'.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index ebe1b7de43c..d6cbb876e37 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -49,8 +49,6 @@ Boston, MA 02111-1307, USA. */ #include "lisp.h" #include "syssignal.h" -#ifdef LISP_FLOAT_TYPE - #if STDC_HEADERS #include <float.h> #endif @@ -717,8 +715,6 @@ This is the same as the exponent of a float.") return val; } -#endif /* LISP_FLOAT_TYPE */ - /* the rounding functions */ @@ -737,7 +733,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name) CHECK_NUMBER_OR_FLOAT (divisor, 1); -#ifdef LISP_FLOAT_TYPE if (FLOATP (arg) || FLOATP (divisor)) { double f1, f2; @@ -751,7 +746,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name) FLOAT_TO_INT2 (f1, arg, name, arg, divisor); return arg; } -#endif i1 = XINT (arg); i2 = XINT (divisor); @@ -763,7 +757,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name) return arg; } -#ifdef LISP_FLOAT_TYPE if (FLOATP (arg)) { double d; @@ -771,7 +764,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name) IN_FLOAT (d = (*double_round) (XFLOAT_DATA (arg)), name, arg); FLOAT_TO_INT (d, arg, name, arg); } -#endif return arg; } @@ -881,7 +873,6 @@ With optional DIVISOR, truncate ARG/DIVISOR.") "truncate"); } -#ifdef LISP_FLOAT_TYPE Lisp_Object fmod_float (x, y) @@ -1018,17 +1009,9 @@ init_floatfns () in_float = 0; } -#else /* not LISP_FLOAT_TYPE */ - -init_floatfns () -{} - -#endif /* not LISP_FLOAT_TYPE */ - void syms_of_floatfns () { -#ifdef LISP_FLOAT_TYPE defsubr (&Sacos); defsubr (&Sasin); defsubr (&Satan); @@ -1066,7 +1049,6 @@ syms_of_floatfns () defsubr (&Sabs); defsubr (&Sfloat); defsubr (&Slogb); -#endif /* LISP_FLOAT_TYPE */ defsubr (&Sceiling); defsubr (&Sfloor); defsubr (&Sround); |