gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.74, 2001/03/18 22:20:27	version 1.75, 2001/03/28 09:06:57
Line 364 const Create ??? 0 , 3 , char ? c, char	Line 364 const Create ??? 0 , 3 , char ? c, char
\ iterations should catch most false addresses: on the first	\ iterations should catch most false addresses: on the first
\ iteration, we may get an xt, on the second a code address (or	\ iteration, we may get an xt, on the second a code address (or
\ some code), which is typically not in the dictionary.	\ some code), which is typically not in the dictionary.
	\ !! does not work se well for simple-see: trips on the first "0"
2 0 do	2 0 do
dup dup aligned <> if \ protect @ against unaligned accesses	dup dup aligned <> if \ protect @ against unaligned accesses
drop false unloop exit	drop false unloop exit