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

[Blue Swirl]

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?