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/lib/x86-backtrace.lisp

    r13067 r14607  
    121121(defun %stack< (index1 index2 &optional context)
    122122  (let* ((tcr (if context (bt.tcr context) (%current-tcr)))
    123          (vs-area (%fixnum-ref tcr target::tcr.vs-area)))
     123         (vs-area (%fixnum-ref tcr (- target::tcr.vs-area
     124                                      target::tcr-bias))))
    124125    (and (%ptr-in-area-p index1 vs-area)
    125126         (%ptr-in-area-p index2 vs-area)
     
    300301(defun last-tsp-before (target)
    301302  (declare (fixnum target))
    302   (do* ((tsp (%fixnum-ref (%current-tcr) target::tcr.save-tsp)
     303  (do* ((tsp (%fixnum-ref (%current-tcr) (- target::tcr.save-tsp
     304                                            target::tcr-bias))
    303305             (%fixnum-ref tsp target::tsp-frame.backptr)))
    304306       ((zerop tsp) nil)
     
    315317(defun last-foreign-sp-before (target)
    316318  (declare (fixnum target))
    317   (do* ((cfp (%fixnum-ref (%current-tcr) target::tcr.foreign-sp)
     319  (do* ((cfp (%fixnum-ref (%current-tcr) (- target::tcr.foreign-sp
     320                                            target::tcr-bias))
    318321             (%fixnum-ref cfp target::csp-frame.backptr)))
    319322       ((zerop cfp))
     
    330333(defun %tsp-frame-containing-progv-binding (db)
    331334  (declare (fixnum db))
    332   (do* ((tsp (%fixnum-ref (%current-tcr) target::tcr.save-tsp) next)
     335  (do* ((tsp (%fixnum-ref (%current-tcr) (- target::tcr.save-tsp
     336                                            target::tcr-bias)) next)
    333337        (next (%fixnum-ref tsp target::tsp-frame.backptr)
    334338              (%fixnum-ref tsp target::tsp-frame.backptr)))
     
    353357  (do* ((db (%current-db-link) (%fixnum-ref db 0))
    354358        (tcr (%current-tcr))
    355         (vs-area (%fixnum-ref tcr target::tcr.vs-area))
     359        (vs-area (%fixnum-ref tcr (- target::tcr.vs-area
     360                                     target::tcr-bias)))
    356361        (vs-low (%fixnum-ref vs-area target::area.low))
    357362        (vs-high (%fixnum-ref vs-area target::area.high)))
Note: See TracChangeset for help on using the changeset viewer.