X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=src%2Fvm%2Fjit%2Fpowerpc%2Fcodegen.h;h=ea6f9843546d91b19d233bc4ddc1d7abc1c85215;hb=ea877f94d6d3fcf15c3f4d9e2224190436522e00;hp=01c32ba66eb4b1c0990ef7aa2e29af6b715b8b23;hpb=ebe6b659cf9abe10450094e974c90e63c54a441c;p=cacao.git diff --git a/src/vm/jit/powerpc/codegen.h b/src/vm/jit/powerpc/codegen.h index 01c32ba66..ea6f98435 100644 --- a/src/vm/jit/powerpc/codegen.h +++ b/src/vm/jit/powerpc/codegen.h @@ -1,10 +1,8 @@ /* src/vm/jit/powerpc/codegen.h - code generation macros and definitions for 32-bit PowerPC - Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel, - C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring, - E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich, - J. Wenninger, Institut f. Computersprachen - TU Wien + Copyright (C) 1996-2005, 2006, 2007, 2008 + CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO This file is part of CACAO. @@ -23,8 +21,6 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. - $Id: codegen.h 7596 2007-03-28 21:05:53Z twisti $ - */ @@ -126,6 +122,11 @@ } while (0) +/* stub defines ***************************************************************/ + +#define COMPILERSTUB_CODESIZE 1 * 4 + + /* macros to create code ******************************************************/ #define M_OP3(opcode,y,oe,rc,d,a,b) \ @@ -172,116 +173,136 @@ } while (0) -/* instruction macros *********************************************************/ +/* machine instruction macros ************************************************** + + Argument order: + + machine instruction macro: + Same order as for the mnemonic (d, s1, s2). + + emit macro: + Same order as in the instruction encoding. + +*******************************************************************************/ + +#define MI_and(rA,rS,rB) M_OP3(31, 28, 0, 0, rS, rA, rB) +#define MI_anddot(rA,rS,rB) M_OP3(31, 28, 0, 1, rS, rA, rB) +#define MI_andi(rA,rS,UIMM) M_OP2_IMM(28, rS, rA, UIMM) +#define MI_lwarx(rD,rA,rB) M_OP3(31, 20, 0, 0, rD, rA, rB) +#define MI_or(rA,rS,rB) M_OP3(31, 444, 0, 0, rS, rA, rB) +#define MI_ordot(rA,rS,rB) M_OP3(31, 444, 0, 1, rS, rA, rB) +#define MI_ori(rA,rS,UIMM) M_OP2_IMM(24, rS, rA, UIMM) +#define MI_stwcxdot(rS,rA,rB) M_OP3(31, 150, 0, 1, rS, rA, rB) +#define MI_subf(rD,rA,rB) M_OP3(31, 40, 0, 0, rD, rA, rB) +#define MI_subfdot(rD,rA,rB) M_OP3(31, 40, 0, 1, rD, rA, rB) +#define MI_sync M_OP3(31, 598, 0, 0, 0, 0, 0) + + +/* HIR macros ****************************************************************** + + Argument order: + + HIR macro: + Default usage in CACAO (s1, s2, d). + + machine instruction macro: + Same order as for the mnemonic (d, s1, s2). + +*******************************************************************************/ + +/* integer instructions *******************************************************/ + +#define M_IAND(a,b,d) MI_and(d, a, b) +#define M_IAND_IMM(a,b,d) MI_andi(d, a, b) +#define M_IOR(a,b,d) MI_or(d, a, b) +#define M_IOR_IMM(a,b,d) MI_ori(d, a, b) +#define M_IOR_TST(a,b,d) MI_ordot(d, a, b) +#define M_ISUB(a,b,d) MI_subf(d, b, a) +#define M_ISUB_TST(a,b,d) MI_subfdot(d, b, a) +#define M_MOV(a,d) MI_or(d, a, a) +#define M_NOP MI_ori(0, 0, 0) + -#define M_IADD(a,b,c) M_OP3(31, 266, 0, 0, c, a, b) -#define M_IADD_IMM(a,b,c) M_OP2_IMM(14, c, a, b) #define M_ADDC(a,b,c) M_OP3(31, 10, 0, 0, c, a, b) +#define M_ADDE(a,b,c) M_OP3(31, 138, 0, 0, c, a, b) #define M_ADDIC(a,b,c) M_OP2_IMM(12, c, a, b) #define M_ADDICTST(a,b,c) M_OP2_IMM(13, c, a, b) -#define M_ADDE(a,b,c) M_OP3(31, 138, 0, 0, c, a, b) -#define M_ADDZE(a,b) M_OP3(31, 202, 0, 0, b, a, 0) +#define M_ADDIS(a,b,c) M_OP2_IMM(15, c, a, b) #define M_ADDME(a,b) M_OP3(31, 234, 0, 0, b, a, 0) -#define M_ISUB(a,b,c) M_OP3(31, 40, 0, 0, c, b, a) -#define M_ISUBTST(a,b,c) M_OP3(31, 40, 0, 1, c, b, a) -#define M_SUBC(a,b,c) M_OP3(31, 8, 0, 0, c, b, a) -#define M_SUBIC(a,b,c) M_OP2_IMM(8, c, b, a) -#define M_SUBE(a,b,c) M_OP3(31, 136, 0, 0, c, b, a) -#define M_SUBZE(a,b) M_OP3(31, 200, 0, 0, b, a, 0) -#define M_SUBME(a,b) M_OP3(31, 232, 0, 0, b, a, 0) - -#define M_AND(a,b,c) M_OP3(31, 28, 0, 0, a, c, b) -#define M_AND_IMM(a,b,c) M_OP2_IMM(28, a, c, b) +#define M_ADDZE(a,b) M_OP3(31, 202, 0, 0, b, a, 0) +#define M_ADDZE(a,b) M_OP3(31, 202, 0, 0, b, a, 0) #define M_ANDIS(a,b,c) M_OP2_IMM(29, a, c, b) -#define M_OR(a,b,c) M_OP3(31, 444, 0, 0, a, c, b) -#define M_OR_TST(a,b,c) M_OP3(31, 444, 0, 1, a, c, b) -#define M_OR_IMM(a,b,c) M_OP2_IMM(24, a, c, b) -#define M_ORIS(a,b,c) M_OP2_IMM(25, a, c, b) -#define M_XOR(a,b,c) M_OP3(31, 316, 0, 0, a, c, b) -#define M_XOR_IMM(a,b,c) M_OP2_IMM(26, a, c, b) -#define M_XORIS(a,b,c) M_OP2_IMM(27, a, c, b) - -#define M_SLL(a,b,c) M_OP3(31, 24, 0, 0, a, c, b) -#define M_SRL(a,b,c) M_OP3(31, 536, 0, 0, a, c, b) -#define M_SRA(a,b,c) M_OP3(31, 792, 0, 0, a, c, b) -#define M_SRA_IMM(a,b,c) M_OP3(31, 824, 0, 0, a, c, b) - +#define M_BEQ(a) M_BC(12, 2, a, 0, 0) +#define M_BGE(a) M_BC(4, 0, a, 0, 0) +#define M_BGT(a) M_BC(12, 1, a, 0, 0) +#define M_BL(a) M_B(a, 0, 1) +#define M_BLDU(a,b,c) M_OP2_IMM(34, a, b, c) +#define M_BLE(a) M_BC(4, 1, a, 0, 0) +#define M_BLT(a) M_BC(12, 0, a, 0, 0) +#define M_BNAN(a) M_BC(12, 3, a, 0, 0) +#define M_BNE(a) M_BC(4, 2, a, 0, 0) +#define M_BR(a) M_B(a, 0, 0) +#define M_BSEXT(a,b) M_OP3(31, 954, 0, 0, a, b, 0) +#define M_BST(a,b,c) M_OP2_IMM(38, a, b, c) +#define M_CMP(a,b) M_OP3(31, 0, 0, 0, 0, a, b) +#define M_CMPI(a,b) M_OP2_IMM(11, 0, a, b) +#define M_CMPU(a,b) M_OP3(31, 32, 0, 0, 0, a, b) +#define M_CMPUI(a,b) M_OP2_IMM(10, 0, a, b) +#define M_CZEXT(a,b) M_RLWINM(a,0,16,31,b) +#define M_IADD(a,b,c) M_OP3(31, 266, 0, 0, c, a, b) +#define M_IADD_IMM(a,b,c) M_OP2_IMM(14, c, a, b) +#define M_IDIV(a,b,c) M_OP3(31, 491, 0, 0, c, a, b) #define M_IMUL(a,b,c) M_OP3(31, 235, 0, 0, c, a, b) #define M_IMUL_IMM(a,b,c) M_OP2_IMM(7, c, a, b) -#define M_IDIV(a,b,c) M_OP3(31, 491, 0, 0, c, a, b) - +#define M_JSR M_OP3(19, 528, 0, 1, 20, 0, 0) +#define M_LBZX(a,b,c) M_OP3(31, 87, 0, 0, a, b, c) +#define M_LHAX(a,b,c) M_OP3(31, 343, 0, 0, a, b, c) +#define M_LHZX(a,b,c) M_OP3(31, 279, 0, 0, a, b, c) +#define M_LWZX(a,b,c) M_OP3(31, 23, 0, 0, a, b, c) +#define M_MFCTR(a) M_OP3(31, 339, 0, 0, a, 9, 0) +#define M_MFLR(a) M_OP3(31, 339, 0, 0, a, 8, 0) +#define M_MFXER(a) M_OP3(31, 339, 0, 0, a, 1, 0) +#define M_MTCTR(a) M_OP3(31, 467, 0, 0, a, 9, 0) +#define M_MTLR(a) M_OP3(31, 467, 0, 0, a, 8, 0) +#define M_MTXER(a) M_OP3(31, 467, 0, 0, a, 1, 0) #define M_NEG(a,b) M_OP3(31, 104, 0, 0, b, a, 0) #define M_NOT(a,b) M_OP3(31, 124, 0, 0, a, b, a) - -#define M_SUBFIC(a,b,c) M_OP2_IMM(8, c, a, b) -#define M_SUBFZE(a,b) M_OP3(31, 200, 0, 0, b, a, 0) +#define M_ORIS(a,b,c) M_OP2_IMM(25, a, c, b) +#define M_RET M_OP3(19, 16, 0, 0, 20, 0, 0) #define M_RLWINM(a,b,c,d,e) M_OP4(21, d, 0, a, e, b, c) -#define M_ADDZE(a,b) M_OP3(31, 202, 0, 0, b, a, 0) +#define M_RTS M_OP3(19, 528, 0, 0, 20, 0, 0) +#define M_SLDU(a,b,c) M_OP2_IMM(40, a, b, c) +#define M_SLL(a,b,c) M_OP3(31, 24, 0, 0, a, c, b) #define M_SLL_IMM(a,b,c) M_RLWINM(a,b,0,31-(b),c) +#define M_SRA(a,b,c) M_OP3(31, 792, 0, 0, a, c, b) +#define M_SRA_IMM(a,b,c) M_OP3(31, 824, 0, 0, a, c, b) +#define M_SRL(a,b,c) M_OP3(31, 536, 0, 0, a, c, b) #define M_SRL_IMM(a,b,c) M_RLWINM(a,32-(b),b,31,c) -#define M_ADDIS(a,b,c) M_OP2_IMM(15, c, a, b) -#define M_STFIWX(a,b,c) M_OP3(31, 983, 0, 0, a, b, c) -#define M_LWZX(a,b,c) M_OP3(31, 23, 0, 0, a, b, c) -#define M_LHZX(a,b,c) M_OP3(31, 279, 0, 0, a, b, c) -#define M_LHAX(a,b,c) M_OP3(31, 343, 0, 0, a, b, c) -#define M_LBZX(a,b,c) M_OP3(31, 87, 0, 0, a, b, c) -#define M_LFSX(a,b,c) M_OP3(31, 535, 0, 0, a, b, c) -#define M_LFDX(a,b,c) M_OP3(31, 599, 0, 0, a, b, c) -#define M_STWX(a,b,c) M_OP3(31, 151, 0, 0, a, b, c) -#define M_STHX(a,b,c) M_OP3(31, 407, 0, 0, a, b, c) +#define M_SSEXT(a,b) M_OP3(31, 922, 0, 0, a, b, 0) +#define M_SST(a,b,c) M_OP2_IMM(44, a, b, c) #define M_STBX(a,b,c) M_OP3(31, 215, 0, 0, a, b, c) -#define M_STFSX(a,b,c) M_OP3(31, 663, 0, 0, a, b, c) -#define M_STFDX(a,b,c) M_OP3(31, 727, 0, 0, a, b, c) - -#define M_STWU_INTERN(a,b,disp) M_OP2_IMM(37,a,b,disp) - -#define M_STWU(a,b,disp) \ - do { \ - s4 lo = (disp) & 0x0000ffff; \ - s4 hi = ((disp) >> 16); \ - if (((disp) >= -32678) && ((disp) <= 32767)) { \ - M_STWU_INTERN(a,b,lo); \ - } else { \ - M_ADDIS(REG_ZERO,hi,REG_ITMP3); \ - M_OR_IMM(REG_ITMP3,lo,REG_ITMP3); \ - M_STWUX(REG_SP,REG_SP,REG_ITMP3); \ - } \ - } while (0) - +#define M_STHX(a,b,c) M_OP3(31, 407, 0, 0, a, b, c) #define M_STWUX(a,b,c) M_OP3(31,183,0,0,a,b,c) - -#define M_LDAH(a,b,c) M_ADDIS(b, c, a) - +#define M_STWX(a,b,c) M_OP3(31, 151, 0, 0, a, b, c) +#define M_SUBC(a,b,c) M_OP3(31, 8, 0, 0, c, b, a) +#define M_SUBE(a,b,c) M_OP3(31, 136, 0, 0, c, b, a) +#define M_SUBFIC(a,b,c) M_OP2_IMM(8, c, a, b) +#define M_SUBFZE(a,b) M_OP3(31, 200, 0, 0, b, a, 0) +#define M_SUBIC(a,b,c) M_OP2_IMM(8, c, b, a) +#define M_SUBME(a,b) M_OP3(31, 232, 0, 0, b, a, 0) +#define M_SUBZE(a,b) M_OP3(31, 200, 0, 0, b, a, 0) #define M_TRAP M_OP3(31, 4, 0, 0, 31, 0, 0) #define M_TRAPGEU(a,b) M_OP3(31, 4, 0, 0, 5, a, b) - -#define M_NOP M_OR_IMM(0, 0, 0) -#define M_MOV(a,b) M_OR(a, a, b) #define M_TST(a) M_OP3(31, 444, 0, 1, a, a, a) +#define M_XOR(a,b,c) M_OP3(31, 316, 0, 0, a, c, b) +#define M_XORIS(a,b,c) M_OP2_IMM(27, a, c, b) +#define M_XOR_IMM(a,b,c) M_OP2_IMM(26, a, c, b) -#define M_DADD(a,b,c) M_OP3(63, 21, 0, 0, c, a, b) -#define M_FADD(a,b,c) M_OP3(59, 21, 0, 0, c, a, b) -#define M_DSUB(a,b,c) M_OP3(63, 20, 0, 0, c, a, b) -#define M_FSUB(a,b,c) M_OP3(59, 20, 0, 0, c, a, b) -#define M_DMUL(a,b,c) M_OP4(63, 25, 0, c, a, 0, b) -#define M_FMUL(a,b,c) M_OP4(59, 25, 0, c, a, 0, b) -#define M_DDIV(a,b,c) M_OP3(63, 18, 0, 0, c, a, b) -#define M_FDIV(a,b,c) M_OP3(59, 18, 0, 0, c, a, b) - -#define M_FABS(a,b) M_OP3(63, 264, 0, 0, b, 0, a) -#define M_CVTDL(a,b) M_OP3(63, 14, 0, 0, b, 0, a) -#define M_CVTDL_C(a,b) M_OP3(63, 15, 0, 0, b, 0, a) -#define M_CVTDF(a,b) M_OP3(63, 12, 0, 0, b, 0, a) -#define M_FMOV(a,b) M_OP3(63, 72, 0, 0, b, 0, a) -#define M_FMOVN(a,b) M_OP3(63, 40, 0, 0, b, 0, a) -#define M_DSQRT(a,b) M_OP3(63, 22, 0, 0, b, 0, a) -#define M_FSQRT(a,b) M_OP3(59, 22, 0, 0, b, 0, a) -#define M_FCMPU(a,b) M_OP3(63, 0, 0, 0, 0, a, b) -#define M_FCMPO(a,b) M_OP3(63, 32, 0, 0, 0, a, b) +#define M_LDAH(a,b,c) M_ADDIS(b, c, a) +#define M_LDATST(a,b,c) M_ADDICTST(b, c, a) +#define M_CLR(a) M_IADD_IMM(0, 0, a) -#define M_BLDU(a,b,c) M_OP2_IMM(34, a, b, c) -#define M_SLDU(a,b,c) M_OP2_IMM(40, a, b, c) #define M_ILD_INTERN(a,b,disp) M_OP2_IMM(32,a,b,disp) @@ -315,12 +336,6 @@ } \ } while (0) -#define M_ALD_INTERN(a,b,disp) M_ILD_INTERN(a,b,disp) -#define M_ALD(a,b,disp) M_ILD(a,b,disp) - -#define M_BST(a,b,c) M_OP2_IMM(38, a, b, c) -#define M_SST(a,b,c) M_OP2_IMM(44, a, b, c) - #define M_IST_INTERN(a,b,disp) M_OP2_IMM(36,a,b,disp) /* Stores with displacement overflow should only happen with PUTFIELD @@ -357,34 +372,72 @@ } \ } while (0) +#define M_STWU_INTERN(a,b,disp) M_OP2_IMM(37,a,b,disp) + +#define M_STWU(a,b,disp) \ + do { \ + s4 lo = (disp) & 0x0000ffff; \ + s4 hi = ((disp) >> 16); \ + if (((disp) >= -32678) && ((disp) <= 32767)) { \ + M_STWU_INTERN(a,b,lo); \ + } else { \ + M_ADDIS(REG_ZERO,hi,REG_ITMP3); \ + M_IOR_IMM(REG_ITMP3,lo,REG_ITMP3); \ + M_STWUX(REG_SP,REG_SP,REG_ITMP3); \ + } \ + } while (0) + +#define M_LDA_INTERN(a,b,c) M_IADD_IMM(b, c, a) + +#define M_LDA(a,b,disp) \ + do { \ + s4 lo = (short) (disp); \ + s4 hi = (short) (((disp) - lo) >> 16); \ + if (hi == 0) { \ + M_LDA_INTERN(a,b,lo); \ + } else { \ + M_ADDIS(b,hi,a); \ + M_LDA_INTERN(a,a,lo); \ + } \ + } while (0) + + +#define M_AADD(a,b,d) M_IADD(a, b, d) +#define M_AADD_IMM(a,b,d) M_IADD_IMM(a, b, d) +#define M_ALD_INTERN(a,b,disp) M_ILD_INTERN(a,b,disp) +#define M_ALD(a,b,disp) M_ILD(a,b,disp) #define M_AST_INTERN(a,b,disp) M_IST_INTERN(a,b,disp) #define M_AST(a,b,disp) M_IST(a,b,disp) -#define M_BSEXT(a,b) M_OP3(31, 954, 0, 0, a, b, 0) -#define M_SSEXT(a,b) M_OP3(31, 922, 0, 0, a, b, 0) -#define M_CZEXT(a,b) M_RLWINM(a,0,16,31,b) -#define M_BR(a) M_B(a, 0, 0) -#define M_BL(a) M_B(a, 0, 1) -#define M_RET M_OP3(19, 16, 0, 0, 20, 0, 0) -#define M_JSR M_OP3(19, 528, 0, 1, 20, 0, 0) -#define M_RTS M_OP3(19, 528, 0, 0, 20, 0, 0) +/* floating point instructions ************************************************/ -#define M_CMP(a,b) M_OP3(31, 0, 0, 0, 0, a, b) -#define M_CMPU(a,b) M_OP3(31, 32, 0, 0, 0, a, b) -#define M_CMPI(a,b) M_OP2_IMM(11, 0, a, b) -#define M_CMPUI(a,b) M_OP2_IMM(10, 0, a, b) +#define M_CVTDF(a,b) M_OP3(63, 12, 0, 0, b, 0, a) +#define M_CVTDL(a,b) M_OP3(63, 14, 0, 0, b, 0, a) +#define M_CVTDL_C(a,b) M_OP3(63, 15, 0, 0, b, 0, a) +#define M_DADD(a,b,c) M_OP3(63, 21, 0, 0, c, a, b) +#define M_DDIV(a,b,c) M_OP3(63, 18, 0, 0, c, a, b) +#define M_DMUL(a,b,c) M_OP4(63, 25, 0, c, a, 0, b) +#define M_DSQRT(a,b) M_OP3(63, 22, 0, 0, b, 0, a) +#define M_DSUB(a,b,c) M_OP3(63, 20, 0, 0, c, a, b) +#define M_FABS(a,b) M_OP3(63, 264, 0, 0, b, 0, a) +#define M_FADD(a,b,c) M_OP3(59, 21, 0, 0, c, a, b) +#define M_FCMPO(a,b) M_OP3(63, 32, 0, 0, 0, a, b) +#define M_FCMPU(a,b) M_OP3(63, 0, 0, 0, 0, a, b) +#define M_FDIV(a,b,c) M_OP3(59, 18, 0, 0, c, a, b) +#define M_FMOV(a,b) M_OP3(63, 72, 0, 0, b, 0, a) +#define M_FMOVN(a,b) M_OP3(63, 40, 0, 0, b, 0, a) +#define M_FMUL(a,b,c) M_OP4(59, 25, 0, c, a, 0, b) +#define M_FSQRT(a,b) M_OP3(59, 22, 0, 0, b, 0, a) +#define M_FSUB(a,b,c) M_OP3(59, 20, 0, 0, c, a, b) +#define M_LFDX(a,b,c) M_OP3(31, 599, 0, 0, a, b, c) +#define M_LFSX(a,b,c) M_OP3(31, 535, 0, 0, a, b, c) +#define M_STFDX(a,b,c) M_OP3(31, 727, 0, 0, a, b, c) +#define M_STFIWX(a,b,c) M_OP3(31, 983, 0, 0, a, b, c) +#define M_STFSX(a,b,c) M_OP3(31, 663, 0, 0, a, b, c) -#define M_BLT(a) M_BC(12, 0, a, 0, 0) -#define M_BLE(a) M_BC(4, 1, a, 0, 0) -#define M_BGT(a) M_BC(12, 1, a, 0, 0) -#define M_BGE(a) M_BC(4, 0, a, 0, 0) -#define M_BEQ(a) M_BC(12, 2, a, 0, 0) -#define M_BNE(a) M_BC(4, 2, a, 0, 0) -#define M_BNAN(a) M_BC(12, 3, a, 0, 0) #define M_FLD_INTERN(a,b,disp) M_OP2_IMM(48,a,b,disp) -#define M_DLD_INTERN(a,b,disp) M_OP2_IMM(50,a,b,disp) #define M_FLD(a,b,disp) \ do { \ @@ -398,6 +451,8 @@ } \ } while (0) +#define M_DLD_INTERN(a,b,disp) M_OP2_IMM(50,a,b,disp) + #define M_DLD(a,b,disp) \ do { \ s4 lo = (short) (disp); \ @@ -411,7 +466,6 @@ } while (0) #define M_FST_INTERN(a,b,disp) M_OP2_IMM(52,a,b,disp) -#define M_DST_INTERN(a,b,disp) M_OP2_IMM(54,a,b,disp) #define M_FST(a,b,disp) \ do { \ @@ -425,6 +479,8 @@ } \ } while (0) +#define M_DST_INTERN(a,b,disp) M_OP2_IMM(54,a,b,disp) + #define M_DST(a,b,disp) \ do { \ s4 lo = (short) (disp); \ @@ -437,32 +493,6 @@ } \ } while (0) -#define M_MFLR(a) M_OP3(31, 339, 0, 0, a, 8, 0) -#define M_MFXER(a) M_OP3(31, 339, 0, 0, a, 1, 0) -#define M_MFCTR(a) M_OP3(31, 339, 0, 0, a, 9, 0) -#define M_MTLR(a) M_OP3(31, 467, 0, 0, a, 8, 0) -#define M_MTXER(a) M_OP3(31, 467, 0, 0, a, 1, 0) -#define M_MTCTR(a) M_OP3(31, 467, 0, 0, a, 9, 0) - -#define M_LDA_INTERN(a,b,c) M_IADD_IMM(b, c, a) - -#define M_LDA(a,b,disp) \ - do { \ - s4 lo = (short) (disp); \ - s4 hi = (short) (((disp) - lo) >> 16); \ - if (hi == 0) { \ - M_LDA_INTERN(a,b,lo); \ - } else { \ - M_ADDIS(b,hi,a); \ - M_LDA_INTERN(a,a,lo); \ - } \ - } while (0) - - -#define M_LDATST(a,b,c) M_ADDICTST(b, c, a) -#define M_CLR(a) M_IADD_IMM(0, 0, a) -#define M_AADD_IMM(a,b,c) M_IADD_IMM(a, b, c) - #endif /* _CODEGEN_H */