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 a5357fc81906dae19034575f4236143d790c6a4d..3502434e72e0d7334c5d018a65a4cc2f70db73b8 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.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,                                                      \