hw/spapr_hcall.c

   1 #include "sysemu.h"
   2 #include "cpu.h"
   3 #include "qemu-char.h"
   4 #include "sysemu.h"
   5 #include "qemu-char.h"
   6 #include "helper_regs.h"
   7 #include "hw/spapr.h"
   8
   9 #define HPTES_PER_GROUP 8
  10
  11 #define HPTE_V_SSIZE_SHIFT      62
  12 #define HPTE_V_AVPN_SHIFT       7
  13 #define HPTE_V_AVPN             0x3fffffffffffff80ULL
  14 #define HPTE_V_AVPN_VAL(x)      (((x) & HPTE_V_AVPN) >> HPTE_V_AVPN_SHIFT)
  15 #define HPTE_V_COMPARE(x, y)    (!(((x) ^ (y)) & 0xffffffffffffff80UL))
  16 #define HPTE_V_BOLTED           0x0000000000000010ULL
  17 #define HPTE_V_LOCK             0x0000000000000008ULL
  18 #define HPTE_V_LARGE            0x0000000000000004ULL
  19 #define HPTE_V_SECONDARY        0x0000000000000002ULL
  20 #define HPTE_V_VALID            0x0000000000000001ULL
  21
  22 #define HPTE_R_PP0              0x8000000000000000ULL
  23 #define HPTE_R_TS               0x4000000000000000ULL
  24 #define HPTE_R_KEY_HI           0x3000000000000000ULL
  25 #define HPTE_R_RPN_SHIFT        12
  26 #define HPTE_R_RPN              0x3ffffffffffff000ULL
  27 #define HPTE_R_FLAGS            0x00000000000003ffULL
  28 #define HPTE_R_PP               0x0000000000000003ULL
  29 #define HPTE_R_N                0x0000000000000004ULL
  30 #define HPTE_R_G                0x0000000000000008ULL
  31 #define HPTE_R_M                0x0000000000000010ULL
  32 #define HPTE_R_I                0x0000000000000020ULL
  33 #define HPTE_R_W                0x0000000000000040ULL
  34 #define HPTE_R_WIMG             0x0000000000000078ULL
  35 #define HPTE_R_C                0x0000000000000080ULL
  36 #define HPTE_R_R                0x0000000000000100ULL
  37 #define HPTE_R_KEY_LO           0x0000000000000e00ULL
  38
  39 #define HPTE_V_1TB_SEG          0x4000000000000000ULL
  40 #define HPTE_V_VRMA_MASK        0x4001ffffff000000ULL
  41
  42 static target_ulong compute_tlbie_rb(target_ulong v, target_ulong r,
  43                                      target_ulong pte_index)
  44 {
  45     target_ulong rb, va_low;
  46
  47     rb = (v & ~0x7fULL) << 16; /* AVA field */
  48     va_low = pte_index >> 3;
  49     if (v & HPTE_V_SECONDARY) {
  50         va_low = ~va_low;
  51     }
  52     /* xor vsid from AVA */
  53     if (!(v & HPTE_V_1TB_SEG)) {
  54         va_low ^= v >> 12;
  55     } else {
  56         va_low ^= v >> 24;
  57     }
  58     va_low &= 0x7ff;
  59     if (v & HPTE_V_LARGE) {
  60         rb |= 1;                         /* L field */
  61 #if 0 /* Disable that P7 specific bit for now */
  62         if (r & 0xff000) {
  63             /* non-16MB large page, must be 64k */
  64             /* (masks depend on page size) */
  65             rb |= 0x1000;                /* page encoding in LP field */
  66             rb |= (va_low & 0x7f) << 16; /* 7b of VA in AVA/LP field */
  67             rb |= (va_low & 0xfe);       /* AVAL field */
  68         }
  69 #endif
  70     } else {
  71         /* 4kB page */
  72         rb |= (va_low & 0x7ff) << 12;   /* remaining 11b of AVA */
  73     }
  74     rb |= (v >> 54) & 0x300;            /* B field */
  75     return rb;
  76 }
  77
  78 static target_ulong h_enter(CPUPPCState *env, sPAPREnvironment *spapr,
  79                             target_ulong opcode, target_ulong *args)
  80 {
  81     target_ulong flags = args[0];
  82     target_ulong pte_index = args[1];
  83     target_ulong pteh = args[2];
  84     target_ulong ptel = args[3];
  85     target_ulong page_shift = 12;
  86     target_ulong raddr;
  87     target_ulong i;
  88     uint8_t *hpte;
  89
  90     /* only handle 4k and 16M pages for now */
  91     if (pteh & HPTE_V_LARGE) {
  92 #if 0 /* We don't support 64k pages yet */
  93         if ((ptel & 0xf000) == 0x1000) {
  94             /* 64k page */
  95         } else
  96 #endif
  97         if ((ptel & 0xff000) == 0) {
  98             /* 16M page */
  99             page_shift = 24;
 100             /* lowest AVA bit must be 0 for 16M pages */
 101             if (pteh & 0x80) {
 102                 return H_PARAMETER;
 103             }
 104         } else {
 105             return H_PARAMETER;
 106         }
 107     }
 108
 109     raddr = (ptel & HPTE_R_RPN) & ~((1ULL << page_shift) - 1);
 110
 111     if (raddr < spapr->ram_limit) {
 112         /* Regular RAM - should have WIMG=0010 */
 113         if ((ptel & HPTE_R_WIMG) != HPTE_R_M) {
 114             return H_PARAMETER;
 115         }
 116     } else {
 117         /* Looks like an IO address */
 118         /* FIXME: What WIMG combinations could be sensible for IO?
 119          * For now we allow WIMG=010x, but are there others? */
 120         /* FIXME: Should we check against registered IO addresses? */
 121         if ((ptel & (HPTE_R_W | HPTE_R_I | HPTE_R_M)) != HPTE_R_I) {
 122             return H_PARAMETER;
 123         }
 124     }
 125
 126     pteh &= ~0x60ULL;
 127
 128     if ((pte_index * HASH_PTE_SIZE_64) & ~env->htab_mask) {
 129         return H_PARAMETER;
 130     }
 131     if (likely((flags & H_EXACT) == 0)) {
 132         pte_index &= ~7ULL;
 133         hpte = env->external_htab + (pte_index * HASH_PTE_SIZE_64);
 134         for (i = 0; ; ++i) {
 135             if (i == 8) {
 136                 return H_PTEG_FULL;
 137             }
 138             if ((ldq_p(hpte) & HPTE_V_VALID) == 0) {
 139                 break;
 140             }
 141             hpte += HASH_PTE_SIZE_64;
 142         }
 143     } else {
 144         i = 0;
 145         hpte = env->external_htab + (pte_index * HASH_PTE_SIZE_64);
 146         if (ldq_p(hpte) & HPTE_V_VALID) {
 147             return H_PTEG_FULL;
 148         }
 149     }
 150     stq_p(hpte + (HASH_PTE_SIZE_64/2), ptel);
 151     /* eieio();  FIXME: need some sort of barrier for smp? */
 152     stq_p(hpte, pteh);
 153
 154     args[0] = pte_index + i;
 155     return H_SUCCESS;
 156 }
 157
 158 enum {
 159     REMOVE_SUCCESS = 0,
 160     REMOVE_NOT_FOUND = 1,
 161     REMOVE_PARM = 2,
 162     REMOVE_HW = 3,
 163 };
 164
 165 static target_ulong remove_hpte(CPUPPCState *env, target_ulong ptex,
 166                                 target_ulong avpn,
 167                                 target_ulong flags,
 168                                 target_ulong *vp, target_ulong *rp)
 169 {
 170     uint8_t *hpte;
 171     target_ulong v, r, rb;
 172
 173     if ((ptex * HASH_PTE_SIZE_64) & ~env->htab_mask) {
 174         return REMOVE_PARM;
 175     }
 176
 177     hpte = env->external_htab + (ptex * HASH_PTE_SIZE_64);
 178
 179     v = ldq_p(hpte);
 180     r = ldq_p(hpte + (HASH_PTE_SIZE_64/2));
 181
 182     if ((v & HPTE_V_VALID) == 0 ||
 183         ((flags & H_AVPN) && (v & ~0x7fULL) != avpn) ||
 184         ((flags & H_ANDCOND) && (v & avpn) != 0)) {
 185         return REMOVE_NOT_FOUND;
 186     }
 187     *vp = v;
 188     *rp = r;
 189     stq_p(hpte, 0);
 190     rb = compute_tlbie_rb(v, r, ptex);
 191     ppc_tlb_invalidate_one(env, rb);
 192     return REMOVE_SUCCESS;
 193 }
 194
 195 static target_ulong h_remove(CPUPPCState *env, sPAPREnvironment *spapr,
 196                              target_ulong opcode, target_ulong *args)
 197 {
 198     target_ulong flags = args[0];
 199     target_ulong pte_index = args[1];
 200     target_ulong avpn = args[2];
 201     int ret;
 202
 203     ret = remove_hpte(env, pte_index, avpn, flags,
 204                       &args[0], &args[1]);
 205
 206     switch (ret) {
 207     case REMOVE_SUCCESS:
 208         return H_SUCCESS;
 209
 210     case REMOVE_NOT_FOUND:
 211         return H_NOT_FOUND;
 212
 213     case REMOVE_PARM:
 214         return H_PARAMETER;
 215
 216     case REMOVE_HW:
 217         return H_HARDWARE;
 218     }
 219
 220     assert(0);
 221 }
 222
 223 #define H_BULK_REMOVE_TYPE             0xc000000000000000ULL
 224 #define   H_BULK_REMOVE_REQUEST        0x4000000000000000ULL
 225 #define   H_BULK_REMOVE_RESPONSE       0x8000000000000000ULL
 226 #define   H_BULK_REMOVE_END            0xc000000000000000ULL
 227 #define H_BULK_REMOVE_CODE             0x3000000000000000ULL
 228 #define   H_BULK_REMOVE_SUCCESS        0x0000000000000000ULL
 229 #define   H_BULK_REMOVE_NOT_FOUND      0x1000000000000000ULL
 230 #define   H_BULK_REMOVE_PARM           0x2000000000000000ULL
 231 #define   H_BULK_REMOVE_HW             0x3000000000000000ULL
 232 #define H_BULK_REMOVE_RC               0x0c00000000000000ULL
 233 #define H_BULK_REMOVE_FLAGS            0x0300000000000000ULL
 234 #define   H_BULK_REMOVE_ABSOLUTE       0x0000000000000000ULL
 235 #define   H_BULK_REMOVE_ANDCOND        0x0100000000000000ULL
 236 #define   H_BULK_REMOVE_AVPN           0x0200000000000000ULL
 237 #define H_BULK_REMOVE_PTEX             0x00ffffffffffffffULL
 238
 239 #define H_BULK_REMOVE_MAX_BATCH        4
 240
 241 static target_ulong h_bulk_remove(CPUPPCState *env, sPAPREnvironment *spapr,
 242                                   target_ulong opcode, target_ulong *args)
 243 {
 244     int i;
 245
 246     for (i = 0; i < H_BULK_REMOVE_MAX_BATCH; i++) {
 247         target_ulong *tsh = &args[i*2];
 248         target_ulong tsl = args[i*2 + 1];
 249         target_ulong v, r, ret;
 250
 251         if ((*tsh & H_BULK_REMOVE_TYPE) == H_BULK_REMOVE_END) {
 252             break;
 253         } else if ((*tsh & H_BULK_REMOVE_TYPE) != H_BULK_REMOVE_REQUEST) {
 254             return H_PARAMETER;
 255         }
 256
 257         *tsh &= H_BULK_REMOVE_PTEX | H_BULK_REMOVE_FLAGS;
 258         *tsh |= H_BULK_REMOVE_RESPONSE;
 259
 260         if ((*tsh & H_BULK_REMOVE_ANDCOND) && (*tsh & H_BULK_REMOVE_AVPN)) {
 261             *tsh |= H_BULK_REMOVE_PARM;
 262             return H_PARAMETER;
 263         }
 264
 265         ret = remove_hpte(env, *tsh & H_BULK_REMOVE_PTEX, tsl,
 266                           (*tsh & H_BULK_REMOVE_FLAGS) >> 26,
 267                           &v, &r);
 268
 269         *tsh |= ret << 60;
 270
 271         switch (ret) {
 272         case REMOVE_SUCCESS:
 273             *tsh |= (r & (HPTE_R_C | HPTE_R_R)) << 43;
 274             break;
 275
 276         case REMOVE_PARM:
 277             return H_PARAMETER;
 278
 279         case REMOVE_HW:
 280             return H_HARDWARE;
 281         }
 282     }
 283
 284     return H_SUCCESS;
 285 }
 286
 287 static target_ulong h_protect(CPUPPCState *env, sPAPREnvironment *spapr,
 288                               target_ulong opcode, target_ulong *args)
 289 {
 290     target_ulong flags = args[0];
 291     target_ulong pte_index = args[1];
 292     target_ulong avpn = args[2];
 293     uint8_t *hpte;
 294     target_ulong v, r, rb;
 295
 296     if ((pte_index * HASH_PTE_SIZE_64) & ~env->htab_mask) {
 297         return H_PARAMETER;
 298     }
 299
 300     hpte = env->external_htab + (pte_index * HASH_PTE_SIZE_64);
 301
 302     v = ldq_p(hpte);
 303     r = ldq_p(hpte + (HASH_PTE_SIZE_64/2));
 304
 305     if ((v & HPTE_V_VALID) == 0 ||
 306         ((flags & H_AVPN) && (v & ~0x7fULL) != avpn)) {
 307         return H_NOT_FOUND;
 308     }
 309
 310     r &= ~(HPTE_R_PP0 | HPTE_R_PP | HPTE_R_N |
 311            HPTE_R_KEY_HI | HPTE_R_KEY_LO);
 312     r |= (flags << 55) & HPTE_R_PP0;
 313     r |= (flags << 48) & HPTE_R_KEY_HI;
 314     r |= flags & (HPTE_R_PP | HPTE_R_N | HPTE_R_KEY_LO);
 315     rb = compute_tlbie_rb(v, r, pte_index);
 316     stq_p(hpte, v & ~HPTE_V_VALID);
 317     ppc_tlb_invalidate_one(env, rb);
 318     stq_p(hpte + (HASH_PTE_SIZE_64/2), r);
 319     /* Don't need a memory barrier, due to qemu's global lock */
 320     stq_p(hpte, v);
 321     return H_SUCCESS;
 322 }
 323
 324 static target_ulong h_set_dabr(CPUPPCState *env, sPAPREnvironment *spapr,
 325                                target_ulong opcode, target_ulong *args)
 326 {
 327     /* FIXME: actually implement this */
 328     return H_HARDWARE;
 329 }
 330
 331 #define FLAGS_REGISTER_VPA         0x0000200000000000ULL
 332 #define FLAGS_REGISTER_DTL         0x0000400000000000ULL
 333 #define FLAGS_REGISTER_SLBSHADOW   0x0000600000000000ULL
 334 #define FLAGS_DEREGISTER_VPA       0x0000a00000000000ULL
 335 #define FLAGS_DEREGISTER_DTL       0x0000c00000000000ULL
 336 #define FLAGS_DEREGISTER_SLBSHADOW 0x0000e00000000000ULL
 337
 338 #define VPA_MIN_SIZE           640
 339 #define VPA_SIZE_OFFSET        0x4
 340 #define VPA_SHARED_PROC_OFFSET 0x9
 341 #define VPA_SHARED_PROC_VAL    0x2
 342
 343 static target_ulong register_vpa(CPUPPCState *env, target_ulong vpa)
 344 {
 345     uint16_t size;
 346     uint8_t tmp;
 347
 348     if (vpa == 0) {
 349         hcall_dprintf("Can't cope with registering a VPA at logical 0\n");
 350         return H_HARDWARE;
 351     }
 352
 353     if (vpa % env->dcache_line_size) {
 354         return H_PARAMETER;
 355     }
 356     /* FIXME: bounds check the address */
 357
 358     size = lduw_be_phys(vpa + 0x4);
 359
 360     if (size < VPA_MIN_SIZE) {
 361         return H_PARAMETER;
 362     }
 363
 364     /* VPA is not allowed to cross a page boundary */
 365     if ((vpa / 4096) != ((vpa + size - 1) / 4096)) {
 366         return H_PARAMETER;
 367     }
 368
 369     env->vpa_addr = vpa;
 370
 371     tmp = ldub_phys(env->vpa_addr + VPA_SHARED_PROC_OFFSET);
 372     tmp |= VPA_SHARED_PROC_VAL;
 373     stb_phys(env->vpa_addr + VPA_SHARED_PROC_OFFSET, tmp);
 374
 375     return H_SUCCESS;
 376 }
 377
 378 static target_ulong deregister_vpa(CPUPPCState *env, target_ulong vpa)
 379 {
 380     if (env->slb_shadow_addr) {
 381         return H_RESOURCE;
 382     }
 383
 384     if (env->dtl_addr) {
 385         return H_RESOURCE;
 386     }
 387
 388     env->vpa_addr = 0;
 389     return H_SUCCESS;
 390 }
 391
 392 static target_ulong register_slb_shadow(CPUPPCState *env, target_ulong addr)
 393 {
 394     uint32_t size;
 395
 396     if (addr == 0) {
 397         hcall_dprintf("Can't cope with SLB shadow at logical 0\n");
 398         return H_HARDWARE;
 399     }
 400
 401     size = ldl_be_phys(addr + 0x4);
 402     if (size < 0x8) {
 403         return H_PARAMETER;
 404     }
 405
 406     if ((addr / 4096) != ((addr + size - 1) / 4096)) {
 407         return H_PARAMETER;
 408     }
 409
 410     if (!env->vpa_addr) {
 411         return H_RESOURCE;
 412     }
 413
 414     env->slb_shadow_addr = addr;
 415     env->slb_shadow_size = size;
 416
 417     return H_SUCCESS;
 418 }
 419
 420 static target_ulong deregister_slb_shadow(CPUPPCState *env, target_ulong addr)
 421 {
 422     env->slb_shadow_addr = 0;
 423     env->slb_shadow_size = 0;
 424     return H_SUCCESS;
 425 }
 426
 427 static target_ulong register_dtl(CPUPPCState *env, target_ulong addr)
 428 {
 429     uint32_t size;
 430
 431     if (addr == 0) {
 432         hcall_dprintf("Can't cope with DTL at logical 0\n");
 433         return H_HARDWARE;
 434     }
 435
 436     size = ldl_be_phys(addr + 0x4);
 437
 438     if (size < 48) {
 439         return H_PARAMETER;
 440     }
 441
 442     if (!env->vpa_addr) {
 443         return H_RESOURCE;
 444     }
 445
 446     env->dtl_addr = addr;
 447     env->dtl_size = size;
 448
 449     return H_SUCCESS;
 450 }
 451
 452 static target_ulong deregister_dtl(CPUPPCState *env, target_ulong addr)
 453 {
 454     env->dtl_addr = 0;
 455     env->dtl_size = 0;
 456
 457     return H_SUCCESS;
 458 }
 459
 460 static target_ulong h_register_vpa(CPUPPCState *env, sPAPREnvironment *spapr,
 461                                    target_ulong opcode, target_ulong *args)
 462 {
 463     target_ulong flags = args[0];
 464     target_ulong procno = args[1];
 465     target_ulong vpa = args[2];
 466     target_ulong ret = H_PARAMETER;
 467     CPUPPCState *tenv;
 468
 469     for (tenv = first_cpu; tenv; tenv = tenv->next_cpu) {
 470         if (tenv->cpu_index == procno) {
 471             break;
 472         }
 473     }
 474
 475     if (!tenv) {
 476         return H_PARAMETER;
 477     }
 478
 479     switch (flags) {
 480     case FLAGS_REGISTER_VPA:
 481         ret = register_vpa(tenv, vpa);
 482         break;
 483
 484     case FLAGS_DEREGISTER_VPA:
 485         ret = deregister_vpa(tenv, vpa);
 486         break;
 487
 488     case FLAGS_REGISTER_SLBSHADOW:
 489         ret = register_slb_shadow(tenv, vpa);
 490         break;
 491
 492     case FLAGS_DEREGISTER_SLBSHADOW:
 493         ret = deregister_slb_shadow(tenv, vpa);
 494         break;
 495
 496     case FLAGS_REGISTER_DTL:
 497         ret = register_dtl(tenv, vpa);
 498         break;
 499
 500     case FLAGS_DEREGISTER_DTL:
 501         ret = deregister_dtl(tenv, vpa);
 502         break;
 503     }
 504
 505     return ret;
 506 }
 507
 508 static target_ulong h_cede(CPUPPCState *env, sPAPREnvironment *spapr,
 509                            target_ulong opcode, target_ulong *args)
 510 {
 511     env->msr |= (1ULL << MSR_EE);
 512     hreg_compute_hflags(env);
 513     if (!cpu_has_work(env)) {
 514         env->halted = 1;
 515         env->exception_index = EXCP_HLT;
 516         env->exit_request = 1;
 517     }
 518     return H_SUCCESS;
 519 }
 520
 521 static target_ulong h_rtas(CPUPPCState *env, sPAPREnvironment *spapr,
 522                            target_ulong opcode, target_ulong *args)
 523 {
 524     target_ulong rtas_r3 = args[0];
 525     uint32_t token = ldl_be_phys(rtas_r3);
 526     uint32_t nargs = ldl_be_phys(rtas_r3 + 4);
 527     uint32_t nret = ldl_be_phys(rtas_r3 + 8);
 528
 529     return spapr_rtas_call(spapr, token, nargs, rtas_r3 + 12,
 530                            nret, rtas_r3 + 12 + 4*nargs);
 531 }
 532
 533 static target_ulong h_logical_load(CPUPPCState *env, sPAPREnvironment *spapr,
 534                                    target_ulong opcode, target_ulong *args)
 535 {
 536     target_ulong size = args[0];
 537     target_ulong addr = args[1];
 538
 539     switch (size) {
 540     case 1:
 541         args[0] = ldub_phys(addr);
 542         return H_SUCCESS;
 543     case 2:
 544         args[0] = lduw_phys(addr);
 545         return H_SUCCESS;
 546     case 4:
 547         args[0] = ldl_phys(addr);
 548         return H_SUCCESS;
 549     case 8:
 550         args[0] = ldq_phys(addr);
 551         return H_SUCCESS;
 552     }
 553     return H_PARAMETER;
 554 }
 555
 556 static target_ulong h_logical_store(CPUPPCState *env, sPAPREnvironment *spapr,
 557                                     target_ulong opcode, target_ulong *args)
 558 {
 559     target_ulong size = args[0];
 560     target_ulong addr = args[1];
 561     target_ulong val  = args[2];
 562
 563     switch (size) {
 564     case 1:
 565         stb_phys(addr, val);
 566         return H_SUCCESS;
 567     case 2:
 568         stw_phys(addr, val);
 569         return H_SUCCESS;
 570     case 4:
 571         stl_phys(addr, val);
 572         return H_SUCCESS;
 573     case 8:
 574         stq_phys(addr, val);
 575         return H_SUCCESS;
 576     }
 577     return H_PARAMETER;
 578 }
 579
 580 static target_ulong h_logical_memop(CPUPPCState *env, sPAPREnvironment *spapr,
 581                                     target_ulong opcode, target_ulong *args)
 582 {
 583     target_ulong dst   = args[0]; /* Destination address */
 584     target_ulong src   = args[1]; /* Source address */
 585     target_ulong esize = args[2]; /* Element size (0=1,1=2,2=4,3=8) */
 586     target_ulong count = args[3]; /* Element count */
 587     target_ulong op    = args[4]; /* 0 = copy, 1 = invert */
 588     uint64_t tmp;
 589     unsigned int mask = (1 << esize) - 1;
 590     int step = 1 << esize;
 591
 592     if (count > 0x80000000) {
 593         return H_PARAMETER;
 594     }
 595
 596     if ((dst & mask) || (src & mask) || (op > 1)) {
 597         return H_PARAMETER;
 598     }
 599
 600     if (dst >= src && dst < (src + (count << esize))) {
 601             dst = dst + ((count - 1) << esize);
 602             src = src + ((count - 1) << esize);
 603             step = -step;
 604     }
 605
 606     while (count--) {
 607         switch (esize) {
 608         case 0:
 609             tmp = ldub_phys(src);
 610             break;
 611         case 1:
 612             tmp = lduw_phys(src);
 613             break;
 614         case 2:
 615             tmp = ldl_phys(src);
 616             break;
 617         case 3:
 618             tmp = ldq_phys(src);
 619             break;
 620         default:
 621             return H_PARAMETER;
 622         }
 623         if (op == 1) {
 624             tmp = ~tmp;
 625         }
 626         switch (esize) {
 627         case 0:
 628             stb_phys(dst, tmp);
 629             break;
 630         case 1:
 631             stw_phys(dst, tmp);
 632             break;
 633         case 2:
 634             stl_phys(dst, tmp);
 635             break;
 636         case 3:
 637             stq_phys(dst, tmp);
 638             break;
 639         }
 640         dst = dst + step;
 641         src = src + step;
 642     }
 643
 644     return H_SUCCESS;
 645 }
 646
 647 static target_ulong h_logical_icbi(CPUPPCState *env, sPAPREnvironment *spapr,
 648                                    target_ulong opcode, target_ulong *args)
 649 {
 650     /* Nothing to do on emulation, KVM will trap this in the kernel */
 651     return H_SUCCESS;
 652 }
 653
 654 static target_ulong h_logical_dcbf(CPUPPCState *env, sPAPREnvironment *spapr,
 655                                    target_ulong opcode, target_ulong *args)
 656 {
 657     /* Nothing to do on emulation, KVM will trap this in the kernel */
 658     return H_SUCCESS;
 659 }
 660
 661 static spapr_hcall_fn papr_hypercall_table[(MAX_HCALL_OPCODE / 4) + 1];
 662 static spapr_hcall_fn kvmppc_hypercall_table[KVMPPC_HCALL_MAX - KVMPPC_HCALL_BASE + 1];
 663
 664 void spapr_register_hypercall(target_ulong opcode, spapr_hcall_fn fn)
 665 {
 666     spapr_hcall_fn *slot;
 667
 668     if (opcode <= MAX_HCALL_OPCODE) {
 669         assert((opcode & 0x3) == 0);
 670
 671         slot = &papr_hypercall_table[opcode / 4];
 672     } else {
 673         assert((opcode >= KVMPPC_HCALL_BASE) && (opcode <= KVMPPC_HCALL_MAX));
 674
 675         slot = &kvmppc_hypercall_table[opcode - KVMPPC_HCALL_BASE];
 676     }
 677
 678     assert(!(*slot));
 679     *slot = fn;
 680 }
 681
 682 target_ulong spapr_hypercall(CPUPPCState *env, target_ulong opcode,
 683                              target_ulong *args)
 684 {
 685     if ((opcode <= MAX_HCALL_OPCODE)
 686         && ((opcode & 0x3) == 0)) {
 687         spapr_hcall_fn fn = papr_hypercall_table[opcode / 4];
 688
 689         if (fn) {
 690             return fn(env, spapr, opcode, args);
 691         }
 692     } else if ((opcode >= KVMPPC_HCALL_BASE) &&
 693                (opcode <= KVMPPC_HCALL_MAX)) {
 694         spapr_hcall_fn fn = kvmppc_hypercall_table[opcode - KVMPPC_HCALL_BASE];
 695
 696         if (fn) {
 697             return fn(env, spapr, opcode, args);
 698         }
 699     }
 700
 701     hcall_dprintf("Unimplemented hcall 0x" TARGET_FMT_lx "\n", opcode);
 702     return H_FUNCTION;
 703 }
 704
 705 static void hypercall_register_types(void)
 706 {
 707     /* hcall-pft */
 708     spapr_register_hypercall(H_ENTER, h_enter);
 709     spapr_register_hypercall(H_REMOVE, h_remove);
 710     spapr_register_hypercall(H_PROTECT, h_protect);
 711
 712     /* hcall-bulk */
 713     spapr_register_hypercall(H_BULK_REMOVE, h_bulk_remove);
 714
 715     /* hcall-dabr */
 716     spapr_register_hypercall(H_SET_DABR, h_set_dabr);
 717
 718     /* hcall-splpar */
 719     spapr_register_hypercall(H_REGISTER_VPA, h_register_vpa);
 720     spapr_register_hypercall(H_CEDE, h_cede);
 721
 722     /* "debugger" hcalls (also used by SLOF). Note: We do -not- differenciate
 723      * here between the "CI" and the "CACHE" variants, they will use whatever
 724      * mapping attributes qemu is using. When using KVM, the kernel will
 725      * enforce the attributes more strongly
 726      */
 727     spapr_register_hypercall(H_LOGICAL_CI_LOAD, h_logical_load);
 728     spapr_register_hypercall(H_LOGICAL_CI_STORE, h_logical_store);
 729     spapr_register_hypercall(H_LOGICAL_CACHE_LOAD, h_logical_load);
 730     spapr_register_hypercall(H_LOGICAL_CACHE_STORE, h_logical_store);
 731     spapr_register_hypercall(H_LOGICAL_ICBI, h_logical_icbi);
 732     spapr_register_hypercall(H_LOGICAL_DCBF, h_logical_dcbf);
 733     spapr_register_hypercall(KVMPPC_H_LOGICAL_MEMOP, h_logical_memop);
 734
 735     /* qemu/KVM-PPC specific hcalls */
 736     spapr_register_hypercall(KVMPPC_H_RTAS, h_rtas);
 737 }
 738
 739 type_init(hypercall_register_types)