/* * i386 micro operations (included several times to generate * different operand sizes) * * Copyright (c) 2003 Fabrice Bellard * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifdef MEM_WRITE #if DATA_BITS == 8 #define MEM_SUFFIX b_mem #elif DATA_BITS == 16 #define MEM_SUFFIX w_mem #elif DATA_BITS == 32 #define MEM_SUFFIX l_mem #endif #else #define MEM_SUFFIX SUFFIX #endif void OPPROTO glue(glue(op_rol, MEM_SUFFIX), _T0_T1_cc)(void) { int count, src; count = T1 & SHIFT_MASK; if (count) { src = T0; T0 &= DATA_MASK; T0 = (T0 << count) | (T0 >> (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #else /* gcc 3.2 workaround. This is really a bug in gcc. */ asm volatile("" : : "r" (T0)); #endif CC_SRC = (cc_table[CC_OP].compute_all() & ~(CC_O | CC_C)) | (lshift(src ^ T0, 11 - (DATA_BITS - 1)) & CC_O) | (T0 & CC_C); CC_OP = CC_OP_EFLAGS; } FORCE_RET(); } void OPPROTO glue(glue(op_ror, MEM_SUFFIX), _T0_T1_cc)(void) { int count, src; count = T1 & SHIFT_MASK; if (count) { src = T0; T0 &= DATA_MASK; T0 = (T0 >> count) | (T0 << (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #else /* gcc 3.2 workaround. This is really a bug in gcc. */ asm volatile("" : : "r" (T0)); #endif CC_SRC = (cc_table[CC_OP].compute_all() & ~(CC_O | CC_C)) | (lshift(src ^ T0, 11 - (DATA_BITS - 1)) & CC_O) | ((T0 >> (DATA_BITS - 1)) & CC_C); CC_OP = CC_OP_EFLAGS; } FORCE_RET(); } void OPPROTO glue(glue(op_rol, MEM_SUFFIX), _T0_T1)(void) { int count; count = T1 & SHIFT_MASK; if (count) { T0 &= DATA_MASK; T0 = (T0 << count) | (T0 >> (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif } FORCE_RET(); } void OPPROTO glue(glue(op_ror, MEM_SUFFIX), _T0_T1)(void) { int count; count = T1 & SHIFT_MASK; if (count) { T0 &= DATA_MASK; T0 = (T0 >> count) | (T0 << (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif } FORCE_RET(); } void OPPROTO glue(glue(op_rcl, MEM_SUFFIX), _T0_T1_cc)(void) { int count, res, eflags; unsigned int src; count = T1 & 0x1f; #if DATA_BITS == 16 count = rclw_table[count]; #elif DATA_BITS == 8 count = rclb_table[count]; #endif if (count) { eflags = cc_table[CC_OP].compute_all(); T0 &= DATA_MASK; src = T0; res = (T0 << count) | ((eflags & CC_C) << (count - 1)); if (count > 1) res |= T0 >> (DATA_BITS + 1 - count); T0 = res; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = (eflags & ~(CC_C | CC_O)) | (lshift(src ^ T0, 11 - (DATA_BITS - 1)) & CC_O) | ((src >> (DATA_BITS - count)) & CC_C); CC_OP = CC_OP_EFLAGS; } FORCE_RET(); } void OPPROTO glue(glue(op_rcr, MEM_SUFFIX), _T0_T1_cc)(void) { int count, res, eflags; unsigned int src; count = T1 & 0x1f; #if DATA_BITS == 16 count = rclw_table[count]; #elif DATA_BITS == 8 count = rclb_table[count]; #endif if (count) { eflags = cc_table[CC_OP].compute_all(); T0 &= DATA_MASK; src = T0; res = (T0 >> count) | ((eflags & CC_C) << (DATA_BITS - count)); if (count > 1) res |= T0 << (DATA_BITS + 1 - count); T0 = res; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = (eflags & ~(CC_C | CC_O)) | (lshift(src ^ T0, 11 - (DATA_BITS - 1)) & CC_O) | ((src >> (count - 1)) & CC_C); CC_OP = CC_OP_EFLAGS; } FORCE_RET(); } void OPPROTO glue(glue(op_shl, MEM_SUFFIX), _T0_T1_cc)(void) { int count, src; count = T1 & 0x1f; if (count) { src = (DATA_TYPE)T0 << (count - 1); T0 = T0 << count; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = src; CC_DST = T0; CC_OP = CC_OP_SHLB + SHIFT; } FORCE_RET(); } void OPPROTO glue(glue(op_shr, MEM_SUFFIX), _T0_T1_cc)(void) { int count, src; count = T1 & 0x1f; if (count) { T0 &= DATA_MASK; src = T0 >> (count - 1); T0 = T0 >> count; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = src; CC_DST = T0; CC_OP = CC_OP_SARB + SHIFT; } FORCE_RET(); } void OPPROTO glue(glue(op_sar, MEM_SUFFIX), _T0_T1_cc)(void) { int count, src; count = T1 & 0x1f; if (count) { src = (DATA_STYPE)T0; T0 = src >> count; src = src >> (count - 1); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = src; CC_DST = T0; CC_OP = CC_OP_SARB + SHIFT; } FORCE_RET(); } #if DATA_BITS == 16 /* XXX: overflow flag might be incorrect in some cases in shldw */ void OPPROTO glue(glue(op_shld, MEM_SUFFIX), _T0_T1_im_cc)(void) { int count; unsigned int res, tmp; count = PARAM1; T1 &= 0xffff; res = T1 | (T0 << 16); tmp = res >> (32 - count); res <<= count; if (count > 16) res |= T1 << (count - 16); T0 = res >> 16; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; } void OPPROTO glue(glue(op_shld, MEM_SUFFIX), _T0_T1_ECX_cc)(void) { int count; unsigned int res, tmp; count = ECX & 0x1f; if (count) { T1 &= 0xffff; res = T1 | (T0 << 16); tmp = res >> (32 - count); res <<= count; if (count > 16) res |= T1 << (count - 16); T0 = res >> 16; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; CC_OP = CC_OP_SARB + SHIFT; } FORCE_RET(); } void OPPROTO glue(glue(op_shrd, MEM_SUFFIX), _T0_T1_im_cc)(void) { int count; unsigned int res, tmp; count = PARAM1; res = (T0 & 0xffff) | (T1 << 16); tmp = res >> (count - 1); res >>= count; if (count > 16) res |= T1 << (32 - count); T0 = res; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; } void OPPROTO glue(glue(op_shrd, MEM_SUFFIX), _T0_T1_ECX_cc)(void) { int count; unsigned int res, tmp; count = ECX & 0x1f; if (count) { res = (T0 & 0xffff) | (T1 << 16); tmp = res >> (count - 1); res >>= count; if (count > 16) res |= T1 << (32 - count); T0 = res; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; CC_OP = CC_OP_SARB + SHIFT; } FORCE_RET(); } #endif #if DATA_BITS == 32 void OPPROTO glue(glue(op_shld, MEM_SUFFIX), _T0_T1_im_cc)(void) { int count, tmp; count = PARAM1; T0 &= DATA_MASK; T1 &= DATA_MASK; tmp = T0 << (count - 1); T0 = (T0 << count) | (T1 >> (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; } void OPPROTO glue(glue(op_shld, MEM_SUFFIX), _T0_T1_ECX_cc)(void) { int count, tmp; count = ECX & 0x1f; if (count) { T0 &= DATA_MASK; T1 &= DATA_MASK; tmp = T0 << (count - 1); T0 = (T0 << count) | (T1 >> (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; CC_OP = CC_OP_SHLB + SHIFT; } FORCE_RET(); } void OPPROTO glue(glue(op_shrd, MEM_SUFFIX), _T0_T1_im_cc)(void) { int count, tmp; count = PARAM1; T0 &= DATA_MASK; T1 &= DATA_MASK; tmp = T0 >> (count - 1); T0 = (T0 >> count) | (T1 << (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; } void OPPROTO glue(glue(op_shrd, MEM_SUFFIX), _T0_T1_ECX_cc)(void) { int count, tmp; count = ECX & 0x1f; if (count) { T0 &= DATA_MASK; T1 &= DATA_MASK; tmp = T0 >> (count - 1); T0 = (T0 >> count) | (T1 << (DATA_BITS - count)); #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = tmp; CC_DST = T0; CC_OP = CC_OP_SARB + SHIFT; } FORCE_RET(); } #endif /* carry add/sub (we only need to set CC_OP differently) */ void OPPROTO glue(glue(op_adc, MEM_SUFFIX), _T0_T1_cc)(void) { int cf; cf = cc_table[CC_OP].compute_c(); T0 = T0 + T1 + cf; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = T1; CC_DST = T0; CC_OP = CC_OP_ADDB + SHIFT + cf * 3; } void OPPROTO glue(glue(op_sbb, MEM_SUFFIX), _T0_T1_cc)(void) { int cf; cf = cc_table[CC_OP].compute_c(); T0 = T0 - T1 - cf; #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = T1; CC_DST = T0; CC_OP = CC_OP_SUBB + SHIFT + cf * 3; } void OPPROTO glue(glue(op_cmpxchg, MEM_SUFFIX), _T0_T1_EAX_cc)(void) { unsigned int src, dst; src = T0; dst = EAX - T0; if ((DATA_TYPE)dst == 0) { T0 = T1; } else { EAX = (EAX & ~DATA_MASK) | (T0 & DATA_MASK); } #ifdef MEM_WRITE glue(st, SUFFIX)((uint8_t *)A0, T0); #endif CC_SRC = src; CC_DST = dst; FORCE_RET(); } #undef MEM_SUFFIX #undef MEM_WRITE