gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.23, 1999/05/20 13:31:57	version 1.26, 2000/05/27 18:55:55
Line 136 VARIABLE SearchPointer	Line 136 VARIABLE SearchPointer
\ The branchtable consists of three entrys:	\ The branchtable consists of three entrys:
\ address of branch , branch destination , branch type	\ address of branch , branch destination , branch type

CREATE BranchTable 500 allot	CREATE BranchTable 128 cells allot
here 3 cells -	here 3 cells -
ACONSTANT MaxTable	ACONSTANT MaxTable

Line 542 IS discode	Line 542 IS discode
: seedefer ( xt -- )	: seedefer ( xt -- )
dup >body @ xt-see-xt cr	dup >body @ xt-see-xt cr
dup s" Defer" .defname cr	dup s" Defer" .defname cr
>name dup ??? = if	>name ?dup-if
drop ." lastxt >body !"
else
." IS " .name cr	." IS " .name cr
	else
	." lastxt >body !"
then ;	then ;
: see-threaded ( addr -- )	: see-threaded ( addr -- )
C-Pass @ DebugMode = IF	C-Pass @ DebugMode = IF
Line 629 IS discode	Line 629 IS discode
\G etc.) is lost.	\G etc.) is lost.
name find-name dup 0=	name find-name dup 0=
IF	IF
drop -&13 bounce	drop -&13 throw
THEN	THEN
name-see ;	name-see ;