00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 #define DATA_BITS (1 << (3 + SHIFT))
00021 #define SHIFT_MASK (DATA_BITS - 1)
00022 #define SIGN_MASK (((target_ulong)1) << (DATA_BITS - 1))
00023 #if DATA_BITS <= 32
00024 #define SHIFT1_MASK 0x1f
00025 #else
00026 #define SHIFT1_MASK 0x3f
00027 #endif
00028
00029 #if DATA_BITS == 8
00030 #define SUFFIX b
00031 #define DATA_TYPE uint8_t
00032 #define DATA_STYPE int8_t
00033 #define DATA_MASK 0xff
00034 #elif DATA_BITS == 16
00035 #define SUFFIX w
00036 #define DATA_TYPE uint16_t
00037 #define DATA_STYPE int16_t
00038 #define DATA_MASK 0xffff
00039 #elif DATA_BITS == 32
00040 #define SUFFIX l
00041 #define DATA_TYPE uint32_t
00042 #define DATA_STYPE int32_t
00043 #define DATA_MASK 0xffffffff
00044 #elif DATA_BITS == 64
00045 #define SUFFIX q
00046 #define DATA_TYPE uint64_t
00047 #define DATA_STYPE int64_t
00048 #define DATA_MASK 0xffffffffffffffffULL
00049 #else
00050 #error unhandled operand size
00051 #endif
00052
00053
00054
00055 static int glue(compute_all_add, SUFFIX)(void)
00056 {
00057 int cf, pf, af, zf, sf, of;
00058 target_long src1, src2;
00059 src1 = CC_SRC;
00060 src2 = CC_DST - CC_SRC;
00061 cf = (DATA_TYPE)CC_DST < (DATA_TYPE)src1;
00062 pf = parity_table[(uint8_t)CC_DST];
00063 af = (CC_DST ^ src1 ^ src2) & 0x10;
00064 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00065 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00066 of = lshift((src1 ^ src2 ^ -1) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
00067 return cf | pf | af | zf | sf | of;
00068 }
00069
00070 static int glue(compute_c_add, SUFFIX)(void)
00071 {
00072 int cf;
00073 target_long src1;
00074 src1 = CC_SRC;
00075 cf = (DATA_TYPE)CC_DST < (DATA_TYPE)src1;
00076 return cf;
00077 }
00078
00079 static int glue(compute_all_adc, SUFFIX)(void)
00080 {
00081 int cf, pf, af, zf, sf, of;
00082 target_long src1, src2;
00083 src1 = CC_SRC;
00084 src2 = CC_DST - CC_SRC - 1;
00085 cf = (DATA_TYPE)CC_DST <= (DATA_TYPE)src1;
00086 pf = parity_table[(uint8_t)CC_DST];
00087 af = (CC_DST ^ src1 ^ src2) & 0x10;
00088 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00089 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00090 of = lshift((src1 ^ src2 ^ -1) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
00091 return cf | pf | af | zf | sf | of;
00092 }
00093
00094 static int glue(compute_c_adc, SUFFIX)(void)
00095 {
00096 int cf;
00097 target_long src1;
00098 src1 = CC_SRC;
00099 cf = (DATA_TYPE)CC_DST <= (DATA_TYPE)src1;
00100 return cf;
00101 }
00102
00103 static int glue(compute_all_sub, SUFFIX)(void)
00104 {
00105 int cf, pf, af, zf, sf, of;
00106 target_long src1, src2;
00107 src1 = CC_DST + CC_SRC;
00108 src2 = CC_SRC;
00109 cf = (DATA_TYPE)src1 < (DATA_TYPE)src2;
00110 pf = parity_table[(uint8_t)CC_DST];
00111 af = (CC_DST ^ src1 ^ src2) & 0x10;
00112 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00113 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00114 of = lshift((src1 ^ src2) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
00115 return cf | pf | af | zf | sf | of;
00116 }
00117
00118 static int glue(compute_c_sub, SUFFIX)(void)
00119 {
00120 int cf;
00121 target_long src1, src2;
00122 src1 = CC_DST + CC_SRC;
00123 src2 = CC_SRC;
00124 cf = (DATA_TYPE)src1 < (DATA_TYPE)src2;
00125 return cf;
00126 }
00127
00128 static int glue(compute_all_sbb, SUFFIX)(void)
00129 {
00130 int cf, pf, af, zf, sf, of;
00131 target_long src1, src2;
00132 src1 = CC_DST + CC_SRC + 1;
00133 src2 = CC_SRC;
00134 cf = (DATA_TYPE)src1 <= (DATA_TYPE)src2;
00135 pf = parity_table[(uint8_t)CC_DST];
00136 af = (CC_DST ^ src1 ^ src2) & 0x10;
00137 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00138 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00139 of = lshift((src1 ^ src2) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
00140 return cf | pf | af | zf | sf | of;
00141 }
00142
00143 static int glue(compute_c_sbb, SUFFIX)(void)
00144 {
00145 int cf;
00146 target_long src1, src2;
00147 src1 = CC_DST + CC_SRC + 1;
00148 src2 = CC_SRC;
00149 cf = (DATA_TYPE)src1 <= (DATA_TYPE)src2;
00150 return cf;
00151 }
00152
00153 static int glue(compute_all_logic, SUFFIX)(void)
00154 {
00155 int cf, pf, af, zf, sf, of;
00156 cf = 0;
00157 pf = parity_table[(uint8_t)CC_DST];
00158 af = 0;
00159 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00160 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00161 of = 0;
00162 return cf | pf | af | zf | sf | of;
00163 }
00164
00165 static int glue(compute_c_logic, SUFFIX)(void)
00166 {
00167 return 0;
00168 }
00169
00170 static int glue(compute_all_inc, SUFFIX)(void)
00171 {
00172 int cf, pf, af, zf, sf, of;
00173 target_long src1, src2;
00174 src1 = CC_DST - 1;
00175 src2 = 1;
00176 cf = CC_SRC;
00177 pf = parity_table[(uint8_t)CC_DST];
00178 af = (CC_DST ^ src1 ^ src2) & 0x10;
00179 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00180 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00181 of = ((CC_DST & DATA_MASK) == SIGN_MASK) << 11;
00182 return cf | pf | af | zf | sf | of;
00183 }
00184
00185 #if DATA_BITS == 32
00186 static int glue(compute_c_inc, SUFFIX)(void)
00187 {
00188 return CC_SRC;
00189 }
00190 #endif
00191
00192 static int glue(compute_all_dec, SUFFIX)(void)
00193 {
00194 int cf, pf, af, zf, sf, of;
00195 target_long src1, src2;
00196 src1 = CC_DST + 1;
00197 src2 = 1;
00198 cf = CC_SRC;
00199 pf = parity_table[(uint8_t)CC_DST];
00200 af = (CC_DST ^ src1 ^ src2) & 0x10;
00201 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00202 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00203 of = ((CC_DST & DATA_MASK) == ((target_ulong)SIGN_MASK - 1)) << 11;
00204 return cf | pf | af | zf | sf | of;
00205 }
00206
00207 static int glue(compute_all_shl, SUFFIX)(void)
00208 {
00209 int cf, pf, af, zf, sf, of;
00210 cf = (CC_SRC >> (DATA_BITS - 1)) & CC_C;
00211 pf = parity_table[(uint8_t)CC_DST];
00212 af = 0;
00213 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00214 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00215
00216 of = lshift(CC_SRC ^ CC_DST, 12 - DATA_BITS) & CC_O;
00217 return cf | pf | af | zf | sf | of;
00218 }
00219
00220 static int glue(compute_c_shl, SUFFIX)(void)
00221 {
00222 return (CC_SRC >> (DATA_BITS - 1)) & CC_C;
00223 }
00224
00225 #if DATA_BITS == 32
00226 static int glue(compute_c_sar, SUFFIX)(void)
00227 {
00228 return CC_SRC & 1;
00229 }
00230 #endif
00231
00232 static int glue(compute_all_sar, SUFFIX)(void)
00233 {
00234 int cf, pf, af, zf, sf, of;
00235 cf = CC_SRC & 1;
00236 pf = parity_table[(uint8_t)CC_DST];
00237 af = 0;
00238 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00239 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00240
00241 of = lshift(CC_SRC ^ CC_DST, 12 - DATA_BITS) & CC_O;
00242 return cf | pf | af | zf | sf | of;
00243 }
00244
00245 #if DATA_BITS == 32
00246 static int glue(compute_c_mul, SUFFIX)(void)
00247 {
00248 int cf;
00249 cf = (CC_SRC != 0);
00250 return cf;
00251 }
00252 #endif
00253
00254
00255
00256 static int glue(compute_all_mul, SUFFIX)(void)
00257 {
00258 int cf, pf, af, zf, sf, of;
00259 cf = (CC_SRC != 0);
00260 pf = parity_table[(uint8_t)CC_DST];
00261 af = 0;
00262 zf = ((DATA_TYPE)CC_DST == 0) << 6;
00263 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
00264 of = cf << 11;
00265 return cf | pf | af | zf | sf | of;
00266 }
00267
00268
00269
00270 target_ulong glue(helper_rcl, SUFFIX)(target_ulong t0, target_ulong t1)
00271 {
00272 int count, eflags;
00273 target_ulong src;
00274 target_long res;
00275
00276 count = t1 & SHIFT1_MASK;
00277 #if DATA_BITS == 16
00278 count = rclw_table[count];
00279 #elif DATA_BITS == 8
00280 count = rclb_table[count];
00281 #endif
00282 if (count) {
00283 eflags = helper_cc_compute_all(CC_OP);
00284 t0 &= DATA_MASK;
00285 src = t0;
00286 res = (t0 << count) | ((target_ulong)(eflags & CC_C) << (count - 1));
00287 if (count > 1)
00288 res |= t0 >> (DATA_BITS + 1 - count);
00289 t0 = res;
00290 env->cc_tmp = (eflags & ~(CC_C | CC_O)) |
00291 (lshift(src ^ t0, 11 - (DATA_BITS - 1)) & CC_O) |
00292 ((src >> (DATA_BITS - count)) & CC_C);
00293 } else {
00294 env->cc_tmp = -1;
00295 }
00296 return t0;
00297 }
00298
00299 target_ulong glue(helper_rcr, SUFFIX)(target_ulong t0, target_ulong t1)
00300 {
00301 int count, eflags;
00302 target_ulong src;
00303 target_long res;
00304
00305 count = t1 & SHIFT1_MASK;
00306 #if DATA_BITS == 16
00307 count = rclw_table[count];
00308 #elif DATA_BITS == 8
00309 count = rclb_table[count];
00310 #endif
00311 if (count) {
00312 eflags = helper_cc_compute_all(CC_OP);
00313 t0 &= DATA_MASK;
00314 src = t0;
00315 res = (t0 >> count) | ((target_ulong)(eflags & CC_C) << (DATA_BITS - count));
00316 if (count > 1)
00317 res |= t0 << (DATA_BITS + 1 - count);
00318 t0 = res;
00319 env->cc_tmp = (eflags & ~(CC_C | CC_O)) |
00320 (lshift(src ^ t0, 11 - (DATA_BITS - 1)) & CC_O) |
00321 ((src >> (count - 1)) & CC_C);
00322 } else {
00323 env->cc_tmp = -1;
00324 }
00325 return t0;
00326 }
00327
00328 #undef DATA_BITS
00329 #undef SHIFT_MASK
00330 #undef SHIFT1_MASK
00331 #undef SIGN_MASK
00332 #undef DATA_TYPE
00333 #undef DATA_STYPE
00334 #undef DATA_MASK
00335 #undef SUFFIX