Apple-2gs-SW/MakeLib
1
0
Fork 0
mirror of https://github.com/byteworksinc/MakeLib.git synced 2024-12-12 05:31:09 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Kelvin Sherlock 2018-03-11 23:47:02 -04:00
parent 7fbe55dd87
commit f12bd8856d
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
MakeLib.cc
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;