[OpenBIOS] Fixing interpose

[Stefan Reinauer]

* Blue Swirl <blauwirbel at gmail.com> [070423 18:28]:
> Fixing the handling of interposed devices would allow booting a lot more OSes.
> 
> If I understand correctly the interpose solution discussed earlier,
> the ihandle>phandle in line 28 in:
> http://www.openbios.org/viewvc/openbios-devel/forth/device/package.fs?view=annotate&root=OpenBIOS
> should become more like something in OBP line 72:
> http://openbios.org/viewvc/obp/os/bootprom/instance.fth?view=annotate&root=OpenBOOT
> 
> Is this right? Or could someone more knowledgeable in Forth propose a fix?

get-instance-path from forth/admin/device.fs does a similar thing.

This is a quick hack, and it is untested and may be completely wrong:

Index: forth/device/package.fs
===================================================================
--- forth/device/package.fs     (revision 126)
+++ forth/device/package.fs     (working copy)
@@ -26,6 +26,9 @@
 ;

 : ihandle>phandle ( ihandle -- phandle )
+  dup >in.interposed @ if
+    >in.my-parent @
+  then
   >in.device-node @
 ;

-- 
coresystems GmbH • Brahmsstr. 16 • D-79104 Freiburg i. Br.
      Tel.: +49 761 7668825 • Fax: +49 761 7664613
Email: info at coresystems.de  • http://www.coresystems.de/