gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.33, 2001/01/28 22:43:39	version 1.34, 2001/02/24 17:24:45
Line 203 has? OS [IF]	Line 203 has? OS [IF]
0 A, 0 , code-address! ;	0 A, 0 , code-address! ;

[IFUNDEF] compile,	[IFUNDEF] compile,
: compile, ( xt -- ) \ core-ext compile-comma	defer compile, ( xt -- ) \ core-ext compile-comma
\G Compile the word represented by the execution token @i{xt}	\G Compile the word represented by the execution token @i{xt}
\G into the current definition.	\G into the current definition.
A, ;
	' , is compile,
[THEN]	[THEN]

	: peephole-compile, ( xt -- )
	last-compiled @ ?dup if
	@ over peeptable peephole-opt ?dup if
	last-compiled @ ! drop EXIT
	then
	then
	here last-compiled !
	, ;

	' peephole-compile, IS compile,

: !does ( addr -- ) \ gforth store-does	: !does ( addr -- ) \ gforth store-does
lastxt does-code! ;	lastxt does-code! ;

Line 508 defer ;-hook ( sys2 -- sys1 )	Line 520 defer ;-hook ( sys2 -- sys1 )
[IFDEF] docol,	[IFDEF] docol,
: (:noname) ( -- colon-sys )	: (:noname) ( -- colon-sys )
\ common factor of : and :noname	\ common factor of : and :noname
docol, ]comp defstart ] :-hook ;	docol, ]comp
[ELSE]	[ELSE]
: (:noname) ( -- colon-sys )	: (:noname) ( -- colon-sys )
\ common factor of : and :noname	\ common factor of : and :noname
docol: cfa, defstart ] :-hook ;	docol: cfa,
[THEN]	[THEN]
	0 last-compiled ! defstart ] :-hook ;

: : ( "name" -- colon-sys ) \ core colon	: : ( "name" -- colon-sys ) \ core colon
Header (:noname) ;	Header (:noname) ;