Eliminate hand-coded flonum parameters in favor of those in "float.h".

These new parameters can be generated by hard-params, or if the system
has <float.h> we can use that instead.

diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index b7b3a80e1b0a268f89f4fe6bd7233b0784eca171..deda5675d3d9a99b4ec152a26b8994a59785c9c5 100644 (file)
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.38 1989/09/24 15:12:41 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.39 1989/09/24 15:24:26 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -38,6 +38,7 @@ MIT in each case. */
 /* Cheap renames */
 
 #include "psbmap.h"
+#include "float.h"
 #define portable_file input_file
 #define internal_file output_file
 
@@ -487,7 +488,7 @@ read_a_flonum ()
     fast double Normalization;
     long digit;
 
-    if (size_in_bits > DBL_MAN_DIG)
+    if (size_in_bits > DBL_MANT_DIG)
     {
       fprintf(stderr,
              "%s: Some precision may be lost.",

diff --git a/v7/src/microcode/unxutl/ymkfile b/v7/src/microcode/unxutl/ymkfile
index 5fa531c6bf64128a0537bf981dc38d5df8a16642..3b899893a1268eec74e4a21831bf44a37fe366c9 100644 (file)
--- a/v7/src/microcode/unxutl/ymkfile
+++ b/v7/src/microcode/unxutl/ymkfile
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/unxutl/Attic/ymkfile,v 1.13 1989/09/24 15:13:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/unxutl/Attic/ymkfile,v 1.14 1989/09/24 15:25:19 cph Exp $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -488,8 +488,8 @@ regex.o : scheme.touch syntax.h regex.h
 rgxprim.o : scheme.touch prims.h edwin.h syntax.h regex.h
 unixprim.o : scheme.touch prims.h
 
-Bintopsb.o : psbmap.touch trap.h fasl.h load.c bltdef.h limits.h
-Psbtobin.o : psbmap.touch fasl.h dump.c
+Bintopsb.o : psbmap.touch trap.h limits.h fasl.h load.c bltdef.h
+Psbtobin.o : psbmap.touch float.h fasl.h dump.c
 Ppband.o : config.h types.h const.h object.h sdata.h fasl.h load.c
 
 dmpwrld.o : unexec.c getpagesize.h

diff --git a/v8/src/microcode/psbtobin.c b/v8/src/microcode/psbtobin.c
index a9c2ba8e329d3ac7277ff026518997657ffd99d3..98823d9c7db0eecb57bc7bb27cdc015392fc7f9e 100644 (file)
--- a/v8/src/microcode/psbtobin.c
+++ b/v8/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.38 1989/09/24 15:12:41 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.39 1989/09/24 15:24:26 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -38,6 +38,7 @@ MIT in each case. */
 /* Cheap renames */
 
 #include "psbmap.h"
+#include "float.h"
 #define portable_file input_file
 #define internal_file output_file
 
@@ -487,7 +488,7 @@ read_a_flonum ()
     fast double Normalization;
     long digit;
 
-    if (size_in_bits > DBL_MAN_DIG)
+    if (size_in_bits > DBL_MANT_DIG)
     {
       fprintf(stderr,
              "%s: Some precision may be lost.",