aboutsummaryrefslogtreecommitdiffstats
path: root/src/floatfns.c
diff options
context:
space:
mode:
authorGerd Moellmann2000-02-17 09:45:46 +0000
committerGerd Moellmann2000-02-17 09:45:46 +0000
commitcc94f3b24e447e04da3e899af8909cb77d648ef0 (patch)
tree9dc9189ad96dec0e5237e9fd36a6baf505c9eb7d /src/floatfns.c
parent10689a01d99ab2f3382bb7ef3912961ec08f8bb9 (diff)
downloademacs-cc94f3b24e447e04da3e899af8909cb77d648ef0.tar.gz
emacs-cc94f3b24e447e04da3e899af8909cb77d648ef0.zip
Remove `LISP_FLOAT_TYPE' and `standalone'.
Diffstat (limited to 'src/floatfns.c')
-rw-r--r--src/floatfns.c18
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. */
49#include "lisp.h" 49#include "lisp.h"
50#include "syssignal.h" 50#include "syssignal.h"
51 51
52#ifdef LISP_FLOAT_TYPE
53
54#if STDC_HEADERS 52#if STDC_HEADERS
55#include <float.h> 53#include <float.h>
56#endif 54#endif
@@ -717,8 +715,6 @@ This is the same as the exponent of a float.")
717 return val; 715 return val;
718} 716}
719 717
720#endif /* LISP_FLOAT_TYPE */
721
722 718
723/* the rounding functions */ 719/* the rounding functions */
724 720
@@ -737,7 +733,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name)
737 733
738 CHECK_NUMBER_OR_FLOAT (divisor, 1); 734 CHECK_NUMBER_OR_FLOAT (divisor, 1);
739 735
740#ifdef LISP_FLOAT_TYPE
741 if (FLOATP (arg) || FLOATP (divisor)) 736 if (FLOATP (arg) || FLOATP (divisor))
742 { 737 {
743 double f1, f2; 738 double f1, f2;
@@ -751,7 +746,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name)
751 FLOAT_TO_INT2 (f1, arg, name, arg, divisor); 746 FLOAT_TO_INT2 (f1, arg, name, arg, divisor);
752 return arg; 747 return arg;
753 } 748 }
754#endif
755 749
756 i1 = XINT (arg); 750 i1 = XINT (arg);
757 i2 = XINT (divisor); 751 i2 = XINT (divisor);
@@ -763,7 +757,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name)
763 return arg; 757 return arg;
764 } 758 }
765 759
766#ifdef LISP_FLOAT_TYPE
767 if (FLOATP (arg)) 760 if (FLOATP (arg))
768 { 761 {
769 double d; 762 double d;
@@ -771,7 +764,6 @@ rounding_driver (arg, divisor, double_round, int_round2, name)
771 IN_FLOAT (d = (*double_round) (XFLOAT_DATA (arg)), name, arg); 764 IN_FLOAT (d = (*double_round) (XFLOAT_DATA (arg)), name, arg);
772 FLOAT_TO_INT (d, arg, name, arg); 765 FLOAT_TO_INT (d, arg, name, arg);
773 } 766 }
774#endif
775 767
776 return arg; 768 return arg;
777} 769}
@@ -881,7 +873,6 @@ With optional DIVISOR, truncate ARG/DIVISOR.")
881 "truncate"); 873 "truncate");
882} 874}
883 875
884#ifdef LISP_FLOAT_TYPE
885 876
886Lisp_Object 877Lisp_Object
887fmod_float (x, y) 878fmod_float (x, y)
@@ -1018,17 +1009,9 @@ init_floatfns ()
1018 in_float = 0; 1009 in_float = 0;
1019} 1010}
1020 1011
1021#else /* not LISP_FLOAT_TYPE */
1022
1023init_floatfns ()
1024{}
1025
1026#endif /* not LISP_FLOAT_TYPE */
1027
1028void 1012void
1029syms_of_floatfns () 1013syms_of_floatfns ()
1030{ 1014{
1031#ifdef LISP_FLOAT_TYPE
1032 defsubr (&Sacos); 1015 defsubr (&Sacos);
1033 defsubr (&Sasin); 1016 defsubr (&Sasin);
1034 defsubr (&Satan); 1017 defsubr (&Satan);
@@ -1066,7 +1049,6 @@ syms_of_floatfns ()
1066 defsubr (&Sabs); 1049 defsubr (&Sabs);
1067 defsubr (&Sfloat); 1050 defsubr (&Sfloat);
1068 defsubr (&Slogb); 1051 defsubr (&Slogb);
1069#endif /* LISP_FLOAT_TYPE */
1070 defsubr (&Sceiling); 1052 defsubr (&Sceiling);
1071 defsubr (&Sfloor); 1053 defsubr (&Sfloor);
1072 defsubr (&Sround); 1054 defsubr (&Sround);