- Timestamp:
- May 7, 2008, 9:16:31 PM (17 years ago)
- File:
-
- 1 edited
-
branches/ia32/lib/backtrace.lisp (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/lib/backtrace.lisp
r7666 r9403 34 34 (origin (%get-frame-ptr)) 35 35 (detailed-p t) 36 (count most-positive-fixnum)36 (count target::target-most-positive-fixnum) 37 37 (start-frame-number 0)) 38 38 (let* ((tcr (if context (bt.tcr context) (%current-tcr)))) 39 39 (if (eq tcr (%current-tcr)) 40 (%print-call-history-internal context origin detailed-p (or count most-positive-fixnum) start-frame-number)40 (%print-call-history-internal context origin detailed-p (or count target::target-most-positive-fixnum) start-frame-number) 41 41 (unwind-protect 42 42 (progn … … 128 128 129 129 (defun %print-call-history-internal (context origin detailed-p 130 &optional (count most-positive-fixnum) (skip-initial 0))130 &optional (count target::target-most-positive-fixnum) (skip-initial 0)) 131 131 (let ((*standard-output* *debug-io*) 132 132 (*print-circle* nil)
Note:
See TracChangeset
for help on using the changeset viewer.
