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

Off by 1 errors in mkfs7, now fixed.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-11 06:57:46 +10:00
parent 947d44a681
commit 8d487fee5c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/mkfs7
+4 -4
View File
@@ -509,14 +509,14 @@ sub dump_image {
if ( $format eq "ptr" ) { if ( $format eq "ptr" ) {
# Dump 8000 empty blocks first # Dump 8000 empty blocks first
foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) { foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
foreach my $offset ( 0 .. WORDSPERBLK ) { foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
print( $OUT word2three( 0 ) ); print( $OUT word2three( 0 ) );
} }
} }
# Now the real blocks # Now the real blocks
foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) { foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
foreach my $offset ( 0 .. WORDSPERBLK ) { foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
print( $OUT word2three( $Block[$blocknum][$offset] || 0 ) ); print( $OUT word2three( $Block[$blocknum][$offset] || 0 ) );
} }
} }
@@ -526,14 +526,14 @@ sub dump_image {
if ( $format eq "simh" ) { if ( $format eq "simh" ) {
# Dump 8000 empty blocks first # Dump 8000 empty blocks first
foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) { foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
foreach my $offset ( 0 .. WORDSPERBLK ) { foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
print( $OUT pack( "CCCC", 0,0,0,0)); print( $OUT pack( "CCCC", 0,0,0,0));
} }
} }
# Now the real blocks # Now the real blocks
foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) { foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
foreach my $offset ( 0 .. WORDSPERBLK ) { foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
my $word = $Block[$blocknum][$offset] || 0; my $word = $Block[$blocknum][$offset] || 0;
my $packedword = pack( "CCCC", my $packedword = pack( "CCCC",
( $word >> 24 ) & 0xff, ( $word >> 24 ) & 0xff,