[openfirmware] [commit] r2951 - ofw/fs/ext2fs
repository service
svn at openfirmware.info
Wed Apr 25 01:29:57 CEST 2012
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 <>
;
More information about the openfirmware
mailing list