gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.95, 2003/02/01 14:28:08	version 1.96, 2003/02/06 16:49:17
Line 388 const Create ??? 0 , 3 , char ? c, char	Line 388 const Create ??? 0 , 3 , char ? c, char

: >head-noprim ( cfa -- nt ) \ gforth to-head-noprim	: >head-noprim ( cfa -- nt ) \ gforth to-head-noprim
\ also heuristic; finds only names with up to 32 chars	\ also heuristic; finds only names with up to 32 chars
$25 cell do ( cfa )	dup forthstart - 41 min cell max cell ?do ( cfa )
dup i - dup @ [ alias-mask lcount-mask or ] literal	dup i - dup @ [ alias-mask lcount-mask or ] literal
[ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or	[ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or
-1 cells allot bigendian [IF] c, -1 1 cells 1- times	-1 cells allot bigendian [IF] c, -1 1 cells 1- times