1 2 #define exec_op glue(exec_, OP) 3 #define exec_opl glue(glue(exec_, OP), l) 4 #define exec_opw glue(glue(exec_, OP), w) 5 #define exec_opb glue(glue(exec_, OP), b) 6 7 #ifndef OP_SHIFTD 8 9 #ifdef OP_NOBYTE 10 #define EXECSHIFT(size, res, s1, s2, flags) \ 11 asm ("push %4\n\t"\ 12 "popf\n\t"\ 13 stringify(OP) size " %" size "2, %" size "0\n\t" \ 14 "pushf\n\t"\ 15 "popl %1\n\t"\ 16 : "=g" (res), "=g" (flags)\ 17 : "r" (s1), "0" (res), "1" (flags)); 18 #else 19 #define EXECSHIFT(size, res, s1, s2, flags) \ 20 asm ("push %4\n\t"\ 21 "popf\n\t"\ 22 stringify(OP) size " %%cl, %" size "0\n\t" \ 23 "pushf\n\t"\ 24 "popl %1\n\t"\ 25 : "=q" (res), "=g" (flags)\ 26 : "c" (s1), "0" (res), "1" (flags)); 27 #endif 28 29 void exec_opl(int s2, int s0, int s1, int iflags) 30 { 31 int res, flags; 32 res = s0; 33 flags = iflags; 34 EXECSHIFT("", res, s1, s2, flags); 35 /* overflow is undefined if count != 1 */ 36 if (s1 != 1) 37 flags &= ~CC_O; 38 printf("%-10s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n", 39 stringify(OP) "l", s0, s1, res, iflags, flags & CC_MASK); 40 } 41 42 void exec_opw(int s2, int s0, int s1, int iflags) 43 { 44 int res, flags; 45 res = s0; 46 flags = iflags; 47 EXECSHIFT("w", res, s1, s2, flags); 48 /* overflow is undefined if count != 1 */ 49 if (s1 != 1) 50 flags &= ~CC_O; 51 printf("%-10s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n", 52 stringify(OP) "w", s0, s1, res, iflags, flags & CC_MASK); 53 } 54 55 #else 56 #define EXECSHIFT(size, res, s1, s2, flags) \ 57 asm ("push %4\n\t"\ 58 "popf\n\t"\ 59 stringify(OP) size " %%cl, %" size "5, %" size "0\n\t" \ 60 "pushf\n\t"\ 61 "popl %1\n\t"\ 62 : "=g" (res), "=g" (flags)\ 63 : "c" (s1), "0" (res), "1" (flags), "r" (s2)); 64 65 void exec_opl(int s2, int s0, int s1, int iflags) 66 { 67 int res, flags; 68 res = s0; 69 flags = iflags; 70 EXECSHIFT("", res, s1, s2, flags); 71 /* overflow is undefined if count != 1 */ 72 if (s1 != 1) 73 flags &= ~CC_O; 74 printf("%-10s A=%08x B=%08x C=%08x R=%08x CCIN=%04x CC=%04x\n", 75 stringify(OP) "l", s0, s2, s1, res, iflags, flags & CC_MASK); 76 } 77 78 void exec_opw(int s2, int s0, int s1, int iflags) 79 { 80 int res, flags; 81 res = s0; 82 flags = iflags; 83 EXECSHIFT("w", res, s1, s2, flags); 84 /* overflow is undefined if count != 1 */ 85 if (s1 != 1) 86 flags &= ~CC_O; 87 printf("%-10s A=%08x B=%08x C=%08x R=%08x CCIN=%04x CC=%04x\n", 88 stringify(OP) "w", s0, s2, s1, res, iflags, flags & CC_MASK); 89 } 90 91 #endif 92 93 #ifndef OP_NOBYTE 94 void exec_opb(int s0, int s1, int iflags) 95 { 96 int res, flags; 97 res = s0; 98 flags = iflags; 99 EXECSHIFT("b", res, s1, 0, flags); 100 /* overflow is undefined if count != 1 */ 101 if (s1 != 1) 102 flags &= ~CC_O; 103 printf("%-10s A=%08x B=%08x R=%08x CCIN=%04x CC=%04x\n", 104 stringify(OP) "b", s0, s1, res, iflags, flags & CC_MASK); 105 } 106 #endif 107 108 void exec_op(int s2, int s0, int s1) 109 { 110 int o,s,z,a,c,p,flags_in; 111 for (o = 0; o < 2; o++) { 112 for (s = 0; s < 2; s++) { 113 for (z = 0; z < 2; z++) { 114 for (a = 0; a < 2; a++) { 115 for (c = 0; c < 2; c++) { 116 for (p = 0; p < 2; p++) { 117 118 flags_in = (o ? CC_O : 0) 119 | (s ? CC_S : 0) 120 | (z ? CC_Z : 0) 121 | (a ? CC_A : 0) 122 | (c ? CC_C : 0) 123 | (p ? CC_P : 0); 124 125 exec_opl(s2, s0, s1, flags_in); 126 #ifdef OP_SHIFTD 127 if (s1 <= 15) 128 exec_opw(s2, s0, s1, flags_in); 129 #else 130 exec_opw(s2, s0, s1, flags_in); 131 #endif 132 #ifndef OP_NOBYTE 133 exec_opb(s0, s1, flags_in); 134 #endif 135 #ifdef OP_CC 136 exec_opl(s2, s0, s1, flags_in); 137 exec_opw(s2, s0, s1, flags_in); 138 exec_opb(s0, s1, flags_in); 139 #endif 140 141 }}}}}} 142 143 } 144 145 void glue(test_, OP)(void) 146 { 147 int i; 148 for(i = 0; i < 32; i++) 149 exec_op(0x21ad3d34, 0x12345678, i); 150 for(i = 0; i < 32; i++) 151 exec_op(0x813f3421, 0x82345678, i); 152 } 153 154 void *glue(_test_, OP) __init_call = glue(test_, OP); 155 156 #undef OP 157 #undef OP_CC 158 #undef OP_SHIFTD 159 #undef OP_NOBYTE 160 #undef EXECSHIFT 161 162
