diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-08 09:16:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-08 09:16:45 +0000 |
| commit | a3fc523600c39361b2f4910cdfa111fe9b57a01c (patch) | |
| tree | e6856edadfe9d9f05741a6fc1616809188b32f38 /src/floatfns.c | |
| parent | 4c3c22f36ae8734646ea485767ba9a01f33f94ee (diff) | |
| download | emacs-a3fc523600c39361b2f4910cdfa111fe9b57a01c.tar.gz | |
[MSDOS]: Don't define HAVE_MATHERR.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index b31f0baee27..733746a4578 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -53,6 +53,16 @@ Lisp_Object Qarith_error; #ifdef LISP_FLOAT_TYPE +#if 0 /* That is untrue--XINT is used below, and it uses INTBITS. + What in the world is values.h, anyway? */ +#ifdef MSDOS +/* These are redefined in <values.h> and not used here */ +#undef INTBITS +#undef LONGBITS +#undef SHORTBITS +#endif +#endif + /* Work around a problem that happens because math.h on hpux 7 defines two static variables--which, in Emacs, are not really static, because `static' is defined as nothing. The problem is that they are @@ -70,12 +80,14 @@ Lisp_Object Qarith_error; extern double logb (); #endif /* !hpux && HAVE_LOGB */ +#ifndef MSDOS #if defined(DOMAIN) && defined(SING) && defined(OVERFLOW) /* If those are defined, then this is probably a `matherr' machine. */ # ifndef HAVE_MATHERR # define HAVE_MATHERR # endif #endif +#endif #ifdef NO_MATHERR #undef HAVE_MATHERR @@ -813,7 +825,7 @@ Rounds the value toward zero.") if (d >= 0.0) IN_FLOAT (d = floor (d), "ftruncate", arg); else - IN_FLOAT (d = ceil (d), arg); + IN_FLOAT (d = ceil (d), "ftruncate", arg); return make_float (d); } #endif |