Ignore:
Timestamp:
Jan 28, 2011, 9:49:58 PM (9 years ago)
Author:
rme
Message:

More tweaks; a cross-compiled Windows x86 lisp now bootstraps on Windows x64.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/shrink-tcr/level-0/l0-misc.lisp

    r14606 r14607  
    277277        (values 0 0 0 0 0 0)
    278278        (multiple-value-bind (cf cu) (free-and-used cs-area)
    279           (multiple-value-bind (vf vu) (free-and-used (%fixnum-ref tcr target::tcr.vs-area))
     279          (multiple-value-bind (vf vu)
     280              (free-and-used (%fixnum-ref tcr (- target::tcr.vs-area
     281                                                 target::tcr-bias)))
    280282            #+arm-target
    281283            (values cf cu vf vu)
    282284            #-arm-target
    283             (multiple-value-bind (tf tu) (free-and-used (%fixnum-ref tcr target::tcr.ts-area ))
     285            (multiple-value-bind (tf tu)
     286                (free-and-used (%fixnum-ref tcr (- target::tcr.ts-area
     287                                                   target::tcr-bias)))
    284288              (values cf cu vf vu tf tu))))))))
    285289
Note: See TracChangeset for help on using the changeset viewer.