gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.24, 1999/11/20 12:12:52	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