From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 29 Aug 1992 12:54:14 +0000 (+0000)
Subject: Alpha mods.
X-Git-Tag: 20090517-FFI~9047
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6d504e150c8aebd72c2695757b86887df25c92db;p=mit-scheme.git

Alpha mods.
---

diff --git a/v7/src/microcode/cmpgc.h b/v7/src/microcode/cmpgc.h
index 2b579ee08..aba5b685e 100644
--- a/v7/src/microcode/cmpgc.h
+++ b/v7/src/microcode/cmpgc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpgc.h,v 1.20 1992/07/06 13:17:37 jinx Exp $
+$Id: cmpgc.h,v 1.21 1992/08/29 12:54:14 jinx Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -135,11 +135,27 @@ MAKE_POINTER_OBJECT((OBJECT_TYPE(object)),				\
   }									\
 }
 
+#ifdef AUTOCLOBBER_BUG
+# define AUTOCLOBBER_BUMP(Old, To) do					\
+{									\
+  if (OBJECT_TYPE(*Old) == TC_MANIFEST_VECTOR)				\
+  {									\
+    *To = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR,				\
+			((PAGE_SIZE / (sizeof (SCHEME_OBJECT)))		\
+			 - 1)));					\
+    To += (PAGE_SIZE / (sizeof (SCHEME_OBJECT)));			\
+  }									\
+} while (0)								\
+#else
+#  define AUTOCLOBBER_BUMP(Old, To) do { } while (0)
+#endif
+
 #define Transport_Compiled()						\
 {									\
   SCHEME_OBJECT *Saved_Old = Old;					\
 									\
   Real_Transport_Vector();						\
+  AUTOCLOBBER_BUMP (Saved_Old, To);					\
   *Saved_Old = New_Address;						\
   Temp = (RELOCATE_COMPILED (Temp,					\
 			     (OBJECT_ADDRESS (New_Address)),		\