d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

improved the c-flag, and corrected a bug in the produced relocation info

Browse source
This commit is contained in:
ceriel 1987-08-26 13:22:44 +00:00
parent 7de2968629
commit c1ffb28416
6 changed files with 22 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
util/led/finish.c
View file

@ -119,7 +119,7 @@ handle_relos(head, sects, names)
* Write out the (probably changed)
* relocation information.
*/
if (flagword & RFLAG)
if (flagword & (RFLAG|CFLAG))
wr_relo(relo, 1);
}
}
@ -151,7 +151,7 @@ handle_relos(head, sects, names)
* Write out the (probably changed)
* relocation information.
*/
if (flagword & RFLAG)
if (flagword & (RFLAG|CFLAG))
wr_relo(relo, 1);
}
}

6
util/led/led.6
View file

@ -97,12 +97,10 @@ run.
This flag suppresses the `Undefined:' diagnostic.
.TP
.B \-c
Only effective in combination with
.BR \-r .
Indicates that relocatable output must be produced, but commons must
Indicates that relocation information must be produced, but commons must
be resolved.
This may be useful for machines that need a last relocation step
at load time.
at load time. This flag disables the \fB\-r\fP flag.
.TP
.B \-s
`Strip' the output, that is, remove the name table

18
util/led/main.c
View file

@ -162,9 +162,11 @@ first_pass(argv)
break;
case 'c':
/*
* Might be used in combination with 'r', to produce
* relocatable output, but handle commons now.
* Leave relocation information in the output, so that
* a next pass can see where relocation was done. The
* resulting output however is no longer relocatable.
*/
flagword &= ~RFLAG;
flagword |= CFLAG;
break;
#ifndef NDEBUG
@ -188,6 +190,7 @@ first_pass(argv)
* given to common symbols, and suppresses the
* `Undefined:' diagnostic.
*/
if (flagword & CFLAG) break;
if (flagword & SFLAG)
warning("-r contradicts -s: -s ignored");
flagword |= RFLAG;
@ -360,7 +363,7 @@ evaluate()
{
norm_commons();
complete_sections();
if (!(flagword & RFLAG))
if (!(flagword&RFLAG))
change_names();
}
@ -407,7 +410,7 @@ norm_commons()
}
name++;
}
if ((flagword & RFLAG) && !(flagword & CFLAG)) return;
if (flagword & RFLAG) return;
/*
* RFLAG is off, so we need not produce relocatable output.
@ -454,18 +457,17 @@ complete_sections()
sc->os_foff = foff;
foff += sc->os_flen;
if ((flagword & RFLAG) && !(flagword & CFLAG))
if (flagword & RFLAG)
continue;
sc->os_size += sect_comm[sectindex];
if (flagword & RFLAG) continue;
sc->os_lign =
tstbit(sectindex, lignmap) ? sect_lign[sectindex] : 1;
if (tstbit(sectindex, basemap)) {
base = sect_base[sectindex];
if (base % sc->os_lign)
if (sc->os_lign && base % sc->os_lign)
fatal("base not aligned");
} else {
} else if (sc->os_lign) {
base += sc->os_lign - 1;
base -= base % sc->os_lign;
}

2
util/led/memory.c
View file

@ -583,7 +583,7 @@ write_bytes()
/*
* The rest depends on the flags.
*/
if (flagword & RFLAG)
if (flagword & (RFLAG|CFLAG))
wr_relo((struct outrelo *) mems[ALLORELO].mem_base,
outhead.oh_nrelo);
if (!(flagword & SFLAG)) {

2
util/led/output.c
View file

@ -30,7 +30,7 @@ beginoutput()
if (incore)
generate_section_names();
if (!(flagword & RFLAG))
if (!(flagword & (CFLAG|RFLAG)))
outhead.oh_nrelo = (ushort)0;
if (flagword & SFLAG) {
outhead.oh_nname = (ushort)0;

7
util/led/relocate.c
View file

@ -139,6 +139,7 @@ addrelo(relo, names, valu_out)
extern int hash();
extern struct outname *searchname();
extern ushort indexof();
extern struct outhead outhead;
name = searchname(local->on_mptr, hash(local->on_mptr));
if (name == (struct outname *)0)
@ -148,7 +149,11 @@ addrelo(relo, names, valu_out)
index += indexof(name);
} else {
valu += name->on_valu;
index += NGlobals + (name->on_type & S_TYP) - S_MIN;
if ((name->on_type & S_TYP) == S_ABS) {
index += NGlobals + outhead.oh_nsect;
}
else index += NGlobals +
(name->on_type & S_TYP) - S_MIN;
}
}
*valu_out = valu;