Changeset 13895

Timestamp:

Jun 27, 2010, 11:33:31 PM (14 years ago)

Author:

Gary Byers

Message:

Conditionalize for USE_GC_NOTIFICATATION (true on X86, not yet on PPC).

File:

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

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

@@ -2287 +2287 @@
   lisp_global(FREE_STATIC_CONSES)+=(n<<fixnumshift);
 }
+
+#ifdef X86
+#define USE_GC_NOTIFICATION 1
+#else
+#undef USE_GC_NOTIFICATION
+#endif
+
 void
 ensure_static_conses(ExceptionInformation *xp, TCR *tcr, natural nconses)
@@ -2293 +2300 @@
   natural nbytes = nconses>>dnode_shift, have;
   BytePtr p = a->high-nbytes;
+#ifdef USE_GC_NOTIFICATION
   Boolean crossed_notify_threshold = false;
   LispObj before_shrink, after_shrink;
+#endif
 
   if (p < a->active) {
     untenure_from_area(tenured_area);
     gc_from_xp(xp, 0L);
+#ifdef USE_GC_NOTIFICATION
     did_gc_notification_since_last_full_gc = false;
+#endif
   }
 
   have = unbox_fixnum(lisp_global(FREE_STATIC_CONSES));
   if (have < nconses) {
+#ifdef USE_GC_NOTIFICATION
     before_shrink = a->high-a->active;
     if (before_shrink>nbytes) {
@@ -2313 +2325 @@
       }
     }
+#endif
     allocate_static_conses(nconses);
     tcr->bytes_allocated += nbytes;
   }
+#ifdef USE_GC_NOTIFICATION
   if (crossed_notify_threshold && !did_gc_notification_since_last_full_gc) {
     callback_for_gc_notification(xp,tcr);
   }
+#endif
 }