gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.50, 2011/12/31 15:29:26	version 1.52, 2012/03/16 20:34:23
Line 55 has? file [IF]	Line 55 has? file [IF]

20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )	20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )

has? EC 0= [IF]
create holdbuf word-pno-size chars allot
holdbuf word-pno-size chars + aconstant holdbuf-end
avariable holdptr holdbuf-end holdptr a!
avariable holdend holdbuf-end holdend a!
[THEN]

84 constant pad-minsize ( -- u )	84 constant pad-minsize ( -- u )

$400 Value def#tib	$400 Value def#tib
Line 111 AUser lp0 ( -- a-addr ) \ gforth	Line 104 AUser lp0 ( -- a-addr ) \ gforth
\G OBSOLETE alias of @code{lp0}	\G OBSOLETE alias of @code{lp0}
[THEN]	[THEN]

	AUser throw-entry \ pointer to task-specific signal handler

AUser handler \ pointer to last throw frame	AUser handler \ pointer to last throw frame
has? backtrace [IF]	has? backtrace [IF]
AUser backtrace-rp0 \ rp at last call of interpret	AUser backtrace-rp0 \ rp at last call of interpret
Line 122 AUser errorhandler	Line 117 AUser errorhandler

AUser "error 0 "error !	AUser "error 0 "error !

	has? EC 0= [IF]
	auser holdbufptr
	here word-pno-size chars allot dup holdbufptr !
	word-pno-size chars +
	: holdbuf ( -- addr ) holdbufptr @ ;
	: holdbuf-end holdbuf word-pno-size chars + ;
	auser holdptr dup holdptr a!
	auser holdend holdend a!
	[THEN]

has? new-input [IF]	has? new-input [IF]
User current-input	User current-input
[ELSE]	[ELSE]