1 #ifndef __VMM_EMULATE_H
2 #define __VMM_EMULATE_H
3 #include <palacios/vm_guest.h>
4 #include <palacios/vmm.h>
7 * This is where we do the hideous X86 instruction parsing among other things
8 * We can parse out the instruction prefixes, as well as decode the operands
11 typedef enum {INVALID_OPERAND, REG_OPERAND, MEM_OPERAND} operand_type_t;
22 struct x86_prefix_list {
26 /* This parses an instruction
27 * All addresses in arguments are in the host address space
29 int v3_parse_instr(struct guest_info * info, // input
30 char * instr_ptr, // input
31 uint_t * instr_length, // output
32 addr_t * opcode, // output
33 uint_t * opcode_length, // output
34 struct x86_prefix_list * prefixes, // output
35 struct x86_operand * src_operand, // output
36 struct x86_operand * dst_operand, // output
37 struct x86_operand * extra_operand); // output
42 * JRL: Some of this was taken from the Xen sources...
45 #define PACKED __attribute__((packed))
47 #define MODRM_MOD(x) ((x >> 6) & 0x3)
48 #define MODRM_REG(x) ((x >> 3) & 0x7)
49 #define MODRM_RM(x) (x & 0x7)
53 uint_t reg : 3 PACKED;
54 uint_t mod : 2 PACKED;
58 #define SIB_BASE(x) ((x >> 6) & 0x3)
59 #define SIB_INDEX(x) ((x >> 3) & 0x7)
60 #define SIB_SCALE(x) (x & 0x7)
63 uint_t base : 3 PACKED;
64 uint_t index : 3 PACKED;
65 uint_t scale : 2 PACKED;
70 #define MAKE_INSTR(nm, ...) static const uchar_t OPCODE_##nm[] = { __VA_ARGS__ }
73 * Here's how it works:
75 * Following bytes: Opcode bytes.
76 * Special case: Last byte, if zero, doesn't need to match.
78 MAKE_INSTR(INVD, 2, 0x0f, 0x08);
79 MAKE_INSTR(CPUID, 2, 0x0f, 0xa2);
80 MAKE_INSTR(RDMSR, 2, 0x0f, 0x32);
81 MAKE_INSTR(WRMSR, 2, 0x0f, 0x30);
82 MAKE_INSTR(RDTSC, 2, 0x0f, 0x31);
83 MAKE_INSTR(RDTSCP, 3, 0x0f, 0x01, 0xf9);
84 MAKE_INSTR(CLI, 1, 0xfa);
85 MAKE_INSTR(STI, 1, 0xfb);
86 MAKE_INSTR(RDPMC, 2, 0x0f, 0x33);
87 MAKE_INSTR(CLGI, 3, 0x0f, 0x01, 0xdd);
88 MAKE_INSTR(STGI, 3, 0x0f, 0x01, 0xdc);
89 MAKE_INSTR(VMRUN, 3, 0x0f, 0x01, 0xd8);
90 MAKE_INSTR(VMLOAD, 3, 0x0f, 0x01, 0xda);
91 MAKE_INSTR(VMSAVE, 3, 0x0f, 0x01, 0xdb);
92 MAKE_INSTR(VMCALL, 3, 0x0f, 0x01, 0xd9);
93 MAKE_INSTR(PAUSE, 2, 0xf3, 0x90);
94 MAKE_INSTR(SKINIT, 3, 0x0f, 0x01, 0xde);
95 MAKE_INSTR(MOV2CR, 3, 0x0f, 0x22, 0x00);
96 MAKE_INSTR(MOVCR2, 3, 0x0f, 0x20, 0x00);
97 MAKE_INSTR(MOV2DR, 3, 0x0f, 0x23, 0x00);
98 MAKE_INSTR(MOVDR2, 3, 0x0f, 0x21, 0x00);
99 MAKE_INSTR(PUSHF, 1, 0x9c);
100 MAKE_INSTR(POPF, 1, 0x9d);
101 MAKE_INSTR(RSM, 2, 0x0f, 0xaa);
102 MAKE_INSTR(INVLPG, 3, 0x0f, 0x01, 0x00);
103 MAKE_INSTR(INVLPGA,3, 0x0f, 0x01, 0xdf);
104 MAKE_INSTR(HLT, 1, 0xf4);
105 MAKE_INSTR(CLTS, 2, 0x0f, 0x06);
106 MAKE_INSTR(LMSW, 3, 0x0f, 0x01, 0x00);
107 MAKE_INSTR(SMSW, 3, 0x0f, 0x01, 0x00);
110 static const uchar_t PREFIX_LOCK = 0xF0;
111 static const uchar_t PREFIX_REPNE = 0xF2;
112 static const uchar_t PREFIX_REPNZ = 0xF2;
113 static const uchar_t PREFIX_REP = 0xF3;
114 static const uchar_t PREFIX_REPE = 0xF3;
115 static const uchar_t PREFIX_REPZ = 0xF3;
116 static const uchar_t PREFIX_CS_OVERRIDE = 0x2E;
117 static const uchar_t PREFIX_SS_OVERRIDE = 0x36;
118 static const uchar_t PREFIX_DS_OVERRIDE = 0x3E;
119 static const uchar_t PREFIX_ES_OVERRIDE = 0x26;
120 static const uchar_t PREFIX_FS_OVERRIDE = 0x64;
121 static const uchar_t PREFIX_GS_OVERRIDE = 0x65;
122 static const uchar_t PREFIX_BR_NOT_TAKEN = 0x2E;
123 static const uchar_t PREFIX_BR_TAKEN = 0x3E;
124 static const uchar_t PREFIX_OP_SIZE = 0x66;
125 static const uchar_t PREFIX_ADDR_SIZE = 0x67;
127 static inline int is_prefix_byte(char byte) {
130 case 0xF2: // REPNE/REPNZ
131 case 0xF3: // REP or REPE/REPZ
132 case 0x2E: // CS override or Branch hint not taken (with Jcc instrs)
133 case 0x36: // SS override
134 case 0x3E: // DS override or Branch hint taken (with Jcc instrs)
135 case 0x26: // ES override
136 case 0x64: // FS override
137 case 0x65: // GS override
138 //case 0x2E: // branch not taken hint
139 // case 0x3E: // branch taken hint
140 case 0x66: // operand size override
141 case 0x67: // address size override
151 static inline v3_reg_t get_gpr_mask(struct guest_info * info) {
152 switch (info->cpu_mode) {
165 static inline addr_t get_addr_linear(struct guest_info * info, addr_t addr, struct v3_segment * seg) {
166 switch (info->cpu_mode) {
168 return addr + (seg->selector << 4);
171 return addr + seg->base;
180 typedef enum {INVALID_ADDR_TYPE, REG, DISP0, DISP8, DISP16, DISP32} modrm_mode_t;
181 typedef enum {INVALID_REG_SIZE, REG64, REG32, REG16, REG8} reg_size_t;
190 static inline addr_t decode_register(struct v3_gprs * gprs, char reg_code, reg_size_t reg_size) {
195 reg_addr = (addr_t)&(gprs->rax);
198 reg_addr = (addr_t)&(gprs->rcx);
201 reg_addr = (addr_t)&(gprs->rdx);
204 reg_addr = (addr_t)&(gprs->rbx);
207 if (reg_size == REG8) {
208 reg_addr = (addr_t)&(gprs->rax) + 1;
210 reg_addr = (addr_t)&(gprs->rsp);
214 if (reg_size == REG8) {
215 reg_addr = (addr_t)&(gprs->rcx) + 1;
217 reg_addr = (addr_t)&(gprs->rbp);
221 if (reg_size == REG8) {
222 reg_addr = (addr_t)&(gprs->rdx) + 1;
224 reg_addr = (addr_t)&(gprs->rsi);
228 if (reg_size == REG8) {
229 reg_addr = (addr_t)&(gprs->rbx) + 1;
231 reg_addr = (addr_t)&(gprs->rdi);
244 static inline operand_type_t decode_operands16(struct v3_gprs * gprs, // input/output
245 char * modrm_instr, // input
246 int * offset, // output
247 addr_t * first_operand, // output
248 addr_t * second_operand, // output
249 reg_size_t reg_size) { // input
251 struct modrm_byte * modrm = (struct modrm_byte *)modrm_instr;
252 addr_t base_addr = 0;
253 modrm_mode_t mod_mode = 0;
254 operand_type_t addr_type = INVALID_OPERAND;
255 char * instr_cursor = modrm_instr;
257 PrintDebug("ModRM mod=%d\n", modrm->mod);
261 if (modrm->mod == 3) {
263 addr_type = REG_OPERAND;
264 PrintDebug("first operand = Register (RM=%d)\n",modrm->rm);
266 *first_operand = decode_register(gprs, modrm->rm, reg_size);
270 addr_type = MEM_OPERAND;
272 if (modrm->mod == 0) {
274 } else if (modrm->mod == 1) {
276 } else if (modrm->mod == 2) {
282 base_addr = gprs->rbx + gprs->rsi;
285 base_addr = gprs->rbx + gprs->rdi;
288 base_addr = gprs->rbp + gprs->rsi;
291 base_addr = gprs->rbp + gprs->rdi;
294 base_addr = gprs->rsi;
297 base_addr = gprs->rdi;
300 if (modrm->mod == 0) {
304 base_addr = gprs->rbp;
308 base_addr = gprs->rbx;
314 if (mod_mode == DISP8) {
315 base_addr += (uchar_t)*(instr_cursor);
317 } else if (mod_mode == DISP16) {
318 base_addr += (ushort_t)*(instr_cursor);
322 *first_operand = base_addr;
325 *offset += (instr_cursor - modrm_instr);
326 *second_operand = decode_register(gprs, modrm->reg, reg_size);
333 static inline operand_type_t decode_operands32(struct v3_gprs * gprs, // input/output
334 char * modrm_instr, // input
335 int * offset, // output
336 addr_t * first_operand, // output
337 addr_t * second_operand, // output
338 reg_size_t reg_size) { // input
340 char * instr_cursor = modrm_instr;
341 struct modrm_byte * modrm = (struct modrm_byte *)modrm_instr;
342 addr_t base_addr = 0;
343 modrm_mode_t mod_mode = 0;
344 uint_t has_sib_byte = 0;
345 operand_type_t addr_type = INVALID_OPERAND;
351 if (modrm->mod == 3) {
353 addr_type = REG_OPERAND;
355 PrintDebug("first operand = Register (RM=%d)\n",modrm->rm);
357 *first_operand = decode_register(gprs, modrm->rm, reg_size);
361 addr_type = MEM_OPERAND;
363 if (modrm->mod == 0) {
365 } else if (modrm->mod == 1) {
367 } else if (modrm->mod == 2) {
373 base_addr = gprs->rax;
376 base_addr = gprs->rcx;
379 base_addr = gprs->rdx;
382 base_addr = gprs->rbx;
388 if (modrm->mod == 0) {
392 base_addr = gprs->rbp;
396 base_addr = gprs->rsi;
399 base_addr = gprs->rdi;
405 struct sib_byte * sib = (struct sib_byte *)(instr_cursor);
411 if (sib->scale == 1) {
413 } else if (sib->scale == 2) {
415 } else if (sib->scale == 3) {
420 switch (sib->index) {
422 base_addr = gprs->rax;
425 base_addr = gprs->rcx;
428 base_addr = gprs->rdx;
431 base_addr = gprs->rbx;
437 base_addr = gprs->rbp;
440 base_addr = gprs->rsi;
443 base_addr = gprs->rdi;
452 base_addr += gprs->rax;
455 base_addr += gprs->rcx;
458 base_addr += gprs->rdx;
461 base_addr += gprs->rbx;
464 base_addr += gprs->rsp;
467 if (modrm->mod != 0) {
468 base_addr += gprs->rbp;
472 base_addr += gprs->rsi;
475 base_addr += gprs->rdi;
482 if (mod_mode == DISP8) {
483 base_addr += (uchar_t)*(instr_cursor);
485 } else if (mod_mode == DISP32) {
486 base_addr += (uint_t)*(instr_cursor);
491 *first_operand = base_addr;
494 *offset += (instr_cursor - modrm_instr);
496 *second_operand = decode_register(gprs, modrm->reg, reg_size);