- Timestamp:
- May 12, 2008, 7:06:19 PM (17 years ago)
- File:
-
- 1 edited
-
branches/ia32/lib/x86-backtrace.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/lib/x86-backtrace.lisp
r9404 r9460 162 162 (let* ((parent (parent-frame frame context))) 163 163 (if (xcf-p frame) 164 (values (+ frame (ash x8664::xcf.size (- x8664::word-shift)))164 (values (+ frame (ash target::xcf.size (- target::word-shift))) 165 165 parent) 166 (let* ((tra (%fixnum-ref frame x8664::lisp-frame.return-address)))166 (let* ((tra (%fixnum-ref frame target::lisp-frame.return-address))) 167 167 (values (+ frame 2 (if (eq tra (%get-kernel-global ret1valaddr)) 1 0)) 168 168 parent)))))
Note:
See TracChangeset
for help on using the changeset viewer.
