target-i386/misc_helper.c

   1 /*
   2  *  x86 misc helpers
   3  *
   4  *  Copyright (c) 2003 Fabrice Bellard
   5  *
   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.
  10  *
  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.
  15  *
  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/>.
  18  */
  19
  20 #include "cpu.h"
  21 #include "exec/ioport.h"
  22 #include "exec/helper-proto.h"
  23 #include "exec/cpu_ldst.h"
  24
  25 void helper_outb(uint32_t port, uint32_t data)
  26 {
  27     cpu_outb(port, data & 0xff);
  28 }
  29
  30 target_ulong helper_inb(uint32_t port)
  31 {
  32     return cpu_inb(port);
  33 }
  34
  35 void helper_outw(uint32_t port, uint32_t data)
  36 {
  37     cpu_outw(port, data & 0xffff);
  38 }
  39
  40 target_ulong helper_inw(uint32_t port)
  41 {
  42     return cpu_inw(port);
  43 }
  44
  45 void helper_outl(uint32_t port, uint32_t data)
  46 {
  47     cpu_outl(port, data);
  48 }
  49
  50 target_ulong helper_inl(uint32_t port)
  51 {
  52     return cpu_inl(port);
  53 }
  54
  55 void helper_into(CPUX86State *env, int next_eip_addend)
  56 {
  57     int eflags;
  58
  59     eflags = cpu_cc_compute_all(env, CC_OP);
  60     if (eflags & CC_O) {
  61         raise_interrupt(env, EXCP04_INTO, 1, 0, next_eip_addend);
  62     }
  63 }
  64
  65 void helper_single_step(CPUX86State *env)
  66 {
  67 #ifndef CONFIG_USER_ONLY
  68     check_hw_breakpoints(env, true);
  69     env->dr[6] |= DR6_BS;
  70 #endif
  71     raise_exception(env, EXCP01_DB);
  72 }
  73
  74 void helper_cpuid(CPUX86State *env)
  75 {
  76     uint32_t eax, ebx, ecx, edx;
  77
  78     cpu_svm_check_intercept_param(env, SVM_EXIT_CPUID, 0);
  79
  80     cpu_x86_cpuid(env, (uint32_t)env->regs[R_EAX], (uint32_t)env->regs[R_ECX],
  81                   &eax, &ebx, &ecx, &edx);
  82     env->regs[R_EAX] = eax;
  83     env->regs[R_EBX] = ebx;
  84     env->regs[R_ECX] = ecx;
  85     env->regs[R_EDX] = edx;
  86 }
  87
  88 #if defined(CONFIG_USER_ONLY)
  89 target_ulong helper_read_crN(CPUX86State *env, int reg)
  90 {
  91     return 0;
  92 }
  93
  94 void helper_write_crN(CPUX86State *env, int reg, target_ulong t0)
  95 {
  96 }
  97
  98 void helper_movl_drN_T0(CPUX86State *env, int reg, target_ulong t0)
  99 {
 100 }
 101 #else
 102 target_ulong helper_read_crN(CPUX86State *env, int reg)
 103 {
 104     target_ulong val;
 105
 106     cpu_svm_check_intercept_param(env, SVM_EXIT_READ_CR0 + reg, 0);
 107     switch (reg) {
 108     default:
 109         val = env->cr[reg];
 110         break;
 111     case 8:
 112         if (!(env->hflags2 & HF2_VINTR_MASK)) {
 113             val = cpu_get_apic_tpr(x86_env_get_cpu(env)->apic_state);
 114         } else {
 115             val = env->v_tpr;
 116         }
 117         break;
 118     }
 119     return val;
 120 }
 121
 122 void helper_write_crN(CPUX86State *env, int reg, target_ulong t0)
 123 {
 124     cpu_svm_check_intercept_param(env, SVM_EXIT_WRITE_CR0 + reg, 0);
 125     switch (reg) {
 126     case 0:
 127         cpu_x86_update_cr0(env, t0);
 128         break;
 129     case 3:
 130         cpu_x86_update_cr3(env, t0);
 131         break;
 132     case 4:
 133         cpu_x86_update_cr4(env, t0);
 134         break;
 135     case 8:
 136         if (!(env->hflags2 & HF2_VINTR_MASK)) {
 137             cpu_set_apic_tpr(x86_env_get_cpu(env)->apic_state, t0);
 138         }
 139         env->v_tpr = t0 & 0x0f;
 140         break;
 141     default:
 142         env->cr[reg] = t0;
 143         break;
 144     }
 145 }
 146
 147 void helper_movl_drN_T0(CPUX86State *env, int reg, target_ulong t0)
 148 {
 149     int i;
 150
 151     if (reg < 4) {
 152         hw_breakpoint_remove(env, reg);
 153         env->dr[reg] = t0;
 154         hw_breakpoint_insert(env, reg);
 155     } else if (reg == 7) {
 156         for (i = 0; i < DR7_MAX_BP; i++) {
 157             hw_breakpoint_remove(env, i);
 158         }
 159         env->dr[7] = t0;
 160         for (i = 0; i < DR7_MAX_BP; i++) {
 161             hw_breakpoint_insert(env, i);
 162         }
 163     } else {
 164         env->dr[reg] = t0;
 165     }
 166 }
 167 #endif
 168
 169 void helper_lmsw(CPUX86State *env, target_ulong t0)
 170 {
 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);
 175 }
 176
 177 void helper_invlpg(CPUX86State *env, target_ulong addr)
 178 {
 179     X86CPU *cpu = x86_env_get_cpu(env);
 180
 181     cpu_svm_check_intercept_param(env, SVM_EXIT_INVLPG, 0);
 182     tlb_flush_page(CPU(cpu), addr);
 183 }
 184
 185 void helper_rdtsc(CPUX86State *env)
 186 {
 187     uint64_t val;
 188
 189     if ((env->cr[4] & CR4_TSD_MASK) && ((env->hflags & HF_CPL_MASK) != 0)) {
 190         raise_exception(env, EXCP0D_GPF);
 191     }
 192     cpu_svm_check_intercept_param(env, SVM_EXIT_RDTSC, 0);
 193
 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);
 197 }
 198
 199 void helper_rdtscp(CPUX86State *env)
 200 {
 201     helper_rdtsc(env);
 202     env->regs[R_ECX] = (uint32_t)(env->tsc_aux);
 203 }
 204
 205 void helper_rdpmc(CPUX86State *env)
 206 {
 207     if ((env->cr[4] & CR4_PCE_MASK) && ((env->hflags & HF_CPL_MASK) != 0)) {
 208         raise_exception(env, EXCP0D_GPF);
 209     }
 210     cpu_svm_check_intercept_param(env, SVM_EXIT_RDPMC, 0);
 211
 212     /* currently unimplemented */
 213     qemu_log_mask(LOG_UNIMP, "x86: unimplemented rdpmc\n");
 214     raise_exception_err(env, EXCP06_ILLOP, 0);
 215 }
 216
 217 #if defined(CONFIG_USER_ONLY)
 218 void helper_wrmsr(CPUX86State *env)
 219 {
 220 }
 221
 222 void helper_rdmsr(CPUX86State *env)
 223 {
 224 }
 225 #else
 226 void helper_wrmsr(CPUX86State *env)
 227 {
 228     uint64_t val;
 229
 230     cpu_svm_check_intercept_param(env, SVM_EXIT_MSR, 1);
 231
 232     val = ((uint32_t)env->regs[R_EAX]) |
 233         ((uint64_t)((uint32_t)env->regs[R_EDX]) << 32);
 234
 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:
 249         {
 250             uint64_t update_mask;
 251
 252             update_mask = 0;
 253             if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_SYSCALL) {
 254                 update_mask |= MSR_EFER_SCE;
 255             }
 256             if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_LM) {
 257                 update_mask |= MSR_EFER_LME;
 258             }
 259             if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_FFXSR) {
 260                 update_mask |= MSR_EFER_FFXSR;
 261             }
 262             if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_NX) {
 263                 update_mask |= MSR_EFER_NXE;
 264             }
 265             if (env->features[FEAT_8000_0001_ECX] & CPUID_EXT3_SVM) {
 266                 update_mask |= MSR_EFER_SVME;
 267             }
 268             if (env->features[FEAT_8000_0001_EDX] & CPUID_EXT2_FFXSR) {
 269                 update_mask |= MSR_EFER_FFXSR;
 270             }
 271             cpu_load_efer(env, (env->efer & ~update_mask) |
 272                           (val & update_mask));
 273         }
 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;
 356         }
 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     default:
 365         if ((uint32_t)env->regs[R_ECX] >= MSR_MC0_CTL
 366             && (uint32_t)env->regs[R_ECX] < MSR_MC0_CTL +
 367             (4 * env->mcg_cap & 0xff)) {
 368             uint32_t offset = (uint32_t)env->regs[R_ECX] - MSR_MC0_CTL;
 369             if ((offset & 0x3) != 0
 370                 || (val == 0 || val == ~(uint64_t)0)) {
 371                 env->mce_banks[offset] = val;
 372             }
 373             break;
 374         }
 375         /* XXX: exception? */
 376         break;
 377     }
 378 }
 379
 380 void helper_rdmsr(CPUX86State *env)
 381 {
 382     uint64_t val;
 383
 384     cpu_svm_check_intercept_param(env, SVM_EXIT_MSR, 0);
 385
 386     switch ((uint32_t)env->regs[R_ECX]) {
 387     case MSR_IA32_SYSENTER_CS:
 388         val = env->sysenter_cs;
 389         break;
 390     case MSR_IA32_SYSENTER_ESP:
 391         val = env->sysenter_esp;
 392         break;
 393     case MSR_IA32_SYSENTER_EIP:
 394         val = env->sysenter_eip;
 395         break;
 396     case MSR_IA32_APICBASE:
 397         val = cpu_get_apic_base(x86_env_get_cpu(env)->apic_state);
 398         break;
 399     case MSR_EFER:
 400         val = env->efer;
 401         break;
 402     case MSR_STAR:
 403         val = env->star;
 404         break;
 405     case MSR_PAT:
 406         val = env->pat;
 407         break;
 408     case MSR_VM_HSAVE_PA:
 409         val = env->vm_hsave;
 410         break;
 411     case MSR_IA32_PERF_STATUS:
 412         /* tsc_increment_by_tick */
 413         val = 1000ULL;
 414         /* CPU multiplier */
 415         val |= (((uint64_t)4ULL) << 40);
 416         break;
 417 #ifdef TARGET_X86_64
 418     case MSR_LSTAR:
 419         val = env->lstar;
 420         break;
 421     case MSR_CSTAR:
 422         val = env->cstar;
 423         break;
 424     case MSR_FMASK:
 425         val = env->fmask;
 426         break;
 427     case MSR_FSBASE:
 428         val = env->segs[R_FS].base;
 429         break;
 430     case MSR_GSBASE:
 431         val = env->segs[R_GS].base;
 432         break;
 433     case MSR_KERNELGSBASE:
 434         val = env->kernelgsbase;
 435         break;
 436     case MSR_TSC_AUX:
 437         val = env->tsc_aux;
 438         break;
 439 #endif
 440     case MSR_MTRRphysBase(0):
 441     case MSR_MTRRphysBase(1):
 442     case MSR_MTRRphysBase(2):
 443     case MSR_MTRRphysBase(3):
 444     case MSR_MTRRphysBase(4):
 445     case MSR_MTRRphysBase(5):
 446     case MSR_MTRRphysBase(6):
 447     case MSR_MTRRphysBase(7):
 448         val = env->mtrr_var[((uint32_t)env->regs[R_ECX] -
 449                              MSR_MTRRphysBase(0)) / 2].base;
 450         break;
 451     case MSR_MTRRphysMask(0):
 452     case MSR_MTRRphysMask(1):
 453     case MSR_MTRRphysMask(2):
 454     case MSR_MTRRphysMask(3):
 455     case MSR_MTRRphysMask(4):
 456     case MSR_MTRRphysMask(5):
 457     case MSR_MTRRphysMask(6):
 458     case MSR_MTRRphysMask(7):
 459         val = env->mtrr_var[((uint32_t)env->regs[R_ECX] -
 460                              MSR_MTRRphysMask(0)) / 2].mask;
 461         break;
 462     case MSR_MTRRfix64K_00000:
 463         val = env->mtrr_fixed[0];
 464         break;
 465     case MSR_MTRRfix16K_80000:
 466     case MSR_MTRRfix16K_A0000:
 467         val = env->mtrr_fixed[(uint32_t)env->regs[R_ECX] -
 468                               MSR_MTRRfix16K_80000 + 1];
 469         break;
 470     case MSR_MTRRfix4K_C0000:
 471     case MSR_MTRRfix4K_C8000:
 472     case MSR_MTRRfix4K_D0000:
 473     case MSR_MTRRfix4K_D8000:
 474     case MSR_MTRRfix4K_E0000:
 475     case MSR_MTRRfix4K_E8000:
 476     case MSR_MTRRfix4K_F0000:
 477     case MSR_MTRRfix4K_F8000:
 478         val = env->mtrr_fixed[(uint32_t)env->regs[R_ECX] -
 479                               MSR_MTRRfix4K_C0000 + 3];
 480         break;
 481     case MSR_MTRRdefType:
 482         val = env->mtrr_deftype;
 483         break;
 484     case MSR_MTRRcap:
 485         if (env->features[FEAT_1_EDX] & CPUID_MTRR) {
 486             val = MSR_MTRRcap_VCNT | MSR_MTRRcap_FIXRANGE_SUPPORT |
 487                 MSR_MTRRcap_WC_SUPPORTED;
 488         } else {
 489             /* XXX: exception? */
 490             val = 0;
 491         }
 492         break;
 493     case MSR_MCG_CAP:
 494         val = env->mcg_cap;
 495         break;
 496     case MSR_MCG_CTL:
 497         if (env->mcg_cap & MCG_CTL_P) {
 498             val = env->mcg_ctl;
 499         } else {
 500             val = 0;
 501         }
 502         break;
 503     case MSR_MCG_STATUS:
 504         val = env->mcg_status;
 505         break;
 506     case MSR_IA32_MISC_ENABLE:
 507         val = env->msr_ia32_misc_enable;
 508         break;
 509     default:
 510         if ((uint32_t)env->regs[R_ECX] >= MSR_MC0_CTL
 511             && (uint32_t)env->regs[R_ECX] < MSR_MC0_CTL +
 512             (4 * env->mcg_cap & 0xff)) {
 513             uint32_t offset = (uint32_t)env->regs[R_ECX] - MSR_MC0_CTL;
 514             val = env->mce_banks[offset];
 515             break;
 516         }
 517         /* XXX: exception? */
 518         val = 0;
 519         break;
 520     }
 521     env->regs[R_EAX] = (uint32_t)(val);
 522     env->regs[R_EDX] = (uint32_t)(val >> 32);
 523 }
 524 #endif
 525
 526 static void do_pause(X86CPU *cpu)
 527 {
 528     CPUState *cs = CPU(cpu);
 529
 530     /* Just let another CPU run.  */
 531     cs->exception_index = EXCP_INTERRUPT;
 532     cpu_loop_exit(cs);
 533 }
 534
 535 static void do_hlt(X86CPU *cpu)
 536 {
 537     CPUState *cs = CPU(cpu);
 538     CPUX86State *env = &cpu->env;
 539
 540     env->hflags &= ~HF_INHIBIT_IRQ_MASK; /* needed if sti is just before */
 541     cs->halted = 1;
 542     cs->exception_index = EXCP_HLT;
 543     cpu_loop_exit(cs);
 544 }
 545
 546 void helper_hlt(CPUX86State *env, int next_eip_addend)
 547 {
 548     X86CPU *cpu = x86_env_get_cpu(env);
 549
 550     cpu_svm_check_intercept_param(env, SVM_EXIT_HLT, 0);
 551     env->eip += next_eip_addend;
 552
 553     do_hlt(cpu);
 554 }
 555
 556 void helper_monitor(CPUX86State *env, target_ulong ptr)
 557 {
 558     if ((uint32_t)env->regs[R_ECX] != 0) {
 559         raise_exception(env, EXCP0D_GPF);
 560     }
 561     /* XXX: store address? */
 562     cpu_svm_check_intercept_param(env, SVM_EXIT_MONITOR, 0);
 563 }
 564
 565 void helper_mwait(CPUX86State *env, int next_eip_addend)
 566 {
 567     CPUState *cs;
 568     X86CPU *cpu;
 569
 570     if ((uint32_t)env->regs[R_ECX] != 0) {
 571         raise_exception(env, EXCP0D_GPF);
 572     }
 573     cpu_svm_check_intercept_param(env, SVM_EXIT_MWAIT, 0);
 574     env->eip += next_eip_addend;
 575
 576     cpu = x86_env_get_cpu(env);
 577     cs = CPU(cpu);
 578     /* XXX: not complete but not completely erroneous */
 579     if (cs->cpu_index != 0 || CPU_NEXT(cs) != NULL) {
 580         do_pause(cpu);
 581     } else {
 582         do_hlt(cpu);
 583     }
 584 }
 585
 586 void helper_pause(CPUX86State *env, int next_eip_addend)
 587 {
 588     X86CPU *cpu = x86_env_get_cpu(env);
 589
 590     cpu_svm_check_intercept_param(env, SVM_EXIT_PAUSE, 0);
 591     env->eip += next_eip_addend;
 592
 593     do_pause(cpu);
 594 }
 595
 596 void helper_debug(CPUX86State *env)
 597 {
 598     CPUState *cs = CPU(x86_env_get_cpu(env));
 599
 600     cs->exception_index = EXCP_DEBUG;
 601     cpu_loop_exit(cs);
 602 }