dont generate .data4

diff --git a/mach/pdp/cg/mach.c b/mach/pdp/cg/mach.c
index 65a4282..dddfdae 100644 (file)
--- a/mach/pdp/cg/mach.c
+++ b/mach/pdp/cg/mach.c
@@ -38,10 +38,10 @@ con_mult(sz) word sz; {
 
        if (sz != 4)
                fatal("bad icon/ucon size");
+       l = atol(str);
 #ifdef ACK_ASS
-       fprintf(codefile,".data4 %s\n",str);
+       fprintf(codefile,".data2 %o, %o !%s\n",(int)(l>>16),(int)l, str);
 #else
-       l = atol(str);
        fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l);
 #endif
 }

diff --git a/mach/pdp/ncg/mach.c b/mach/pdp/ncg/mach.c
index 65a4282..dddfdae 100644 (file)
--- a/mach/pdp/ncg/mach.c
+++ b/mach/pdp/ncg/mach.c
@@ -38,10 +38,10 @@ con_mult(sz) word sz; {
 
        if (sz != 4)
                fatal("bad icon/ucon size");
+       l = atol(str);
 #ifdef ACK_ASS
-       fprintf(codefile,".data4 %s\n",str);
+       fprintf(codefile,".data2 %o, %o !%s\n",(int)(l>>16),(int)l, str);
 #else
-       l = atol(str);
        fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l);
 #endif
 }