Added common() routine
authorceriel <none@none>
Thu, 20 Oct 1988 13:01:04 +0000 (13:01 +0000)
committerceriel <none@none>
Thu, 20 Oct 1988 13:01:04 +0000 (13:01 +0000)
util/ceg/ce_back/as_back/bss.c

index 2545fdf..818b89e 100644 (file)
@@ -3,5 +3,20 @@
 bss( n)
 arith n;
 {
-       fprint( codefile, BSS_FMT, (arith) n);
+       fprint( codefile, BSS_FMT, (long) n);
+}
+
+common(n)
+arith n;
+{
+       extern int saved;
+       extern char labeltje[];
+
+       if (saved) {
+               fprint( codefile, COMM_FMT, labeltje, (long) n);
+               saved = 0;
+               return;
+       }
+       switchseg(SEGBSS);
+       bss(n);
 }