From 707316913ebf838c5cbe53a409537c84c481df5e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 31 Oct 1992 23:41:13 +0000 Subject: [PATCH] Declare expt as an int instead of long so that frexp won't complain. --- v7/src/microcode/bintopsb.c | 8 ++++---- v8/src/microcode/bintopsb.c | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c index 9a98cf63b..2fd83bfa2 100644 --- 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 59bdd192c..2fd83bfa2 100644 --- 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; -- 2.25.1