Ignore:
Timestamp:
Dec 6, 2011, 9:46:12 PM (8 years ago)
Author:
gz
Message:

Move the make-xxx-stack-range functions out of the inspector package

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop-lds.lisp

    r15109 r15115  
    641641  (not (null (find 'continue (cdr (bt.restarts context)) :key #'restart-name))))
    642642
     643;;; Each of these stack ranges defines the entire range of (control/value/temp)
     644;;; addresses; they can be used to addresses of stack-allocated objects
     645;;; for printing.
     646#-arm-target
     647(defun make-tsp-stack-range (tcr bt-info)
     648  (list (cons (%catch-tsp (bt.top-catch bt-info))
     649              (%fixnum-ref (%fixnum-ref tcr target::tcr.ts-area)
     650                                target::area.high))))
     651
     652#+ppc-target
     653(defun make-vsp-stack-range (tcr bt-info)
     654  (list (cons (%fixnum-ref
     655               (%svref (bt.top-catch bt-info) target::catch-frame.csp-cell)
     656               target::lisp-frame.savevsp)
     657              (%fixnum-ref (%fixnum-ref tcr target::tcr.vs-area) target::area.high))))
     658#+x8632-target
     659(defun make-vsp-stack-range (tcr bt-info)
     660  (list (cons (%svref (bt.top-catch bt-info) target::catch-frame.esp-cell)
     661              (%fixnum-ref
     662               (%fixnum-ref tcr (- target::tcr.vs-area target::tcr-bias))
     663               target::area.high))))
     664
     665#+x8664-target
     666(defun make-vsp-stack-range (tcr bt-info)
     667  (list (cons (%svref (bt.top-catch bt-info) target::catch-frame.rsp-cell)
     668              (%fixnum-ref (%fixnum-ref tcr target::tcr.vs-area) target::area.high))))
     669
     670#+arm-target
     671(defun make-vsp-stack-range (tcr bt-info)
     672  (list (cons (%fixnum-ref (catch-frame-sp (bt.top-catch bt-info)) target::lisp-frame.savevsp)
     673              (%fixnum-ref (%fixnum-ref tcr target::tcr.vs-area) target::area.high))))
     674
     675#+ppc-target
     676(defun make-csp-stack-range (tcr bt-info)
     677  (list (cons (%svref (bt.top-catch bt-info) target::catch-frame.csp-cell)
     678              (%fixnum-ref (%fixnum-ref tcr target::tcr.cs-area) target::area.high))))
     679
     680#+x8632-target
     681(defun make-csp-stack-range (tcr bt-info)
     682  (let ((cs-area nil))
     683    #+windows-target
     684    (let ((aux (%fixnum-ref tcr (- target::tcr.aux target::tcr-bias))))
     685      (setq cs-area (%fixnum-ref aux target::tcr-aux.cs-area)))
     686    #-windows-target
     687    (setq cs-area (%fixnum-ref tcr target::tcr.cs-area))
     688  (list (cons (%svref (bt.top-catch bt-info) target::catch-frame.foreign-sp-cell)
     689              (%fixnum-ref cs-area target::area.high)))))
     690
     691#+x8664-target
     692(defun make-csp-stack-range (tcr bt-info)
     693  (list (cons (%svref (bt.top-catch bt-info) target::catch-frame.foreign-sp-cell)
     694              (%fixnum-ref (%fixnum-ref tcr target::tcr.cs-area) target::area.high))))
     695
     696#+arm-target
     697(defun make-csp-stack-range (tcr bt-info)
     698  (list (cons (catch-frame-sp (bt.top-catch bt-info))
     699              (%fixnum-ref (%fixnum-ref tcr target::tcr.cs-area) target::area.high))))
     700
     701
     702
    643703(declaim (notinline select-backtrace))
    644704
Note: See TracChangeset for help on using the changeset viewer.