[OpenBIOS] r571 - in trunk/openbios-devel: arch/ppc/qemu forth/admin

[Laurent Vivier]

Le samedi 29 août 2009 à 17:53 +0200, Stefan Reinauer a écrit :
> svn at openbios.org wrote:
> > The MacOS bootloader (BootX) is also loaded automatically but forth 
> > script is too complex to be executed correctly.
> >   
> Where does it fail? 

 ./ppc-softmmu/qemu-system-ppc -serial stdio -net nic,vlan=0 -net
user,vlan=0 -L ./pc-bios -boot d -cdrom /dev/cdrom

>> =============================================================
>> OpenBIOS 1.0 [Aug 16 2009 18:47]
>> Configuration device id QEMU version 1 machine id 2
>> CPUs: 1
>> Memory: 128M
>> UUID: 00000000-0000-0000-0000-000000000000
>> CPU type PowerPC,750
>> *** Boot failure! No secondary bootloader specified ***
laurent at Quad:~/Projects/qemu$ ./ppc-softmmu/qemu-system-ppc -serial
stdio -net nic,vlan=0 -net user,vlan=0 -L ./pc-bios -boot d
-cdrom /dev/cdrom -nographic

>> =============================================================
>> OpenBIOS 1.0 [Aug 16 2009 18:47]
>> Configuration device id QEMU version 1 machine id 2
>> CPUs: 1
>> Memory: 128M
>> UUID: 00000000-0000-0000-0000-000000000000
>> CPU type PowerPC,750
Welcome to OpenBIOS v1.0 built on Aug 16 2009 18:47

$=:>> *** Boot failure! No secondary bootloader specified ***

0 > 

> Can you dump the script?

load-base
begin
 dup 6 " </CHRP" $= if
  6 + dup 6 " -BOOT>" $= if
   8 + true
  else
   false
   then
 else
  1+ false
 then
until
( xcoff-base )
load-size over load-base - -
( xcoff-base xcoff-size )
load-base swap move
init-program go

The issue seems with "$=".
I think "init-program" and "go" are also missing.
"go" like "load" is needed by openSUSE script too.

There is also a "bug" in the try_chrp_script() procedure which loads the
script into the stack instead of at "load-base".

I'll work on these issues, but I'm not a Forth expert (I learn) ...

Regards,
Laurent
-- 
--------------------- laurent at vivier.eu ----------------------
"Tout ce qui est impossible reste à accomplir"    Jules Verne
"Things are only impossible until they're not" Jean-Luc Picard