j
: Next unread message k
: Previous unread message j a
: Jump to all threads
j l
: Jump to MailingList overview
William,
Am 22.08.2011 um 05:14 schrieb William Hahne:
This is a forth word that is required by BootX. It just fills some specified memory address and length with 32 bit integers. It is a non-standard addition and therefore isn't documented. Thanks to Segher Boessenkool for the corrected for loop.
This is still missing a Signed-off-by line!
Compare QEMU's http://wiki.qemu.org/Contribute/SubmitAPatch
I'd like to compile-test and commit the patch(es), but I cannot copy&paste this from my mailer (leading spaces get stripped). Best use git-am compatible email format or please supply me with the patch as an attachment or download. Thanks!
Andreas
$ git am ../mac_10.eml Applying: Adding filll Forth primitive (v2) error: ppc/qemu/init.c (working copy): does not exist in index Patch failed at 0001 Adding filll Forth primitive (v2) When you have resolved this problem run "git am --resolved". If you would prefer to skip this patch, instead run "git am --skip". To restore the original branch and stop patching run "git am --abort".
Index: arch/ppc/qemu/init.c
--- arch/ppc/qemu/init.c (revision 1047) +++ arch/ppc/qemu/init.c (working copy) @@ -539,6 +539,7 @@ }
static void go(void); +static void filll(void);
static void go(void) @@ -551,6 +552,23 @@ call_elf(0, 0, addr); }
+/* This is an Apple specific word that fills a specified location and length
- of memory with 32bit integers.
- ( dest count value -- ) */
+static void +filll(void) +{
- uint32_t value = POP();
- int count = POP();
- uint32_t *dest = (uint32_t*)cell2pointer(POP());
- int i;
- for (i = count; i > 0; i -= sizeof(uint32_t)) {
*dest++ = value;
- }
+}
static void kvm_of_init(void) { char hypercall[4 * 4]; @@ -879,4 +897,5 @@
bind_func("platform-boot", boot); bind_func("(go)", go);
- bind_func("filll", filll);
}
-- OpenBIOS http://openbios.org/ Mailinglist: http://lists.openbios.org/mailman/listinfo Free your System - May the Forth be with you
$ git am ../mac_10.eml Applying: Adding filll Forth primitive (v2) error: ppc/qemu/init.c (working copy): does not exist in index Patch failed at 0001 Adding filll Forth primitive (v2) When you have resolved this problem run "git am --resolved". If you would prefer to skip this patch, instead run "git am --skip". To restore the original branch and stop patching run "git am --abort".
Index: arch/ppc/qemu/init.c
--- arch/ppc/qemu/init.c (revision 1047) +++ arch/ppc/qemu/init.c (working copy)
git am -p0 should do the trick.
Segher