Changeset 8401

Timestamp:

Feb 3, 2008, 5:20:07 AM (17 years ago)

Author:

Gary Byers

Message:

weak hash stuff in ppc GC, too

File:

• trunk/source/lisp-kernel/ppc-gc.c (modified) (4 diffs)

trunk/source/lisp-kernel/ppc-gc.c

@@ -303 +303 @@
           ((hash_table_vector_header *) base)->cache_key = undefined;
           ((hash_table_vector_header *) base)->cache_value = lisp_nil;
-          deref(ptr_to_lispobj(base),1) = GCweakvll;
-          GCweakvll = n;
+          mark_weak_htabv(n);
           return;
         }
@@ -563 +562 @@
           ((hash_table_vector_header *) base)->cache_key = undefined;
           ((hash_table_vector_header *) base)->cache_value = lisp_nil;
-          deref(ptr_to_lispobj(base),1) = GCweakvll;
-          GCweakvll = n;
+          mark_weak_htabv(n);
           return;
         }
@@ -732 +730 @@
           ((hash_table_vector_header *) base)->cache_key = undefined;
           ((hash_table_vector_header *) base)->cache_value = lisp_nil;
-          
-          deref(ptr_to_lispobj(base),1) = GCweakvll;
-          GCweakvll = this;
-          goto Climb;
+          dws_mark_weak_htabv(this);
+          element_count = hash_table_vector_header_count;
         }
       }
@@ -990 +986 @@
           ((hash_table_vector_header *) start)->cache_key = undefined;
           ((hash_table_vector_header *) start)->cache_value = lisp_nil;
-        
-          start[1] = GCweakvll;
-          GCweakvll = (LispObj) (((natural) start) + fulltag_misc);
+          mark_weak_htabv((LispObj)start);
           element_count = 0;
         }