From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Jul 1987 22:51:22 +0000 (+0000)
Subject: Install missing defaults for case when there is no compiled code
X-Git-Tag: 20090517-FFI~13231
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d02864106034caf2d8ce8cf1400112473cf75fa2;p=mit-scheme.git

Install missing defaults for case when there is no compiled code
support.
---

diff --git a/v7/src/microcode/gccode.h b/v7/src/microcode/gccode.h
index a5357fc81..3502434e7 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.24 1987/06/05 17:22:43 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gccode.h,v 9.25 1987/07/21 22:51:22 cph Rel $
  *
  * 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
@@ -344,12 +344,24 @@ Pointer_End()
 
 /* Is there anything else that can be done here? */
 
+#define Get_Compiled_Offset(address)					\
+  (fprintf(stderr,							\
+	   "\nRelocating compiled code without compiler support!\n"),	\
+   Microcode_Termination(TERM_COMPILER_DEATH),				\
+   0)
+
 #define Get_Compiled_Block(address)					\
   (fprintf(stderr,							\
 	   "\nRelocating compiled code without compiler support!\n"),	\
    Microcode_Termination(TERM_COMPILER_DEATH),				\
    ((Pointer *) NULL))
 
+#define Relocate_Compiled(object, new_block, old_block)			\
+  (fprintf(stderr,							\
+	   "\nRelocating compiled code without compiler support!\n"),	\
+   Microcode_Termination(TERM_COMPILER_DEATH),				\
+   NIL)
+
 #define Compiled_BH(flag, then_what)					\
 {									\
   fprintf(stderr,							\