<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>