Mercurial > emacs
diff src/floatfns.c @ 27727:9400865ec7cf
Remove `LISP_FLOAT_TYPE' and `standalone'.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 17 Feb 2000 09:45:46 +0000 |
parents | b7aa6ac26872 |
children | e19d38e14720 |
line wrap: on
line diff
--- a/src/floatfns.c Thu Feb 17 09:20:23 2000 +0000 +++ b/src/floatfns.c Thu Feb 17 09:45:46 2000 +0000 @@ -49,8 +49,6 @@ #include "lisp.h" #include "syssignal.h" -#ifdef LISP_FLOAT_TYPE - #if STDC_HEADERS #include <float.h> #endif @@ -717,8 +715,6 @@ return val; } -#endif /* LISP_FLOAT_TYPE */ - /* the rounding functions */ @@ -737,7 +733,6 @@ CHECK_NUMBER_OR_FLOAT (divisor, 1); -#ifdef LISP_FLOAT_TYPE if (FLOATP (arg) || FLOATP (divisor)) { double f1, f2; @@ -751,7 +746,6 @@ FLOAT_TO_INT2 (f1, arg, name, arg, divisor); return arg; } -#endif i1 = XINT (arg); i2 = XINT (divisor); @@ -763,7 +757,6 @@ return arg; } -#ifdef LISP_FLOAT_TYPE if (FLOATP (arg)) { double d; @@ -771,7 +764,6 @@ IN_FLOAT (d = (*double_round) (XFLOAT_DATA (arg)), name, arg); FLOAT_TO_INT (d, arg, name, arg); } -#endif return arg; } @@ -881,7 +873,6 @@ "truncate"); } -#ifdef LISP_FLOAT_TYPE Lisp_Object fmod_float (x, y) @@ -1018,17 +1009,9 @@ 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 @@ defsubr (&Sabs); defsubr (&Sfloat); defsubr (&Slogb); -#endif /* LISP_FLOAT_TYPE */ defsubr (&Sceiling); defsubr (&Sfloor); defsubr (&Sround);