X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=parmode.h;h=c72b47012613e6ffd4d3b15bbdcf75e221157601;hp=38f6f94b6c787f5143c40bb98cdc0e7f806c8a0f;hb=bf97c76e7e6a87b0495cb037b094b6d8b5027a40;hpb=52cea8604f22cf5281dbc66fcae5fea37d038e0f diff --git a/parmode.h b/parmode.h index 38f6f94..c72b470 100644 --- a/parmode.h +++ b/parmode.h @@ -252,8 +252,12 @@ CHK_FOR_DISPn: // Defined, absolute values from $FFFF8000..$00007FFF get optimized // to absolute short - if ((AnEXATTR & (TDB|DEFINED)) == DEFINED && (AnEXVAL + 0x8000) < 0x10000) + if (optim_flag && (AnEXATTR & (TDB|DEFINED)) == DEFINED && (AnEXVAL + 0x8000) < 0x10000) + { AMn = ABSW; + if (sbra_flag) + warn("absolute value from $FFFF8000..$00007FFF optimised to absolute short"); + } // Is .L forced here? if (*tok == DOTL)