From b4382bdaa8fc5e8ad6cb6dc1fa8f81fdcda91bc2 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 16 Aug 1992 23:22:34 +0000 Subject: [PATCH] Explicitly set HEAP_MALLOC to malloc in case it has been defined to be another procedure that is not linked in. --- v7/src/microcode/bintopsb.c | 13 ++++++++----- v7/src/microcode/ppband.c | 5 ++++- v8/src/microcode/bintopsb.c | 13 ++++++++----- v8/src/microcode/ppband.c | 5 ++++- 4 files changed, 24 insertions(+), 12 deletions(-) diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c index 6c07fbb24..9a98cf63b 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.53 1992/07/18 12:15:45 jinx Exp $ +$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 $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -43,6 +43,9 @@ MIT in each case. */ #define internal_file input_file #define portable_file output_file +#undef HEAP_MALLOC +#define HEAP_MALLOC malloc + long DEFUN (Load_Data, (Count, To_Where), long Count AND @@ -448,7 +451,7 @@ DEFUN (print_a_bignum, (bignum_ptr), } else if (bits_in_digit < length_in_bits) { - int carry = accumulator; + long carry = accumulator; int diff_bits = (4 - bits_in_digit); accumulator = (*scan++); fprintf (portable_file, "%01lx", @@ -543,7 +546,7 @@ DEFUN (print_a_flonum, (val), { fast long size_in_bits; fast double mant, temp; - int expt; + long expt; extern double frexp(); fprintf(portable_file, "%02x %c ", @@ -1008,9 +1011,9 @@ DEFUN (Process_Area, (Code, Area, Bound, Obj, FObj), nmv_p = true; if (null_nmv_p) { - fast int i; + fast long i; - i = OBJECT_DATUM (This); + i = (OBJECT_DATUM (This)); *Area += 1; for ( ; --i >= 0; *Area += 1) { diff --git a/v7/src/microcode/ppband.c b/v7/src/microcode/ppband.c index 8b7c1dbad..de9079aab 100644 --- a/v7/src/microcode/ppband.c +++ b/v7/src/microcode/ppband.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/ppband.c,v 9.43 1992/02/11 21:15:00 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/ppband.c,v 9.44 1992/08/16 23:22:34 jinx Exp $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -47,6 +47,9 @@ MIT in each case. */ #define fast register +#undef HEAP_MALLOC +#define HEAP_MALLOC malloc + /* These are needed when there is no compiler support. */ extern void EXFUN (gc_death, diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c index 5dffc216d..59bdd192c 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.53 1992/07/18 12:15:45 jinx Exp $ +$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 $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -43,6 +43,9 @@ MIT in each case. */ #define internal_file input_file #define portable_file output_file +#undef HEAP_MALLOC +#define HEAP_MALLOC malloc + long DEFUN (Load_Data, (Count, To_Where), long Count AND @@ -448,7 +451,7 @@ DEFUN (print_a_bignum, (bignum_ptr), } else if (bits_in_digit < length_in_bits) { - int carry = accumulator; + long carry = accumulator; int diff_bits = (4 - bits_in_digit); accumulator = (*scan++); fprintf (portable_file, "%01lx", @@ -543,7 +546,7 @@ DEFUN (print_a_flonum, (val), { fast long size_in_bits; fast double mant, temp; - int expt; + long expt; extern double frexp(); fprintf(portable_file, "%02x %c ", @@ -1008,9 +1011,9 @@ DEFUN (Process_Area, (Code, Area, Bound, Obj, FObj), nmv_p = true; if (null_nmv_p) { - fast int i; + fast long i; - i = OBJECT_DATUM (This); + i = (OBJECT_DATUM (This)); *Area += 1; for ( ; --i >= 0; *Area += 1) { diff --git a/v8/src/microcode/ppband.c b/v8/src/microcode/ppband.c index c58eae8ca..1e588f85e 100644 --- a/v8/src/microcode/ppband.c +++ b/v8/src/microcode/ppband.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/ppband.c,v 9.43 1992/02/11 21:15:00 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/ppband.c,v 9.44 1992/08/16 23:22:34 jinx Exp $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -47,6 +47,9 @@ MIT in each case. */ #define fast register +#undef HEAP_MALLOC +#define HEAP_MALLOC malloc + /* These are needed when there is no compiler support. */ extern void EXFUN (gc_death, -- 2.25.1