Changeset 15833


Ignore:
Timestamp:
Jun 4, 2013, 2:51:25 PM (6 years ago)
Author:
gb
Message:

PPC typos ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gb-egc/lisp-kernel/ppc-exceptions.c

    r15831 r15833  
    632632}
    633633
    634 /*
    635   This doesn't GC; it returns true if it made enough room, false
    636   otherwise.
    637   If "extend" is true, it can try to extend the dynamic area to
    638   satisfy the request.
    639 */
    640 
    641 Boolean
    642 new_heap_segment(ExceptionInformation *xp, natural need, Boolean extend, TCR *tcr)
    643 {
    644   area *a;
    645   natural newlimit, oldlimit;
    646   natural log2_allocation_quantum = tcr->log2_allocation_quantum;
    647 
    648   a  = active_dynamic_area;
    649   oldlimit = (natural) a->active;
    650   newlimit = (align_to_power_of_2(oldlimit, log2_allocation_quantum) +
    651               align_to_power_of_2(need, log2_allocation_quantum));
    652   if (newlimit > (natural) (a->high)) {
    653     if (extend) {
    654       signed_natural inhibit = (signed_natural)(lisp_global(GC_INHIBIT_COUNT));
    655       natural extend_by = inhibit ? 0 : lisp_heap_gc_threshold;
    656       do {
    657         if (resize_dynamic_heap(a->active, (newlimit-oldlimit)+extend_by)) {
    658           break;
    659         }
    660         extend_by = align_to_power_of_2(extend_by>>1, log2_allocation_quantum);
    661         if (extend_by < 4<<20) {
    662           return false;
    663         }
    664       } while (1);
    665     } else {
    666       return false;
    667     }
    668   }
    669   a->active = (BytePtr) newlimit;
    670 
    671   return true;
    672 }
    673634
    674635void
Note: See TracChangeset for help on using the changeset viewer.