![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to backtrace.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to backtrace.fs CVS log | Up to [gforth] / gforth |
| version 1.3, 1999/03/08 21:36:07 | version 1.4, 1999/10/30 15:48:15 |
|---|---|
| Line 79 IS store-backtrace | Line 79 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:" | |
| swap u+do | swap u+do |
| cr | cr |
| i @ dup hex. ( return-addr? ) | i @ dup hex. ( return-addr? ) |