Explicitly set HEAP_MALLOC to malloc in case it has been defined to be

another procedure that is not linked in.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 6c07fbb242b5a8e5eb24cfff7af92c29f0b38f15..9a98cf63b9a45a98cad5bbcaf77739e8069e89a7 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.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 8b7c1dbad9a10d7fed80058ac12aa095c1fdb95d..de9079aab377b47d4464fe4be868ef8f1044bc27 100644 (file)
--- 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 5dffc216dadd12b82e9f3b7cdfe2917da03460ad..59bdd192c21ee6b3893b7adf04f72736a78c971c 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.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 c58eae8ca61bed6dc3557d1fe35dd09c8b619dd7..1e588f85e0b06b8e502210a682b8f6bb5c75937d 100644 (file)
--- 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,