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

fixed to generate only external commons. This cannot be done in common.c

Browse source 
because an external could later be declared static, and a static could later
be declared external.
This commit is contained in:
ceriel 1988-11-10 13:16:22 +00:00
parent d6dfd5d1ad
commit 19dad4482b
3 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
util/ceg/ce_back/obj_back/common.c
View file

@ -8,7 +8,10 @@ arith n;
extern int Label, label_waiting;
register struct outname *nm = &symbol_table[Label];
if (label_waiting && (nm->on_type & S_EXT)) {
if (label_waiting) {
/* If possible, generate a common. Local commons must
be delt with later.
*/
nm->on_type |= S_COM | (S_MIN+SEGBSS);
if (n > nm->on_valu) {
nm->on_valu = n;
@ -17,6 +20,5 @@ arith n;
return;
}
switchseg(SEGBSS);
dump_label();
bss(n);
}

17
util/ceg/ce_back/obj_back/output.c
View file

@ -2,7 +2,7 @@
#include <alloc.h>
#include <out.h>
#include "mach.h"
#include "data.h"
#include "back.h"
static reduce_name_table();
@ -125,9 +125,20 @@ reduce_name_table()
rp++;
}
for (i = 0; i < nname; i++) {
symbol_table[i].on_type &= ~S_NEEDED;
register struct outname *np = &symbol_table[i];
np->on_type &= ~S_NEEDED;
if ((np->on_type & S_COM) && ! (np->on_type & S_EXT)) {
long sz = np->on_valu;
switchseg(SEGBSS);
align_word();
np->on_type &= (~S_COM);
np->on_valu = cur_value();
bss(sz);
}
if (diff_index[i] && diff_index[i] == diff_index[i-1]) {
symbol_table[i - diff_index[i]] = symbol_table[i];
symbol_table[i - diff_index[i]] = *np;
}
}
nname -= diff_index[nname - 1];

9
util/ceg/ce_back/obj_back/relocation.c
View file

@ -24,6 +24,15 @@ do_local_relocation()
register struct outname *np = &symbol_table[rp->or_nami];
int olddiff = diff;
if ((np->on_type & S_COM) && ! (np->on_type & S_EXT)) {
long sz = np->on_valu;
switchseg(SEGBSS);
align_word();
np->on_type &= (~S_COM);
np->on_valu = cur_value();
bss(sz);
}
if ( np->on_valu != -1 && ! (np->on_type & S_COM)) {
register long oldval,newval;
register char *sect;