Changeset 8370

Timestamp:

Jan 29, 2008, 5:57:50 PM (17 years ago)

Author:

Gary Byers

Message:

Fix conditinalization.

File:

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

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

@@ -704 +704 @@
 }
 
-weak_mark_fun dws_mark_weak_htabv = traditional_dws_mark_htabv;
-weak_mark_fun mark_weak_htabv = traditional_mark_weak_htabv;
-weak_process_fun markhtabvs = traditional_markhtabvs;
-
-void
-install_weak_mark_functions(int set) {
-  switch(set) {
-  case 0:
-  default:
-    dws_mark_weak_htabv = traditional_dws_mark_htabv;
-    mark_weak_htabv = traditional_mark_weak_htabv;
-    markhtabvs = traditional_markhtabvs;
-    break;
-  case 1:
-    dws_mark_weak_htabv = ncircle_dws_mark_htabv;
-    mark_weak_htabv = ncircle_mark_weak_htabv;
-    markhtabvs = ncircle_markhtabvs;
-    break;
-  }
-}
-
 void
 gc_init()
@@ -765 +744 @@
 
 #endif
+
+
+weak_mark_fun dws_mark_weak_htabv = traditional_dws_mark_htabv;
+weak_mark_fun mark_weak_htabv = traditional_mark_weak_htabv;
+weak_process_fun markhtabvs = traditional_markhtabvs;
+
+void
+install_weak_mark_functions(int set) {
+  switch(set) {
+  case 0:
+  default:
+    dws_mark_weak_htabv = traditional_dws_mark_htabv;
+    mark_weak_htabv = traditional_mark_weak_htabv;
+    markhtabvs = traditional_markhtabvs;
+    break;
+  case 1:
+    dws_mark_weak_htabv = ncircle_dws_mark_htabv;
+    mark_weak_htabv = ncircle_mark_weak_htabv;
+    markhtabvs = ncircle_markhtabvs;
+    break;
+  }
+}
 
 LispObj