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? ) |