Changeset 13895


Ignore:
Timestamp:
Jun 28, 2010, 6:33:31 AM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/pmcl-kernel.c

    r13881 r13895  
    22872287  lisp_global(FREE_STATIC_CONSES)+=(n<<fixnumshift);
    22882288}
     2289
     2290#ifdef X86
     2291#define USE_GC_NOTIFICATION 1
     2292#else
     2293#undef USE_GC_NOTIFICATION
     2294#endif
     2295
    22892296void
    22902297ensure_static_conses(ExceptionInformation *xp, TCR *tcr, natural nconses)
     
    22932300  natural nbytes = nconses>>dnode_shift, have;
    22942301  BytePtr p = a->high-nbytes;
     2302#ifdef USE_GC_NOTIFICATION
    22952303  Boolean crossed_notify_threshold = false;
    22962304  LispObj before_shrink, after_shrink;
     2305#endif
    22972306
    22982307  if (p < a->active) {
    22992308    untenure_from_area(tenured_area);
    23002309    gc_from_xp(xp, 0L);
     2310#ifdef USE_GC_NOTIFICATION
    23012311    did_gc_notification_since_last_full_gc = false;
     2312#endif
    23022313  }
    23032314
    23042315  have = unbox_fixnum(lisp_global(FREE_STATIC_CONSES));
    23052316  if (have < nconses) {
     2317#ifdef USE_GC_NOTIFICATION
    23062318    before_shrink = a->high-a->active;
    23072319    if (before_shrink>nbytes) {
     
    23132325      }
    23142326    }
     2327#endif
    23152328    allocate_static_conses(nconses);
    23162329    tcr->bytes_allocated += nbytes;
    23172330  }
     2331#ifdef USE_GC_NOTIFICATION
    23182332  if (crossed_notify_threshold && !did_gc_notification_since_last_full_gc) {
    23192333    callback_for_gc_notification(xp,tcr);
    23202334  }
     2335#endif
    23212336}
    23222337     
Note: See TracChangeset for help on using the changeset viewer.