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