bin/1789: dump estimates a negative number of tapes needed for huge dumps

This commit is contained in:
Paul Traina 1997-01-07 20:15:04 +00:00
parent e1fb4daa3e
commit 71fbc63c69
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=21407

View File

@ -368,11 +368,11 @@ main(argc, argv)
Assume no erroneous blocks; this can be compensated Assume no erroneous blocks; this can be compensated
for with an artificially low tape size. */ for with an artificially low tape size. */
fetapes = fetapes =
( tapesize /* blocks */ ( (double) tapesize /* blocks */
* TP_BSIZE /* bytes/block */ * TP_BSIZE /* bytes/block */
* (1.0/density) /* 0.1" / byte " */ * (1.0/density) /* 0.1" / byte " */
+ +
tapesize /* blocks */ (double) tapesize /* blocks */
* (1.0/ntrec) /* streaming-stops per block */ * (1.0/ntrec) /* streaming-stops per block */
* 15.48 /* 0.1" / streaming-stop " */ * 15.48 /* 0.1" / streaming-stop " */
) * (1.0 / tsize ); /* tape / 0.1" " */ ) * (1.0 / tsize ); /* tape / 0.1" " */
@ -381,11 +381,11 @@ main(argc, argv)
tape */ tape */
int tenthsperirg = (density == 625) ? 3 : 7; int tenthsperirg = (density == 625) ? 3 : 7;
fetapes = fetapes =
( tapesize /* blocks */ ( (double) tapesize /* blocks */
* TP_BSIZE /* bytes / block */ * TP_BSIZE /* bytes / block */
* (1.0/density) /* 0.1" / byte " */ * (1.0/density) /* 0.1" / byte " */
+ +
tapesize /* blocks */ (double) tapesize /* blocks */
* (1.0/ntrec) /* IRG's / block */ * (1.0/ntrec) /* IRG's / block */
* tenthsperirg /* 0.1" / IRG " */ * tenthsperirg /* 0.1" / IRG " */
) * (1.0 / tsize ); /* tape / 0.1" " */ ) * (1.0 / tsize ); /* tape / 0.1" " */