From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 24 Sep 1989 15:25:19 +0000 (+0000)
Subject: Eliminate hand-coded flonum parameters in favor of those in "float.h".
X-Git-Tag: 20090517-FFI~11772
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b30ab6fb5f8a5e3b40155fba51b90460945a3141;p=mit-scheme.git

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 b7b3a80e1..deda5675d 100644
--- 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 5fa531c6b..3b899893a 100644
--- 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 a9c2ba8e3..98823d9c7 100644
--- 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.",