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.15, 2006/12/31 13:39:11
Line 1	Line 1
\ backtrace handling	\ backtrace handling

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

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

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