gforth/backtrac.fs - diff

Return to backtrac.fs CVS log

Up to [gforth] / gforth

version 1.11, 2004/12/01 10:02:59	version 1.14, 2006/10/08 11:30:55
Line 1	Line 1
\ backtrace handling	\ backtrace handling

\ Copyright (C) 1999,2000,2003 Free Software Foundation, Inc.	\ Copyright (C) 1999,2000,2003,2004 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-empty @	backtrace-return-stack
if	dup backtrace-rs-buffer adjust-buffer
backtrace-return-stack	backtrace-rs-buffer buffer-address @ swap move ;
dup backtrace-rs-buffer adjust-buffer
backtrace-rs-buffer buffer-address @ swap move
backtrace-empty off
then ;
IS store-backtrace	IS store-backtrace

: print-bt-entry ( return-stack-item -- )	: print-bt-entry ( return-stack-item -- )