gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.40, 1999/11/08 22:01:10	version 1.41, 1999/11/14 10:22:27
Line 348 const Create ??? 0 , 3 c, char ? c, cha	Line 348 const Create ??? 0 , 3 c, char ? c, cha
\ 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.
2 0 do	2 0 do
	dup dup aligned <> if \ protect @ against unaligned accesses
	drop false unloop exit
	then
dup @ dup	dup @ dup
if ( addr addr1 )	if ( addr addr1 )
dup rot forthstart within	dup rot forthstart within