gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.95, 2008/11/01 22:19:31	version 1.96, 2009/09/05 17:38:37
Line 116 defer header ( -- ) \ gforth	Line 116 defer header ( -- ) \ gforth
\G puts down string as longcstring	\G puts down string as longcstring
dup , here swap chars dup allot move ;	dup , here swap chars dup allot move ;

	variable next-prelude

	: prelude, ( -- )
	next-prelude @ if
	align next-prelude @ ,
	then ;

: header, ( c-addr u -- ) \ gforth	: header, ( c-addr u -- ) \ gforth
name-too-long?	name-too-long?
dup max-name-length @ max max-name-length !	dup max-name-length @ max max-name-length !
	prelude,
align here last !	align here last !
[ has? ec [IF] ]	[ has? ec [IF] ]
-1 A,	-1 A,
Line 130 defer header ( -- ) \ gforth	Line 138 defer header ( -- ) \ gforth
string,	string,
[ [ELSE] ]	[ [ELSE] ]
longstring, alias-mask lastflags cset	longstring, alias-mask lastflags cset
	next-prelude @ 0<> prelude-mask and lastflags cset
	next-prelude off
[ [THEN] ]	[ [THEN] ]
cfalign ;	cfalign ;

Line 352 has? peephole [IF]	Line 362 has? peephole [IF]
\ \ compiler loop	\ \ compiler loop

: compiler1 ( c-addr u -- ... xt )	: compiler1 ( c-addr u -- ... xt )
2dup find-name dup	2dup find-name-run-prelude dup
if ( c-addr u nt )	if ( c-addr u nt )
nip nip name>comp	nip nip name>comp
else	else