Use HEAP_MALLOC macro instead of using malloc directly.

diff --git a/v7/src/microcode/object.h b/v7/src/microcode/object.h
index a6a7f513496ac7f8623e15121b7a65c67a437ddb..0e40f23a62067df4944e02d1b4da45e77909a1b3 100644 (file)
--- a/v7/src/microcode/object.h
+++ b/v7/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.38 1992/06/05 19:31:16 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.39 1992/08/05 02:48:03 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -130,6 +130,10 @@ MIT in each case. */
 \f
 /* Machine dependencies */
 
+#ifndef HEAP_MALLOC
+#  define HEAP_MALLOC malloc
+#endif
+
 #ifdef HEAP_IN_LOW_MEMORY      /* Storing absolute addresses */
 
 typedef long relocation_type;  /* Used to relocate pointers on fasload */
@@ -138,7 +142,8 @@ typedef long relocation_type;       /* Used to relocate pointers on fasload */
    word reserved exclusively for use by the garbage collector. */
 #define ALLOCATE_HEAP_SPACE(space)                                     \
   (Heap =                                                              \
-    ((SCHEME_OBJECT *) (malloc ((sizeof (SCHEME_OBJECT)) * (space)))), \
+    ((SCHEME_OBJECT *)                                                 \
+     (HEAP_MALLOC ((sizeof (SCHEME_OBJECT)) * (space)))),              \
    ((Heap + (space)) - 1))
 
 #ifndef DATUM_TO_ADDRESS
@@ -161,7 +166,8 @@ extern SCHEME_OBJECT * memory_base;
    word reserved exclusively for use by the garbage collector. */
 #define ALLOCATE_HEAP_SPACE(space)                                     \
   (memory_base =                                                       \
-    ((SCHEME_OBJECT *) (malloc ((sizeof (SCHEME_OBJECT)) * (space)))), \
+    ((SCHEME_OBJECT *)                                                 \
+     (HEAP_MALLOC ((sizeof (SCHEME_OBJECT)) * (space)))),              \
    Heap = memory_base,                                                 \
    ((memory_base + (space)) - 1))
 

diff --git a/v8/src/microcode/object.h b/v8/src/microcode/object.h
index 1b6a728d95c59a24a443beadd6704e078907f2a9..6f2e8598e21f5d4870445d4f89650b38cb974d77 100644 (file)
--- a/v8/src/microcode/object.h
+++ b/v8/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.38 1992/06/05 19:31:16 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.39 1992/08/05 02:48:03 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -130,6 +130,10 @@ MIT in each case. */
 \f
 /* Machine dependencies */
 
+#ifndef HEAP_MALLOC
+#  define HEAP_MALLOC malloc
+#endif
+
 #ifdef HEAP_IN_LOW_MEMORY      /* Storing absolute addresses */
 
 typedef long relocation_type;  /* Used to relocate pointers on fasload */
@@ -138,7 +142,8 @@ typedef long relocation_type;       /* Used to relocate pointers on fasload */
    word reserved exclusively for use by the garbage collector. */
 #define ALLOCATE_HEAP_SPACE(space)                                     \
   (Heap =                                                              \
-    ((SCHEME_OBJECT *) (malloc ((sizeof (SCHEME_OBJECT)) * (space)))), \
+    ((SCHEME_OBJECT *)                                                 \
+     (HEAP_MALLOC ((sizeof (SCHEME_OBJECT)) * (space)))),              \
    ((Heap + (space)) - 1))
 
 #ifndef DATUM_TO_ADDRESS
@@ -161,7 +166,8 @@ extern SCHEME_OBJECT * memory_base;
    word reserved exclusively for use by the garbage collector. */
 #define ALLOCATE_HEAP_SPACE(space)                                     \
   (memory_base =                                                       \
-    ((SCHEME_OBJECT *) (malloc ((sizeof (SCHEME_OBJECT)) * (space)))), \
+    ((SCHEME_OBJECT *)                                                 \
+     (HEAP_MALLOC ((sizeof (SCHEME_OBJECT)) * (space)))),              \
    Heap = memory_base,                                                 \
    ((memory_base + (space)) - 1))