<div>This is a forth primitive that is required by BootX. It just fills some specified memory address and length with longs.</div><div><br></div><div><br></div><div>Index: kernel/forth.c</div><div>===================================================================</div>


<div>--- kernel/forth.c<span style="white-space:pre-wrap">        </span>(revision 1041)</div><div>+++ kernel/forth.c<span style="white-space:pre-wrap">        </span>(working copy)</div>
<div>@@ -1610,6 +1616,20 @@</div><div> <span style="white-space:pre-wrap">    </span>memset(src, value, count);</div><div> }</div><div> </div><div>+/*</div><div>+ *  filll       ( addr len byte -- )</div><div>
+ */</div><div>+static void filll(void)</div><div>+{</div><div>+    ucell value = POP();</div><div>+<span style="white-space:pre-wrap"> </span>ucell count = POP();</div><div>+<span style="white-space:pre-wrap">    </span>ucell *dest = (ucell *)cell2pointer(POP());</div>



<div>+<span style="white-space:pre-wrap"> </span></div><div>+<span style="white-space:pre-wrap">        </span>int i;</div><div>+<span style="white-space:pre-wrap">  </span>for (i = 0; i <= count / 4; i++) {</div>
<div>+<span style="white-space:pre-wrap"> </span>    dest[i] = value;<span style="white-space:pre-wrap">    </span></div><div>+<span style="white-space:pre-wrap">        </span>}</div>
<div>+}</div><div> </div><div> /*</div><div>  *  unaligned-w@  ( addr -- w )</div><div>@@ -1963,4 +1983,5 @@</div><div>     do_encode_file,         /* $encode-file */</div><div>     do_debug_xt,            /* (debug  */</div>



<div>     do_debug_off,           /* (debug-off) */</div><div>+    filll                   /* filll */</div><div> };</div><div>Index: kernel/bootstrap.c</div><div>===================================================================</div>



<div>--- kernel/bootstrap.c<span style="white-space:pre-wrap">    </span>(revision 1041)</div><div>+++ kernel/bootstrap.c<span style="white-space:pre-wrap">    </span>(working copy)</div><div>
@@ -89,7 +89,7 @@</div><div> <span style="white-space:pre-wrap">    </span>"here", "here!", "dobranch", "do?branch", "unaligned-w@",</div><div> <span style="white-space:pre-wrap">     </span>"unaligned-w!", "unaligned-l@", "unaligned-l!", "ioc@", "iow@",</div>



<div> <span style="white-space:pre-wrap"> </span>"iol@", "ioc!", "iow!", "iol!", "i", "j", "call", "sys-debug",</div><div>-<span style="white-space:pre-wrap">  </span>"$include", "$encode-file", "(debug", "(debug-off)"</div>



<div>+<span style="white-space:pre-wrap"> </span>"$include", "$encode-file", "(debug", "(debug-off)", "filll"</div><div> };</div><div> </div><div> /*</div>