gforth/backtrac.fs - diff

Return to backtrac.fs CVS log

Up to [gforth] / gforth

version 1.13, 2006/05/26 21:18:45	version 1.14, 2006/10/08 11:30:55
Line 66 IS 'cold	Line 66 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
backtrace-rp0 @ [ 2 cells ]L - over - 0 max ;	backtrace-rp0 @ [ 1 cells ]L - over - 0 max ;

:noname ( -- )	:noname ( -- )
backtrace-return-stack	backtrace-return-stack