Changeset 6102


Ignore:
Timestamp:
Mar 28, 2007, 6:47:47 AM (12 years ago)
Author:
gb
Message:

Start to (barely) conditionalize inspector stack stuff for x86-64.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/lib/describe.lisp

    r5943 r6102  
    17261726   (tsp-range :accessor tsp-range :initarg :tsp-range)))
    17271727
    1728 (defun make-tsp-stack-range (tcr bt-info)
    1729   (list (cons (ccl::%catch-tsp (ccl::bt.top-catch bt-info))
    1730               (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.ts-area)
    1731                                 target::area.high))))
    1732 
    1733 (defun make-vsp-stack-range (tcr bt-info)
    1734   (list (cons (ccl::%fixnum-ref
    1735                (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
    1736                target::lisp-frame.savevsp)
    1737               (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
    1738                                 target::area.high))))
     1728
    17391729
    17401730                           
     
    19291919    frame-number))
    19301920)
     1921
     1922(defun make-tsp-stack-range (tcr bt-info)
     1923  (list (cons (ccl::%catch-tsp (ccl::bt.top-catch bt-info))
     1924              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.ts-area)
     1925                                target::area.high))))
     1926
     1927#+ppc-target
     1928(defun make-vsp-stack-range (tcr bt-info)
     1929  (list (cons (ccl::%fixnum-ref
     1930               (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
     1931               target::lisp-frame.savevsp)
     1932              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
     1933                                target::area.high))))
     1934
     1935#+x8664-target
     1936(defun make-vsp-stack-range (tcr bt-info)
     1937  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.rsp-cell)
     1938              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
     1939                                target::area.high))))
    19311940
    19321941
Note: See TracChangeset for help on using the changeset viewer.