X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=parmode.h;h=dd3e1a2b03ee87b6bd58b0a6df3da462ab7bfe2f;hp=44e08d954a9fa7002fe7ae92ee38aaf46d3c7f88;hb=4a08774b122ba509b13c79975b2ad0f2e441c56b;hpb=188ff8b3a5913738a310f25e4abef5cca40187a8 diff --git a/parmode.h b/parmode.h index 44e08d9..dd3e1a2 100644 --- a/parmode.h +++ b/parmode.h @@ -367,8 +367,8 @@ AMn_IXN: // Handle any indexed (tok -> a comma) tok++; } - // Check for address register or PC, - // suppress base register otherwise + // Check for address register or PC, suppress base register + // otherwise if (*tok == KW_PC) { // ([bd,PC,... @@ -571,7 +571,7 @@ AMn_IXN: // Handle any indexed (tok -> a comma) default: goto badmode; } - + } // Check for od @@ -633,7 +633,8 @@ CHECKODn: { AnBEXPR[i] = AnEXPR[i]; i++; - } while (AnEXPR[i] != 'E'); + } + while (AnEXPR[i] != 'E'); AnBEXPR[i] = 'E'; } @@ -648,6 +649,7 @@ CHECKODn: { od_ea = EXT_IISPOSW; // Word outer displacement AMn = MEMPOST + ea_PC; + if (optim_warn_flag) warn("absolute value in outer displacement ranging $FFFF8000..$00007FFF optimised to absolute short"); }