[gforth] / gforth / backtrac.fs  

gforth: gforth/backtrac.fs

Diff for /gforth/backtrac.fs between version 1.17 and 1.18

version 1.17, Mon Dec 31 19:02:24 2007 UTC version 1.18, Sat Jun 23 20:58:30 2012 UTC
Line 96 
Line 96 
   
 : 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:"      2dup u< IF  cr ." Backtrace:"  THEN
     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.17  
changed lines
  Added in v.1.18
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help