X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=direct.c;h=c0b5be5cd83ed46279b9d0f7998a28432efe81bc;hp=89e4ee0149855e7c7b7031422058eee2d5a10559;hb=bbaae2c20d534943356e82ebd22ca5425a1868d9;hpb=9e2fe1917a6ad9127e620eb908bba20421e52c89 diff --git a/direct.c b/direct.c index 89e4ee0..c0b5be5 100644 --- a/direct.c +++ b/direct.c @@ -814,8 +814,7 @@ int d_bss(void) // int d_ds(WORD siz) { -if (debug) - printf("Directive: .ds.[size] = %u, sloc = $%X\n", siz, sloc); + DEBUG { printf("Directive: .ds.[size] = %u, sloc = $%X\n", siz, sloc); } VALUE eval; @@ -997,7 +996,8 @@ int d_dcb(WORD siz) VALUE evalc, eval; WORD eattr; -printf("dcb: section is %s%s%s (scattr=$%X)\n", (cursect & TEXT ? "TEXT" : ""), (cursect & DATA ? " DATA" : ""), (cursect & BSS ? "BSS" : ""), scattr); + DEBUG { printf("dcb: section is %s%s%s (scattr=$%X)\n", (cursect & TEXT ? "TEXT" : ""), (cursect & DATA ? " DATA" : ""), (cursect & BSS ? "BSS" : ""), scattr); } + if ((scattr & SBSS) != 0) return error("illegal initialization of section");