[openfirmware] r935 - ofw/fs/ext2fs

[svn at openfirmware.info]

Author: wmb
Date: 2008-09-13 00:34:01 +0200 (Sat, 13 Sep 2008)
New Revision: 935

Modified:
   ofw/fs/ext2fs/sb.fth
Log:
Ext2 filesystem - reverted to "read" and "write" method access now
that the deblocker has been fixed to eliminate unnecessary reads.






Modified: ofw/fs/ext2fs/sb.fth
===================================================================
--- ofw/fs/ext2fs/sb.fth	2008-09-12 22:27:47 UTC (rev 934)
+++ ofw/fs/ext2fs/sb.fth	2008-09-12 22:34:01 UTC (rev 935)
@@ -66,21 +66,16 @@
 ;
 
 : write-ublocks  ( adr len dev-block# -- error? )
-\   ublock um* " seek" $call-parent ?dup  if  exit  then		( adr len )
-\   tuck " write" $call-parent <>
-   partition-offset +  swap ublock 1- + 9 rshift             ( adr block# #blocks )
-   dup >r  " write-blocks" $call-parent  r> <>
+   ublock um* " seek" $call-parent ?dup  if  exit  then		( adr len )
+   tuck " write" $call-parent <>
 ;
 : put-super-block  ( -- error? )
    super-block /super-block super-block# write-ublocks
 ;
 
 : read-ublocks  ( adr len dev-block# -- error? )
-   partition-offset +  swap ublock 1- + 9 rshift             ( adr block# #blocks )
-   dup >r  " read-blocks" $call-parent  r> <>
-
-\   ublock um* " seek" $call-parent ?dup  if  exit  then		( adr len )
-\   tuck " read" $call-parent <>
+   ublock um* " seek" $call-parent ?dup  if  exit  then		( adr len )
+   tuck " read" $call-parent <>
 ;
 
 : get-super-block  ( -- error? )