Declare expt as an int instead of long so that frexp won't complain.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 9a98cf63b9a45a98cad5bbcaf77739e8069e89a7..2fd83bfa243672dab28859e095498b962c7e5316 100644 (file)
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.54 1992/08/16 23:21:57 jinx Exp $
+$Id: bintopsb.c,v 9.55 1992/10/31 23:41:13 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -546,8 +546,8 @@ DEFUN (print_a_flonum, (val),
 {
   fast long size_in_bits;
   fast double mant, temp;
-  long expt;
-  extern double frexp();
+  int expt;
+  extern double EXFUN (frexp, (double, int *));
 
   fprintf(portable_file, "%02x %c ",
          TC_BIG_FLONUM,
@@ -568,7 +568,7 @@ DEFUN (print_a_flonum, (val),
     if (temp >= 1.0)
       temp -= 1.0;
   }
-  fprintf(portable_file, "%ld %ld ", expt, size_in_bits);
+  fprintf(portable_file, "%d %ld ", expt, size_in_bits);
 
   for (size_in_bits = hex_digits(size_in_bits);
        size_in_bits > 0;

diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 59bdd192c21ee6b3893b7adf04f72736a78c971c..2fd83bfa243672dab28859e095498b962c7e5316 100644 (file)
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.54 1992/08/16 23:21:57 jinx Exp $
+$Id: bintopsb.c,v 9.55 1992/10/31 23:41:13 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -546,8 +546,8 @@ DEFUN (print_a_flonum, (val),
 {
   fast long size_in_bits;
   fast double mant, temp;
-  long expt;
-  extern double frexp();
+  int expt;
+  extern double EXFUN (frexp, (double, int *));
 
   fprintf(portable_file, "%02x %c ",
          TC_BIG_FLONUM,
@@ -568,7 +568,7 @@ DEFUN (print_a_flonum, (val),
     if (temp >= 1.0)
       temp -= 1.0;
   }
-  fprintf(portable_file, "%ld %ld ", expt, size_in_bits);
+  fprintf(portable_file, "%d %ld ", expt, size_in_bits);
 
   for (size_in_bits = hex_digits(size_in_bits);
        size_in_bits > 0;