fix for constants

diff --git a/mach/pdp/cg/mach.c b/mach/pdp/cg/mach.c
index dddfdae..ae9e51e 100644 (file)
--- 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 dddfdae..ae9e51e 100644 (file)
--- 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