Changeset 2951
- Timestamp:
- Apr 25, 2012 1:29:57 AM (13 months ago)
- Location:
- ofw/fs/ext2fs
- Files:
-
- 2 edited
-
blocks.fth (modified) (1 diff)
-
sb.fth (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
ofw/fs/ext2fs/blocks.fth
r2796 r2951 100 100 2dup d.(buffer) if nip nip exit then ( d.block# buffer-adr ) 101 101 102 bbug? if ." r " 2 pick overd. cr then ( d.block# buffer-adr )102 bbug? if ." r " 2 pick 2 pick d. cr then ( d.block# buffer-adr ) 103 103 dup 2swap d.read-fs-block abort" read error " ( buffer-adr ) 104 104 ; -
ofw/fs/ext2fs/sb.fth
r2947 r2951 114 114 ; 115 115 116 : d.read-ublocks ( adr len d ev-block# -- error? )116 : d.read-ublocks ( adr len d.dev-block# -- error? ) 117 117 ublock du* " seek" $call-parent ?dup if exit then ( adr len ) 118 118 tuck " read" $call-parent <>
Note: See TracChangeset
for help on using the changeset viewer.
