From: ceriel <none@none>
Date: Mon, 25 Apr 1988 10:31:33 +0000 (+0000)
Subject: dont generate .data4
X-Git-Tag: release-5-5~3337
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=e4838a6225239b454d3c19ebecc69970ebd8abcd;p=ack.git

dont generate .data4
---

diff --git a/mach/pdp/cg/mach.c b/mach/pdp/cg/mach.c
index 65a428216..dddfdae28 100644
--- 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 65a428216..dddfdae28 100644
--- 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
 }