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 68aea0c60635ee0a8543e7b94fdf7318cc7f59fa..da2806b867b4aabe68d5cd6f87d513f04333913a 100644 (file)
--- 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;
 }
 \f
@@ -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++));