1 // SPDX-License-Identifier: GPL-2.0 2 /* 3 * ISM driver for s390. 4 * 5 * Copyright IBM Corp. 2018 6 */ 7 #define KMSG_COMPONENT "ism" 8 #define pr_fmt(fmt) KMSG_COMPONENT ": " fmt 9 10 #include <linux/module.h> 11 #include <linux/types.h> 12 #include <linux/interrupt.h> 13 #include <linux/device.h> 14 #include <linux/pci.h> 15 #include <linux/err.h> 16 #include <linux/ctype.h> 17 #include <linux/processor.h> 18 #include <net/smc.h> 19 20 #include <asm/debug.h> 21 22 #include "ism.h" 23 24 MODULE_DESCRIPTION("ISM driver for s390"); 25 MODULE_LICENSE("GPL"); 26 27 #define PCI_DEVICE_ID_IBM_ISM 0x04ED 28 #define DRV_NAME "ism" 29 30 static const struct pci_device_id ism_device_table[] = { 31 { PCI_VDEVICE(IBM, PCI_DEVICE_ID_IBM_ISM), 0 }, 32 { 0, } 33 }; 34 MODULE_DEVICE_TABLE(pci, ism_device_table); 35 36 static debug_info_t *ism_debug_info; 37 38 static int ism_cmd(struct ism_dev *ism, void *cmd) 39 { 40 struct ism_req_hdr *req = cmd; 41 struct ism_resp_hdr *resp = cmd; 42 43 __ism_write_cmd(ism, req + 1, sizeof(*req), req->len - sizeof(*req)); 44 __ism_write_cmd(ism, req, 0, sizeof(*req)); 45 46 WRITE_ONCE(resp->ret, ISM_ERROR); 47 48 __ism_read_cmd(ism, resp, 0, sizeof(*resp)); 49 if (resp->ret) { 50 debug_text_event(ism_debug_info, 0, "cmd failure"); 51 debug_event(ism_debug_info, 0, resp, sizeof(*resp)); 52 goto out; 53 } 54 __ism_read_cmd(ism, resp + 1, sizeof(*resp), resp->len - sizeof(*resp)); 55 out: 56 return resp->ret; 57 } 58 59 static int ism_cmd_simple(struct ism_dev *ism, u32 cmd_code) 60 { 61 union ism_cmd_simple cmd; 62 63 memset(&cmd, 0, sizeof(cmd)); 64 cmd.request.hdr.cmd = cmd_code; 65 cmd.request.hdr.len = sizeof(cmd.request); 66 67 return ism_cmd(ism, &cmd); 68 } 69 70 static int query_info(struct ism_dev *ism) 71 { 72 union ism_qi cmd; 73 74 memset(&cmd, 0, sizeof(cmd)); 75 cmd.request.hdr.cmd = ISM_QUERY_INFO; 76 cmd.request.hdr.len = sizeof(cmd.request); 77 78 if (ism_cmd(ism, &cmd)) 79 goto out; 80 81 debug_text_event(ism_debug_info, 3, "query info"); 82 debug_event(ism_debug_info, 3, &cmd.response, sizeof(cmd.response)); 83 out: 84 return 0; 85 } 86 87 static int register_sba(struct ism_dev *ism) 88 { 89 union ism_reg_sba cmd; 90 dma_addr_t dma_handle; 91 struct ism_sba *sba; 92 93 sba = dma_alloc_coherent(&ism->pdev->dev, PAGE_SIZE, &dma_handle, 94 GFP_KERNEL); 95 if (!sba) 96 return -ENOMEM; 97 98 memset(&cmd, 0, sizeof(cmd)); 99 cmd.request.hdr.cmd = ISM_REG_SBA; 100 cmd.request.hdr.len = sizeof(cmd.request); 101 cmd.request.sba = dma_handle; 102 103 if (ism_cmd(ism, &cmd)) { 104 dma_free_coherent(&ism->pdev->dev, PAGE_SIZE, sba, dma_handle); 105 return -EIO; 106 } 107 108 ism->sba = sba; 109 ism->sba_dma_addr = dma_handle; 110 111 return 0; 112 } 113 114 static int register_ieq(struct ism_dev *ism) 115 { 116 union ism_reg_ieq cmd; 117 dma_addr_t dma_handle; 118 struct ism_eq *ieq; 119 120 ieq = dma_alloc_coherent(&ism->pdev->dev, PAGE_SIZE, &dma_handle, 121 GFP_KERNEL); 122 if (!ieq) 123 return -ENOMEM; 124 125 memset(&cmd, 0, sizeof(cmd)); 126 cmd.request.hdr.cmd = ISM_REG_IEQ; 127 cmd.request.hdr.len = sizeof(cmd.request); 128 cmd.request.ieq = dma_handle; 129 cmd.request.len = sizeof(*ieq); 130 131 if (ism_cmd(ism, &cmd)) { 132 dma_free_coherent(&ism->pdev->dev, PAGE_SIZE, ieq, dma_handle); 133 return -EIO; 134 } 135 136 ism->ieq = ieq; 137 ism->ieq_idx = -1; 138 ism->ieq_dma_addr = dma_handle; 139 140 return 0; 141 } 142 143 static int unregister_sba(struct ism_dev *ism) 144 { 145 int ret; 146 147 if (!ism->sba) 148 return 0; 149 150 ret = ism_cmd_simple(ism, ISM_UNREG_SBA); 151 if (ret && ret != ISM_ERROR) 152 return -EIO; 153 154 dma_free_coherent(&ism->pdev->dev, PAGE_SIZE, 155 ism->sba, ism->sba_dma_addr); 156 157 ism->sba = NULL; 158 ism->sba_dma_addr = 0; 159 160 return 0; 161 } 162 163 static int unregister_ieq(struct ism_dev *ism) 164 { 165 int ret; 166 167 if (!ism->ieq) 168 return 0; 169 170 ret = ism_cmd_simple(ism, ISM_UNREG_IEQ); 171 if (ret && ret != ISM_ERROR) 172 return -EIO; 173 174 dma_free_coherent(&ism->pdev->dev, PAGE_SIZE, 175 ism->ieq, ism->ieq_dma_addr); 176 177 ism->ieq = NULL; 178 ism->ieq_dma_addr = 0; 179 180 return 0; 181 } 182 183 static int ism_read_local_gid(struct ism_dev *ism) 184 { 185 union ism_read_gid cmd; 186 int ret; 187 188 memset(&cmd, 0, sizeof(cmd)); 189 cmd.request.hdr.cmd = ISM_READ_GID; 190 cmd.request.hdr.len = sizeof(cmd.request); 191 192 ret = ism_cmd(ism, &cmd); 193 if (ret) 194 goto out; 195 196 ism->smcd->local_gid = cmd.response.gid; 197 out: 198 return ret; 199 } 200 201 static int ism_query_rgid(struct smcd_dev *smcd, u64 rgid, u32 vid_valid, 202 u32 vid) 203 { 204 struct ism_dev *ism = smcd->priv; 205 union ism_query_rgid cmd; 206 207 memset(&cmd, 0, sizeof(cmd)); 208 cmd.request.hdr.cmd = ISM_QUERY_RGID; 209 cmd.request.hdr.len = sizeof(cmd.request); 210 211 cmd.request.rgid = rgid; 212 cmd.request.vlan_valid = vid_valid; 213 cmd.request.vlan_id = vid; 214 215 return ism_cmd(ism, &cmd); 216 } 217 218 static void ism_free_dmb(struct ism_dev *ism, struct smcd_dmb *dmb) 219 { 220 clear_bit(dmb->sba_idx, ism->sba_bitmap); 221 dma_free_coherent(&ism->pdev->dev, dmb->dmb_len, 222 dmb->cpu_addr, dmb->dma_addr); 223 } 224 225 static int ism_alloc_dmb(struct ism_dev *ism, struct smcd_dmb *dmb) 226 { 227 unsigned long bit; 228 229 if (PAGE_ALIGN(dmb->dmb_len) > dma_get_max_seg_size(&ism->pdev->dev)) 230 return -EINVAL; 231 232 if (!dmb->sba_idx) { 233 bit = find_next_zero_bit(ism->sba_bitmap, ISM_NR_DMBS, 234 ISM_DMB_BIT_OFFSET); 235 if (bit == ISM_NR_DMBS) 236 return -ENOSPC; 237 238 dmb->sba_idx = bit; 239 } 240 if (dmb->sba_idx < ISM_DMB_BIT_OFFSET || 241 test_and_set_bit(dmb->sba_idx, ism->sba_bitmap)) 242 return -EINVAL; 243 244 dmb->cpu_addr = dma_alloc_coherent(&ism->pdev->dev, dmb->dmb_len, 245 &dmb->dma_addr, 246 GFP_KERNEL | __GFP_NOWARN | __GFP_NOMEMALLOC | __GFP_COMP | __GFP_NORETRY); 247 if (!dmb->cpu_addr) 248 clear_bit(dmb->sba_idx, ism->sba_bitmap); 249 250 return dmb->cpu_addr ? 0 : -ENOMEM; 251 } 252 253 static int ism_register_dmb(struct smcd_dev *smcd, struct smcd_dmb *dmb) 254 { 255 struct ism_dev *ism = smcd->priv; 256 union ism_reg_dmb cmd; 257 int ret; 258 259 ret = ism_alloc_dmb(ism, dmb); 260 if (ret) 261 goto out; 262 263 memset(&cmd, 0, sizeof(cmd)); 264 cmd.request.hdr.cmd = ISM_REG_DMB; 265 cmd.request.hdr.len = sizeof(cmd.request); 266 267 cmd.request.dmb = dmb->dma_addr; 268 cmd.request.dmb_len = dmb->dmb_len; 269 cmd.request.sba_idx = dmb->sba_idx; 270 cmd.request.vlan_valid = dmb->vlan_valid; 271 cmd.request.vlan_id = dmb->vlan_id; 272 cmd.request.rgid = dmb->rgid; 273 274 ret = ism_cmd(ism, &cmd); 275 if (ret) { 276 ism_free_dmb(ism, dmb); 277 goto out; 278 } 279 dmb->dmb_tok = cmd.response.dmb_tok; 280 out: 281 return ret; 282 } 283 284 static int ism_unregister_dmb(struct smcd_dev *smcd, struct smcd_dmb *dmb) 285 { 286 struct ism_dev *ism = smcd->priv; 287 union ism_unreg_dmb cmd; 288 int ret; 289 290 memset(&cmd, 0, sizeof(cmd)); 291 cmd.request.hdr.cmd = ISM_UNREG_DMB; 292 cmd.request.hdr.len = sizeof(cmd.request); 293 294 cmd.request.dmb_tok = dmb->dmb_tok; 295 296 ret = ism_cmd(ism, &cmd); 297 if (ret && ret != ISM_ERROR) 298 goto out; 299 300 ism_free_dmb(ism, dmb); 301 out: 302 return ret; 303 } 304 305 static int ism_add_vlan_id(struct smcd_dev *smcd, u64 vlan_id) 306 { 307 struct ism_dev *ism = smcd->priv; 308 union ism_set_vlan_id cmd; 309 310 memset(&cmd, 0, sizeof(cmd)); 311 cmd.request.hdr.cmd = ISM_ADD_VLAN_ID; 312 cmd.request.hdr.len = sizeof(cmd.request); 313 314 cmd.request.vlan_id = vlan_id; 315 316 return ism_cmd(ism, &cmd); 317 } 318 319 static int ism_del_vlan_id(struct smcd_dev *smcd, u64 vlan_id) 320 { 321 struct ism_dev *ism = smcd->priv; 322 union ism_set_vlan_id cmd; 323 324 memset(&cmd, 0, sizeof(cmd)); 325 cmd.request.hdr.cmd = ISM_DEL_VLAN_ID; 326 cmd.request.hdr.len = sizeof(cmd.request); 327 328 cmd.request.vlan_id = vlan_id; 329 330 return ism_cmd(ism, &cmd); 331 } 332 333 static int ism_set_vlan_required(struct smcd_dev *smcd) 334 { 335 return ism_cmd_simple(smcd->priv, ISM_SET_VLAN); 336 } 337 338 static int ism_reset_vlan_required(struct smcd_dev *smcd) 339 { 340 return ism_cmd_simple(smcd->priv, ISM_RESET_VLAN); 341 } 342 343 static int ism_signal_ieq(struct smcd_dev *smcd, u64 rgid, u32 trigger_irq, 344 u32 event_code, u64 info) 345 { 346 struct ism_dev *ism = smcd->priv; 347 union ism_sig_ieq cmd; 348 349 memset(&cmd, 0, sizeof(cmd)); 350 cmd.request.hdr.cmd = ISM_SIGNAL_IEQ; 351 cmd.request.hdr.len = sizeof(cmd.request); 352 353 cmd.request.rgid = rgid; 354 cmd.request.trigger_irq = trigger_irq; 355 cmd.request.event_code = event_code; 356 cmd.request.info = info; 357 358 return ism_cmd(ism, &cmd); 359 } 360 361 static unsigned int max_bytes(unsigned int start, unsigned int len, 362 unsigned int boundary) 363 { 364 return min(boundary - (start & (boundary - 1)), len); 365 } 366 367 static int ism_move(struct smcd_dev *smcd, u64 dmb_tok, unsigned int idx, 368 bool sf, unsigned int offset, void *data, unsigned int size) 369 { 370 struct ism_dev *ism = smcd->priv; 371 unsigned int bytes; 372 u64 dmb_req; 373 int ret; 374 375 while (size) { 376 bytes = max_bytes(offset, size, PAGE_SIZE); 377 dmb_req = ISM_CREATE_REQ(dmb_tok, idx, size == bytes ? sf : 0, 378 offset); 379 380 ret = __ism_move(ism, dmb_req, data, bytes); 381 if (ret) 382 return ret; 383 384 size -= bytes; 385 data += bytes; 386 offset += bytes; 387 } 388 389 return 0; 390 } 391 392 static struct ism_systemeid SYSTEM_EID = { 393 .seid_string = "IBM-SYSZ-ISMSEID00000000", 394 .serial_number = "0000", 395 .type = "0000", 396 }; 397 398 static void ism_create_system_eid(void) 399 { 400 struct cpuid id; 401 u16 ident_tail; 402 char tmp[5]; 403 404 get_cpu_id(&id); 405 ident_tail = (u16)(id.ident & ISM_IDENT_MASK); 406 snprintf(tmp, 5, "%04X", ident_tail); 407 memcpy(&SYSTEM_EID.serial_number, tmp, 4); 408 snprintf(tmp, 5, "%04X", id.machine); 409 memcpy(&SYSTEM_EID.type, tmp, 4); 410 } 411 412 static u8 *ism_get_system_eid(void) 413 { 414 return SYSTEM_EID.seid_string; 415 } 416 417 static u16 ism_get_chid(struct smcd_dev *smcd) 418 { 419 struct ism_dev *ism = (struct ism_dev *)smcd->priv; 420 421 if (!ism || !ism->pdev) 422 return 0; 423 424 return to_zpci(ism->pdev)->pchid; 425 } 426 427 static void ism_handle_event(struct ism_dev *ism) 428 { 429 struct smcd_event *entry; 430 431 while ((ism->ieq_idx + 1) != READ_ONCE(ism->ieq->header.idx)) { 432 if (++(ism->ieq_idx) == ARRAY_SIZE(ism->ieq->entry)) 433 ism->ieq_idx = 0; 434 435 entry = &ism->ieq->entry[ism->ieq_idx]; 436 debug_event(ism_debug_info, 2, entry, sizeof(*entry)); 437 smcd_handle_event(ism->smcd, entry); 438 } 439 } 440 441 static irqreturn_t ism_handle_irq(int irq, void *data) 442 { 443 struct ism_dev *ism = data; 444 unsigned long bit, end; 445 unsigned long *bv; 446 u16 dmbemask; 447 448 bv = (void *) &ism->sba->dmb_bits[ISM_DMB_WORD_OFFSET]; 449 end = sizeof(ism->sba->dmb_bits) * BITS_PER_BYTE - ISM_DMB_BIT_OFFSET; 450 451 spin_lock(&ism->lock); 452 ism->sba->s = 0; 453 barrier(); 454 for (bit = 0;;) { 455 bit = find_next_bit_inv(bv, end, bit); 456 if (bit >= end) 457 break; 458 459 clear_bit_inv(bit, bv); 460 dmbemask = ism->sba->dmbe_mask[bit + ISM_DMB_BIT_OFFSET]; 461 ism->sba->dmbe_mask[bit + ISM_DMB_BIT_OFFSET] = 0; 462 barrier(); 463 smcd_handle_irq(ism->smcd, bit + ISM_DMB_BIT_OFFSET, dmbemask); 464 } 465 466 if (ism->sba->e) { 467 ism->sba->e = 0; 468 barrier(); 469 ism_handle_event(ism); 470 } 471 spin_unlock(&ism->lock); 472 return IRQ_HANDLED; 473 } 474 475 static const struct smcd_ops ism_ops = { 476 .query_remote_gid = ism_query_rgid, 477 .register_dmb = ism_register_dmb, 478 .unregister_dmb = ism_unregister_dmb, 479 .add_vlan_id = ism_add_vlan_id, 480 .del_vlan_id = ism_del_vlan_id, 481 .set_vlan_required = ism_set_vlan_required, 482 .reset_vlan_required = ism_reset_vlan_required, 483 .signal_event = ism_signal_ieq, 484 .move_data = ism_move, 485 .get_system_eid = ism_get_system_eid, 486 .get_chid = ism_get_chid, 487 }; 488 489 static int ism_dev_init(struct ism_dev *ism) 490 { 491 struct pci_dev *pdev = ism->pdev; 492 int ret; 493 494 ret = pci_alloc_irq_vectors(pdev, 1, 1, PCI_IRQ_MSI); 495 if (ret <= 0) 496 goto out; 497 498 ret = request_irq(pci_irq_vector(pdev, 0), ism_handle_irq, 0, 499 pci_name(pdev), ism); 500 if (ret) 501 goto free_vectors; 502 503 ret = register_sba(ism); 504 if (ret) 505 goto free_irq; 506 507 ret = register_ieq(ism); 508 if (ret) 509 goto unreg_sba; 510 511 ret = ism_read_local_gid(ism); 512 if (ret) 513 goto unreg_ieq; 514 515 if (!ism_add_vlan_id(ism->smcd, ISM_RESERVED_VLANID)) 516 /* hardware is V2 capable */ 517 ism_create_system_eid(); 518 519 ret = smcd_register_dev(ism->smcd); 520 if (ret) 521 goto unreg_ieq; 522 523 query_info(ism); 524 return 0; 525 526 unreg_ieq: 527 unregister_ieq(ism); 528 unreg_sba: 529 unregister_sba(ism); 530 free_irq: 531 free_irq(pci_irq_vector(pdev, 0), ism); 532 free_vectors: 533 pci_free_irq_vectors(pdev); 534 out: 535 return ret; 536 } 537 538 static int ism_probe(struct pci_dev *pdev, const struct pci_device_id *id) 539 { 540 struct ism_dev *ism; 541 int ret; 542 543 ism = kzalloc(sizeof(*ism), GFP_KERNEL); 544 if (!ism) 545 return -ENOMEM; 546 547 spin_lock_init(&ism->lock); 548 dev_set_drvdata(&pdev->dev, ism); 549 ism->pdev = pdev; 550 551 ret = pci_enable_device_mem(pdev); 552 if (ret) 553 goto err; 554 555 ret = pci_request_mem_regions(pdev, DRV_NAME); 556 if (ret) 557 goto err_disable; 558 559 ret = dma_set_mask(&pdev->dev, DMA_BIT_MASK(64)); 560 if (ret) 561 goto err_resource; 562 563 dma_set_seg_boundary(&pdev->dev, SZ_1M - 1); 564 dma_set_max_seg_size(&pdev->dev, SZ_1M); 565 pci_set_master(pdev); 566 567 ism->smcd = smcd_alloc_dev(&pdev->dev, dev_name(&pdev->dev), &ism_ops, 568 ISM_NR_DMBS); 569 if (!ism->smcd) { 570 ret = -ENOMEM; 571 goto err_resource; 572 } 573 574 ism->smcd->priv = ism; 575 ret = ism_dev_init(ism); 576 if (ret) 577 goto err_free; 578 579 return 0; 580 581 err_free: 582 smcd_free_dev(ism->smcd); 583 err_resource: 584 pci_release_mem_regions(pdev); 585 err_disable: 586 pci_disable_device(pdev); 587 err: 588 kfree(ism); 589 dev_set_drvdata(&pdev->dev, NULL); 590 return ret; 591 } 592 593 static void ism_dev_exit(struct ism_dev *ism) 594 { 595 struct pci_dev *pdev = ism->pdev; 596 597 smcd_unregister_dev(ism->smcd); 598 if (SYSTEM_EID.serial_number[0] != '0' || 599 SYSTEM_EID.type[0] != '0') 600 ism_del_vlan_id(ism->smcd, ISM_RESERVED_VLANID); 601 unregister_ieq(ism); 602 unregister_sba(ism); 603 free_irq(pci_irq_vector(pdev, 0), ism); 604 pci_free_irq_vectors(pdev); 605 } 606 607 static void ism_remove(struct pci_dev *pdev) 608 { 609 struct ism_dev *ism = dev_get_drvdata(&pdev->dev); 610 611 ism_dev_exit(ism); 612 613 smcd_free_dev(ism->smcd); 614 pci_release_mem_regions(pdev); 615 pci_disable_device(pdev); 616 dev_set_drvdata(&pdev->dev, NULL); 617 kfree(ism); 618 } 619 620 static struct pci_driver ism_driver = { 621 .name = DRV_NAME, 622 .id_table = ism_device_table, 623 .probe = ism_probe, 624 .remove = ism_remove, 625 }; 626 627 static int __init ism_init(void) 628 { 629 int ret; 630 631 ism_debug_info = debug_register("ism", 2, 1, 16); 632 if (!ism_debug_info) 633 return -ENODEV; 634 635 debug_register_view(ism_debug_info, &debug_hex_ascii_view); 636 ret = pci_register_driver(&ism_driver); 637 if (ret) 638 debug_unregister(ism_debug_info); 639 640 return ret; 641 } 642 643 static void __exit ism_exit(void) 644 { 645 pci_unregister_driver(&ism_driver); 646 debug_unregister(ism_debug_info); 647 } 648 649 module_init(ism_init); 650 module_exit(ism_exit); 651