Changeset 10113


Ignore:
Timestamp:
Jul 19, 2008, 1:41:27 AM (11 years ago)
Author:
rme
Message:

Use target::target-most-positive-fixnum instead of plain
most-positive-fixnum.

File:
1 edited

Legend:

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

    r9238 r10113  
    3535                          context
    3636                          (origin (%get-frame-ptr))
    37                           (count most-positive-fixnum)
     37                          (count target::target-most-positive-fixnum)
    3838                          (start-frame-number 0)
    3939                          (stream *debug-io*)
     
    4646The arguments are represented by strings, the function is a symbol or a function
    4747object."
    48   (when (null count) (setq count most-positive-fixnum))
     48  (when (null count) (setq count target::target-most-positive-fixnum))
    4949  (let* ((tcr (if context (bt.tcr context) (%current-tcr)))
    5050         (*debug-io* stream)
     
    6868                                (origin (%get-frame-ptr))
    6969                                (detailed-p t)
    70                                 (count most-positive-fixnum)
     70                                (count target::target-most-positive-fixnum)
    7171                                (start-frame-number 0)
    7272                                (stream *debug-io*)
     
    7575                                (show-internal-frames *backtrace-show-internal-frames*)
    7676                                (format *backtrace-format*))
    77   (when (null count) (setq count most-positive-fixnum))
     77  (when (null count) (setq count target::target-most-positive-fixnum))
    7878  (let* ((tcr (if context (bt.tcr context) (%current-tcr)))
    7979         (*debug-io* stream)
     
    254254 
    255255(defun %print-call-history-internal (context origin detailed-p
    256                                              &optional (count most-positive-fixnum) (skip-initial 0))
     256                                             &optional (count target::target-most-positive-fixnum) (skip-initial 0))
    257257  (let ((*standard-output* *debug-io*)
    258258        (*print-circle* nil)
Note: See TracChangeset for help on using the changeset viewer.