Apple-2gs-SW
/
MakeLib
mirror of https://github.com/byteworksinc/MakeLib.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge pull request #4 from ksherlock/fix_extract 

Fix extract operation
This commit is contained in:
MikeW50 2018-03-25 15:33:18 -06:00 committed by GitHub
parent fae158fa17 f12bd8856d
commit e39780bcc8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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

@ -1562,14 +1562,7 @@ if (inFile = fopen(*libName, "rb")) { /* open the library */
ReadName(name, s[13]);
if (LibNum(name) == dfile) { /* if its in the dfile, delete it */
if (objFile) {
i = (len+511)/512;
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);
fwrite(s, 1, len, objFile);
}
if (symbol) { /* adjust disps for library files */
p = symbol;