github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00
Code Issues Releases Wiki Activity

mkfs7: Fixed a bug in indirect blocks.

Browse Source
This commit is contained in:
Warren Toomey 2016-03-23 21:15:07 +10:00
parent 99a33c8dde
commit 851f03a50a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/mkfs7
View File

@ -158,14 +158,16 @@ sub build_indirect_blocks {
# Divide the number of data blocks by WORDSPERBLK and round up, so
# we know how many indirect blocks to allocate.
my $indcount = int( ( $blkcount + WORDSPERBLK - 1 ) / WORDSPERBLK );
dprint("Allocating $indcount indirect blks for $blkcount direct blks\n");
# Get enough indirect blocks
my @indlist = allocate_blocks($indcount);
my @indlist = allocate_blocks(WORDSPERBLK * $indcount);
# Now fill in the pointers
my $indblock = $indlist[0];
my $offset = 0;
foreach my $datablock (@blklist) {
# dprint("$indblock $offset -> $datablock\n");
$Block[$indblock][ $offset++ ] = $datablock;
if ( $offset == WORDSPERBLK ) {
$offset = 0;