From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 Jul 1987 21:02:46 +0000 (+0000)
Subject: Add relocation hook for common lisp.
X-Git-Tag: 20090517-FFI~13276
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=58bf05fd973a95ff9089d867c09c8c2437c83dff;p=mit-scheme.git

Add relocation hook for common lisp.
---

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 8841fe54e..10ec9be04 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.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/fasload.c,v 9.27 1987/06/05 04:14:38 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.28 1987/07/07 21:02:46 cph Rel $
 
    The "fast loader" which reads in and relocates binary files and then
    interns symbols.  It is called with one argument: the (character
@@ -457,6 +457,7 @@ load_file(from_band_load)
   }
 
   Set_Pure_Top();
+  FASLOAD_RELOCATE_HOOK (Orig_Heap, Free, Orig_Constant, Free_Constant);
   Relocate_Into(Xtemp, Dumped_Object);
   return *Xtemp;
 }