gforth/engine/support.c - diff

Return to support.c CVS log

Up to [gforth] / gforth / engine

version 1.19, 2007/01/05 13:36:07	version 1.20, 2007/02/15 13:48:26
Line 500 static Cell MAYBE_UNUSED nlz(UCell x)	Line 500 static Cell MAYBE_UNUSED nlz(UCell x)
n = 0;	n = 0;
#if (SIZEOF_CHAR_P > 4)	#if (SIZEOF_CHAR_P > 4)
if (x <= 0xffffffff) {n+=32; x <<= 32;}	if (x <= 0xffffffff) {n+=32; x <<= 32;}
	#error this can't be correct
#endif	#endif
if (x <= 0x0000FFFF) {n = n +16; x = x <<16;}	if (x <= 0x0000FFFF) {n = n +16; x = x <<16;}
if (x <= 0x00FFFFFF) {n = n + 8; x = x << 8;}	if (x <= 0x00FFFFFF) {n = n + 8; x = x << 8;}