conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Use DBL_MAX instead of HUGE_VAL for float precision when available. 

git-svn-id: svn://svn.zoy.org/elk/trunk@179 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-23 12:16:22 +00:00
parent ab40058bed
commit 957e491bba
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
include/site.h.in
View File

@ -36,10 +36,6 @@
# define __asm__ asm # define __asm__ asm
#endif #endif
#ifndef HUGE
# define HUGE HUGE_VAL
#endif
/* Under gcc, we use the __attribute__ macro to tell the compiler that a /* Under gcc, we use the __attribute__ macro to tell the compiler that a
* function does not return. */ * function does not return. */
#ifdef __GNUC__ #ifdef __GNUC__

10
src/bignum.c
View File

@ -36,6 +36,14 @@
#include "kernel.h" #include "kernel.h"
#ifndef DBL_MAX
# ifdef HUGE_VAL
# define DBL_MAX HUGE_VAL
# else
# define DBL_MAX (3.40282e+38)
# endif
#endif
static void Bignum_Mult_In_Place (register struct S_Bignum *, int); static void Bignum_Mult_In_Place (register struct S_Bignum *, int);
static void Bignum_Add_In_Place (register struct S_Bignum *, int); static void Bignum_Add_In_Place (register struct S_Bignum *, int);
static int Bignum_Div_In_Place (register struct S_Bignum *, int); static int Bignum_Div_In_Place (register struct S_Bignum *, int);
@ -440,7 +448,7 @@ double Bignum_To_Double (Object x) { /* error if it ain't fit */
register gran_t *p = BIGNUM(x)->data + i; register gran_t *p = BIGNUM(x)->data + i;
for (i = BIGNUM(x)->usize; --i >= 0; ) { for (i = BIGNUM(x)->usize; --i >= 0; ) {
if (rx >= HUGE / 65536.0) if (rx >= DBL_MAX / 65536.0)
Primitive_Error ("cannot coerce to real: ~s", x); Primitive_Error ("cannot coerce to real: ~s", x);
rx *= 65536.0; rx *= 65536.0;
rx += *--p; rx += *--p;