Changeset 219

Timestamp:

Jan 5, 2004, 6:11:00 PM (21 years ago)

Author:

Gary Byers

Message:

Set lisp_global(STATICALLY_LINKED) if STATIC is defined.

File:

• trunk/ccl/lisp-kernel/pmcl-kernel.c (modified) (1 diff)

trunk/ccl/lisp-kernel/pmcl-kernel.c

@@ -1258 +1258 @@
 
   lisp_global(ALTIVEC_PRESENT) = altivec_present << fixnumshift;
-
+#if STATIC
+  lisp_global(STATICALLY_LINKED) = 1 << fixnumshift;
+#endif
   tcr->prev = tcr->next = tcr;
   lisp_global(TCR_LOCK) = (LispObj)new_recursive_lock();