[OpenBIOS] [RFC] Make BootX from Mac OS X 10.4 work

[Alexander Graf]

On 31.07.2009, at 12:46, Blue Swirl wrote:

> On Thu, Jul 30, 2009 at 7:00 PM, Alexander Graf<agraf at suse.de> wrote:
>> Using this patch stacked on Steven Noonan's I was able to make  
>> BootX from
>> Mac OS X 10.4 load XNU successfully in qemu-system-ppc.
>>
>> Unfortunately, most of this patch is nothing but a mere hack to  
>> find out
>> what we really need to get this working.
>>
>> Also I didn't manage to get anything but 10.4 running. Other  
>> versions broke
>> in the partition table interpretation.
>>
>> I would not feel good taking the patch as is, because it would be  
>> better to
>> implement the correct Forth magic to make the real callbacks work.  
>> Here is
>> what I found to be broken:
>>
>>  - unselect-dev is missing
>>  - local variables don't work ({ ... })
>>  - I ran into an endless loop, getting isi and dsi faults on the  
>> same 2
>>    addresses all the time
>>
>> Also, Qemu's only usable Desktop PPC target is a G3 Beige which is  
>> only
>> supported up to 10.2.8 IIRC. So even getting the bootloader running  
>> for
>> 10.4 didn't exactly buy me much.
>
> mac99 also should do something. What machines have the best support?
>
>> Don't apply the patch as is!
>> It'd be great to see someone build on this!
>> ---
>>  arch/ppc/qemu/ofmem.c |    4 ++--
>>  modules/client.c      |   40 ++++++++++++++++++++++++++++++++++++++ 
>> ++
>>  2 files changed, 42 insertions(+), 2 deletions(-)
>>
>> diff --git a/arch/ppc/qemu/ofmem.c b/arch/ppc/qemu/ofmem.c
>> index a1a8fb1..32642e2 100644
>> --- a/arch/ppc/qemu/ofmem.c
>> +++ b/arch/ppc/qemu/ofmem.c
>> @@ -716,8 +716,8 @@ hash_page_32( ulong ea, ulong phys, int mode )
>>
>>        /* out of slots, just evict one */
>>        if( !found ) {
>> -               i = next_grab_slot + 1;
>> -               next_grab_slot = (next_grab_slot + 1) % 8;
>> +               i = next_grab_slot + 3;
>> +               next_grab_slot = (next_grab_slot + 3) % 8;
>>        }
>>        i--;
>>        upte[i*2] = cmp;
>> diff --git a/modules/client.c b/modules/client.c
>> index a2e8405..a8c89ff 100644
>> --- a/modules/client.c
>> +++ b/modules/client.c
>> @@ -49,6 +49,46 @@ handle_calls( prom_args_t *pb )
>>                pb->nargs, pb->nret);
>>  #endif
>>
>> +#if 1
>> +       if (!strcmp(pb->service, "interpret"))
>> +       {
>> +               char *ns;
>> +
>> +               ns = strstr((char*)pb->args[0], "{ ; dpth }");
>> +               if (ns) return 0;

^^^^^^^

>> +
>> +               ns = strstr((char*)pb->args[0], "dev /chosen ");
>> +               if (ns) memcpy(ns, " \" /chosen\"", 11);
>> +       }
>> +       else if (!strcmp(pb->service, "call-method"))
>> +       {
>> +               if (!strncmp((char*)pb->args[0], "slw_init_keymap",  
>> 15)) {
>> +
>> +                       char *a = (char*)malloc(20);
>> +                       memset(a, 0x00, 20);
>> +                       pb->args[4] = (uint32_t)a;
>> +                       pb->args[3] = 0;
>> +
>> +                       return 0;
>> +               }
>> +               if (!strncmp((char*)pb->args[0], "slw_emit",  
>> strlen("slw_emit"))) {
>> +                       PUSH( (char)pb->args[2] );
>> +                       fword("emit");
>> +
>> +                       return 0;
>> +               }
>> +               if (!strncmp((char*)pb->args[0], "slw_cr",  
>> strlen("slw_cr"))) {
>> +                       PUSH( '\n' );
>> +                       fword("emit");
>> +                       return 0;
>> +               }
>> +               if (!strncmp((char*)pb->args[0],  
>> "slw_update_keymap", strlen("slw_update_keymap"))) return 0;
>> +               if (!strncmp((char*)pb->args[0],  
>> "slw_set_output_level", strlen("slw_set_output_level"))) return 0;
>> +               if (!strncmp((char*)pb->args[0], "slw_spin_init",  
>> strlen("slw_spin_init"))) return 0;
>> +               if (!strncmp((char*)pb->args[0], "slw_spin",  
>> strlen("slw_spin"))) return 0;
>
> Is the loader trying to install these callbacks or does it assume that
> they exist already?

It installs them in the interpret call I marked above.

Alex