[gforth] / gforth / Attic / backtrace.fs  

gforth: gforth/Attic/backtrace.fs

Diff for /gforth/Attic/backtrace.fs between version 1.3 and 1.4

version 1.3, Mon Mar 8 21:36:07 1999 UTC version 1.4, Sat Oct 30 15:48:15 1999 UTC
Line 79 
Line 79 
   
 : print-backtrace ( addr1 addr2 -- )  : print-backtrace ( addr1 addr2 -- )
     \G print a backtrace for the return stack addr1..addr2      \G print a backtrace for the return stack addr1..addr2
       cr ." Backtrace:"
     swap u+do      swap u+do
         cr          cr
         i @ dup hex. ( return-addr? )          i @ dup hex. ( return-addr? )

Generate output suitable for use with a patch program
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help