Revert commit r624 (breaks ppc and sparc64 boot)

git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@625 f158a5a8-5612-0410-a976-696ce0be7e32

forth/system/ciface.fs

@@ -189,12 +189,14 @@ external
 
 : call-method ( ihandle method -- xxxx catch-result )
   dup 0= if ." call of null method" -1 exit then
+  dup >r
+  dup cstrlen
   \ ." call-method " 2dup type cr
-  rot ?ihandle ['] $call-method catch if
+  rot ?ihandle ['] $call-method catch dup if
     \ not necessary an error but very useful for debugging...
     ." call-method " r@ dup cstrlen type ." : exception " dup . cr
   then
-  \ r> drop
+  r> drop
 ;
 
 
@@ -210,16 +212,21 @@ external
   close-dev
 ;
 
-: read ( len addr ihandle -- actual )
+: read ( ihandle addr len -- actual )
-  rot swap " read" call-method
+  rot dup ihandle>phandle " read" rot find-method
+  if swap call-package else 3drop -1 then
 ;
 
-: write ( len addr ihandle -- actual )
+: write ( ihandle addr len -- actual )
-  rot swap " write" call-method
+  rot dup ihandle>phandle " write" rot find-method
+  if swap call-package else 3drop -1 then
 ;
 
-: seek ( pos_lo pos_hi ihandle -- status )
+: seek ( ihandle pos_hi pos_lo -- status )
-  " seek" call-method 
+  \ package methods uses ( pos_lo pos_hi -- status )
+  swap
+  rot dup ihandle>phandle " seek" rot find-method
+  if swap call-package else 3drop -1 then
 ;
 
 
@@ -254,7 +261,7 @@ external
 
 : interpret ( xxx cmdstring -- ??? catch-reult )
   dup cstrlen
-  \ ." INTERPRET: --- " 2dup type
+  \ ." INTERPRETE: --- " 2dup type
   ['] evaluate catch dup if
     \ this is not necessary an error...
     ." interpret: exception " dup . ." caught" cr