s390x: add compat machine for 2.7
[qemu.git] / target-i386 / misc_helper.c
blobe31ec976a48b526058756bc0bc914de565422cc3
1 /*
2 * x86 misc helpers
4 * Copyright (c) 2003 Fabrice Bellard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, see <http://www.gnu.org/licenses/>.
20 #include "qemu/osdep.h"
21 #include "cpu.h"
22 #include "exec/helper-proto.h"
23 #include "exec/cpu_ldst.h"
24 #include "exec/address-spaces.h"
26 void helper_outb(CPUX86State *env, uint32_t port, uint32_t data)
28 #ifdef CONFIG_USER_ONLY
29 fprintf(stderr, "outb: port=0x%04x, data=%02x\n", port, data);
30 #else
31 address_space_stb(&address_space_io, port, data,
32 cpu_get_mem_attrs(env), NULL);
33 #endif
36 target_ulong helper_inb(CPUX86State *env, uint32_t port)
38 #ifdef CONFIG_USER_ONLY
39 fprintf(stderr, "inb: port=0x%04x\n", port);
40 return 0;
41 #else
42 return address_space_ldub(&address_space_io, port,
43 cpu_get_mem_attrs(env), NULL);
44 #endif
47 void helper_outw(CPUX86State *env, uint32_t port, uint32_t data)
49 #ifdef CONFIG_USER_ONLY
50 fprintf(stderr, "outw: port=0x%04x, data=%04x\n", port, data);
51 #else
52 address_space_stw(&address_space_io, port, data,
53 cpu_get_mem_attrs(env), NULL);
54 #endif
57 target_ulong helper_inw(CPUX86State *env, uint32_t port)
59 #ifdef CONFIG_USER_ONLY
60 fprintf(stderr, "inw: port=0x%04x\n", port);
61 return 0;
62 #else
63 return address_space_lduw(&address_space_io, port,
64 cpu_get_mem_attrs(env), NULL);
65 #endif
68 void helper_outl(CPUX86State *env, uint32_t port, uint32_t data)
70 #ifdef CONFIG_USER_ONLY
71 fprintf(stderr, "outw: port=0x%04x, data=%08x\n", port, data);
72 #else
73 address_space_stl(&address_space_io, port, data,
74 cpu_get_mem_attrs(env), NULL);
75 #endif
78 target_ulong helper_inl(CPUX86State *env, uint32_t port)
80 #ifdef CONFIG_USER_ONLY
81 fprintf(stderr, "inl: port=0x%04x\n", port);
82 return 0;
83 #else
84 return address_space_ldl(&address_space_io, port,
85 cpu_get_mem_attrs(env), NULL);
86 #endif
89 void helper_into(CPUX86State *env, int next_eip_addend)
91 int eflags;
93 eflags = cpu_cc_compute_all(env, CC_OP);
94 if (eflags & CC_O) {
95 raise_interrupt(env, EXCP04_INTO, 1, 0, next_eip_addend);
99 void helper_cpuid(CPUX86State *env)
101 uint32_t eax, ebx, ecx, edx;
103 cpu_svm_check_intercept_param(env, SVM_EXIT_CPUID, 0);
105 cpu_x86_cpuid(env, (uint32_t)env->regs[R_EAX], (uint32_t)env->regs[R_ECX],
106 &eax, &ebx, &ecx, &edx);
107 env->regs[R_EAX] = eax;
108 env->regs[R_EBX] = ebx;
109 env->regs[R_ECX] = ecx;
110 env->regs[R_EDX] = edx;
113 #if defined(CONFIG_USER_ONLY)
114 target_ulong helper_read_crN(CPUX86State *env, int reg)
116 return 0;
119 void helper_write_crN(CPUX86State *env, int reg, target_ulong t0)
122 #else
123 target_ulong helper_read_crN(CPUX86State *env, int reg)
125 target_ulong val;
127 cpu_svm_check_intercept_param(env, SVM_EXIT_READ_CR0 + reg, 0);
128 switch (reg) {
129 default:
130 val = env->cr[reg];
131 break;
132 case 8:
133 if (!(env->hflags2 & HF2_VINTR_MASK)) {
134 val = cpu_get_apic_tpr(x86_env_get_cpu(env)->apic_state);
135 } else {
136 val = env->v_tpr;
138 break;
140 return val;
143 void helper_write_crN(CPUX86State *env, int reg, target_ulong t0)
145 cpu_svm_check_intercept_param(env, SVM_EXIT_WRITE_CR0 + reg, 0);
146 switch (reg) {
147 case 0:
148 cpu_x86_update_cr0(env, t0);
149 break;
150 case 3:
151 cpu_x86_update_cr3(env, t0);
152 break;
153 case 4:
154 cpu_x86_update_cr4(env, t0);
155 break;
156 case 8:
157 if (!(env->hflags2 & HF2_VINTR_MASK)) {
158 cpu_set_apic_tpr(x86_env_get_cpu(env)->apic_state, t0);
160 env->v_tpr = t0 & 0x0f;
161 break;
162 default:
163 env->cr[reg] = t0;
164 break;
167 #endif
169 void helper_lmsw(CPUX86State *env, target_ulong t0)
171 /* only 4 lower bits of CR0 are modified. PE cannot be set to zero
172 if already set to one. */
173 t0 = (env->cr[0] & ~0xe) | (t0 & 0xf);
174 helper_write_crN(env, 0, t0);
177 void helper_invlpg(CPUX86State *env, target_ulong addr)
179 X86CPU *cpu = x86_env_get_cpu(env);
181 cpu_svm_check_intercept_param(env, SVM_EXIT_INVLPG, 0);
182 tlb_flush_page(CPU(cpu), addr);
185 void helper_rdtsc(CPUX86State *env)
187 uint64_t val;
189 if ((env->cr[4] & CR4_TSD_MASK) && ((env->hflags & HF_CPL_MASK) != 0)) {
190 raise_exception_ra(env, EXCP0D_GPF, GETPC());
192 cpu_svm_check_intercept_param(env, SVM_EXIT_RDTSC, 0);
194 val = cpu_get_tsc(env) + env->tsc_offset;
195 env->regs[R_EAX] = (uint32_t)(val);
196 env->regs[R_EDX] = (uint32_t)(val >> 32);
199 void helper_rdtscp(CPUX86State *env)
201 helper_rdtsc(env);
202 env->regs[R_ECX] = (uint32_t)(env->tsc_aux);
205 void helper_rdpmc(CPUX86State *env)
207 if ((env->cr[4] & CR4_PCE_MASK) && ((env->hflags & HF_CPL_MASK) != 0)) {
208 raise_exception_ra(env, EXCP0D_GPF, GETPC());
210 cpu_svm_check_intercept_param(env, SVM_EXIT_RDPMC, 0);
212 /* currently unimplemented */
213 qemu_log_mask(LOG_UNIMP, "x86: unimplemented rdpmc\n");
214 raise_exception_err(env, EXCP06_ILLOP, 0);
217 #if defined(CONFIG_USER_ONLY)
218 void helper_wrmsr(CPUX86State *env)
222 void helper_rdmsr(CPUX86State *env)
225 #else
226 void helper_wrmsr(CPUX86State *env)
228 uint64_t val;
230 cpu_svm_check_intercept_param(env, SVM_EXIT_MSR, 1);
232 val = ((uint32_t)env->regs[R_EAX]) |
233 ((uint64_t)((uint32_t)env->regs[R_EDX]) << 32);
235 switch ((uint32_t)env->regs[R_ECX]) {
236 case MSR_IA32_SYSENTER_CS:
237 env->sysenter_cs = val & 0xffff;
238 break;
239 case MSR_IA32_SYSENTER_ESP:
240 env->sysenter_esp = val;
241 break;
242 case MSR_IA32_SYSENTER_EIP:
243 env->sysenter_eip = val;
244 break;
245 case MSR_IA32_APICBASE:
246 cpu_set_apic_base(x86_env_get_cpu(env)->apic_state, val);
247 break;
248 case MSR_EFER:
250 uint64_t update_mask;
252 update_mask = 0;
253 if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_SYSCALL) {
254 update_mask |= MSR_EFER_SCE;
256 if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_LM) {
257 update_mask |= MSR_EFER_LME;
259 if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_FFXSR) {
260 update_mask |= MSR_EFER_FFXSR;
262 if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_NX) {
263 update_mask |= MSR_EFER_NXE;
265 if (env->features[FEAT_8000_0001_ECX] & CPUID_EXT3_SVM) {
266 update_mask |= MSR_EFER_SVME;
268 if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_FFXSR) {
269 update_mask |= MSR_EFER_FFXSR;
271 cpu_load_efer(env, (env->efer & ~update_mask) |
272 (val & update_mask));
274 break;
275 case MSR_STAR:
276 env->star = val;
277 break;
278 case MSR_PAT:
279 env->pat = val;
280 break;
281 case MSR_VM_HSAVE_PA:
282 env->vm_hsave = val;
283 break;
284 #ifdef TARGET_X86_64
285 case MSR_LSTAR:
286 env->lstar = val;
287 break;
288 case MSR_CSTAR:
289 env->cstar = val;
290 break;
291 case MSR_FMASK:
292 env->fmask = val;
293 break;
294 case MSR_FSBASE:
295 env->segs[R_FS].base = val;
296 break;
297 case MSR_GSBASE:
298 env->segs[R_GS].base = val;
299 break;
300 case MSR_KERNELGSBASE:
301 env->kernelgsbase = val;
302 break;
303 #endif
304 case MSR_MTRRphysBase(0):
305 case MSR_MTRRphysBase(1):
306 case MSR_MTRRphysBase(2):
307 case MSR_MTRRphysBase(3):
308 case MSR_MTRRphysBase(4):
309 case MSR_MTRRphysBase(5):
310 case MSR_MTRRphysBase(6):
311 case MSR_MTRRphysBase(7):
312 env->mtrr_var[((uint32_t)env->regs[R_ECX] -
313 MSR_MTRRphysBase(0)) / 2].base = val;
314 break;
315 case MSR_MTRRphysMask(0):
316 case MSR_MTRRphysMask(1):
317 case MSR_MTRRphysMask(2):
318 case MSR_MTRRphysMask(3):
319 case MSR_MTRRphysMask(4):
320 case MSR_MTRRphysMask(5):
321 case MSR_MTRRphysMask(6):
322 case MSR_MTRRphysMask(7):
323 env->mtrr_var[((uint32_t)env->regs[R_ECX] -
324 MSR_MTRRphysMask(0)) / 2].mask = val;
325 break;
326 case MSR_MTRRfix64K_00000:
327 env->mtrr_fixed[(uint32_t)env->regs[R_ECX] -
328 MSR_MTRRfix64K_00000] = val;
329 break;
330 case MSR_MTRRfix16K_80000:
331 case MSR_MTRRfix16K_A0000:
332 env->mtrr_fixed[(uint32_t)env->regs[R_ECX] -
333 MSR_MTRRfix16K_80000 + 1] = val;
334 break;
335 case MSR_MTRRfix4K_C0000:
336 case MSR_MTRRfix4K_C8000:
337 case MSR_MTRRfix4K_D0000:
338 case MSR_MTRRfix4K_D8000:
339 case MSR_MTRRfix4K_E0000:
340 case MSR_MTRRfix4K_E8000:
341 case MSR_MTRRfix4K_F0000:
342 case MSR_MTRRfix4K_F8000:
343 env->mtrr_fixed[(uint32_t)env->regs[R_ECX] -
344 MSR_MTRRfix4K_C0000 + 3] = val;
345 break;
346 case MSR_MTRRdefType:
347 env->mtrr_deftype = val;
348 break;
349 case MSR_MCG_STATUS:
350 env->mcg_status = val;
351 break;
352 case MSR_MCG_CTL:
353 if ((env->mcg_cap & MCG_CTL_P)
354 && (val == 0 || val == ~(uint64_t)0)) {
355 env->mcg_ctl = val;
357 break;
358 case MSR_TSC_AUX:
359 env->tsc_aux = val;
360 break;
361 case MSR_IA32_MISC_ENABLE:
362 env->msr_ia32_misc_enable = val;
363 break;
364 case MSR_IA32_BNDCFGS:
365 /* FIXME: #GP if reserved bits are set. */
366 /* FIXME: Extend highest implemented bit of linear address. */
367 env->msr_bndcfgs = val;
368 cpu_sync_bndcs_hflags(env);
369 break;
370 default:
371 if ((uint32_t)env->regs[R_ECX] >= MSR_MC0_CTL
372 && (uint32_t)env->regs[R_ECX] < MSR_MC0_CTL +
373 (4 * env->mcg_cap & 0xff)) {
374 uint32_t offset = (uint32_t)env->regs[R_ECX] - MSR_MC0_CTL;
375 if ((offset & 0x3) != 0
376 || (val == 0 || val == ~(uint64_t)0)) {
377 env->mce_banks[offset] = val;
379 break;
381 /* XXX: exception? */
382 break;
386 void helper_rdmsr(CPUX86State *env)
388 uint64_t val;
390 cpu_svm_check_intercept_param(env, SVM_EXIT_MSR, 0);
392 switch ((uint32_t)env->regs[R_ECX]) {
393 case MSR_IA32_SYSENTER_CS:
394 val = env->sysenter_cs;
395 break;
396 case MSR_IA32_SYSENTER_ESP:
397 val = env->sysenter_esp;
398 break;
399 case MSR_IA32_SYSENTER_EIP:
400 val = env->sysenter_eip;
401 break;
402 case MSR_IA32_APICBASE:
403 val = cpu_get_apic_base(x86_env_get_cpu(env)->apic_state);
404 break;
405 case MSR_EFER:
406 val = env->efer;
407 break;
408 case MSR_STAR:
409 val = env->star;
410 break;
411 case MSR_PAT:
412 val = env->pat;
413 break;
414 case MSR_VM_HSAVE_PA:
415 val = env->vm_hsave;
416 break;
417 case MSR_IA32_PERF_STATUS:
418 /* tsc_increment_by_tick */
419 val = 1000ULL;
420 /* CPU multiplier */
421 val |= (((uint64_t)4ULL) << 40);
422 break;
423 #ifdef TARGET_X86_64
424 case MSR_LSTAR:
425 val = env->lstar;
426 break;
427 case MSR_CSTAR:
428 val = env->cstar;
429 break;
430 case MSR_FMASK:
431 val = env->fmask;
432 break;
433 case MSR_FSBASE:
434 val = env->segs[R_FS].base;
435 break;
436 case MSR_GSBASE:
437 val = env->segs[R_GS].base;
438 break;
439 case MSR_KERNELGSBASE:
440 val = env->kernelgsbase;
441 break;
442 case MSR_TSC_AUX:
443 val = env->tsc_aux;
444 break;
445 #endif
446 case MSR_MTRRphysBase(0):
447 case MSR_MTRRphysBase(1):
448 case MSR_MTRRphysBase(2):
449 case MSR_MTRRphysBase(3):
450 case MSR_MTRRphysBase(4):
451 case MSR_MTRRphysBase(5):
452 case MSR_MTRRphysBase(6):
453 case MSR_MTRRphysBase(7):
454 val = env->mtrr_var[((uint32_t)env->regs[R_ECX] -
455 MSR_MTRRphysBase(0)) / 2].base;
456 break;
457 case MSR_MTRRphysMask(0):
458 case MSR_MTRRphysMask(1):
459 case MSR_MTRRphysMask(2):
460 case MSR_MTRRphysMask(3):
461 case MSR_MTRRphysMask(4):
462 case MSR_MTRRphysMask(5):
463 case MSR_MTRRphysMask(6):
464 case MSR_MTRRphysMask(7):
465 val = env->mtrr_var[((uint32_t)env->regs[R_ECX] -
466 MSR_MTRRphysMask(0)) / 2].mask;
467 break;
468 case MSR_MTRRfix64K_00000:
469 val = env->mtrr_fixed[0];
470 break;
471 case MSR_MTRRfix16K_80000:
472 case MSR_MTRRfix16K_A0000:
473 val = env->mtrr_fixed[(uint32_t)env->regs[R_ECX] -
474 MSR_MTRRfix16K_80000 + 1];
475 break;
476 case MSR_MTRRfix4K_C0000:
477 case MSR_MTRRfix4K_C8000:
478 case MSR_MTRRfix4K_D0000:
479 case MSR_MTRRfix4K_D8000:
480 case MSR_MTRRfix4K_E0000:
481 case MSR_MTRRfix4K_E8000:
482 case MSR_MTRRfix4K_F0000:
483 case MSR_MTRRfix4K_F8000:
484 val = env->mtrr_fixed[(uint32_t)env->regs[R_ECX] -
485 MSR_MTRRfix4K_C0000 + 3];
486 break;
487 case MSR_MTRRdefType:
488 val = env->mtrr_deftype;
489 break;
490 case MSR_MTRRcap:
491 if (env->features[FEAT_1_EDX] & CPUID_MTRR) {
492 val = MSR_MTRRcap_VCNT | MSR_MTRRcap_FIXRANGE_SUPPORT |
493 MSR_MTRRcap_WC_SUPPORTED;
494 } else {
495 /* XXX: exception? */
496 val = 0;
498 break;
499 case MSR_MCG_CAP:
500 val = env->mcg_cap;
501 break;
502 case MSR_MCG_CTL:
503 if (env->mcg_cap & MCG_CTL_P) {
504 val = env->mcg_ctl;
505 } else {
506 val = 0;
508 break;
509 case MSR_MCG_STATUS:
510 val = env->mcg_status;
511 break;
512 case MSR_IA32_MISC_ENABLE:
513 val = env->msr_ia32_misc_enable;
514 break;
515 case MSR_IA32_BNDCFGS:
516 val = env->msr_bndcfgs;
517 break;
518 default:
519 if ((uint32_t)env->regs[R_ECX] >= MSR_MC0_CTL
520 && (uint32_t)env->regs[R_ECX] < MSR_MC0_CTL +
521 (4 * env->mcg_cap & 0xff)) {
522 uint32_t offset = (uint32_t)env->regs[R_ECX] - MSR_MC0_CTL;
523 val = env->mce_banks[offset];
524 break;
526 /* XXX: exception? */
527 val = 0;
528 break;
530 env->regs[R_EAX] = (uint32_t)(val);
531 env->regs[R_EDX] = (uint32_t)(val >> 32);
533 #endif
535 static void do_pause(X86CPU *cpu)
537 CPUState *cs = CPU(cpu);
539 /* Just let another CPU run. */
540 cs->exception_index = EXCP_INTERRUPT;
541 cpu_loop_exit(cs);
544 static void do_hlt(X86CPU *cpu)
546 CPUState *cs = CPU(cpu);
547 CPUX86State *env = &cpu->env;
549 env->hflags &= ~HF_INHIBIT_IRQ_MASK; /* needed if sti is just before */
550 cs->halted = 1;
551 cs->exception_index = EXCP_HLT;
552 cpu_loop_exit(cs);
555 void helper_hlt(CPUX86State *env, int next_eip_addend)
557 X86CPU *cpu = x86_env_get_cpu(env);
559 cpu_svm_check_intercept_param(env, SVM_EXIT_HLT, 0);
560 env->eip += next_eip_addend;
562 do_hlt(cpu);
565 void helper_monitor(CPUX86State *env, target_ulong ptr)
567 if ((uint32_t)env->regs[R_ECX] != 0) {
568 raise_exception_ra(env, EXCP0D_GPF, GETPC());
570 /* XXX: store address? */
571 cpu_svm_check_intercept_param(env, SVM_EXIT_MONITOR, 0);
574 void helper_mwait(CPUX86State *env, int next_eip_addend)
576 CPUState *cs;
577 X86CPU *cpu;
579 if ((uint32_t)env->regs[R_ECX] != 0) {
580 raise_exception_ra(env, EXCP0D_GPF, GETPC());
582 cpu_svm_check_intercept_param(env, SVM_EXIT_MWAIT, 0);
583 env->eip += next_eip_addend;
585 cpu = x86_env_get_cpu(env);
586 cs = CPU(cpu);
587 /* XXX: not complete but not completely erroneous */
588 if (cs->cpu_index != 0 || CPU_NEXT(cs) != NULL) {
589 do_pause(cpu);
590 } else {
591 do_hlt(cpu);
595 void helper_pause(CPUX86State *env, int next_eip_addend)
597 X86CPU *cpu = x86_env_get_cpu(env);
599 cpu_svm_check_intercept_param(env, SVM_EXIT_PAUSE, 0);
600 env->eip += next_eip_addend;
602 do_pause(cpu);
605 void helper_debug(CPUX86State *env)
607 CPUState *cs = CPU(x86_env_get_cpu(env));
609 cs->exception_index = EXCP_DEBUG;
610 cpu_loop_exit(cs);
613 uint64_t helper_rdpkru(CPUX86State *env, uint32_t ecx)
615 if ((env->cr[4] & CR4_PKE_MASK) == 0) {
616 raise_exception_err_ra(env, EXCP06_ILLOP, 0, GETPC());
618 if (ecx != 0) {
619 raise_exception_err_ra(env, EXCP0D_GPF, 0, GETPC());
622 return env->pkru;
625 void helper_wrpkru(CPUX86State *env, uint32_t ecx, uint64_t val)
627 CPUState *cs = CPU(x86_env_get_cpu(env));
629 if ((env->cr[4] & CR4_PKE_MASK) == 0) {
630 raise_exception_err_ra(env, EXCP06_ILLOP, 0, GETPC());
632 if (ecx != 0 || (val & 0xFFFFFFFF00000000ull)) {
633 raise_exception_err_ra(env, EXCP0D_GPF, 0, GETPC());
636 env->pkru = val;
637 tlb_flush(cs, 1);