X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=eagen0.c;h=9293a9f7e1d2eba64a52527cb108136e1cbe6546;hp=7fe382a115c5c692a04aed6e19c321cdb6e3e5a4;hb=cfd001aea60f54e49d9beae0f941c513f45c202b;hpb=03dd34951a331e0b8971195ccef1600fffaea2e6 diff --git a/eagen0.c b/eagen0.c index 7fe382a..9293a9f 100644 --- a/eagen0.c +++ b/eagen0.c @@ -9,7 +9,7 @@ int eaNgen(WORD siz) { - VALUE vbd, v = aNexval; + uint32_t vbd, v = aNexval; WORD wbd, w = (WORD)(aNexattr & DEFINED); WORD tdbbd, tdb = (WORD)(aNexattr & TDB); vbd = aNbdexval; @@ -38,7 +38,7 @@ int eaNgen(WORD siz) if (tdb) MarkRelocatable(cursect, sloc, tdb, MWORD, NULL); - if ((v == 0) && optim_flags[OPT_INDIRECT_DISP] && !movep) + if ((v == 0) && CHECK_OPTS(OPT_INDIRECT_DISP) && !movep) { // If expr is 0, size optimise the opcode. Generally the lower // 6 bits of the opcode for expr(ax) are 101rrr where rrr=the @@ -86,7 +86,7 @@ int eaNgen(WORD siz) { // Just deposit it if ((aNexattr & TDB) == cursect) - v -= (VALUE)sloc; + v -= (uint32_t)sloc; else if ((aNexattr & TDB) != ABS) error(rel_error); @@ -136,7 +136,7 @@ int eaNgen(WORD siz) { // Deposit a byte... if ((aNexattr & TDB) == cursect) - v -= (VALUE)sloc; + v -= (uint32_t)sloc; else if ((aNexattr & TDB) != ABS) error(rel_error); @@ -251,6 +251,12 @@ int eaNgen(WORD siz) D_long(0); } + break; + case DINDW: + D_word(0x190|(aNixreg<<12)); + break; + case DINDL: + D_word(0x990|(aNixreg<<12)); break; case ABASE: case MEMPOST: @@ -281,7 +287,7 @@ int eaNgen(WORD siz) else { // Arrange for fixup later on - AddFixup(FU_WORD|FU_SEXT, sloc, aNexpr); + AddFixup(FU_WORD|FU_SEXT, sloc, aNbexpr); D_word(0); } } @@ -299,7 +305,7 @@ int eaNgen(WORD siz) else { // Arrange for fixup later on - AddFixup(FU_LONG|FU_SEXT, sloc, aNexpr); + AddFixup(FU_LONG, sloc, aNbexpr); D_long(0); } } @@ -369,6 +375,7 @@ int eaNgen(WORD siz) #undef aNixreg #undef aNixsiz #undef aNexten +#undef aNbexpr #undef aNbdexval #undef aNbdexattr #undef AnESYM