extraction was trying to create a version-1 OMF file, which is to say, corrupt.

This commit is contained in:
Kelvin Sherlock 2018-03-11 23:47:02 -04:00
parent 7fbe55dd87
commit f12bd8856d

View File

@ -1552,14 +1552,7 @@ if (inFile = fopen(*libName, "rb")) { /* open the library */
ReadName(name, s[13]); ReadName(name, s[13]);
if (LibNum(name) == dfile) { /* if its in the dfile, delete it */ if (LibNum(name) == dfile) { /* if its in the dfile, delete it */
if (objFile) { if (objFile) {
i = (len+511)/512; fwrite(s, 1, len, objFile);
if (s[32]) {
s[0] = i>>24; s[1] = i>>16; s[2] = i>>8; s[3] = i;
}
else {
s[3] = i>>24; s[2] = i>>16; s[1] = i>>8; s[0] = i;
}
fwrite(s, 1, i*512, objFile);
} }
if (symbol) { /* adjust disps for library files */ if (symbol) { /* adjust disps for library files */
p = symbol; p = symbol;