Changeset 6210
- Timestamp:
- Apr 8, 2007, 4:41:53 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/lib/describe.lisp
r5943 r6210 1726 1726 (tsp-range :accessor tsp-range :initarg :tsp-range))) 1727 1727 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 1739 1729 1740 1730 … … 1929 1919 frame-number)) 1930 1920 ) 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)))) 1931 1940 1932 1941
Note: See TracChangeset
for help on using the changeset viewer.