gforth/backtrace.fs - diff

Return to backtrace.fs CVS log

Up to [gforth] / gforth

version 1.1, 1999/01/03 21:48:36	version 1.3, 1999/03/08 21:36:07
Line 65 IS 'cold	Line 65 IS 'cold
else \ throw by signal handler with insufficient information	else \ throw by signal handler with insufficient information
handler @ cell - \ beyond that we know nothing	handler @ cell - \ beyond that we know nothing
then	then
rp0 @ over - [ 10 cells ]L - 0 max ; \ the bottom 10 cells (and often	backtrace-rp0 @ [ 2 cells ]L - over - 0 max ;
\ more) are uninteresting

:noname ( -- )	:noname ( -- )
backtrace-empty @	backtrace-empty @
Line 83 IS store-backtrace	Line 82 IS store-backtrace
swap u+do	swap u+do
cr	cr
i @ dup hex. ( return-addr? )	i @ dup hex. ( return-addr? )
cell - dup in-dictionary? if	cell - dup in-dictionary? over dup aligned = and
@ look drop .name	if
	@ look
	if
	.name
	else
	drop
	then
else	else
drop	drop
then	then