From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 15 Jul 1997 21:34:36 +0000 (+0000)
Subject: file: purify.c
X-Git-Tag: 20090517-FFI~5055
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=008cfe6855ce9cb588fecb4752bab70cbfa90bfd;p=mit-scheme.git

file: purify.c
file: bchmmg.c
file: memmag.c

Define EMPTY_WEAK_CHAIN for use in terminating the weak chain rather
that EMPTY_LIST.

This allows purify.c, bchmmg.c and memmag.c to be shared by 7.4 and 8.0.
---

diff --git a/v7/src/microcode/memmag.c b/v7/src/microcode/memmag.c
index 68aea0c60..da2806b86 100644
--- a/v7/src/microcode/memmag.c
+++ b/v7/src/microcode/memmag.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: memmag.c,v 9.63 1996/10/02 19:01:40 cph Exp $
+$Id: memmag.c,v 9.64 1997/07/15 21:34:36 adams Exp $
 
 Copyright (c) 1987-96 Massachusetts Institute of Technology
 
@@ -262,7 +262,7 @@ DEFUN_VOID (GCFlip)
   ALIGN_FLOAT (Free);
   SET_MEMTOP (Heap_Top - GC_Reserve);
 
-  Weak_Chain = EMPTY_LIST;
+  Weak_Chain = EMPTY_WEAK_CHAIN;
   return;
 }
 
@@ -286,7 +286,7 @@ DEFUN_VOID (Fix_Weak_Chain)
     Temp, * Old, * low_heap;
 
   low_heap = Constant_Top;
-  while (Weak_Chain != EMPTY_LIST)
+  while (Weak_Chain != EMPTY_WEAK_CHAIN)
   {
     Old_Weak_Cell = (OBJECT_ADDRESS (Weak_Chain));
     Scan = (OBJECT_ADDRESS (*Old_Weak_Cell++));