glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix list output logic.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-10 12:56:51 +10:00
parent 3ef14fa6f6
commit 4b90522231
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/mkfs7
+3 -4
View File
@@ -454,17 +454,16 @@ sub dump_image {
# list: Octal output with block comments # list: Octal output with block comments
if ( $format eq "list" ) { if ( $format eq "list" ) {
foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) { foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
printf( $OUT "Block %d (%06o)\n", $blocknum, $blocknum ) printf( $OUT "Block %d (%06o)\n", $blocknum, $blocknum );
if ($debug);
foreach my $line ( 0 .. 7 ) { foreach my $line ( 0 .. 7 ) {
foreach my $offset ( 0 .. 7 ) { foreach my $offset ( 0 .. 7 ) {
printf( $OUT "%06o ", printf( $OUT "%06o ",
$Block[$blocknum][ 8 * $line + $offset ] || 0 $Block[$blocknum][ 8 * $line + $offset ] || 0
); );
} }
print( $OUT "\n" ) if ($debug); print( $OUT "\n" );
} }
print( $OUT "\n" ) if ($debug); print( $OUT "\n" );
} }
} }