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? )