gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/Attic/kernel.fs between versions 1.1 and 1.2

version 1.1, 1996/09/19 22:17:34	version 1.2, 1996/09/23 08:52:49
Line 280 Defer source ( -- addr count ) \ core	Line 280 Defer source ( -- addr count ) \ core
: POSTPONE ( -- ) \ core	: POSTPONE ( -- ) \ core
COMP' swap POSTPONE aliteral compile, ; immediate restrict	COMP' swap POSTPONE aliteral compile, ; immediate restrict

: interpret/compile: ( interp-xt comp-xt "name" -- )	: interpret/compile: ( interp-xt comp-xt "name" -- ) \ gforth
Create immediate swap A, A,	Create immediate swap A, A,
DOES>	DOES>
abort" executed primary cfa of an interpret/compile: word" ;	abort" executed primary cfa of an interpret/compile: word" ;
Line 1011 Avariable leave-sp leave-stack 3 cells	Line 1011 Avariable leave-sp leave-stack 3 cells
\ aborts if the last defined word was headerless	\ aborts if the last defined word was headerless
last @ dup 0= abort" last word was headerless" cell+ ;	last @ dup 0= abort" last word was headerless" cell+ ;

: immediate immediate-mask lastflags cset ;	: immediate ( -- ) \ core
: restrict restrict-mask lastflags cset ;	immediate-mask lastflags cset ;
	: restrict ( -- ) \ gforth
	restrict-mask lastflags cset ;
	' restrict alias compile-only ( -- ) \ gforth

\ Header 23feb93py	\ Header 23feb93py

Line 1121 Create ??? 0 , 3 c, char ? c, char ? c,	Line 1124 Create ??? 0 , 3 c, char ? c, char ? c,

: (Constant) Header reveal docon: cfa, ;	: (Constant) Header reveal docon: cfa, ;
: Constant ( w "name" -- ) \ core	: Constant ( w "name" -- ) \ core
	\ \G Defines constant @var{name}
	\ \G
	\ \G @var{name} execution: @var{-- w}
(Constant) , ;	(Constant) , ;
: AConstant ( addr "name" -- ) \ gforth	: AConstant ( addr "name" -- ) \ gforth
(Constant) A, ;	(Constant) A, ;

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

Removed from v.1.1
changed lines
	Added in v.1.2