Author: quozl Date: Wed Apr 25 01:29:57 2012 New Revision: 2951 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2951
Log: ext2fs - fix debugging mode and a stack comment
Modified: ofw/fs/ext2fs/blocks.fth ofw/fs/ext2fs/sb.fth
Modified: ofw/fs/ext2fs/blocks.fth ============================================================================== --- ofw/fs/ext2fs/blocks.fth Wed Apr 25 01:26:40 2012 (r2950) +++ ofw/fs/ext2fs/blocks.fth Wed Apr 25 01:29:57 2012 (r2951) @@ -99,7 +99,7 @@ : d.block ( d.block# -- a ) 2dup d.(buffer) if nip nip exit then ( d.block# buffer-adr )
- bbug? if ." r " 2 pick over d. cr then ( d.block# buffer-adr ) + bbug? if ." r " 2 pick 2 pick d. cr then ( d.block# buffer-adr ) dup 2swap d.read-fs-block abort" read error " ( buffer-adr ) ; : block ( block# -- a ) u>d d.block ;
Modified: ofw/fs/ext2fs/sb.fth ============================================================================== --- ofw/fs/ext2fs/sb.fth Wed Apr 25 01:26:40 2012 (r2950) +++ ofw/fs/ext2fs/sb.fth Wed Apr 25 01:29:57 2012 (r2951) @@ -113,7 +113,7 @@ super-block /super-block super-block# u>d d.write-ublocks ;
-: d.read-ublocks ( adr len dev-block# -- error? ) +: d.read-ublocks ( adr len d.dev-block# -- error? ) ublock du* " seek" $call-parent ?dup if exit then ( adr len ) tuck " read" $call-parent <> ;