gforth/kernel/recognizer.fs - diff

Return to recognizer.fs CVS log

Up to [gforth] / gforth / kernel

version 1.7, 2011/10/06 20:04:35	version 1.8, 2011/10/06 20:15:06
Line 58 Create r:2number rot A, swap A, A,	Line 58 Create r:2number rot A, swap A, A,
$10 Constant max-rec#	$10 Constant max-rec#

: get-recognizers ( rec-addr -- xt1 .. xtn n )	: get-recognizers ( rec-addr -- xt1 .. xtn n )
dup cell+ swap @ dup >r cells bounds ?DO	dup swap @ dup >r cells bounds swap ?DO
I @	I @
cell +LOOP r> ;	cell -LOOP r> ;

: set-recognizers ( xt1 .. xtn n rec-addr -- )	: set-recognizers ( xt1 .. xtn n rec-addr -- )
over max-rec# u>= abort" Too many recognizers"	over max-rec# u>= abort" Too many recognizers"
2dup ! swap cells bounds swap ?DO	2dup ! cell+ swap cells bounds ?DO
I !	I !
cell -LOOP ;	cell +LOOP ;

Variable forth-recognizer	Variable forth-recognizer