godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bug fixes and made faster on PDP-11

Browse Source
This commit is contained in:
ceriel
1987-04-08 17:15:30 +00:00
parent 40ba3857ef
commit 587d8791ff
4 changed files with 143 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
util/led/finish.c
View File

@@ -105,21 +105,21 @@ handle_relos(head, sects, names)
}
} else {
for (sectindex = 0; sectindex < head->oh_nsect; sectindex++) {
emit = getemit(head, sects, sectindex);
nrelo = head->oh_nrelo; startrelo(head);
while (nrelo--) {
relo = nextrelo();
if (relo->or_sect - S_MIN == sectindex) {
relocate(head,emit,names,relo);
/*
* Write out the (probably changed)
* relocation information.
*/
if (flagword & RFLAG)
wr_relo(relo, 1);
}
}
if (sects[sectindex].os_flen) {
emit = getemit(head, sects, sectindex);
nrelo = head->oh_nrelo; startrelo(head);
while (nrelo--) {
relo = nextrelo();
if (relo->or_sect - S_MIN == sectindex) {
relocate(head,emit,names,relo);
/*
* Write out the (probably changed)
* relocation information.
*/
if (flagword & RFLAG)
wr_relo(relo, 1);
}
}
wrt_nulls(sectindex, zeros[sectindex]);
zeros[sectindex] = 0;
wrt_emit(emit, sectindex, sects[sectindex].os_flen);
@@ -138,17 +138,22 @@ handle_relos(head, sects, names)
*/
static
put_locals(name, nnames)
register struct outname *name;
struct outname *name;
register ushort nnames;
{
register struct outname *oname = name;
register struct outname *iname = oname;
while (nnames--) {
if ((name->on_type & S_EXT) == 0 && mustsavelocal(name)) {
namerelocate(name);
addbase(name);
wrt_name(name);
if ((iname->on_type & S_EXT) == 0 && mustsavelocal(iname)) {
namerelocate(iname);
addbase(iname);
wrt_name(iname, 0);
*oname++ = *iname;
}
name++;
iname++;
}
wr_name(name, oname - name);
}
/*