![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to backtrac.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to backtrac.fs CVS log | Up to [gforth] / gforth |
| version 1.17, 2007/12/31 19:02:24 | version 1.18, 2012/06/23 20:58:30 |
|---|---|
| Line 96 IS store-backtrace | Line 96 IS store-backtrace |
| : 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? ) |