This is a forth primitive that is required by BootX. It just fills some specified memory address and length with longs.
Index: kernel/forth.c =================================================================== --- kernel/forth.c (revision 1041) +++ kernel/forth.c (working copy) @@ -1610,6 +1616,20 @@ memset(src, value, count); }
+/* + * filll ( addr len byte -- ) + */ +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; + } +}
/* * unaligned-w@ ( addr -- w ) @@ -1963,4 +1983,5 @@ do_encode_file, /* $encode-file */ do_debug_xt, /* (debug */ do_debug_off, /* (debug-off) */ + filll /* filll */ }; Index: kernel/bootstrap.c =================================================================== --- kernel/bootstrap.c (revision 1041) +++ kernel/bootstrap.c (working copy) @@ -89,7 +89,7 @@ "here", "here!", "dobranch", "do?branch", "unaligned-w@", "unaligned-w!", "unaligned-l@", "unaligned-l!", "ioc@", "iow@", "iol@", "ioc!", "iow!", "iol!", "i", "j", "call", "sys-debug", - "$include", "$encode-file", "(debug", "(debug-off)" + "$include", "$encode-file", "(debug", "(debug-off)", "filll" };
/*