Ignore:
Timestamp:
Oct 15, 2008, 8:48:03 PM (13 years ago)
Author:
gz
Message:

Another round of changes from the trunk, mostly just mods in internal mechanisms in support of various recent ports.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/describe.lisp

    r9617 r11101  
    17281728              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
    17291729                                target::area.high))))
     1730#+x8632-target
     1731(defun make-vsp-stack-range (tcr bt-info)
     1732  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.esp-cell)
     1733              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.vs-area)
     1734                                target::area.high))))
    17301735
    17311736#+x8664-target
     
    17381743(defun make-csp-stack-range (tcr bt-info)
    17391744  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.csp-cell)
     1745              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
     1746                                target::area.high))))
     1747
     1748#+x8632-target
     1749(defun make-csp-stack-range (tcr bt-info)
     1750  (list (cons (ccl::%svref (ccl::bt.top-catch bt-info) target::catch-frame.foreign-sp-cell)
    17401751              (ccl::%fixnum-ref (ccl::%fixnum-ref tcr target::tcr.cs-area)
    17411752                                target::area.high))))
Note: See TracChangeset for help on using the changeset viewer.