Article View: comp.sys.ti.explorer
Article #407RE: Backtrace
From: Stephen Nicoud
Date: Wed, 07 Jun 1989 16:41
Date: Wed, 07 Jun 1989 16:41
34 lines
1381 bytes
1381 bytes
Date: Wed, 7 Jun 89 10:35 EST
From: Michael Greenberg <GREENBERG@cs.umass.EDU>
Subject: RE: Backtrace
I've written some functions to figure out the call
stack for a function. If is possible to find out all
functions and args on the stack. I only get the functions.
(defun call-stack ()
"Return a list of the functions on the call stack"
(do* ((fns nil)
(sg (process-stack-group w:current-process))
(frame (eh:sg-innermost-frame sg)
(eh:sg-next-frame sg frame))
function)
((null frame)
(nreverse fns))
(setf function (eh:function-name (eh:rp-function-word (eh:sg-regular-pdl sg) frame)))
(push function fns)))
For more details, you can look at the debugger code.
Mike Greenberg
greenberg@cs.umass.edu
Thanks, this is exactly what I needed.
Steve
Technical Details
Message-ID:
<2822229714-99417@QUINAULT>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!ucbvax!ATC.BOEING.COM!snicoudReferences:
<GREENBERG@cs.umass.EDU>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!ucbvax!ATC.BOEING.COM!snicoud From: snicoud@ATC.BOEING.COM (Stephen Nicoud) Newsgroups: comp.sys.ti.explorer Subject: RE: Backtrace Message-ID: <2822229714-99417@QUINAULT> Date: 7 Jun 89 16:41:54 GMT References: <GREENBERG@cs.umass.EDU> Sender: daemon@ucbvax.BERKELEY.EDU Distribution: inet Organization: Boeing Advanced Technology Center for Computer Sciences Lines: 34