arch/s390/pci/pci_insn.c

   1 // SPDX-License-Identifier: GPL-2.0
   2 /*
   3  * s390 specific pci instructions
   4  *
   5  * Copyright IBM Corp. 2013
   6  */
   7
   8 #include <linux/export.h>
   9 #include <linux/errno.h>
  10 #include <linux/delay.h>
  11 #include <linux/jump_label.h>
  12 #include <asm/facility.h>
  13 #include <asm/pci_insn.h>
  14 #include <asm/pci_debug.h>
  15 #include <asm/pci_io.h>
  16 #include <asm/processor.h>
  17
  18 #define ZPCI_INSN_BUSY_DELAY    1       /* 1 microsecond */
  19
  20 static inline void zpci_err_insn(u8 cc, u8 status, u64 req, u64 offset)
  21 {
  22         struct {
  23                 u64 req;
  24                 u64 offset;
  25                 u8 cc;
  26                 u8 status;
  27         } __packed data = {req, offset, cc, status};
  28
  29         zpci_err_hex(&data, sizeof(data));
  30 }
  31
  32 /* Modify PCI Function Controls */
  33 static inline u8 __mpcifc(u64 req, struct zpci_fib *fib, u8 *status)
  34 {
  35         u8 cc;
  36
  37         asm volatile (
  38                 "       .insn   rxy,0xe300000000d0,%[req],%[fib]\n"
  39                 "       ipm     %[cc]\n"
  40                 "       srl     %[cc],28\n"
  41                 : [cc] "=d" (cc), [req] "+d" (req), [fib] "+Q" (*fib)
  42                 : : "cc");
  43         *status = req >> 24 & 0xff;
  44         return cc;
  45 }
  46
  47 u8 zpci_mod_fc(u64 req, struct zpci_fib *fib, u8 *status)
  48 {
  49         u8 cc;
  50
  51         do {
  52                 cc = __mpcifc(req, fib, status);
  53                 if (cc == 2)
  54                         msleep(ZPCI_INSN_BUSY_DELAY);
  55         } while (cc == 2);
  56
  57         if (cc)
  58                 zpci_err_insn(cc, *status, req, 0);
  59
  60         return cc;
  61 }
  62
  63 /* Refresh PCI Translations */
  64 static inline u8 __rpcit(u64 fn, u64 addr, u64 range, u8 *status)
  65 {
  66         union register_pair addr_range = {.even = addr, .odd = range};
  67         u8 cc;
  68
  69         asm volatile (
  70                 "       .insn   rre,0xb9d30000,%[fn],%[addr_range]\n"
  71                 "       ipm     %[cc]\n"
  72                 "       srl     %[cc],28\n"
  73                 : [cc] "=d" (cc), [fn] "+d" (fn)
  74                 : [addr_range] "d" (addr_range.pair)
  75                 : "cc");
  76         *status = fn >> 24 & 0xff;
  77         return cc;
  78 }
  79
  80 int zpci_refresh_trans(u64 fn, u64 addr, u64 range)
  81 {
  82         u8 cc, status;
  83
  84         do {
  85                 cc = __rpcit(fn, addr, range, &status);
  86                 if (cc == 2)
  87                         udelay(ZPCI_INSN_BUSY_DELAY);
  88         } while (cc == 2);
  89
  90         if (cc)
  91                 zpci_err_insn(cc, status, addr, range);
  92
  93         if (cc == 1 && (status == 4 || status == 16))
  94                 return -ENOMEM;
  95
  96         return (cc) ? -EIO : 0;
  97 }
  98
  99 /* Set Interruption Controls */
 100 int __zpci_set_irq_ctrl(u16 ctl, u8 isc, union zpci_sic_iib *iib)
 101 {
 102         if (!test_facility(72))
 103                 return -EIO;
 104
 105         asm volatile(
 106                 ".insn  rsy,0xeb00000000d1,%[ctl],%[isc],%[iib]\n"
 107                 : : [ctl] "d" (ctl), [isc] "d" (isc << 27), [iib] "Q" (*iib));
 108
 109         return 0;
 110 }
 111
 112 /* PCI Load */
 113 static inline int ____pcilg(u64 *data, u64 req, u64 offset, u8 *status)
 114 {
 115         union register_pair req_off = {.even = req, .odd = offset};
 116         int cc = -ENXIO;
 117         u64 __data;
 118
 119         asm volatile (
 120                 "       .insn   rre,0xb9d20000,%[data],%[req_off]\n"
 121                 "0:     ipm     %[cc]\n"
 122                 "       srl     %[cc],28\n"
 123                 "1:\n"
 124                 EX_TABLE(0b, 1b)
 125                 : [cc] "+d" (cc), [data] "=d" (__data),
 126                   [req_off] "+&d" (req_off.pair) :: "cc");
 127         *status = req_off.even >> 24 & 0xff;
 128         *data = __data;
 129         return cc;
 130 }
 131
 132 static inline int __pcilg(u64 *data, u64 req, u64 offset, u8 *status)
 133 {
 134         u64 __data;
 135         int cc;
 136
 137         cc = ____pcilg(&__data, req, offset, status);
 138         if (!cc)
 139                 *data = __data;
 140
 141         return cc;
 142 }
 143
 144 int __zpci_load(u64 *data, u64 req, u64 offset)
 145 {
 146         u8 status;
 147         int cc;
 148
 149         do {
 150                 cc = __pcilg(data, req, offset, &status);
 151                 if (cc == 2)
 152                         udelay(ZPCI_INSN_BUSY_DELAY);
 153         } while (cc == 2);
 154
 155         if (cc)
 156                 zpci_err_insn(cc, status, req, offset);
 157
 158         return (cc > 0) ? -EIO : cc;
 159 }
 160 EXPORT_SYMBOL_GPL(__zpci_load);
 161
 162 static inline int zpci_load_fh(u64 *data, const volatile void __iomem *addr,
 163                                unsigned long len)
 164 {
 165         struct zpci_iomap_entry *entry = &zpci_iomap_start[ZPCI_IDX(addr)];
 166         u64 req = ZPCI_CREATE_REQ(entry->fh, entry->bar, len);
 167
 168         return __zpci_load(data, req, ZPCI_OFFSET(addr));
 169 }
 170
 171 static inline int __pcilg_mio(u64 *data, u64 ioaddr, u64 len, u8 *status)
 172 {
 173         union register_pair ioaddr_len = {.even = ioaddr, .odd = len};
 174         int cc = -ENXIO;
 175         u64 __data;
 176
 177         asm volatile (
 178                 "       .insn   rre,0xb9d60000,%[data],%[ioaddr_len]\n"
 179                 "0:     ipm     %[cc]\n"
 180                 "       srl     %[cc],28\n"
 181                 "1:\n"
 182                 EX_TABLE(0b, 1b)
 183                 : [cc] "+d" (cc), [data] "=d" (__data),
 184                   [ioaddr_len] "+&d" (ioaddr_len.pair) :: "cc");
 185         *status = ioaddr_len.odd >> 24 & 0xff;
 186         *data = __data;
 187         return cc;
 188 }
 189
 190 int zpci_load(u64 *data, const volatile void __iomem *addr, unsigned long len)
 191 {
 192         u8 status;
 193         int cc;
 194
 195         if (!static_branch_unlikely(&have_mio))
 196                 return zpci_load_fh(data, addr, len);
 197
 198         cc = __pcilg_mio(data, (__force u64) addr, len, &status);
 199         if (cc)
 200                 zpci_err_insn(cc, status, 0, (__force u64) addr);
 201
 202         return (cc > 0) ? -EIO : cc;
 203 }
 204 EXPORT_SYMBOL_GPL(zpci_load);
 205
 206 /* PCI Store */
 207 static inline int __pcistg(u64 data, u64 req, u64 offset, u8 *status)
 208 {
 209         union register_pair req_off = {.even = req, .odd = offset};
 210         int cc = -ENXIO;
 211
 212         asm volatile (
 213                 "       .insn   rre,0xb9d00000,%[data],%[req_off]\n"
 214                 "0:     ipm     %[cc]\n"
 215                 "       srl     %[cc],28\n"
 216                 "1:\n"
 217                 EX_TABLE(0b, 1b)
 218                 : [cc] "+d" (cc), [req_off] "+&d" (req_off.pair)
 219                 : [data] "d" (data)
 220                 : "cc");
 221         *status = req_off.even >> 24 & 0xff;
 222         return cc;
 223 }
 224
 225 int __zpci_store(u64 data, u64 req, u64 offset)
 226 {
 227         u8 status;
 228         int cc;
 229
 230         do {
 231                 cc = __pcistg(data, req, offset, &status);
 232                 if (cc == 2)
 233                         udelay(ZPCI_INSN_BUSY_DELAY);
 234         } while (cc == 2);
 235
 236         if (cc)
 237                 zpci_err_insn(cc, status, req, offset);
 238
 239         return (cc > 0) ? -EIO : cc;
 240 }
 241 EXPORT_SYMBOL_GPL(__zpci_store);
 242
 243 static inline int zpci_store_fh(const volatile void __iomem *addr, u64 data,
 244                                 unsigned long len)
 245 {
 246         struct zpci_iomap_entry *entry = &zpci_iomap_start[ZPCI_IDX(addr)];
 247         u64 req = ZPCI_CREATE_REQ(entry->fh, entry->bar, len);
 248
 249         return __zpci_store(data, req, ZPCI_OFFSET(addr));
 250 }
 251
 252 static inline int __pcistg_mio(u64 data, u64 ioaddr, u64 len, u8 *status)
 253 {
 254         union register_pair ioaddr_len = {.even = ioaddr, .odd = len};
 255         int cc = -ENXIO;
 256
 257         asm volatile (
 258                 "       .insn   rre,0xb9d40000,%[data],%[ioaddr_len]\n"
 259                 "0:     ipm     %[cc]\n"
 260                 "       srl     %[cc],28\n"
 261                 "1:\n"
 262                 EX_TABLE(0b, 1b)
 263                 : [cc] "+d" (cc), [ioaddr_len] "+&d" (ioaddr_len.pair)
 264                 : [data] "d" (data)
 265                 : "cc", "memory");
 266         *status = ioaddr_len.odd >> 24 & 0xff;
 267         return cc;
 268 }
 269
 270 int zpci_store(const volatile void __iomem *addr, u64 data, unsigned long len)
 271 {
 272         u8 status;
 273         int cc;
 274
 275         if (!static_branch_unlikely(&have_mio))
 276                 return zpci_store_fh(addr, data, len);
 277
 278         cc = __pcistg_mio(data, (__force u64) addr, len, &status);
 279         if (cc)
 280                 zpci_err_insn(cc, status, 0, (__force u64) addr);
 281
 282         return (cc > 0) ? -EIO : cc;
 283 }
 284 EXPORT_SYMBOL_GPL(zpci_store);
 285
 286 /* PCI Store Block */
 287 static inline int __pcistb(const u64 *data, u64 req, u64 offset, u8 *status)
 288 {
 289         int cc = -ENXIO;
 290
 291         asm volatile (
 292                 "       .insn   rsy,0xeb00000000d0,%[req],%[offset],%[data]\n"
 293                 "0:     ipm     %[cc]\n"
 294                 "       srl     %[cc],28\n"
 295                 "1:\n"
 296                 EX_TABLE(0b, 1b)
 297                 : [cc] "+d" (cc), [req] "+d" (req)
 298                 : [offset] "d" (offset), [data] "Q" (*data)
 299                 : "cc");
 300         *status = req >> 24 & 0xff;
 301         return cc;
 302 }
 303
 304 int __zpci_store_block(const u64 *data, u64 req, u64 offset)
 305 {
 306         u8 status;
 307         int cc;
 308
 309         do {
 310                 cc = __pcistb(data, req, offset, &status);
 311                 if (cc == 2)
 312                         udelay(ZPCI_INSN_BUSY_DELAY);
 313         } while (cc == 2);
 314
 315         if (cc)
 316                 zpci_err_insn(cc, status, req, offset);
 317
 318         return (cc > 0) ? -EIO : cc;
 319 }
 320 EXPORT_SYMBOL_GPL(__zpci_store_block);
 321
 322 static inline int zpci_write_block_fh(volatile void __iomem *dst,
 323                                       const void *src, unsigned long len)
 324 {
 325         struct zpci_iomap_entry *entry = &zpci_iomap_start[ZPCI_IDX(dst)];
 326         u64 req = ZPCI_CREATE_REQ(entry->fh, entry->bar, len);
 327         u64 offset = ZPCI_OFFSET(dst);
 328
 329         return __zpci_store_block(src, req, offset);
 330 }
 331
 332 static inline int __pcistb_mio(const u64 *data, u64 ioaddr, u64 len, u8 *status)
 333 {
 334         int cc = -ENXIO;
 335
 336         asm volatile (
 337                 "       .insn   rsy,0xeb00000000d4,%[len],%[ioaddr],%[data]\n"
 338                 "0:     ipm     %[cc]\n"
 339                 "       srl     %[cc],28\n"
 340                 "1:\n"
 341                 EX_TABLE(0b, 1b)
 342                 : [cc] "+d" (cc), [len] "+d" (len)
 343                 : [ioaddr] "d" (ioaddr), [data] "Q" (*data)
 344                 : "cc");
 345         *status = len >> 24 & 0xff;
 346         return cc;
 347 }
 348
 349 int zpci_write_block(volatile void __iomem *dst,
 350                      const void *src, unsigned long len)
 351 {
 352         u8 status;
 353         int cc;
 354
 355         if (!static_branch_unlikely(&have_mio))
 356                 return zpci_write_block_fh(dst, src, len);
 357
 358         cc = __pcistb_mio(src, (__force u64) dst, len, &status);
 359         if (cc)
 360                 zpci_err_insn(cc, status, 0, (__force u64) dst);
 361
 362         return (cc > 0) ? -EIO : cc;
 363 }
 364 EXPORT_SYMBOL_GPL(zpci_write_block);
 365
 366 static inline void __pciwb_mio(void)
 367 {
 368         unsigned long unused = 0;
 369
 370         asm volatile (".insn    rre,0xb9d50000,%[op],%[op]\n"
 371                       : [op] "+d" (unused));
 372 }
 373
 374 void zpci_barrier(void)
 375 {
 376         if (static_branch_likely(&have_mio))
 377                 __pciwb_mio();
 378 }
 379 EXPORT_SYMBOL_GPL(zpci_barrier);