github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-18 00:56:31 +00:00
Code Issues 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

7
tools/mkfs7
View File

@@ -454,17 +454,16 @@ sub dump_image {
# list: Octal output with block comments
if ( $format eq "list" ) {
foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
printf( $OUT "Block %d (%06o)\n", $blocknum, $blocknum )
if ($debug);
printf( $OUT "Block %d (%06o)\n", $blocknum, $blocknum );
foreach my $line ( 0 .. 7 ) {
foreach my $offset ( 0 .. 7 ) {
printf( $OUT "%06o ",
$Block[$blocknum][ 8 * $line + $offset ] || 0
);
}
print( $OUT "\n" ) if ($debug);
print( $OUT "\n" );
}
print( $OUT "\n" ) if ($debug);
print( $OUT "\n" );
}
}