[ Wow, ancient thread -- I'm cleaning up my mailboxes, sorry ]
On Tue, Apr 26, 2016 at 05:53:37PM -0400, Programmingkid wrote:
Can we have Segher's Forth version of this instead:
https://www.coreboot.org/pipermail/openbios/2016-April/009338.html
That should be equivalent and would make the C code much simpler and allow dropping most of these patches.
That code doesn't work. It causes a "Dictionary space overflow" message to be printed. My code does work.
Here is my patch I made to test out that code. If you have the ability please test out any changes before submitting any patches.
Index: arch/ppc/ppc.fs
--- arch/ppc/ppc.fs (revision 1395) +++ arch/ppc/ppc.fs (working copy) @@ -66,3 +66,11 @@
\ Set by BootX when booting Mac OS X defer spin
+hex +20 cells CREATE stash VARIABLE #stash #stash off +: stash-push stash #stash cells + ! 1 stash +! ;
1 #stash +!
+: stash-pop -1 stash +! stash #stash cells + @ ;
Here, too.
Segher