Changeset 9716 for branches

Timestamp:

Jun 9, 2008, 10:14:06 AM (16 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• branches/ia32/lib/describe.lisp (modified) (2 diffs)

branches/ia32/lib/describe.lisp

@@ -1724 +1724 @@
               (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
                                 target::area.high))))
+#+x8632-target
+(defun make-vsp-stack-range (tcr bt-info)
+  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.esp-cell)
+              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
+                                target::area.high))))
 
 #+x8664-target
@@ -1734 +1739 @@
 (defun make-csp-stack-range (tcr bt-info)
   (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
+              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
+                                target::area.high))))
+
+#+x8632-target
+(defun make-csp-stack-range (tcr bt-info)
+  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.foreign-sp-cell)
               (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
                                 target::area.high))))