[OpenBIOS] [PATCH 10/10] Adding filll Forth primitive

[Segher Boessenkool]

> +static void filll(void)
> +{
> +    ucell value = POP();
> +	ucell count = POP();
> +	ucell *dest = (ucell *)cell2pointer(POP());
> +
> +	int i;
> +	for (i = 0; i <= count / 4; i++) {
> +	    dest[i] = value;
> +	}
> +}

Apple's code does:

int *dest ... ;
for (i = count; i > 0; i -= 4)
	*dest++ = value;

which is not the same thing for huge count, or for count a multiple
of four (like all callers I have seen use; you write a word too many).


Segher