gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.39, 2006/02/18 13:12:52	version 1.40, 2006/02/26 17:23:47
Line 55 has? file [IF]	Line 55 has? file [IF]
[THEN]	[THEN]

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	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!
avariable holdend holdbuf-end holdend a!	avariable holdend holdbuf-end holdend a!
	[THEN]

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