Changeset 10337


Ignore:
Timestamp:
Aug 5, 2008, 1:38:58 AM (11 years ago)
Author:
rme
Message:

Conditionalize some %apply-in-frame support functions for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/x86-backtrace.lisp

    r10118 r10337  
    139139  (if address
    140140    (%fixnum-ref address)
    141     (uvref last-catch (+ index target::catch-frame.save-save3-cell))))
     141    (uvref last-catch (+ index
     142                         #+x8632-target
     143                         x8632::catch-frame.db-link-cell
     144                         #+x8664-target
     145                         x8664::catch-frame.save-save3-cell))))
    142146
    143147;;; Inverse of get-register-value
     
    146150  (if address
    147151    (%fixnum-set address value)
    148     (setf (uvref last-catch (+ index target::catch-frame.save-save3-cell))
     152    (setf (uvref last-catch (+ index
     153                               #+x8632-target
     154                               x8632::catch-frame.db-link-cell
     155                               #+x8664-target
     156                               x8664::catch-frame.save-save3-cell))
    149157          value)))
    150158
     
    295303       ((zerop tsp) nil)
    296304    (declare (fixnum tsp))
    297     (when (> (the fixnum (%fixnum-ref tsp target::tsp-frame.rbp))
     305    (when (> (the fixnum (%fixnum-ref tsp #+x8632-target x8632::tsp-frame.ebp
     306                                          #+x8664-target x8664::tsp-frame.rbp))
    298307             target)
    299308      (return tsp))))
     
    309318       ((zerop cfp))
    310319    (declare (fixnum cfp))
    311     (let* ((rbp (%fixnum-ref cfp target::csp-frame.rbp)))
     320    (let* ((rbp (%fixnum-ref cfp #+x8632-target x8632::csp-frame.ebp
     321                                 #+x8664-target x8664::csp-frame.rbp)))
    312322      (declare (fixnum rbp))
    313323      (if (> rbp target)
     
    324334       ()
    325335    (declare (fixnum tsp next))
    326     (let* ((rbp (%fixnum-ref tsp target::tsp-frame.rbp)))
     336    (let* ((rbp (%fixnum-ref tsp #+x8632-target x8632::tsp-frame.ebp
     337                                 #+x8664-target x8664::tsp-frame.rbp)))
    327338      (declare (fixnum rbp))
    328339      (if (zerop rbp)
Note: See TracChangeset for help on using the changeset viewer.