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

are not put in pure space.

diff --git a/v7/src/microcode/gccode.h b/v7/src/microcode/gccode.h
index fc291cddb7efa612a68a83a47e7326a61f16246c..a5357fc81906dae19034575f4236143d790c6a4d 100644 (file)
--- a/v7/src/microcode/gccode.h
+++ b/v7/src/microcode/gccode.h
@@ -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/gccode.h,v 9.23 1987/04/16 02:23:06 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gccode.h,v 9.24 1987/06/05 17:22:43 cph Exp $
  *
  * This file contains the macros for use in code which does GC-like
  * loops over memory.  It is only included in a few files, unlike
@@ -145,6 +145,7 @@ MIT in each case. */
 
 #define case_Vector                                    \
  case TC_ENVIRONMENT:                                  \
+ case TC_COMPILED_CODE_BLOCK:                          \
  case_Purify_Vector
 
 /* Missing vector types (must be treated specially):
@@ -344,14 +345,17 @@ Pointer_End()
 /* Is there anything else that can be done here? */
 
 #define Get_Compiled_Block(address)                                    \
-fprintf(stderr,                                                                \
-       "\nRelocating compiled code without compiler support!\n");      \
-Microcode_Termination(TERM_COMPILER_DEATH)
+  (fprintf(stderr,                                                     \
+          "\nRelocating compiled code without compiler support!\n"),   \
+   Microcode_Termination(TERM_COMPILER_DEATH),                         \
+   ((Pointer *) NULL))
 
 #define Compiled_BH(flag, then_what)                                   \
-fprintf(stderr,                                                                \
-       "\nRelocating compiled code without compiler support!\n");      \
-Microcode_Termination(TERM_COMPILER_DEATH)
+{                                                                      \
+  fprintf(stderr,                                                      \
+         "\nRelocating compiled code without compiler support!\n");    \
+  Microcode_Termination(TERM_COMPILER_DEATH);                          \
+}
 
 #define Transport_Compiled()
 

diff --git a/v7/src/microcode/types.h b/v7/src/microcode/types.h
index d62337e328f02df69e21c8def33495e31b5e6457..8c12828ee2e1327bfa5056678f21934927cf4a71 100644 (file)
--- a/v7/src/microcode/types.h
+++ b/v7/src/microcode/types.h
@@ -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/types.h,v 9.22 1987/04/03 00:21:38 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/types.h,v 9.23 1987/06/05 17:23:11 cph Rel $
  *
  * Type code definitions, numerical order
  *
@@ -98,6 +98,7 @@ MIT in each case. */
 #define TC_COMPILER_LINK               0x3A
 #define TC_STACK_ENVIRONMENT           0x3B
 #define TC_COMPLEX                     0x3C
+#define TC_COMPILED_CODE_BLOCK         0x3D
 
 /* If you add a new type, don't forget to update gccode.h and gctype.c */
 

diff --git a/v8/src/microcode/types.h b/v8/src/microcode/types.h
index a6e1c9fcc8981d68eecf0013cbe857dc0409ad1a..9ffb12636397390b65e11e2ccd51166b71624175 100644 (file)
--- a/v8/src/microcode/types.h
+++ b/v8/src/microcode/types.h
@@ -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/types.h,v 9.22 1987/04/03 00:21:38 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/types.h,v 9.23 1987/06/05 17:23:11 cph Rel $
  *
  * Type code definitions, numerical order
  *
@@ -98,6 +98,7 @@ MIT in each case. */
 #define TC_COMPILER_LINK               0x3A
 #define TC_STACK_ENVIRONMENT           0x3B
 #define TC_COMPLEX                     0x3C
+#define TC_COMPILED_CODE_BLOCK         0x3D
 
 /* If you add a new type, don't forget to update gccode.h and gctype.c */