gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/comp.fs between versions 1.100 and 1.101

version 1.100, 2010/04/05 22:17:56	version 1.101, 2010/04/11 15:37:22
Line 308 has? primcentric [IF]	Line 308 has? primcentric [IF]
: (does>) ( R: addr -- )	: (does>) ( R: addr -- )
r> cfaligned /does-handler + !does ; \ !! no gforth-native	r> cfaligned /does-handler + !does ; \ !! no gforth-native

	\ !! unused, but ifdefed/gosted in some places
: (does>2) ( addr -- )	: (does>2) ( addr -- )
cfaligned /does-handler + !does ;	cfaligned /does-handler + !does ;

: dodoes, ( -- )
cfalign here /does-handler allot does-handler! ;

: (compile) ( -- ) \ gforth-obsolete: dummy	: (compile) ( -- ) \ gforth-obsolete: dummy
true abort" (compile) doesn't work, use POSTPONE instead" ;	true abort" (compile) doesn't work, use POSTPONE instead" ;

Line 623 doer? :dodefer [IF]	Line 621 doer? :dodefer [IF]
' defer@ compile, ; immediate	' defer@ compile, ; immediate

:noname	:noname
dodoes, here !does ]	here !does ]
defstart :-hook ;	defstart :-hook ;
:noname	:noname
;-hook ?struc	;-hook ?struc
[ has? xconds [IF] ] exit-like [ [THEN] ]	[ has? xconds [IF] ] exit-like [ [THEN] ]
here [ has? peephole [IF] ] 5 [ [ELSE] ] 4 [ [THEN] ] cells +	here [ has? peephole [IF] ] 5 [ [ELSE] ] 4 [ [THEN] ] cells +
postpone aliteral postpone (does>2) [compile] exit	postpone aliteral postpone !does [compile] exit
[ has? peephole [IF] ] finish-code [ [THEN] ] dodoes,	[ has? peephole [IF] ] finish-code [ [THEN] ]
defstart :-hook ;	defstart :-hook ;
interpret/compile: DOES> ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core does	interpret/compile: DOES> ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core does

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.100
changed lines
	Added in v.1.101