[commit] r2951 - ofw/fs/ext2fs

[repository service]

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 <>
 ;