Define new type code for compiled code blocks to guarantee that they

are not put in pure space.

diff --git a/v7/src/microcode/gctype.c b/v7/src/microcode/gctype.c
index 5f39047008c9d3a9ca3667d4f295fdb7c707f6db..9b0e9bbfd9aebeebfc0b70c7f31e0ab98cf0be91 100644 (file)
--- a/v7/src/microcode/gctype.c
+++ b/v7/src/microcode/gctype.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/gctype.c,v 9.22 1987/04/03 00:14:08 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/gctype.c,v 9.23 1987/06/05 20:56:37 cph Rel $
  *
  * This file contains the table which maps between Types and
  * GC Types.
@@ -108,7 +108,7 @@ int GC_Type_Map[MAX_SAFE_TYPE + 1] = {
     GC_Pair,                   /* TC_COMPILER_LINK */
     GC_Non_Pointer,            /* TC_STACK_ENVIRONMENT */
     GC_Pair,                   /* TC_COMPLEX */
-    GC_Undefined,                      /* 0x3D */
+    GC_Vector,                 /* TC_COMPILED_CODE_BLOCK */
     GC_Undefined,                      /* 0x3E */
     GC_Undefined,                      /* 0x3F */
     GC_Undefined,                      /* 0x40 */

diff --git a/v8/src/microcode/gctype.c b/v8/src/microcode/gctype.c
index 465ff9d58aa9a6226f5149c0e26100f89f4eced8..2758e8f17a5f2955fcf7a39e5d91cf9d7d7aeef9 100644 (file)
--- a/v8/src/microcode/gctype.c
+++ b/v8/src/microcode/gctype.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/gctype.c,v 9.22 1987/04/03 00:14:08 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/gctype.c,v 9.23 1987/06/05 20:56:37 cph Rel $
  *
  * This file contains the table which maps between Types and
  * GC Types.
@@ -108,7 +108,7 @@ int GC_Type_Map[MAX_SAFE_TYPE + 1] = {
     GC_Pair,                   /* TC_COMPILER_LINK */
     GC_Non_Pointer,            /* TC_STACK_ENVIRONMENT */
     GC_Pair,                   /* TC_COMPLEX */
-    GC_Undefined,                      /* 0x3D */
+    GC_Vector,                 /* TC_COMPILED_CODE_BLOCK */
     GC_Undefined,                      /* 0x3E */
     GC_Undefined,                      /* 0x3F */
     GC_Undefined,                      /* 0x40 */