Changeset 10116


Ignore:
Timestamp:
Jul 19, 2008, 2:05:59 AM (11 years ago)
Author:
rme
Message:

MAKE-VSP-STACK-RANGE and MAKE-CSP-STACK-RANGE for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/describe.lisp

    r8826 r10116  
    17281728              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
    17291729                                target::area.high))))
     1730#+x8632-target
     1731(defun make-vsp-stack-range (tcr bt-info)
     1732  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.esp-cell)
     1733              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
     1734                                target::area.high))))
    17301735
    17311736#+x8664-target
     
    17381743(defun make-csp-stack-range (tcr bt-info)
    17391744  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
     1745              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
     1746                                target::area.high))))
     1747
     1748#+x8632-target
     1749(defun make-csp-stack-range (tcr bt-info)
     1750  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.foreign-sp-cell)
    17401751              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
    17411752                                target::area.high))))
Note: See TracChangeset for help on using the changeset viewer.