Changeset 8420

Timestamp:

Feb 4, 2008, 7:27:29 AM (17 years ago)

Author:

Gary Byers

Message:

Don't just toggle beween weak GC methods; pick up user pref from global.

File:

• trunk/source/lisp-kernel/gc-common.c (modified) (3 diffs)

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

@@ -751 +751 @@
 
 void
-install_weak_mark_functions(int set) {
+install_weak_mark_functions(natural set) {
   switch(set) {
   case 0:
@@ -990 +990 @@
 #endif
 
-int weak_hash_toggle = 0;
 
 void 
@@ -1008 +1007 @@
   natural static_dnodes;
 
-  install_weak_mark_functions(weak_hash_toggle);
-  weak_hash_toggle = 1 - weak_hash_toggle;
+  install_weak_mark_functions(lisp_global(WEAK_GC_METHOD) >> fixnumshift);
+
+
 
 #ifndef FORCE_DWS_MARK