From 9340ad92b766148ea0a831f1b377e6d3f182dedf Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Jun 1987 17:23:11 +0000
Subject: [PATCH] Define new type code for compiled code blocks to guarantee
 that they are not put in pure space.

---
 v7/src/microcode/gccode.h | 18 +++++++++++-------
 v7/src/microcode/types.h  |  3 ++-
 v8/src/microcode/types.h  |  3 ++-
 3 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/v7/src/microcode/gccode.h b/v7/src/microcode/gccode.h
index fc291cddb..a5357fc81 100644
--- 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 d62337e32..8c12828ee 100644
--- 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 a6e1c9fcc..9ffb12636 100644
--- 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 */
 
-- 
2.25.1