diff options
| -rw-r--r-- | target-i386/translate-copy.c | 1323 |
1 files changed, 0 insertions, 1323 deletions
diff --git a/target-i386/translate-copy.c b/target-i386/translate-copy.c deleted file mode 100644 index d68764360b..0000000000 --- a/target-i386/translate-copy.c +++ /dev/null @@ -1,1323 +0,0 @@ -/* - * i386 on i386 translation - * - * 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 - */ -#include "config.h" - -#include <stdarg.h> -#include <stdlib.h> -#include <stdio.h> -#include <string.h> -#include <inttypes.h> -#include <assert.h> - -#include "cpu.h" -#include "exec-all.h" -#include "disas.h" - -#ifdef USE_CODE_COPY - -#include <signal.h> -#include <sys/mman.h> -#include <sys/ucontext.h> - -extern char exec_loop; - -/* operand size */ -enum { - OT_BYTE = 0, - OT_WORD, - OT_LONG, - OT_QUAD, -}; - -#define PREFIX_REPZ 0x01 -#define PREFIX_REPNZ 0x02 -#define PREFIX_LOCK 0x04 -#define PREFIX_DATA 0x08 -#define PREFIX_ADR 0x10 - -typedef struct DisasContext { - /* current insn context */ - int override; /* -1 if no override */ - int prefix; - int aflag, dflag; - target_ulong pc; /* pc = eip + cs_base */ - int is_jmp; /* 1 = means jump (stop translation), 2 means CPU - static state change (stop translation) */ - /* code output */ - uint8_t *gen_code_ptr; - uint8_t *gen_code_start; - - /* current block context */ - target_ulong cs_base; /* base of CS segment */ - int pe; /* protected mode */ - int code32; /* 32 bit code segment */ - int f_st; /* currently unused */ - int vm86; /* vm86 mode */ - int cpl; - int iopl; - int flags; - struct TranslationBlock *tb; -} DisasContext; - -#define CPU_FIELD_OFFSET(field) offsetof(CPUState, field) - -#define CPU_SEG 0x64 /* fs override */ - -static inline void gb(DisasContext *s, uint32_t val) -{ - *s->gen_code_ptr++ = val; -} - -static inline void gw(DisasContext *s, uint32_t val) -{ - *s->gen_code_ptr++ = val; - *s->gen_code_ptr++ = val >> 8; -} - -static inline void gl(DisasContext *s, uint32_t val) -{ - *s->gen_code_ptr++ = val; - *s->gen_code_ptr++ = val >> 8; - *s->gen_code_ptr++ = val >> 16; - *s->gen_code_ptr++ = val >> 24; -} - -static inline void gjmp(DisasContext *s, long val) -{ - gb(s, 0xe9); /* jmp */ - gl(s, val - (long)(s->gen_code_ptr + 4)); -} - -static inline void gen_movl_addr_im(DisasContext *s, - uint32_t addr, uint32_t val) -{ - gb(s, CPU_SEG); /* seg movl im, addr */ - gb(s, 0xc7); - gb(s, 0x05); - gl(s, addr); - gl(s, val); -} - -static inline void gen_movw_addr_im(DisasContext *s, - uint32_t addr, uint32_t val) -{ - gb(s, CPU_SEG); /* seg movl im, addr */ - gb(s, 0x66); - gb(s, 0xc7); - gb(s, 0x05); - gl(s, addr); - gw(s, val); -} - - -static void gen_jmp(DisasContext *s, uint32_t target_eip) -{ - TranslationBlock *tb = s->tb; - - gb(s, 0xe9); /* jmp */ - tb->tb_jmp_offset[0] = s->gen_code_ptr - s->gen_code_start; - gl(s, 0); - - tb->tb_next_offset[0] = s->gen_code_ptr - s->gen_code_start; - gen_movl_addr_im(s, CPU_FIELD_OFFSET(eip), target_eip); - gen_movl_addr_im(s, CPU_FIELD_OFFSET(tmp0), (uint32_t)tb); - gjmp(s, (long)&exec_loop); - - s->is_jmp = 1; -} - -static void gen_jcc(DisasContext *s, int op, - uint32_t target_eip, uint32_t next_eip) -{ - TranslationBlock *tb = s->tb; - - gb(s, 0x0f); /* jcc */ - gb(s, 0x80 + op); - tb->tb_jmp_offset[0] = s->gen_code_ptr - s->gen_code_start; - gl(s, 0); - gb(s, 0xe9); /* jmp */ - tb->tb_jmp_offset[1] = s->gen_code_ptr - s->gen_code_start; - gl(s, 0); - - tb->tb_next_offset[0] = s->gen_code_ptr - s->gen_code_start; - gen_movl_addr_im(s, CPU_FIELD_OFFSET(eip), target_eip); - gen_movl_addr_im(s, CPU_FIELD_OFFSET(tmp0), (uint32_t)tb); - gjmp(s, (long)&exec_loop); - - tb->tb_next_offset[1] = s->gen_code_ptr - s->gen_code_start; - gen_movl_addr_im(s, CPU_FIELD_OFFSET(eip), next_eip); - gen_movl_addr_im(s, CPU_FIELD_OFFSET(tmp0), (uint32_t)tb | 1); - gjmp(s, (long)&exec_loop); - - s->is_jmp = 1; -} - -static void gen_eob(DisasContext *s) -{ - gen_movl_addr_im(s, CPU_FIELD_OFFSET(tmp0), 0); - gjmp(s, (long)&exec_loop); - - s->is_jmp = 1; -} - -static inline void gen_lea_modrm(DisasContext *s, int modrm) -{ - int havesib; - int base, disp; - int index; - int scale; - int mod, rm, code; - - mod = (modrm >> 6) & 3; - rm = modrm & 7; - - if (s->aflag) { - - havesib = 0; - base = rm; - index = 0; - scale = 0; - - if (base == 4) { - havesib = 1; - code = ldub_code(s->pc++); - scale = (code >> 6) & 3; - index = (code >> 3) & 7; - base = code & 7; - } - - switch (mod) { - case 0: - if (base == 5) { - base = -1; - disp = ldl_code(s->pc); - s->pc += 4; - } else { - disp = 0; - } - break; - case 1: - disp = (int8_t)ldub_code(s->pc++); - break; - default: - case 2: - disp = ldl_code(s->pc); - s->pc += 4; - break; - } - - } else { - switch (mod) { - case 0: - if (rm == 6) { - disp = lduw_code(s->pc); - s->pc += 2; - } else { - disp = 0; - } - break; - case 1: - disp = (int8_t)ldub_code(s->pc++); - break; - default: - case 2: - disp = lduw_code(s->pc); - s->pc += 2; - break; - } - } -} - -static inline void parse_modrm(DisasContext *s, int modrm) -{ - if ((modrm & 0xc0) != 0xc0) - gen_lea_modrm(s, modrm); -} - -static inline uint32_t insn_get(DisasContext *s, int ot) -{ - uint32_t ret; - - switch(ot) { - case OT_BYTE: - ret = ldub_code(s->pc); - s->pc++; - break; - case OT_WORD: - ret = lduw_code(s->pc); - s->pc += 2; - break; - default: - case OT_LONG: - ret = ldl_code(s->pc); - s->pc += 4; - break; - } - return ret; -} - -/* convert one instruction. s->is_jmp is set if the translation must - be stopped. */ -static int disas_insn(DisasContext *s) -{ - target_ulong pc_start, pc_tmp, pc_start_insn; - int b, prefixes, aflag, dflag, next_eip, val; - int ot; - int modrm, mod, op, rm; - - pc_start = s->pc; - prefixes = 0; - aflag = s->code32; - dflag = s->code32; - s->override = -1; - next_byte: - b = ldub_code(s->pc); - s->pc++; - /* check prefixes */ - switch (b) { - case 0xf3: - prefixes |= PREFIX_REPZ; - goto next_byte; - case 0xf2: - prefixes |= PREFIX_REPNZ; - goto next_byte; - case 0xf0: - prefixes |= PREFIX_LOCK; - goto next_byte; - case 0x2e: - s->override = R_CS; - goto next_byte; - case 0x36: - s->override = R_SS; - goto next_byte; - case 0x3e: - s->override = R_DS; - goto next_byte; - case 0x26: - s->override = R_ES; - goto next_byte; - case 0x64: - s->override = R_FS; - goto next_byte; - case 0x65: - s->override = R_GS; - goto next_byte; - case 0x66: - prefixes |= PREFIX_DATA; - goto next_byte; - case 0x67: - prefixes |= PREFIX_ADR; - goto next_byte; - } - - if (prefixes & PREFIX_DATA) - dflag ^= 1; - if (prefixes & PREFIX_ADR) - aflag ^= 1; - - s->prefix = prefixes; - s->aflag = aflag; - s->dflag = dflag; - - /* lock generation */ - if (prefixes & PREFIX_LOCK) - goto unsupported_op; - if (s->override == R_FS || s->override == R_GS || s->override == R_CS) - goto unsupported_op; - - pc_start_insn = s->pc - 1; - /* now check op code */ - reswitch: - switch(b) { - case 0x0f: - /**************************/ - /* extended op code */ - b = ldub_code(s->pc++) | 0x100; - goto reswitch; - - /**************************/ - /* arith & logic */ - case 0x00 ... 0x05: - case 0x08 ... 0x0d: - case 0x10 ... 0x15: - case 0x18 ... 0x1d: - case 0x20 ... 0x25: - case 0x28 ... 0x2d: - case 0x30 ... 0x35: - case 0x38 ... 0x3d: - { - int f; - f = (b >> 1) & 3; - - if ((b & 1) == 0) - ot = OT_BYTE; - else - ot = dflag ? OT_LONG : OT_WORD; - - switch(f) { - case 0: /* OP Ev, Gv */ - modrm = ldub_code(s->pc++); - parse_modrm(s, modrm); - break; - case 1: /* OP Gv, Ev */ - modrm = ldub_code(s->pc++); - parse_modrm(s, modrm); - break; - case 2: /* OP A, Iv */ - insn_get(s, ot); - break; - } - } - break; - - case 0x80: /* GRP1 */ - case 0x81: - case 0x82: - case 0x83: - { - if ((b & 1) == 0) - ot = OT_BYTE; - else - ot = dflag ? OT_LONG : OT_WORD; - - modrm = ldub_code(s->pc++); - parse_modrm(s, modrm); - - switch(b) { - default: - case 0x80: - case 0x81: - case 0x82: - insn_get(s, ot); - break; - case 0x83: - insn_get(s, OT_BYTE); - break; - } - } - break; - - /**************************/ - /* inc, dec, and other misc arith */ - case 0x40 ... 0x47: /* inc Gv */ - break; - case 0x48 ... 0x4f: /* dec Gv */ - break; - case 0xf6: /* GRP3 */ - case 0xf7: - if ((b & 1) == 0) - ot = OT_BYTE; - else - ot = dflag ? OT_LONG : OT_WORD; - - modrm = ldub_code(s->pc++); - op = (modrm >> 3) & 7; - parse_modrm(s, modrm); - - switch(op) { - case 0: /* test */ - insn_get(s, ot); - break; - case 2: /* not */ - break; - case 3: /* neg */ - break; - case 4: /* mul */ - break; - case 5: /* imul */ - break; - case 6: /* div */ - break; - case 7: /* idiv */ - break; - default: - goto illegal_op; - } - break; - - case 0xfe: /* GRP4 */ - case 0xff: /* GRP5 */ - if ((b & 1) == 0) - ot = OT_BYTE; - else - ot = dflag ? OT_LONG : OT_WORD; - - modrm = ldub_code(s->pc++); - mod = (modrm >> 6) & 3; - op = (modrm >> 3) & 7; - if (op >= 2 && b == 0xfe) { - goto illegal_op; - } - pc_tmp = s->pc; - parse_modrm(s, modrm); - - switch(op) { - case 0: /* inc Ev */ - break; - case 1: /* dec Ev */ - break; - case 2: /* call Ev */ - /* XXX: optimize and handle MEM exceptions specifically - fs movl %eax, regs[0] - movl Ev, %eax - pushl next_eip - fs movl %eax, eip - */ - goto unsupported_op; - case 3: /* lcall Ev */ - goto unsupported_op; - case 4: /* jmp Ev */ - /* XXX: optimize and handle MEM exceptions specifically - fs movl %eax, regs[0] - movl Ev, %eax - fs movl %eax, eip - */ - goto unsupported_op; - case 5: /* ljmp Ev */ - goto unsupported_op; - case 6: /* push Ev */ - break; - default: - goto illegal_op; - } - break; - case 0xa8: /* test eAX, Iv */ - case 0xa9: - if ((b & 1) == 0) - ot = OT_BYTE; - else - ot = dflag ? OT_LONG : OT_WORD; - insn_get(s, ot); - break; - - case 0x98: /* CWDE/CBW */ - break; - case 0x99: /* CDQ/CWD */ - break; - case 0x1af: /* imul Gv, Ev */ - case 0x69: /* imul Gv, Ev, I */ - case 0x6b: - ot = dflag ? OT_LONG : OT_WORD; - modrm = ldub_code(s->pc++); - parse_modrm(s, modrm); - if (b == 0x69) { - insn_get(s, ot); - } else if (b == 0x6b) { - insn_get(s, OT_BYTE); - } else { - } - break; - - case 0x84: /* test Ev, Gv */ - case 0x85: - - case 0x1c0: - case 0x1c1: /* xadd Ev, Gv */ - - case 0x1b0: - case 0x1b1: /* cmpxchg Ev, Gv */ - - case 0x8f: /* pop Ev */ - - case 0x88: - case 0x89: /* mov Gv, Ev */ - - case 0x8a: - case 0x8b: /* mov Ev, Gv */ - - case 0x1b6: /* movzbS Gv, Eb */ - case 0x1b7: /* movzwS Gv, Eb */ - case 0x1be: /* movsbS Gv, Eb */ - case 0x1bf: /* movswS Gv, Eb */ - - case 0x86: - case 0x87: /* xchg Ev, Gv */ - - case 0xd0: - case 0xd1: /* shift Ev,1 */ - - case 0xd2: - case 0xd3: /* shift Ev,cl */ - - case 0x1a5: /* shld cl */ - case 0x1ad: /* shrd cl */ - - case 0x190 ... 0x19f: /* setcc Gv */ - - /* XXX: emulate cmov if not available ? */ - case 0x140 ... 0x14f: /* cmov Gv, Ev */ - - case 0x1a3: /* bt Gv, Ev */ - case 0x1ab: /* bts */ - case 0x1b3: /* btr */ - case 0x1bb: /* btc */ - - case 0x1bc: /* bsf */ - case 0x1bd: /* bsr */ - - modrm = ldub_code(s->pc++); - parse_modrm(s, modrm); - break; - - case 0x1c7: /* cmpxchg8b */ - modrm = ldub_code(s->pc++); - mod = (modrm >> 6) & 3; - if (mod == 3) - goto illegal_op; - parse_modrm(s, modrm); - break; - - /**************************/ - /* push/pop */ - case 0x50 ... 0x57: /* push */ - case 0x58 ... 0x5f: /* pop */ - case 0x60: /* pusha */ - case 0x61: /* popa */ - break; - - case 0x68: /* push Iv */ - case 0x6a: - ot = dflag ? OT_LONG : OT_WORD; - if (b == 0x68) - insn_get(s, ot); - else - insn_get(s, OT_BYTE); - break; - case 0xc8: /* enter */ - lduw_code(s->pc); - s->pc += 2; - ldub_code(s->pc++); - break; - case 0xc9: /* leave */ - break; - - case 0x06: /* push es */ - case 0x0e: /* push cs */ - case 0x16: /* push ss */ - case 0x1e: /* push ds */ - /* XXX: optimize: - push segs[n].selector - */ - goto unsupported_op; - case 0x1a0: /* push fs */ - case 0x1a8: /* push gs */ - goto unsupported_op; - case 0x07: /* pop es */ - case 0x17: /* pop ss */ - case 0x1f: /* pop ds */ - goto unsupported_op; - case 0x1a1: /* pop fs */ - case 0x1a9: /* pop gs */ - goto unsupported_op; - case 0x8e: /* mov seg, Gv */ - /* XXX: optimize: - fs movl r, regs[] - movl segs[].selector, r - mov r, Gv - fs movl regs[], r - */ - goto unsupported_op; - case 0x8c: /* mov Gv, seg */ - goto unsupported_op; - case 0xc4: /* les Gv */ - op = R_ES; - goto do_lxx; - case 0xc5: /* lds Gv */ - op = R_DS; - goto do_lxx; - case 0x1b2: /* lss Gv */ - op = R_SS; - goto do_lxx; - case 0x1b4: /* lfs Gv */ - op = R_FS; - goto do_lxx; - case 0x1b5: /* lgs Gv */ - op = R_GS; - do_lxx: - goto unsupported_op; - /************************/ - /* floats */ - case 0xd8 ... 0xdf: -#if 1 - /* currently not stable enough */ - goto unsupported_op; -#else - if (s->flags & (HF_EM_MASK | HF_TS_MASK)) - goto unsupported_op; -#endif -#if 0 - /* for testing FPU context switch */ - { - static int count; - count = (count + 1) % 3; - if (count != 0) - goto unsupported_op; - } -#endif - modrm = ldub_code(s->pc++); - mod = (modrm >> 6) & 3; - rm = modrm & 7; - op = ((b & 7) << 3) | ((modrm >> 3) & 7); - if (mod != 3) { - /* memory op */ - parse_modrm(s, modrm); - switch(op) { - case 0x00 ... 0x07: /* fxxxs */ - case 0x10 ... 0x17: /* fixxxl */ - case 0x20 ... 0x27: /* fxxxl */ - case 0x30 ... 0x37: /* fixxx */ - break; - case 0x08: /* flds */ - case 0x0a: /* fsts */ - case 0x0b: /* fstps */ - case 0x18: /* fildl */ - case 0x1a: /* fistl */ - case 0x1b: /* fistpl */ - case 0x28: /* fldl */ - case 0x2a: /* fstl */ - case 0x2b: /* fstpl */ - case 0x38: /* filds */ - case 0x3a: /* fists */ - case 0x3b: /* fistps */ - case 0x0c: /* fldenv mem */ - case 0x0d: /* fldcw mem */ - case 0x0e: /* fnstenv mem */ - case 0x0f: /* fnstcw mem */ - case 0x1d: /* fldt mem */ - case 0x1f: /* fstpt mem */ - case 0x2c: /* frstor mem */ - case 0x2e: /* fnsave mem */ - case 0x2f: /* fnstsw mem */ - case 0x3c: /* fbld */ - case 0x3e: /* fbstp */ - case 0x3d: /* fildll */ - case 0x3f: /* fistpll */ - break; - default: - goto illegal_op; - } - } else { - /* register float ops */ - switch(op) { - case 0x08: /* fld sti */ - case 0x09: /* fxchg sti */ - break; - case 0x0a: /* grp d9/2 */ - switch(rm) { - case 0: /* fnop */ - break; - default: - goto illegal_op; - } - break; - case 0x0c: /* grp d9/4 */ - switch(rm) { - case 0: /* fchs */ - case 1: /* fabs */ - case 4: /* ftst */ - case 5: /* fxam */ - break; - default: - goto illegal_op; - } - break; - case 0x0d: /* grp d9/5 */ - switch(rm) { - case 0: - case 1: - case 2: - case 3: - case 4: - case 5: - case 6: - break; - default: - goto illegal_op; - } - break; - case 0x0e: /* grp d9/6 */ - break; - case 0x0f: /* grp d9/7 */ - break; - case 0x00: case 0x01: case 0x04 ... 0x07: /* fxxx st, sti */ - case 0x20: case 0x21: case 0x24 ... 0x27: /* fxxx sti, st */ - case 0x30: case 0x31: case 0x34 ... 0x37: /* fxxxp sti, st */ - break; - case 0x02: /* fcom */ - break; - case 0x03: /* fcomp */ - break; - case 0x15: /* da/5 */ - switch(rm) { - case 1: /* fucompp */ - break; - default: - goto illegal_op; - } - break; - case 0x1c: - switch(rm) { - case 0: /* feni (287 only, just do nop here) */ - case 1: /* fdisi (287 only, just do nop here) */ - goto unsupported_op; - case 2: /* fclex */ - case 3: /* fninit */ - case 4: /* fsetpm (287 only, just do nop here) */ - break; - default: - goto illegal_op; - } - break; - case 0x1d: /* fucomi */ - break; - case 0x1e: /* fcomi */ - break; - case 0x28: /* ffree sti */ - break; - case 0x2a: /* fst sti */ - break; - case 0x2b: /* fstp sti */ - break; - case 0x2c: /* fucom st(i) */ - break; - case 0x2d: /* fucomp st(i) */ - break; - case 0x33: /* de/3 */ - switch(rm) { - case 1: /* fcompp */ - break; - default: - goto illegal_op; - } - break; - case 0x3c: /* df/4 */ - switch(rm) { - case 0: - break; - default: - goto illegal_op; - } - break; - case 0x3d: /* fucomip */ - break; - case 0x3e: /* fcomip */ - break; - case 0x10 ... 0x13: /* fcmovxx */ - case 0x18 ... 0x1b: - break; - default: - goto illegal_op; - } - } - s->tb->cflags |= CF_TB_FP_USED; - break; - - /**************************/ - /* mov */ - case 0xc6: - case 0xc7: /* mov Ev, Iv */ - if ((b & 1) == 0) - ot = OT_BYTE; - else - ot = dflag ? OT_LONG : OT_WORD; - modrm = ldub_code(s->pc++); - parse_modrm(s, modrm); - insn_get(s, ot); - break; - - case 0x8d: /* lea */ - ot = dflag ? OT_LONG : OT_WORD; - modrm = ldub_code(s->pc++); - mod = (modrm >> 6) & 3; - if (mod == 3) - goto illegal_op; - parse_modrm(s, modrm); - break; - - case 0xa0: /* mov EAX, Ov */ - case 0xa1: - case 0xa2: /* mov Ov, EAX */ - case 0xa3: - if ((b & 1) == 0) - ot = OT_BYTE; - else - ot = dflag ? OT_LONG : OT_WORD; - if (s->aflag) - insn_get(s, OT_LONG); - else - insn_get(s, OT_WORD); - break; - case 0xd7: /* xlat */ - break; - case 0xb0 ... 0xb7: /* mov R, Ib */ - insn_get(s, OT_BYTE); - break; - case 0xb8 ... 0xbf: /* mov R, Iv */ - ot = dflag ? OT_LONG : OT_WORD; - insn_get(s, ot); - break; - - case 0x91 ... 0x97: /* xchg R, EAX */ - break; - - /************************/ - /* shifts */ - case 0xc0: - case 0xc1: /* shift Ev,imm */ - - case 0x1a4: /* shld imm */ - case 0x1ac: /* shrd imm */ - modrm = ldub_code(s->pc++); - parse_modrm(s, modrm); - ldub_code(s->pc++); - break; - - /************************/ - /* string ops */ - - case 0xa4: /* movsS */ - case 0xa5: - break; - - case 0xaa: /* stosS */ - case 0xab: - break; - - case 0xac: /* lodsS */ - case 0xad: - break; - - case 0xae: /* scasS */ - case 0xaf: - break; - - case 0xa6: /* cmpsS */ - case 0xa7: - break; - - case 0x6c: /* insS */ - case 0x6d: - goto unsupported_op; - - case 0x6e: /* outsS */ - case 0x6f: - goto unsupported_op; - - /************************/ - /* port I/O */ - case 0xe4: - case 0xe5: - goto unsupported_op; - - case 0xe6: - case 0xe7: - goto unsupported_op; - - case 0xec: - case 0xed: - goto unsupported_op; - - case 0xee: - case 0xef: - goto unsupported_op; - - /************************/ - /* control */ -#if 0 - case 0xc2: /* ret im */ - val = ldsw_code(s->pc); - s->pc += 2; - gen_pop_T0(s); - gen_stack_update(s, val + (2 << s->dflag)); - if (s->dflag == 0) - gen_op_andl_T0_ffff(); - gen_op_jmp_T0(); - gen_eob(s); - break; -#endif - - case 0xc3: /* ret */ - gb(s, CPU_SEG); - if (!s->dflag) - gb(s, 0x66); /* d16 */ - gb(s, 0x8f); /* pop addr */ - gb(s, 0x05); - gl(s, CPU_FIELD_OFFSET(eip)); - if (!s->dflag) { - /* reset high bits of EIP */ - gen_movw_addr_im(s, CPU_FIELD_OFFSET(eip) + 2, 0); - } - gen_eob(s); - goto no_copy; - case 0xca: /* lret im */ - case 0xcb: /* lret */ - case 0xcf: /* iret */ - case 0x9a: /* lcall im */ - case 0xea: /* ljmp im */ - goto unsupported_op; - - case 0xe8: /* call im */ - ot = dflag ? OT_LONG : OT_WORD; - val = insn_get(s, ot); - next_eip = s->pc - s->cs_base; - val += next_eip; - if (s->dflag) { - gb(s, 0x68); /* pushl imm */ - gl(s, next_eip); - } else { - gb(s, 0x66); /* pushw imm */ - gb(s, 0x68); - gw(s, next_eip); - val &= 0xffff; - } - gen_jmp(s, val); - goto no_copy; - case 0xe9: /* jmp */ - ot = dflag ? OT_LONG : OT_WORD; - val = insn_get(s, ot); - val += s->pc - s->cs_base; - if (s->dflag == 0) - val = val & 0xffff; - gen_jmp(s, val); - goto no_copy; - case 0xeb: /* jmp Jb */ - val = (int8_t)insn_get(s, OT_BYTE); - val += s->pc - s->cs_base; - if (s->dflag == 0) - val = val & 0xffff; - gen_jmp(s, val); - goto no_copy; - case 0x70 ... 0x7f: /* jcc Jb */ - val = (int8_t)insn_get(s, OT_BYTE); - goto do_jcc; - case 0x180 ... 0x18f: /* jcc Jv */ - if (dflag) { - val = insn_get(s, OT_LONG); - } else { - val = (int16_t)insn_get(s, OT_WORD); - } - do_jcc: - next_eip = s->pc - s->cs_base; - val += next_eip; - if (s->dflag == 0) - val &= 0xffff; - gen_jcc(s, b & 0xf, val, next_eip); - goto no_copy; - - /************************/ - /* flags */ - case 0x9c: /* pushf */ - /* XXX: put specific code ? */ - goto unsupported_op; - case 0x9d: /* popf */ - goto unsupported_op; - - case 0x9e: /* sahf */ - case 0x9f: /* lahf */ - case 0xf5: /* cmc */ - case 0xf8: /* clc */ - case 0xf9: /* stc */ - case 0xfc: /* cld */ - case 0xfd: /* std */ - break; - - /************************/ - /* bit operations */ - case 0x1ba: /* bt/bts/btr/btc Gv, im */ - ot = dflag ? OT_LONG : OT_WORD; - modrm = ldub_code(s->pc++); - op = (modrm >> 3) & 7; - parse_modrm(s, modrm); - /* load shift */ - ldub_code(s->pc++); - if (op < 4) - goto illegal_op; - break; - /************************/ - /* bcd */ - case 0x27: /* daa */ - break; - case 0x2f: /* das */ - break; - case 0x37: /* aaa */ - break; - case 0x3f: /* aas */ - break; - case 0xd4: /* aam */ - ldub_code(s->pc++); - break; - case 0xd5: /* aad */ - ldub_code(s->pc++); - break; - /************************/ - /* misc */ - case 0x90: /* nop */ - break; - case 0x9b: /* fwait */ - if ((s->flags & (HF_MP_MASK | HF_TS_MASK)) == - (HF_MP_MASK | HF_TS_MASK)) { - goto unsupported_op; - } - break; - case 0xcc: /* int3 */ - goto unsupported_op; - case 0xcd: /* int N */ - goto unsupported_op; - case 0xce: /* into */ - goto unsupported_op; - case 0xf1: /* icebp (undocumented, exits to external debugger) */ - goto unsupported_op; - case 0xfa: /* cli */ - goto unsupported_op; - case 0xfb: /* sti */ - goto unsupported_op; - case 0x62: /* bound */ - modrm = ldub_code(s->pc++); - mod = (modrm >> 6) & 3; - if (mod == 3) - goto illegal_op; - parse_modrm(s, modrm); - break; - case 0x1c8 ... 0x1cf: /* bswap reg */ - break; - case 0xd6: /* salc */ - break; - case 0xe0: /* loopnz */ - case 0xe1: /* loopz */ - case 0xe2: /* loop */ - case 0xe3: /* jecxz */ - goto unsupported_op; - - case 0x130: /* wrmsr */ - case 0x132: /* rdmsr */ - goto unsupported_op; - case 0x131: /* rdtsc */ - goto unsupported_op; - case 0x1a2: /* cpuid */ - goto unsupported_op; - case 0xf4: /* hlt */ - goto unsupported_op; - case 0x100: - goto unsupported_op; - case 0x101: - goto unsupported_op; - case 0x108: /* invd */ - case 0x109: /* wbinvd */ - goto unsupported_op; - case 0x63: /* arpl */ - goto unsupported_op; - case 0x102: /* lar */ - case 0x103: /* lsl */ - goto unsupported_op; - case 0x118: - goto unsupported_op; - case 0x120: /* mov reg, crN */ - case 0x122: /* mov crN, reg */ - goto unsupported_op; - case 0x121: /* mov reg, drN */ - case 0x123: /* mov drN, reg */ - goto unsupported_op; - case 0x106: /* clts */ - goto unsupported_op; - default: - goto illegal_op; - } - - /* just copy the code */ - - /* no override yet */ - if (!s->dflag) - gb(s, 0x66); - if (!s->aflag) - gb(s, 0x67); - if (prefixes & PREFIX_REPZ) - gb(s, 0xf3); - else if (prefixes & PREFIX_REPNZ) - gb(s, 0xf2); - { - int len, i; - len = s->pc - pc_start_insn; - for(i = 0; i < len; i++) { - *s->gen_code_ptr++ = ldub_code(pc_start_insn + i); - } - } - no_copy: - return 0; - illegal_op: - unsupported_op: - /* fall back to slower code gen necessary */ - s->pc = pc_start; - return -1; -} - -#define GEN_CODE_MAX_SIZE 8192 -#define GEN_CODE_MAX_INSN_SIZE 512 - -static inline int gen_intermediate_code_internal(CPUState *env, - TranslationBlock *tb, - uint8_t *gen_code_ptr, - int *gen_code_size_ptr, - int search_pc, - uint8_t *tc_ptr) -{ - DisasContext dc1, *dc = &dc1; - target_ulong pc_insn, pc_start, cs_base; - uint8_t *gen_code_end; - int flags, ret; - - if (env->nb_breakpoints > 0 || - env->singlestep_enabled) - return -1; - flags = tb->flags; - if (flags & (HF_TF_MASK | HF_ADDSEG_MASK | - HF_SOFTMMU_MASK | HF_INHIBIT_IRQ_MASK)) - return -1; - if (!(flags & HF_SS32_MASK)) - return -1; - if (tb->cflags & CF_SINGLE_INSN) - return -1; - gen_code_end = gen_code_ptr + - GEN_CODE_MAX_SIZE - GEN_CODE_MAX_INSN_SIZE; - dc->gen_code_ptr = gen_code_ptr; - dc->gen_code_start = gen_code_ptr; - - /* generate intermediate code */ - pc_start = tb->pc; - cs_base = tb->cs_base; - dc->pc = pc_start; - dc->cs_base = cs_base; - dc->pe = (flags >> HF_PE_SHIFT) & 1; - dc->code32 = (flags >> HF_CS32_SHIFT) & 1; - dc->f_st = 0; - dc->vm86 = (flags >> VM_SHIFT) & 1; - dc->cpl = (flags >> HF_CPL_SHIFT) & 3; - dc->iopl = (flags >> IOPL_SHIFT) & 3; - dc->tb = tb; - dc->flags = flags; - - dc->is_jmp = 0; - - for(;;) { - pc_insn = dc->pc; - ret = disas_insn(dc); - if (ret < 0) { - /* unsupported insn */ - if (dc->pc == pc_start) { - /* if first instruction, signal that no copying was done */ - return -1; - } else { - gen_jmp(dc, dc->pc - dc->cs_base); - dc->is_jmp = 1; - } - } - if (search_pc) { - /* search pc mode */ - if (tc_ptr < dc->gen_code_ptr) { - env->eip = pc_insn - cs_base; - return 0; - } - } - /* stop translation if indicated */ - if (dc->is_jmp) - break; - /* if too long translation, stop generation */ - if (dc->gen_code_ptr >= gen_code_end || - (dc->pc - pc_start) >= (TARGET_PAGE_SIZE - 32)) { - gen_jmp(dc, dc->pc - dc->cs_base); - break; - } - } - -#ifdef DEBUG_DISAS - if (loglevel & CPU_LOG_TB_IN_ASM) { - fprintf(logfile, "----------------\n"); - fprintf(logfile, "IN: COPY: %s fpu=%d\n", - lookup_symbol(pc_start), - tb->cflags & CF_TB_FP_USED ? 1 : 0); - target_disas(logfile, pc_start, dc->pc - pc_start, !dc->code32); - fprintf(logfile, "\n"); - } -#endif - - if (!search_pc) { - *gen_code_size_ptr = dc->gen_code_ptr - dc->gen_code_start; - tb->size = dc->pc - pc_start; - tb->cflags |= CF_CODE_COPY; - return 0; - } else { - return -1; - } -} - -/* generate code by just copying data. Return -1 if cannot generate - any code. Return 0 if code was generated */ -int cpu_gen_code_copy(CPUState *env, TranslationBlock *tb, - int max_code_size, int *gen_code_size_ptr) -{ - /* generate machine code */ - tb->tb_next_offset[0] = 0xffff; - tb->tb_next_offset[1] = 0xffff; -#ifdef USE_DIRECT_JUMP - /* the following two entries are optional (only used for string ops) */ - tb->tb_jmp_offset[2] = 0xffff; - tb->tb_jmp_offset[3] = 0xffff; -#endif - return gen_intermediate_code_internal(env, tb, - tb->tc_ptr, gen_code_size_ptr, - 0, NULL); -} - -static uint8_t dummy_gen_code_buf[GEN_CODE_MAX_SIZE]; - -int cpu_restore_state_copy(TranslationBlock *tb, - CPUState *env, unsigned long searched_pc, - void *puc) -{ - struct ucontext *uc = puc; - int ret, eflags; - - /* find opc index corresponding to search_pc */ - if (searched_pc < (unsigned long)tb->tc_ptr) - return -1; - searched_pc = searched_pc - (long)tb->tc_ptr + (long)dummy_gen_code_buf; - ret = gen_intermediate_code_internal(env, tb, - dummy_gen_code_buf, NULL, - 1, (uint8_t *)searched_pc); - if (ret < 0) - return ret; - /* restore all the CPU state from the CPU context from the - signal. The FPU context stays in the host CPU. */ - - env->regs[R_EAX] = uc->uc_mcontext.gregs[REG_EAX]; - env->regs[R_ECX] = uc->uc_mcontext.gregs[REG_ECX]; - env->regs[R_EDX] = uc->uc_mcontext.gregs[REG_EDX]; - env->regs[R_EBX] = uc->uc_mcontext.gregs[REG_EBX]; - env->regs[R_ESP] = uc->uc_mcontext.gregs[REG_ESP]; - env->regs[R_EBP] = uc->uc_mcontext.gregs[REG_EBP]; - env->regs[R_ESI] = uc->uc_mcontext.gregs[REG_ESI]; - env->regs[R_EDI] = uc->uc_mcontext.gregs[REG_EDI]; - eflags = uc->uc_mcontext.gregs[REG_EFL]; - env->df = 1 - (2 * ((eflags >> 10) & 1)); - env->cc_src = eflags & (CC_O | CC_S | CC_Z | CC_A | CC_P | CC_C); - env->cc_op = CC_OP_EFLAGS; - return 0; -} - -#endif /* USE_CODE_COPY */ |