hw/ppc/spapr_iommu.c

   1 /*
   2  * QEMU sPAPR IOMMU (TCE) code
   3  *
   4  * Copyright (c) 2010 David Gibson, IBM Corporation <dwg@au1.ibm.com>
   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 #include "qemu/osdep.h"
  20 #include "qemu/error-report.h"
  21 #include "hw/hw.h"
  22 #include "qemu/log.h"
  23 #include "sysemu/kvm.h"
  24 #include "hw/qdev.h"
  25 #include "kvm_ppc.h"
  26 #include "sysemu/dma.h"
  27 #include "exec/address-spaces.h"
  28 #include "trace.h"
  29
  30 #include "hw/ppc/spapr.h"
  31 #include "hw/ppc/spapr_vio.h"
  32
  33 #include <libfdt.h>
  34
  35 enum sPAPRTCEAccess {
  36     SPAPR_TCE_FAULT = 0,
  37     SPAPR_TCE_RO = 1,
  38     SPAPR_TCE_WO = 2,
  39     SPAPR_TCE_RW = 3,
  40 };
  41
  42 #define IOMMU_PAGE_SIZE(shift)      (1ULL << (shift))
  43 #define IOMMU_PAGE_MASK(shift)      (~(IOMMU_PAGE_SIZE(shift) - 1))
  44
  45 static QLIST_HEAD(spapr_tce_tables, sPAPRTCETable) spapr_tce_tables;
  46
  47 sPAPRTCETable *spapr_tce_find_by_liobn(target_ulong liobn)
  48 {
  49     sPAPRTCETable *tcet;
  50
  51     if (liobn & 0xFFFFFFFF00000000ULL) {
  52         hcall_dprintf("Request for out-of-bounds LIOBN 0x" TARGET_FMT_lx "\n",
  53                       liobn);
  54         return NULL;
  55     }
  56
  57     QLIST_FOREACH(tcet, &spapr_tce_tables, list) {
  58         if (tcet->liobn == (uint32_t)liobn) {
  59             return tcet;
  60         }
  61     }
  62
  63     return NULL;
  64 }
  65
  66 static IOMMUAccessFlags spapr_tce_iommu_access_flags(uint64_t tce)
  67 {
  68     switch (tce & SPAPR_TCE_RW) {
  69     case SPAPR_TCE_FAULT:
  70         return IOMMU_NONE;
  71     case SPAPR_TCE_RO:
  72         return IOMMU_RO;
  73     case SPAPR_TCE_WO:
  74         return IOMMU_WO;
  75     default: /* SPAPR_TCE_RW */
  76         return IOMMU_RW;
  77     }
  78 }
  79
  80 static uint64_t *spapr_tce_alloc_table(uint32_t liobn,
  81                                        uint32_t page_shift,
  82                                        uint32_t nb_table,
  83                                        int *fd,
  84                                        bool need_vfio)
  85 {
  86     uint64_t *table = NULL;
  87     uint64_t window_size = (uint64_t)nb_table << page_shift;
  88
  89     if (kvm_enabled() && !(window_size >> 32)) {
  90         table = kvmppc_create_spapr_tce(liobn, window_size, fd, need_vfio);
  91     }
  92
  93     if (!table) {
  94         *fd = -1;
  95         table = g_malloc0(nb_table * sizeof(uint64_t));
  96     }
  97
  98     trace_spapr_iommu_new_table(liobn, table, *fd);
  99
 100     return table;
 101 }
 102
 103 static void spapr_tce_free_table(uint64_t *table, int fd, uint32_t nb_table)
 104 {
 105     if (!kvm_enabled() ||
 106         (kvmppc_remove_spapr_tce(table, fd, nb_table) != 0)) {
 107         g_free(table);
 108     }
 109 }
 110
 111 /* Called from RCU critical section */
 112 static IOMMUTLBEntry spapr_tce_translate_iommu(MemoryRegion *iommu, hwaddr addr,
 113                                                bool is_write)
 114 {
 115     sPAPRTCETable *tcet = container_of(iommu, sPAPRTCETable, iommu);
 116     uint64_t tce;
 117     IOMMUTLBEntry ret = {
 118         .target_as = &address_space_memory,
 119         .iova = 0,
 120         .translated_addr = 0,
 121         .addr_mask = ~(hwaddr)0,
 122         .perm = IOMMU_NONE,
 123     };
 124
 125     if ((addr >> tcet->page_shift) < tcet->nb_table) {
 126         /* Check if we are in bound */
 127         hwaddr page_mask = IOMMU_PAGE_MASK(tcet->page_shift);
 128
 129         tce = tcet->table[addr >> tcet->page_shift];
 130         ret.iova = addr & page_mask;
 131         ret.translated_addr = tce & page_mask;
 132         ret.addr_mask = ~page_mask;
 133         ret.perm = spapr_tce_iommu_access_flags(tce);
 134     }
 135     trace_spapr_iommu_xlate(tcet->liobn, addr, ret.iova, ret.perm,
 136                             ret.addr_mask);
 137
 138     return ret;
 139 }
 140
 141 static void spapr_tce_table_pre_save(void *opaque)
 142 {
 143     sPAPRTCETable *tcet = SPAPR_TCE_TABLE(opaque);
 144
 145     tcet->mig_table = tcet->table;
 146     tcet->mig_nb_table = tcet->nb_table;
 147
 148     trace_spapr_iommu_pre_save(tcet->liobn, tcet->mig_nb_table,
 149                                tcet->bus_offset, tcet->page_shift);
 150 }
 151
 152 static int spapr_tce_table_post_load(void *opaque, int version_id)
 153 {
 154     sPAPRTCETable *tcet = SPAPR_TCE_TABLE(opaque);
 155     uint32_t old_nb_table = tcet->nb_table;
 156     uint64_t old_bus_offset = tcet->bus_offset;
 157     uint32_t old_page_shift = tcet->page_shift;
 158
 159     if (tcet->vdev) {
 160         spapr_vio_set_bypass(tcet->vdev, tcet->bypass);
 161     }
 162
 163     if (tcet->mig_nb_table != tcet->nb_table) {
 164         spapr_tce_table_disable(tcet);
 165     }
 166
 167     if (tcet->mig_nb_table) {
 168         if (!tcet->nb_table) {
 169             spapr_tce_table_enable(tcet, old_page_shift, old_bus_offset,
 170                                    tcet->mig_nb_table);
 171         }
 172
 173         memcpy(tcet->table, tcet->mig_table,
 174                tcet->nb_table * sizeof(tcet->table[0]));
 175
 176         free(tcet->mig_table);
 177         tcet->mig_table = NULL;
 178     }
 179
 180     trace_spapr_iommu_post_load(tcet->liobn, old_nb_table, tcet->nb_table,
 181                                 tcet->bus_offset, tcet->page_shift);
 182
 183     return 0;
 184 }
 185
 186 static bool spapr_tce_table_ex_needed(void *opaque)
 187 {
 188     sPAPRTCETable *tcet = opaque;
 189
 190     return tcet->bus_offset || tcet->page_shift != 0xC;
 191 }
 192
 193 static const VMStateDescription vmstate_spapr_tce_table_ex = {
 194     .name = "spapr_iommu_ex",
 195     .version_id = 1,
 196     .minimum_version_id = 1,
 197     .needed = spapr_tce_table_ex_needed,
 198     .fields = (VMStateField[]) {
 199         VMSTATE_UINT64(bus_offset, sPAPRTCETable),
 200         VMSTATE_UINT32(page_shift, sPAPRTCETable),
 201         VMSTATE_END_OF_LIST()
 202     },
 203 };
 204
 205 static const VMStateDescription vmstate_spapr_tce_table = {
 206     .name = "spapr_iommu",
 207     .version_id = 2,
 208     .minimum_version_id = 2,
 209     .pre_save = spapr_tce_table_pre_save,
 210     .post_load = spapr_tce_table_post_load,
 211     .fields      = (VMStateField []) {
 212         /* Sanity check */
 213         VMSTATE_UINT32_EQUAL(liobn, sPAPRTCETable),
 214
 215         /* IOMMU state */
 216         VMSTATE_UINT32(mig_nb_table, sPAPRTCETable),
 217         VMSTATE_BOOL(bypass, sPAPRTCETable),
 218         VMSTATE_VARRAY_UINT32_ALLOC(mig_table, sPAPRTCETable, mig_nb_table, 0,
 219                                     vmstate_info_uint64, uint64_t),
 220
 221         VMSTATE_END_OF_LIST()
 222     },
 223     .subsections = (const VMStateDescription*[]) {
 224         &vmstate_spapr_tce_table_ex,
 225         NULL
 226     }
 227 };
 228
 229 static MemoryRegionIOMMUOps spapr_iommu_ops = {
 230     .translate = spapr_tce_translate_iommu,
 231 };
 232
 233 static int spapr_tce_table_realize(DeviceState *dev)
 234 {
 235     sPAPRTCETable *tcet = SPAPR_TCE_TABLE(dev);
 236
 237     tcet->fd = -1;
 238     tcet->need_vfio = false;
 239     memory_region_init_iommu(&tcet->iommu, OBJECT(dev), &spapr_iommu_ops,
 240                              "iommu-spapr", 0);
 241
 242     QLIST_INSERT_HEAD(&spapr_tce_tables, tcet, list);
 243
 244     vmstate_register(DEVICE(tcet), tcet->liobn, &vmstate_spapr_tce_table,
 245                      tcet);
 246
 247     return 0;
 248 }
 249
 250 void spapr_tce_set_need_vfio(sPAPRTCETable *tcet, bool need_vfio)
 251 {
 252     size_t table_size = tcet->nb_table * sizeof(uint64_t);
 253     void *newtable;
 254
 255     if (need_vfio == tcet->need_vfio) {
 256         /* Nothing to do */
 257         return;
 258     }
 259
 260     if (!need_vfio) {
 261         /* FIXME: We don't support transition back to KVM accelerated
 262          * TCEs yet */
 263         return;
 264     }
 265
 266     tcet->need_vfio = true;
 267
 268     if (tcet->fd < 0) {
 269         /* Table is already in userspace, nothing to be do */
 270         return;
 271     }
 272
 273     newtable = g_malloc(table_size);
 274     memcpy(newtable, tcet->table, table_size);
 275
 276     kvmppc_remove_spapr_tce(tcet->table, tcet->fd, tcet->nb_table);
 277
 278     tcet->fd = -1;
 279     tcet->table = newtable;
 280 }
 281
 282 sPAPRTCETable *spapr_tce_new_table(DeviceState *owner, uint32_t liobn)
 283 {
 284     sPAPRTCETable *tcet;
 285     char tmp[32];
 286
 287     if (spapr_tce_find_by_liobn(liobn)) {
 288         fprintf(stderr, "Attempted to create TCE table with duplicate"
 289                 " LIOBN 0x%x\n", liobn);
 290         return NULL;
 291     }
 292
 293     tcet = SPAPR_TCE_TABLE(object_new(TYPE_SPAPR_TCE_TABLE));
 294     tcet->liobn = liobn;
 295
 296     snprintf(tmp, sizeof(tmp), "tce-table-%x", liobn);
 297     object_property_add_child(OBJECT(owner), tmp, OBJECT(tcet), NULL);
 298
 299     object_property_set_bool(OBJECT(tcet), true, "realized", NULL);
 300
 301     return tcet;
 302 }
 303
 304 void spapr_tce_table_enable(sPAPRTCETable *tcet,
 305                             uint32_t page_shift, uint64_t bus_offset,
 306                             uint32_t nb_table)
 307 {
 308     if (tcet->nb_table) {
 309         error_report("Warning: trying to enable already enabled TCE table");
 310         return;
 311     }
 312
 313     tcet->bus_offset = bus_offset;
 314     tcet->page_shift = page_shift;
 315     tcet->nb_table = nb_table;
 316     tcet->table = spapr_tce_alloc_table(tcet->liobn,
 317                                         tcet->page_shift,
 318                                         tcet->nb_table,
 319                                         &tcet->fd,
 320                                         tcet->need_vfio);
 321
 322     memory_region_set_size(&tcet->iommu,
 323                            (uint64_t)tcet->nb_table << tcet->page_shift);
 324 }
 325
 326 void spapr_tce_table_disable(sPAPRTCETable *tcet)
 327 {
 328     if (!tcet->nb_table) {
 329         return;
 330     }
 331
 332     memory_region_set_size(&tcet->iommu, 0);
 333
 334     spapr_tce_free_table(tcet->table, tcet->fd, tcet->nb_table);
 335     tcet->fd = -1;
 336     tcet->table = NULL;
 337     tcet->bus_offset = 0;
 338     tcet->page_shift = 0;
 339     tcet->nb_table = 0;
 340 }
 341
 342 static void spapr_tce_table_unrealize(DeviceState *dev, Error **errp)
 343 {
 344     sPAPRTCETable *tcet = SPAPR_TCE_TABLE(dev);
 345
 346     QLIST_REMOVE(tcet, list);
 347
 348     spapr_tce_table_disable(tcet);
 349 }
 350
 351 MemoryRegion *spapr_tce_get_iommu(sPAPRTCETable *tcet)
 352 {
 353     return &tcet->iommu;
 354 }
 355
 356 static void spapr_tce_reset(DeviceState *dev)
 357 {
 358     sPAPRTCETable *tcet = SPAPR_TCE_TABLE(dev);
 359     size_t table_size = tcet->nb_table * sizeof(uint64_t);
 360
 361     memset(tcet->table, 0, table_size);
 362 }
 363
 364 static target_ulong put_tce_emu(sPAPRTCETable *tcet, target_ulong ioba,
 365                                 target_ulong tce)
 366 {
 367     IOMMUTLBEntry entry;
 368     hwaddr page_mask = IOMMU_PAGE_MASK(tcet->page_shift);
 369     unsigned long index = (ioba - tcet->bus_offset) >> tcet->page_shift;
 370
 371     if (index >= tcet->nb_table) {
 372         hcall_dprintf("spapr_vio_put_tce on out-of-bounds IOBA 0x"
 373                       TARGET_FMT_lx "\n", ioba);
 374         return H_PARAMETER;
 375     }
 376
 377     tcet->table[index] = tce;
 378
 379     entry.target_as = &address_space_memory,
 380     entry.iova = (ioba - tcet->bus_offset) & page_mask;
 381     entry.translated_addr = tce & page_mask;
 382     entry.addr_mask = ~page_mask;
 383     entry.perm = spapr_tce_iommu_access_flags(tce);
 384     memory_region_notify_iommu(&tcet->iommu, entry);
 385
 386     return H_SUCCESS;
 387 }
 388
 389 static target_ulong h_put_tce_indirect(PowerPCCPU *cpu,
 390                                        sPAPRMachineState *spapr,
 391                                        target_ulong opcode, target_ulong *args)
 392 {
 393     int i;
 394     target_ulong liobn = args[0];
 395     target_ulong ioba = args[1];
 396     target_ulong ioba1 = ioba;
 397     target_ulong tce_list = args[2];
 398     target_ulong npages = args[3];
 399     target_ulong ret = H_PARAMETER, tce = 0;
 400     sPAPRTCETable *tcet = spapr_tce_find_by_liobn(liobn);
 401     CPUState *cs = CPU(cpu);
 402     hwaddr page_mask, page_size;
 403
 404     if (!tcet) {
 405         return H_PARAMETER;
 406     }
 407
 408     if ((npages > 512) || (tce_list & SPAPR_TCE_PAGE_MASK)) {
 409         return H_PARAMETER;
 410     }
 411
 412     page_mask = IOMMU_PAGE_MASK(tcet->page_shift);
 413     page_size = IOMMU_PAGE_SIZE(tcet->page_shift);
 414     ioba &= page_mask;
 415
 416     for (i = 0; i < npages; ++i, ioba += page_size) {
 417         tce = ldq_be_phys(cs->as, tce_list + i * sizeof(target_ulong));
 418
 419         ret = put_tce_emu(tcet, ioba, tce);
 420         if (ret) {
 421             break;
 422         }
 423     }
 424
 425     /* Trace last successful or the first problematic entry */
 426     i = i ? (i - 1) : 0;
 427     if (SPAPR_IS_PCI_LIOBN(liobn)) {
 428         trace_spapr_iommu_pci_indirect(liobn, ioba1, tce_list, i, tce, ret);
 429     } else {
 430         trace_spapr_iommu_indirect(liobn, ioba1, tce_list, i, tce, ret);
 431     }
 432     return ret;
 433 }
 434
 435 static target_ulong h_stuff_tce(PowerPCCPU *cpu, sPAPRMachineState *spapr,
 436                               target_ulong opcode, target_ulong *args)
 437 {
 438     int i;
 439     target_ulong liobn = args[0];
 440     target_ulong ioba = args[1];
 441     target_ulong tce_value = args[2];
 442     target_ulong npages = args[3];
 443     target_ulong ret = H_PARAMETER;
 444     sPAPRTCETable *tcet = spapr_tce_find_by_liobn(liobn);
 445     hwaddr page_mask, page_size;
 446
 447     if (!tcet) {
 448         return H_PARAMETER;
 449     }
 450
 451     if (npages > tcet->nb_table) {
 452         return H_PARAMETER;
 453     }
 454
 455     page_mask = IOMMU_PAGE_MASK(tcet->page_shift);
 456     page_size = IOMMU_PAGE_SIZE(tcet->page_shift);
 457     ioba &= page_mask;
 458
 459     for (i = 0; i < npages; ++i, ioba += page_size) {
 460         ret = put_tce_emu(tcet, ioba, tce_value);
 461         if (ret) {
 462             break;
 463         }
 464     }
 465     if (SPAPR_IS_PCI_LIOBN(liobn)) {
 466         trace_spapr_iommu_pci_stuff(liobn, ioba, tce_value, npages, ret);
 467     } else {
 468         trace_spapr_iommu_stuff(liobn, ioba, tce_value, npages, ret);
 469     }
 470
 471     return ret;
 472 }
 473
 474 static target_ulong h_put_tce(PowerPCCPU *cpu, sPAPRMachineState *spapr,
 475                               target_ulong opcode, target_ulong *args)
 476 {
 477     target_ulong liobn = args[0];
 478     target_ulong ioba = args[1];
 479     target_ulong tce = args[2];
 480     target_ulong ret = H_PARAMETER;
 481     sPAPRTCETable *tcet = spapr_tce_find_by_liobn(liobn);
 482
 483     if (tcet) {
 484         hwaddr page_mask = IOMMU_PAGE_MASK(tcet->page_shift);
 485
 486         ioba &= page_mask;
 487
 488         ret = put_tce_emu(tcet, ioba, tce);
 489     }
 490     if (SPAPR_IS_PCI_LIOBN(liobn)) {
 491         trace_spapr_iommu_pci_put(liobn, ioba, tce, ret);
 492     } else {
 493         trace_spapr_iommu_put(liobn, ioba, tce, ret);
 494     }
 495
 496     return ret;
 497 }
 498
 499 static target_ulong get_tce_emu(sPAPRTCETable *tcet, target_ulong ioba,
 500                                 target_ulong *tce)
 501 {
 502     unsigned long index = (ioba - tcet->bus_offset) >> tcet->page_shift;
 503
 504     if (index >= tcet->nb_table) {
 505         hcall_dprintf("spapr_iommu_get_tce on out-of-bounds IOBA 0x"
 506                       TARGET_FMT_lx "\n", ioba);
 507         return H_PARAMETER;
 508     }
 509
 510     *tce = tcet->table[index];
 511
 512     return H_SUCCESS;
 513 }
 514
 515 static target_ulong h_get_tce(PowerPCCPU *cpu, sPAPRMachineState *spapr,
 516                               target_ulong opcode, target_ulong *args)
 517 {
 518     target_ulong liobn = args[0];
 519     target_ulong ioba = args[1];
 520     target_ulong tce = 0;
 521     target_ulong ret = H_PARAMETER;
 522     sPAPRTCETable *tcet = spapr_tce_find_by_liobn(liobn);
 523
 524     if (tcet) {
 525         hwaddr page_mask = IOMMU_PAGE_MASK(tcet->page_shift);
 526
 527         ioba &= page_mask;
 528
 529         ret = get_tce_emu(tcet, ioba, &tce);
 530         if (!ret) {
 531             args[0] = tce;
 532         }
 533     }
 534     if (SPAPR_IS_PCI_LIOBN(liobn)) {
 535         trace_spapr_iommu_pci_get(liobn, ioba, ret, tce);
 536     } else {
 537         trace_spapr_iommu_get(liobn, ioba, ret, tce);
 538     }
 539
 540     return ret;
 541 }
 542
 543 int spapr_dma_dt(void *fdt, int node_off, const char *propname,
 544                  uint32_t liobn, uint64_t window, uint32_t size)
 545 {
 546     uint32_t dma_prop[5];
 547     int ret;
 548
 549     dma_prop[0] = cpu_to_be32(liobn);
 550     dma_prop[1] = cpu_to_be32(window >> 32);
 551     dma_prop[2] = cpu_to_be32(window & 0xFFFFFFFF);
 552     dma_prop[3] = 0; /* window size is 32 bits */
 553     dma_prop[4] = cpu_to_be32(size);
 554
 555     ret = fdt_setprop_cell(fdt, node_off, "ibm,#dma-address-cells", 2);
 556     if (ret < 0) {
 557         return ret;
 558     }
 559
 560     ret = fdt_setprop_cell(fdt, node_off, "ibm,#dma-size-cells", 2);
 561     if (ret < 0) {
 562         return ret;
 563     }
 564
 565     ret = fdt_setprop(fdt, node_off, propname, dma_prop, sizeof(dma_prop));
 566     if (ret < 0) {
 567         return ret;
 568     }
 569
 570     return 0;
 571 }
 572
 573 int spapr_tcet_dma_dt(void *fdt, int node_off, const char *propname,
 574                       sPAPRTCETable *tcet)
 575 {
 576     if (!tcet) {
 577         return 0;
 578     }
 579
 580     return spapr_dma_dt(fdt, node_off, propname,
 581                         tcet->liobn, 0, tcet->nb_table << tcet->page_shift);
 582 }
 583
 584 static void spapr_tce_table_class_init(ObjectClass *klass, void *data)
 585 {
 586     DeviceClass *dc = DEVICE_CLASS(klass);
 587     dc->init = spapr_tce_table_realize;
 588     dc->reset = spapr_tce_reset;
 589     dc->unrealize = spapr_tce_table_unrealize;
 590
 591     QLIST_INIT(&spapr_tce_tables);
 592
 593     /* hcall-tce */
 594     spapr_register_hypercall(H_PUT_TCE, h_put_tce);
 595     spapr_register_hypercall(H_GET_TCE, h_get_tce);
 596     spapr_register_hypercall(H_PUT_TCE_INDIRECT, h_put_tce_indirect);
 597     spapr_register_hypercall(H_STUFF_TCE, h_stuff_tce);
 598 }
 599
 600 static TypeInfo spapr_tce_table_info = {
 601     .name = TYPE_SPAPR_TCE_TABLE,
 602     .parent = TYPE_DEVICE,
 603     .instance_size = sizeof(sPAPRTCETable),
 604     .class_init = spapr_tce_table_class_init,
 605 };
 606
 607 static void register_types(void)
 608 {
 609     type_register_static(&spapr_tce_table_info);
 610 }
 611
 612 type_init(register_types);