Path: 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


   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