Changeset 6210

Timestamp:

Apr 8, 2007, 4:41:53 AM (14 years ago)

Author:

gb

Message:

Start trying to conditionalize some of the stack-frame inspector stuff.

File:

• trunk/ccl/lib/describe.lisp (modified) (2 diffs)

trunk/ccl/lib/describe.lisp

@@ -1726 +1726 @@
    (tsp-range :accessor tsp-range :initarg :tsp-range)))
 
-(defun make-tsp-stack-range (tcr bt-info)
-  (list (cons (ccl::%catch-tsp (ccl::bt.top-catch bt-info))
-              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.ts-area)
-                                target::area.high))))
-
-(defun make-vsp-stack-range (tcr bt-info)
-  (list (cons (ccl::%fixnum-ref
-               (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
-               target::lisp-frame.savevsp)
-              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
-                                target::area.high))))
+
 
                            
@@ -1929 +1919 @@
     frame-number))
 )
+
+(defun make-tsp-stack-range (tcr bt-info)
+  (list (cons (ccl::%catch-tsp (ccl::bt.top-catch bt-info))
+              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.ts-area)
+                                target::area.high))))
+
+#+ppc-target
+(defun make-vsp-stack-range (tcr bt-info)
+  (list (cons (ccl::%fixnum-ref
+               (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
+               target::lisp-frame.savevsp)
+              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
+                                target::area.high))))
+
+#+x8664-target
+(defun make-vsp-stack-range (tcr bt-info)
+  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.rsp-cell)
+              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
+                                target::area.high))))