On Wed, Aug 10, 2011 at 6:01 AM, Mark Cave-Ayland <span dir="ltr"><<a href="mailto:mark.cave-ayland@siriusit.co.uk">mark.cave-ayland@siriusit.co.uk</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div><div></div><div class="h5">On 09/08/11 22:55, William Hahne wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
This is a forth primitive that is required by BootX. It just fills some<br>
specified memory address and length with longs.<br>
<br>
<br>
Index: kernel/forth.c<br>
==============================<u></u>==============================<u></u>=======<br>
--- kernel/forth.c (revision 1041)<br>
+++ kernel/forth.c (working copy)<br>
@@ -1610,6 +1616,20 @@<br>
memset(src, value, count);<br>
  }<br>
+/*<br>
+ *  filll       ( addr len byte -- )<br>
+ */<br>
+static void filll(void)<br>
+{<br>
+    ucell value = POP();<br>
+ ucell count = POP();<br>
+ ucell *dest = (ucell *)cell2pointer(POP());<br>
+<br>
+ int i;<br>
+ for (i = 0; i <= count / 4; i++) {<br>
+    dest[i] = value;<br>
+ }<br>
+}<br>
  /*<br>
   *  unaligned-w@  ( addr -- w )<br>
@@ -1963,4 +1983,5 @@<br>
      do_encode_file,         /* $encode-file */<br>
      do_debug_xt,            /* (debug  */<br>
      do_debug_off,           /* (debug-off) */<br>
+    filll                   /* filll */<br>
  };<br>
Index: kernel/bootstrap.c<br>
==============================<u></u>==============================<u></u>=======<br>
--- kernel/bootstrap.c (revision 1041)<br>
+++ kernel/bootstrap.c (working copy)<br>
@@ -89,7 +89,7 @@<br>
"here", "here!", "dobranch", "do?branch", "unaligned-w@",<br>
"unaligned-w!", "unaligned-l@", "unaligned-l!", "ioc@", "iow@",<br>
"iol@", "ioc!", "iow!", "iol!", "i", "j", "call", "sys-debug",<br>
- "$include", "$encode-file", "(debug", "(debug-off)"<br>
+ "$include", "$encode-file", "(debug", "(debug-off)", "filll"<br>
  };<br>
  /*<br>
</blockquote>
<br></div></div>
This looks reasonably straightforward - again, can you add a reference to the documentation for this word as part of the commit message?<br>
<br></blockquote><div><br></div><div>I wish I could. I had to do reverse engineer it from Apple's OF implementation. I don't believe it is an official OF word.</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

<br>
ATB,<br>
<br>
Mark.<br>
<br>
-- <br>
Mark Cave-Ayland - Senior Technical Architect<br>
PostgreSQL - PostGIS<br>
Sirius Corporation plc - control through freedom<br>
<a href="http://www.siriusit.co.uk" target="_blank">http://www.siriusit.co.uk</a><br>
t: <a href="tel:%2B44%20870%20608%200063" value="+448706080063" target="_blank">+44 870 608 0063</a><br>
<br>
Sirius Labs: <a href="http://www.siriusit.co.uk/labs" target="_blank">http://www.siriusit.co.uk/labs</a><br><font color="#888888">
<br>
-- <br>
OpenBIOS                 <a href="http://openbios.org/" target="_blank">http://openbios.org/</a><br>
Mailinglist:  <a href="http://lists.openbios.org/mailman/listinfo" target="_blank">http://lists.openbios.org/<u></u>mailman/listinfo</a><br>
Free your System - May the Forth be with you<br>
</font></blockquote></div><br><div>William Hahne</div>