util/ceg/ce_back/obj_back/common.c

   1 #include <out.h>
   2 #include "back.h"
   3
   4 common(n)
   5 arith n;
   6 {
   7         extern int Label, Label_waiting;
   8         register struct outname *nm = &symbol_table[Label];
   9
  10         if (Label_waiting) {
  11                 /*      If possible, generate a common. Local commons must
  12                         be delt with later.
  13                 */
  14                 nm->on_type |= S_COM | (S_MIN+SEGBSS);
  15                 if (n > nm->on_valu) {
  16                         nm->on_valu = n;
  17                 }
  18                 Label_waiting = 0;
  19                 return;
  20         }
  21         switchseg(SEGBSS);
  22         bss(n);
  23 }