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"

 };

 

 /*