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 |