From: ceriel <none@none>
Date: Thu, 7 Jul 1988 14:31:29 +0000 (+0000)
Subject: fix for constants
X-Git-Tag: release-5-5~3082
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=5ff8baabfa04e9c566435074e4f6192e243d8e08;p=ack.git

fix for constants
---

diff --git a/mach/pdp/cg/mach.c b/mach/pdp/cg/mach.c
index dddfdae28..ae9e51e84 100644
--- a/mach/pdp/cg/mach.c
+++ b/mach/pdp/cg/mach.c
@@ -40,7 +40,7 @@ con_mult(sz) word sz; {
 		fatal("bad icon/ucon size");
 	l = atol(str);
 #ifdef ACK_ASS
-	fprintf(codefile,".data2 %o, %o !%s\n",(int)(l>>16),(int)l, str);
+	fprintf(codefile,".data2 0%o, 0%o !%s\n",(int)(l>>16),(int)l, str);
 #else
 	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 dddfdae28..ae9e51e84 100644
--- a/mach/pdp/ncg/mach.c
+++ b/mach/pdp/ncg/mach.c
@@ -40,7 +40,7 @@ con_mult(sz) word sz; {
 		fatal("bad icon/ucon size");
 	l = atol(str);
 #ifdef ACK_ASS
-	fprintf(codefile,".data2 %o, %o !%s\n",(int)(l>>16),(int)l, str);
+	fprintf(codefile,".data2 0%o, 0%o !%s\n",(int)(l>>16),(int)l, str);
 #else
 	fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l);
 #endif