godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix for constants

Browse Source
This commit is contained in:
ceriel 1988-07-07 14:31:29 +00:00
parent 38122bfe30
commit 8a43e17be2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mach/pdp/cg/mach.c
View File

@ -40,7 +40,7 @@ con_mult(sz) word sz; {
fatal("bad icon/ucon size"); fatal("bad icon/ucon size");
l = atol(str); l = atol(str);
#ifdef ACK_ASS #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 #else
fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l); fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l);
#endif #endif

2
mach/pdp/ncg/mach.c
View File

@ -40,7 +40,7 @@ con_mult(sz) word sz; {
fatal("bad icon/ucon size"); fatal("bad icon/ucon size");
l = atol(str); l = atol(str);
#ifdef ACK_ASS #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 #else
fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l); fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l);
#endif #endif