Changeset 9716


Ignore:
Timestamp:
Jun 9, 2008, 5:14:06 PM (11 years ago)
Author:
rme
Message:

make-vsp-stack-range and make-csp-stack-range for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lib/describe.lisp

    r7666 r9716  
    17241724              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
    17251725                                target::area.high))))
     1726#+x8632-target
     1727(defun make-vsp-stack-range (tcr bt-info)
     1728  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.esp-cell)
     1729              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
     1730                                target::area.high))))
    17261731
    17271732#+x8664-target
     
    17341739(defun make-csp-stack-range (tcr bt-info)
    17351740  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
     1741              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
     1742                                target::area.high))))
     1743
     1744#+x8632-target
     1745(defun make-csp-stack-range (tcr bt-info)
     1746  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.foreign-sp-cell)
    17361747              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
    17371748                                target::area.high))))
Note: See TracChangeset for help on using the changeset viewer.