Changeset 14007 for branches


Ignore:
Timestamp:
Jul 21, 2010, 10:37:28 AM (9 years ago)
Author:
gb
Message:

ARM stack range changes.

File:
1 edited

Legend:

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

    r13067 r14007  
    16491649             :context context
    16501650             :break-condition (ccl::bt.break-condition context))
    1651            :tsp-range (make-tsp-stack-range tcr context)
     1651           #-arm-target
     1652           :tsp-range #-arm-target (make-tsp-stack-range tcr context)
    16521653           :vsp-range (make-vsp-stack-range tcr context)
    16531654           :csp-range (make-csp-stack-range tcr context)
     
    17551756;;; addresses; they can be used to addresses of stack-allocated objects
    17561757;;; for printing.
     1758#-arm-target
    17571759(defun make-tsp-stack-range (tcr bt-info)
    17581760  (list (cons (ccl::%catch-tsp (ccl::bt.top-catch bt-info))
     
    17791781                                target::area.high))))
    17801782
     1783#+arm-target
     1784(defun make-vsp-stack-range (tcr bt-info)
     1785  (list (cons (ccl::%fixnum-ref (ccl::catch-frame-sp (ccl::bt.top-catch bt-info))
     1786                                target::lisp-frame.savevsp)
     1787              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
     1788                                target::area.high))))
     1789
    17811790#+ppc-target
    17821791(defun make-csp-stack-range (tcr bt-info)
     
    17941803(defun make-csp-stack-range (tcr bt-info)
    17951804  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.foreign-sp-cell)
     1805              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
     1806                                target::area.high))))
     1807
     1808#+arm-target
     1809(defun make-csp-stack-range (tcr bt-info)
     1810  (list (cons (ccl::catch-frame-sp (ccl::bt.top-catch bt-info))
    17961811              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
    17971812                                target::area.high))))
Note: See TracChangeset for help on using the changeset viewer.