gforth/backtrac.fs - diff

Return to backtrac.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/backtrac.fs between versions 1.7 and 1.15

version 1.7, 2003/01/06 11:18:59	version 1.15, 2006/12/31 13:39:11
Line 1	Line 1
\ backtrace handling	\ backtrace handling

\ Copyright (C) 1999,2000 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 43 end-struct buffer%	Line 43 end-struct buffer%

\ backtrace stuff	\ backtrace stuff

create backtrace-rs-buffer buffer% %allot \ copy of the return stack at throw	create backtrace-rs-buffer buffer% %allot drop
	\ copy of the return stack at throw

: init-backtrace ( -- )	: init-backtrace ( -- )
backtrace-rs-buffer init-buffer ;	backtrace-rs-buffer init-buffer ;
Line 65 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 -- )
Line 110 IS store-backtrace	Line 107 IS store-backtrace
:noname ( -- )	:noname ( -- )
backtrace-rs-buffer 2@ over + print-backtrace ;	backtrace-rs-buffer 2@ over + print-backtrace ;
IS dobacktrace	IS dobacktrace

	[ifdef] defer-default
	:noname
	r@ >stderr cr ." deferred word " print-bt-entry ." is uninitialized" ;
	is defer-default
	[then]

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.7
changed lines
	Added in v.1.15