gforth/backtrac.fs - diff

Return to backtrac.fs CVS log

Up to [gforth] / gforth

version 1.16, 2007/12/31 18:40:23	version 1.18, 2012/06/23 20:58:30
Line 1	Line 1
\ backtrace handling	\ backtrace handling

\ Copyright (C) 1999,2000,2003,2004,2006 Free Software Foundation, Inc.	\ Copyright (C) 1999,2000,2003,2004,2006,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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