gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.17, 1999/05/06 21:33:37	version 1.18, 1999/05/17 14:59:00
Line 50 FF Constant /line	Line 50 FF Constant /line
10 Constant l/s	10 Constant l/s
400 Constant chars/block	400 Constant chars/block

$20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )	20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
create holdbuf word-pno-size chars allot	create holdbuf word-pno-size chars allot
holdbuf word-pno-size chars + aconstant holdbuf-end	holdbuf word-pno-size chars + aconstant holdbuf-end
avariable holdptr holdbuf-end holdptr a!	avariable holdptr holdbuf-end holdptr a!
Line 97 AUser lp0 ( -- a-addr ) \ gforth	Line 97 AUser lp0 ( -- a-addr ) \ gforth
\G OBSOLETE alias of @code{lp0}	\G OBSOLETE alias of @code{lp0}

AUser handler \ pointer to last throw frame	AUser handler \ pointer to last throw frame
	has? backtrace [IF]
User backtrace-empty \ true if the next THROW should store a backtrace	User backtrace-empty \ true if the next THROW should store a backtrace
AUser backtrace-rp0 \ rp at last call of interpret	AUser backtrace-rp0 \ rp at last call of interpret
	[THEN]
\ AUser output	\ AUser output
\ AUser input	\ AUser input