1 2 #define FULLTXT 1 3 4 #define exec_op glue(exec_, OP) 5 #define exec_opl glue(glue(exec_, OP), l) 6 #define exec_opw glue(glue(exec_, OP), w) 7 #define exec_opb glue(glue(exec_, OP), b) 8 9 #define EXECOP2(size, res, s1, flags) \ 10 asm ("push %4\n\t"\ 11 "popf\n\t"\ 12 stringify(OP) size " %" size "2, %" size "0\n\t" \ 13 "pushf\n\t"\ 14 "popl %1\n\t"\ 15 : "=q" (res), "=g" (flags)\ 16 : "q" (s1), "0" (res), "1" (flags)); 17 18 #define EXECOP1(size, res, flags) \ 19 asm ("push %3\n\t"\ 20 "popf\n\t"\ 21 stringify(OP) size " %" size "0\n\t" \ 22 "pushf\n\t"\ 23 "popl %1\n\t"\ 24 : "=q" (res), "=g" (flags)\ 25 : "0" (res), "1" (flags)); 26 27 #ifdef OP1 28 inline void exec_opl(int s0, int s1, int iflags) 29 { 30 int res, flags; 31 res = s0; 32 flags = iflags; 33 EXECOP1("", res, flags); 34 if (FULLTXT) 35 printf("%-6s A=%08x R=%08x CCIN=%04x CC=%04x\n", 36 stringify(OP) "l", s0, res, iflags, flags & CC_MASK); 37 else 38 printf("%08x %04x %04x\n", 39 res, iflags, flags & CC_MASK); 40 41 } 42 inline void exec_opw(int s0, int s1, int iflags) 43 { 44 int res, flags; 45 res = s0; 46 flags = iflags; 47 EXECOP1("w", res, flags); 48 if (FULLTXT) 49 printf("%-6s A=%08x R=%08x CCIN=%04x CC=%04x\n", 50 stringify(OP) "w", s0, res, iflags, flags & CC_MASK); 51 else 52 printf("%08x %04x %04x\n", 53 res, iflags, flags & CC_MASK); 54 55 } 56 inline void exec_opb(int s0, int s1, int iflags) 57 { 58 int res, flags; 59 res = s0; 60 flags = iflags; 61 EXECOP1("b", res, flags); 62 if (FULLTXT) 63 printf("%-6s A=%08x R=%08x CCIN=%04x CC=%04x\n", 64 stringify(OP) "b", s0, res, iflags, flags & CC_MASK); 65 else 66 printf("%08x %04x %04x\n", 67 res, iflags, flags & CC_MASK); 68 69 } 70 #else 71 inline void exec_opl(int s0, int s1, int iflags) 72 { 73 int res, flags; 74 res = s0; 75 flags = iflags; 76 EXECOP2("", res, s1, flags); 77 if (FULLTXT) 78 printf("%-6s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n", 79 stringify(OP) "l", s0, s1, res, iflags, flags & CC_MASK); 80 else 81 printf("%08x %04x %04x\n", 82 res, iflags, flags & CC_MASK); 83 } 84 85 inline void exec_opw(int s0, int s1, int iflags) 86 { 87 int res, flags; 88 res = s0; 89 flags = iflags; 90 EXECOP2("w", res, s1, flags); 91 if (FULLTXT) 92 printf("%-6s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n", 93 stringify(OP) "w", s0, s1, res, iflags, flags & CC_MASK); 94 else 95 printf("%08x %04x %04x\n", 96 res, iflags, flags & CC_MASK); 97 } 98 99 inline void exec_opb(int s0, int s1, int iflags) 100 { 101 int res, flags; 102 res = s0; 103 flags = iflags; 104 EXECOP2("b", res, s1, flags); 105 if (FULLTXT) 106 printf("%-6s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n", 107 stringify(OP) "b", s0, s1, res, iflags, flags & CC_MASK); 108 else 109 printf("%08x %04x %04x\n", 110 res, iflags, flags & CC_MASK); 111 } 112 #endif 113 114 void exec_op(int s0, int s1) 115 { 116 #if 1 117 int o,s,z,a,c,p,flags_in; 118 for (o = 0; o < 2; o++) { 119 for (s = 0; s < 2; s++) { 120 for (z = 0; z < 2; z++) { 121 for (a = 0; a < 2; a++) { 122 for (c = 0; c < 2; c++) { 123 for (p = 0; p < 2; p++) { 124 125 flags_in = (o ? CC_O : 0) 126 | (s ? CC_S : 0) 127 | (z ? CC_Z : 0) 128 | (a ? CC_A : 0) 129 | (c ? CC_C : 0) 130 | (p ? CC_P : 0); 131 exec_opl(s0, s1, flags_in); 132 exec_opw(s0, s1, flags_in); 133 exec_opb(s0, s1, flags_in); 134 }}}}}} 135 #else 136 exec_opl(s0, s1, 0); 137 exec_opw(s0, s1, 0); 138 exec_opb(s0, s1, 0); 139 exec_opl(s0, s1, CC_C); 140 exec_opw(s0, s1, CC_C); 141 exec_opb(s0, s1, CC_C); 142 #endif 143 } 144 145 void glue(test_, OP)(void) 146 { 147 #define NVALS 57 148 int i, j; 149 static unsigned int val[NVALS] 150 = { 0x00, 0x01, 0x02, 0x03, 151 0x3F, 0x40, 0x41, 152 0x7E, 0x7F, 0x80, 0x81, 0x82, 153 0xBF, 0xC0, 0xC1, 154 0xFC, 0xFD, 0xFE, 0xFF, 155 156 0xFF00, 0xFF01, 0xFF02, 0xFF03, 157 0xFF3F, 0xFF40, 0xFF41, 158 0xFF7E, 0xFF7F, 0xFF80, 0xFF81, 0xFF82, 159 0xFFBF, 0xFFC0, 0xFFC1, 160 0xFFFC, 0xFFFD, 0xFFFE, 0xFFFF, 161 162 0xFFFFFF00, 0xFFFFFF01, 0xFFFFFF02, 0xFFFFFF03, 163 0xFFFFFF3F, 0xFFFFFF40, 0xFFFFFF41, 164 0xFFFFFF7E, 0xFFFFFF7F, 0xFFFFFF80, 0xFFFFFF81, 0xFFFFFF82, 165 0xFFFFFFBF, 0xFFFFFFC0, 0xFFFFFFC1, 166 0xFFFFFFFC, 0xFFFFFFFD, 0xFFFFFFFE, 0xFFFFFFFF 167 }; 168 169 exec_op(0x12345678, 0x812FADA); 170 exec_op(0x12341, 0x12341); 171 exec_op(0x12341, -0x12341); 172 exec_op(0xffffffff, 0); 173 exec_op(0xffffffff, -1); 174 exec_op(0xffffffff, 1); 175 exec_op(0xffffffff, 2); 176 exec_op(0x7fffffff, 0); 177 exec_op(0x7fffffff, 1); 178 exec_op(0x7fffffff, -1); 179 exec_op(0x80000000, -1); 180 exec_op(0x80000000, 1); 181 exec_op(0x80000000, -2); 182 exec_op(0x12347fff, 0); 183 exec_op(0x12347fff, 1); 184 exec_op(0x12347fff, -1); 185 exec_op(0x12348000, -1); 186 exec_op(0x12348000, 1); 187 exec_op(0x12348000, -2); 188 exec_op(0x12347f7f, 0); 189 exec_op(0x12347f7f, 1); 190 exec_op(0x12347f7f, -1); 191 exec_op(0x12348080, -1); 192 exec_op(0x12348080, 1); 193 exec_op(0x12348080, -2); 194 195 #if TEST_INTEGER_VERBOSE 196 if (1) 197 for (i = 0; i < NVALS; i++) 198 for (j = 0; j < NVALS; j++) 199 exec_op(val[i], val[j]); 200 #endif 201 202 #undef NVALS 203 } 204 205 void *glue(_test_, OP) __init_call = glue(test_, OP); 206 207 #undef OP 208 #undef OP_CC 209 210 #undef FULLTXT 211
