Changeset 11659 for trunk/source/level-1


Ignore:
Timestamp:
Jan 29, 2009, 6:32:04 PM (11 years ago)
Author:
gz
Message:

Make print-call-history and backtrace-as-list support a :process argument to get the backtrace of that process without interrupting it.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-lisp-threads.lisp

    r11242 r11659  
    334334
    335335
     336(defun %tcr-frame-ptr (tcr)
     337  (with-macptrs (p)
     338    (%setf-macptr-to-object p tcr)
     339    (%fixnum-from-macptr
     340     (ff-call (%kernel-import target::kernel-import-tcr-frame-ptr)
     341              :address p
     342              :address))))
     343 
    336344(defun thread-exhausted-p (thread)
    337345  (or (null thread)
     
    594602
    595603
    596 (defun last-frame-ptr (&optional context)
    597   (let* ((current (if context (bt.current context) (%current-frame-ptr)))
     604(defun last-frame-ptr (&optional context origin)
     605  (let* ((current (or origin
     606                      (if context (bt.current context) (%current-frame-ptr))))
    598607         (last current))
    599608    (loop
Note: See TracChangeset for help on using the changeset viewer.