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

Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix

Browse Source
This commit is contained in:
Warren Toomey
2016-03-23 22:28:36 +10:00
parent d5eb2a6b96 851f03a50a
commit 2cc1097593
1 changed files with 3 additions and 1 deletions
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;