19dad4482b
because an external could later be declared static, and a static could later be declared external.
25 lines
422 B
C
25 lines
422 B
C
#include <out.h>
|
|
#include <em.h>
|
|
#include "back.h"
|
|
|
|
common(n)
|
|
arith n;
|
|
{
|
|
extern int Label, label_waiting;
|
|
register struct outname *nm = &symbol_table[Label];
|
|
|
|
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;
|
|
}
|
|
label_waiting = 0;
|
|
return;
|
|
}
|
|
switchseg(SEGBSS);
|
|
bss(n);
|
|
}
|