drivers/infiniband/hw/ehca/ehca_mrmw.c

   1 /*
   2  *  IBM eServer eHCA Infiniband device driver for Linux on POWER
   3  *
   4  *  MR/MW functions
   5  *
   6  *  Authors: Dietmar Decker <ddecker@de.ibm.com>
   7  *           Christoph Raisch <raisch@de.ibm.com>
   8  *           Hoang-Nam Nguyen <hnguyen@de.ibm.com>
   9  *
  10  *  Copyright (c) 2005 IBM Corporation
  11  *
  12  *  All rights reserved.
  13  *
  14  *  This source code is distributed under a dual license of GPL v2.0 and OpenIB
  15  *  BSD.
  16  *
  17  * OpenIB BSD License
  18  *
  19  * Redistribution and use in source and binary forms, with or without
  20  * modification, are permitted provided that the following conditions are met:
  21  *
  22  * Redistributions of source code must retain the above copyright notice, this
  23  * list of conditions and the following disclaimer.
  24  *
  25  * Redistributions in binary form must reproduce the above copyright notice,
  26  * this list of conditions and the following disclaimer in the documentation
  27  * and/or other materials
  28  * provided with the distribution.
  29  *
  30  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  31  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  32  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  33  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
  34  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  35  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  36  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  37  * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
  38  * IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  39  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  40  * POSSIBILITY OF SUCH DAMAGE.
  41  */
  42
  43 #include <asm/current.h>
  44
  45 #include <rdma/ib_umem.h>
  46
  47 #include "ehca_iverbs.h"
  48 #include "ehca_mrmw.h"
  49 #include "hcp_if.h"
  50 #include "hipz_hw.h"
  51
  52 #define NUM_CHUNKS(length, chunk_size) \
  53         (((length) + (chunk_size - 1)) / (chunk_size))
  54
  55 /* max number of rpages (per hcall register_rpages) */
  56 #define MAX_RPAGES 512
  57
  58 static struct kmem_cache *mr_cache;
  59 static struct kmem_cache *mw_cache;
  60
  61 enum ehca_mr_pgsize {
  62         EHCA_MR_PGSIZE4K  = 0x1000L,
  63         EHCA_MR_PGSIZE64K = 0x10000L,
  64         EHCA_MR_PGSIZE1M  = 0x100000L,
  65         EHCA_MR_PGSIZE16M = 0x1000000L
  66 };
  67
  68 #define EHCA_MR_PGSHIFT4K  12
  69 #define EHCA_MR_PGSHIFT64K 16
  70 #define EHCA_MR_PGSHIFT1M  20
  71 #define EHCA_MR_PGSHIFT16M 24
  72
  73 static u32 ehca_encode_hwpage_size(u32 pgsize)
  74 {
  75         int log = ilog2(pgsize);
  76         WARN_ON(log < 12 || log > 24 || log & 3);
  77         return (log - 12) / 4;
  78 }
  79
  80 static u64 ehca_get_max_hwpage_size(struct ehca_shca *shca)
  81 {
  82         if (shca->hca_cap_mr_pgsize & HCA_CAP_MR_PGSIZE_16M)
  83                 return EHCA_MR_PGSIZE16M;
  84         return EHCA_MR_PGSIZE4K;
  85 }
  86
  87 static struct ehca_mr *ehca_mr_new(void)
  88 {
  89         struct ehca_mr *me;
  90
  91         me = kmem_cache_zalloc(mr_cache, GFP_KERNEL);
  92         if (me)
  93                 spin_lock_init(&me->mrlock);
  94         else
  95                 ehca_gen_err("alloc failed");
  96
  97         return me;
  98 }
  99
 100 static void ehca_mr_delete(struct ehca_mr *me)
 101 {
 102         kmem_cache_free(mr_cache, me);
 103 }
 104
 105 static struct ehca_mw *ehca_mw_new(void)
 106 {
 107         struct ehca_mw *me;
 108
 109         me = kmem_cache_zalloc(mw_cache, GFP_KERNEL);
 110         if (me)
 111                 spin_lock_init(&me->mwlock);
 112         else
 113                 ehca_gen_err("alloc failed");
 114
 115         return me;
 116 }
 117
 118 static void ehca_mw_delete(struct ehca_mw *me)
 119 {
 120         kmem_cache_free(mw_cache, me);
 121 }
 122
 123 /*----------------------------------------------------------------------*/
 124
 125 struct ib_mr *ehca_get_dma_mr(struct ib_pd *pd, int mr_access_flags)
 126 {
 127         struct ib_mr *ib_mr;
 128         int ret;
 129         struct ehca_mr *e_maxmr;
 130         struct ehca_pd *e_pd = container_of(pd, struct ehca_pd, ib_pd);
 131         struct ehca_shca *shca =
 132                 container_of(pd->device, struct ehca_shca, ib_device);
 133
 134         if (shca->maxmr) {
 135                 e_maxmr = ehca_mr_new();
 136                 if (!e_maxmr) {
 137                         ehca_err(&shca->ib_device, "out of memory");
 138                         ib_mr = ERR_PTR(-ENOMEM);
 139                         goto get_dma_mr_exit0;
 140                 }
 141
 142                 ret = ehca_reg_maxmr(shca, e_maxmr, (u64 *)KERNELBASE,
 143                                      mr_access_flags, e_pd,
 144                                      &e_maxmr->ib.ib_mr.lkey,
 145                                      &e_maxmr->ib.ib_mr.rkey);
 146                 if (ret) {
 147                         ehca_mr_delete(e_maxmr);
 148                         ib_mr = ERR_PTR(ret);
 149                         goto get_dma_mr_exit0;
 150                 }
 151                 ib_mr = &e_maxmr->ib.ib_mr;
 152         } else {
 153                 ehca_err(&shca->ib_device, "no internal max-MR exist!");
 154                 ib_mr = ERR_PTR(-EINVAL);
 155                 goto get_dma_mr_exit0;
 156         }
 157
 158 get_dma_mr_exit0:
 159         if (IS_ERR(ib_mr))
 160                 ehca_err(&shca->ib_device, "h_ret=%li pd=%p mr_access_flags=%x",
 161                          PTR_ERR(ib_mr), pd, mr_access_flags);
 162         return ib_mr;
 163 } /* end ehca_get_dma_mr() */
 164
 165 /*----------------------------------------------------------------------*/
 166
 167 struct ib_mr *ehca_reg_phys_mr(struct ib_pd *pd,
 168                                struct ib_phys_buf *phys_buf_array,
 169                                int num_phys_buf,
 170                                int mr_access_flags,
 171                                u64 *iova_start)
 172 {
 173         struct ib_mr *ib_mr;
 174         int ret;
 175         struct ehca_mr *e_mr;
 176         struct ehca_shca *shca =
 177                 container_of(pd->device, struct ehca_shca, ib_device);
 178         struct ehca_pd *e_pd = container_of(pd, struct ehca_pd, ib_pd);
 179
 180         u64 size;
 181
 182         if ((num_phys_buf <= 0) || !phys_buf_array) {
 183                 ehca_err(pd->device, "bad input values: num_phys_buf=%x "
 184                          "phys_buf_array=%p", num_phys_buf, phys_buf_array);
 185                 ib_mr = ERR_PTR(-EINVAL);
 186                 goto reg_phys_mr_exit0;
 187         }
 188         if (((mr_access_flags & IB_ACCESS_REMOTE_WRITE) &&
 189              !(mr_access_flags & IB_ACCESS_LOCAL_WRITE)) ||
 190             ((mr_access_flags & IB_ACCESS_REMOTE_ATOMIC) &&
 191              !(mr_access_flags & IB_ACCESS_LOCAL_WRITE))) {
 192                 /*
 193                  * Remote Write Access requires Local Write Access
 194                  * Remote Atomic Access requires Local Write Access
 195                  */
 196                 ehca_err(pd->device, "bad input values: mr_access_flags=%x",
 197                          mr_access_flags);
 198                 ib_mr = ERR_PTR(-EINVAL);
 199                 goto reg_phys_mr_exit0;
 200         }
 201
 202         /* check physical buffer list and calculate size */
 203         ret = ehca_mr_chk_buf_and_calc_size(phys_buf_array, num_phys_buf,
 204                                             iova_start, &size);
 205         if (ret) {
 206                 ib_mr = ERR_PTR(ret);
 207                 goto reg_phys_mr_exit0;
 208         }
 209         if ((size == 0) ||
 210             (((u64)iova_start + size) < (u64)iova_start)) {
 211                 ehca_err(pd->device, "bad input values: size=%lx iova_start=%p",
 212                          size, iova_start);
 213                 ib_mr = ERR_PTR(-EINVAL);
 214                 goto reg_phys_mr_exit0;
 215         }
 216
 217         e_mr = ehca_mr_new();
 218         if (!e_mr) {
 219                 ehca_err(pd->device, "out of memory");
 220                 ib_mr = ERR_PTR(-ENOMEM);
 221                 goto reg_phys_mr_exit0;
 222         }
 223
 224         /* register MR on HCA */
 225         if (ehca_mr_is_maxmr(size, iova_start)) {
 226                 e_mr->flags |= EHCA_MR_FLAG_MAXMR;
 227                 ret = ehca_reg_maxmr(shca, e_mr, iova_start, mr_access_flags,
 228                                      e_pd, &e_mr->ib.ib_mr.lkey,
 229                                      &e_mr->ib.ib_mr.rkey);
 230                 if (ret) {
 231                         ib_mr = ERR_PTR(ret);
 232                         goto reg_phys_mr_exit1;
 233                 }
 234         } else {
 235                 struct ehca_mr_pginfo pginfo;
 236                 u32 num_kpages;
 237                 u32 num_hwpages;
 238                 u64 hw_pgsize;
 239
 240                 num_kpages = NUM_CHUNKS(((u64)iova_start % PAGE_SIZE) + size,
 241                                         PAGE_SIZE);
 242                 /* for kernel space we try most possible pgsize */
 243                 hw_pgsize = ehca_get_max_hwpage_size(shca);
 244                 num_hwpages = NUM_CHUNKS(((u64)iova_start % hw_pgsize) + size,
 245                                          hw_pgsize);
 246                 memset(&pginfo, 0, sizeof(pginfo));
 247                 pginfo.type = EHCA_MR_PGI_PHYS;
 248                 pginfo.num_kpages = num_kpages;
 249                 pginfo.hwpage_size = hw_pgsize;
 250                 pginfo.num_hwpages = num_hwpages;
 251                 pginfo.u.phy.num_phys_buf = num_phys_buf;
 252                 pginfo.u.phy.phys_buf_array = phys_buf_array;
 253                 pginfo.next_hwpage =
 254                         ((u64)iova_start & ~PAGE_MASK) / hw_pgsize;
 255
 256                 ret = ehca_reg_mr(shca, e_mr, iova_start, size, mr_access_flags,
 257                                   e_pd, &pginfo, &e_mr->ib.ib_mr.lkey,
 258                                   &e_mr->ib.ib_mr.rkey);
 259                 if (ret) {
 260                         ib_mr = ERR_PTR(ret);
 261                         goto reg_phys_mr_exit1;
 262                 }
 263         }
 264
 265         /* successful registration of all pages */
 266         return &e_mr->ib.ib_mr;
 267
 268 reg_phys_mr_exit1:
 269         ehca_mr_delete(e_mr);
 270 reg_phys_mr_exit0:
 271         if (IS_ERR(ib_mr))
 272                 ehca_err(pd->device, "h_ret=%li pd=%p phys_buf_array=%p "
 273                          "num_phys_buf=%x mr_access_flags=%x iova_start=%p",
 274                          PTR_ERR(ib_mr), pd, phys_buf_array,
 275                          num_phys_buf, mr_access_flags, iova_start);
 276         return ib_mr;
 277 } /* end ehca_reg_phys_mr() */
 278
 279 /*----------------------------------------------------------------------*/
 280
 281 struct ib_mr *ehca_reg_user_mr(struct ib_pd *pd, u64 start, u64 length,
 282                                u64 virt, int mr_access_flags,
 283                                struct ib_udata *udata)
 284 {
 285         struct ib_mr *ib_mr;
 286         struct ehca_mr *e_mr;
 287         struct ehca_shca *shca =
 288                 container_of(pd->device, struct ehca_shca, ib_device);
 289         struct ehca_pd *e_pd = container_of(pd, struct ehca_pd, ib_pd);
 290         struct ehca_mr_pginfo pginfo;
 291         int ret;
 292         u32 num_kpages;
 293         u32 num_hwpages;
 294         u64 hwpage_size;
 295
 296         if (!pd) {
 297                 ehca_gen_err("bad pd=%p", pd);
 298                 return ERR_PTR(-EFAULT);
 299         }
 300
 301         if (((mr_access_flags & IB_ACCESS_REMOTE_WRITE) &&
 302              !(mr_access_flags & IB_ACCESS_LOCAL_WRITE)) ||
 303             ((mr_access_flags & IB_ACCESS_REMOTE_ATOMIC) &&
 304              !(mr_access_flags & IB_ACCESS_LOCAL_WRITE))) {
 305                 /*
 306                  * Remote Write Access requires Local Write Access
 307                  * Remote Atomic Access requires Local Write Access
 308                  */
 309                 ehca_err(pd->device, "bad input values: mr_access_flags=%x",
 310                          mr_access_flags);
 311                 ib_mr = ERR_PTR(-EINVAL);
 312                 goto reg_user_mr_exit0;
 313         }
 314
 315         if (length == 0 || virt + length < virt) {
 316                 ehca_err(pd->device, "bad input values: length=%lx "
 317                          "virt_base=%lx", length, virt);
 318                 ib_mr = ERR_PTR(-EINVAL);
 319                 goto reg_user_mr_exit0;
 320         }
 321
 322         e_mr = ehca_mr_new();
 323         if (!e_mr) {
 324                 ehca_err(pd->device, "out of memory");
 325                 ib_mr = ERR_PTR(-ENOMEM);
 326                 goto reg_user_mr_exit0;
 327         }
 328
 329         e_mr->umem = ib_umem_get(pd->uobject->context, start, length,
 330                                  mr_access_flags);
 331         if (IS_ERR(e_mr->umem)) {
 332                 ib_mr = (void *)e_mr->umem;
 333                 goto reg_user_mr_exit1;
 334         }
 335
 336         if (e_mr->umem->page_size != PAGE_SIZE) {
 337                 ehca_err(pd->device, "page size not supported, "
 338                          "e_mr->umem->page_size=%x", e_mr->umem->page_size);
 339                 ib_mr = ERR_PTR(-EINVAL);
 340                 goto reg_user_mr_exit2;
 341         }
 342
 343         /* determine number of MR pages */
 344         num_kpages = NUM_CHUNKS((virt % PAGE_SIZE) + length, PAGE_SIZE);
 345         /* select proper hw_pgsize */
 346         if (ehca_mr_largepage &&
 347             (shca->hca_cap_mr_pgsize & HCA_CAP_MR_PGSIZE_16M)) {
 348                 int page_shift = PAGE_SHIFT;
 349                 if (e_mr->umem->hugetlb) {
 350                         /* determine page_shift, clamp between 4K and 16M */
 351                         page_shift = (fls64(length - 1) + 3) & ~3;
 352                         page_shift = min(max(page_shift, EHCA_MR_PGSHIFT4K),
 353                                          EHCA_MR_PGSHIFT16M);
 354                 }
 355                 hwpage_size = 1UL << page_shift;
 356         } else
 357                 hwpage_size = EHCA_MR_PGSIZE4K; /* ehca1 only supports 4k */
 358         ehca_dbg(pd->device, "hwpage_size=%lx", hwpage_size);
 359
 360 reg_user_mr_fallback:
 361         num_hwpages = NUM_CHUNKS((virt % hwpage_size) + length, hwpage_size);
 362         /* register MR on HCA */
 363         memset(&pginfo, 0, sizeof(pginfo));
 364         pginfo.type = EHCA_MR_PGI_USER;
 365         pginfo.hwpage_size = hwpage_size;
 366         pginfo.num_kpages = num_kpages;
 367         pginfo.num_hwpages = num_hwpages;
 368         pginfo.u.usr.region = e_mr->umem;
 369         pginfo.next_hwpage = e_mr->umem->offset / hwpage_size;
 370         pginfo.u.usr.next_chunk = list_prepare_entry(pginfo.u.usr.next_chunk,
 371                                                      (&e_mr->umem->chunk_list),
 372                                                      list);
 373
 374         ret = ehca_reg_mr(shca, e_mr, (u64 *)virt, length, mr_access_flags,
 375                           e_pd, &pginfo, &e_mr->ib.ib_mr.lkey,
 376                           &e_mr->ib.ib_mr.rkey);
 377         if (ret == -EINVAL && pginfo.hwpage_size > PAGE_SIZE) {
 378                 ehca_warn(pd->device, "failed to register mr "
 379                           "with hwpage_size=%lx", hwpage_size);
 380                 ehca_info(pd->device, "try to register mr with "
 381                           "kpage_size=%lx", PAGE_SIZE);
 382                 /*
 383                  * this means kpages are not contiguous for a hw page
 384                  * try kernel page size as fallback solution
 385                  */
 386                 hwpage_size = PAGE_SIZE;
 387                 goto reg_user_mr_fallback;
 388         }
 389         if (ret) {
 390                 ib_mr = ERR_PTR(ret);
 391                 goto reg_user_mr_exit2;
 392         }
 393
 394         /* successful registration of all pages */
 395         return &e_mr->ib.ib_mr;
 396
 397 reg_user_mr_exit2:
 398         ib_umem_release(e_mr->umem);
 399 reg_user_mr_exit1:
 400         ehca_mr_delete(e_mr);
 401 reg_user_mr_exit0:
 402         if (IS_ERR(ib_mr))
 403                 ehca_err(pd->device, "rc=%li pd=%p mr_access_flags=%x udata=%p",
 404                          PTR_ERR(ib_mr), pd, mr_access_flags, udata);
 405         return ib_mr;
 406 } /* end ehca_reg_user_mr() */
 407
 408 /*----------------------------------------------------------------------*/
 409
 410 int ehca_rereg_phys_mr(struct ib_mr *mr,
 411                        int mr_rereg_mask,
 412                        struct ib_pd *pd,
 413                        struct ib_phys_buf *phys_buf_array,
 414                        int num_phys_buf,
 415                        int mr_access_flags,
 416                        u64 *iova_start)
 417 {
 418         int ret;
 419
 420         struct ehca_shca *shca =
 421                 container_of(mr->device, struct ehca_shca, ib_device);
 422         struct ehca_mr *e_mr = container_of(mr, struct ehca_mr, ib.ib_mr);
 423         struct ehca_pd *my_pd = container_of(mr->pd, struct ehca_pd, ib_pd);
 424         u64 new_size;
 425         u64 *new_start;
 426         u32 new_acl;
 427         struct ehca_pd *new_pd;
 428         u32 tmp_lkey, tmp_rkey;
 429         unsigned long sl_flags;
 430         u32 num_kpages = 0;
 431         u32 num_hwpages = 0;
 432         struct ehca_mr_pginfo pginfo;
 433         u32 cur_pid = current->tgid;
 434
 435         if (my_pd->ib_pd.uobject && my_pd->ib_pd.uobject->context &&
 436             (my_pd->ownpid != cur_pid)) {
 437                 ehca_err(mr->device, "Invalid caller pid=%x ownpid=%x",
 438                          cur_pid, my_pd->ownpid);
 439                 ret = -EINVAL;
 440                 goto rereg_phys_mr_exit0;
 441         }
 442
 443         if (!(mr_rereg_mask & IB_MR_REREG_TRANS)) {
 444                 /* TODO not supported, because PHYP rereg hCall needs pages */
 445                 ehca_err(mr->device, "rereg without IB_MR_REREG_TRANS not "
 446                          "supported yet, mr_rereg_mask=%x", mr_rereg_mask);
 447                 ret = -EINVAL;
 448                 goto rereg_phys_mr_exit0;
 449         }
 450
 451         if (mr_rereg_mask & IB_MR_REREG_PD) {
 452                 if (!pd) {
 453                         ehca_err(mr->device, "rereg with bad pd, pd=%p "
 454                                  "mr_rereg_mask=%x", pd, mr_rereg_mask);
 455                         ret = -EINVAL;
 456                         goto rereg_phys_mr_exit0;
 457                 }
 458         }
 459
 460         if ((mr_rereg_mask &
 461              ~(IB_MR_REREG_TRANS | IB_MR_REREG_PD | IB_MR_REREG_ACCESS)) ||
 462             (mr_rereg_mask == 0)) {
 463                 ret = -EINVAL;
 464                 goto rereg_phys_mr_exit0;
 465         }
 466
 467         /* check other parameters */
 468         if (e_mr == shca->maxmr) {
 469                 /* should be impossible, however reject to be sure */
 470                 ehca_err(mr->device, "rereg internal max-MR impossible, mr=%p "
 471                          "shca->maxmr=%p mr->lkey=%x",
 472                          mr, shca->maxmr, mr->lkey);
 473                 ret = -EINVAL;
 474                 goto rereg_phys_mr_exit0;
 475         }
 476         if (mr_rereg_mask & IB_MR_REREG_TRANS) { /* transl., i.e. addr/size */
 477                 if (e_mr->flags & EHCA_MR_FLAG_FMR) {
 478                         ehca_err(mr->device, "not supported for FMR, mr=%p "
 479                                  "flags=%x", mr, e_mr->flags);
 480                         ret = -EINVAL;
 481                         goto rereg_phys_mr_exit0;
 482                 }
 483                 if (!phys_buf_array || num_phys_buf <= 0) {
 484                         ehca_err(mr->device, "bad input values mr_rereg_mask=%x"
 485                                  " phys_buf_array=%p num_phys_buf=%x",
 486                                  mr_rereg_mask, phys_buf_array, num_phys_buf);
 487                         ret = -EINVAL;
 488                         goto rereg_phys_mr_exit0;
 489                 }
 490         }
 491         if ((mr_rereg_mask & IB_MR_REREG_ACCESS) &&     /* change ACL */
 492             (((mr_access_flags & IB_ACCESS_REMOTE_WRITE) &&
 493               !(mr_access_flags & IB_ACCESS_LOCAL_WRITE)) ||
 494              ((mr_access_flags & IB_ACCESS_REMOTE_ATOMIC) &&
 495               !(mr_access_flags & IB_ACCESS_LOCAL_WRITE)))) {
 496                 /*
 497                  * Remote Write Access requires Local Write Access
 498                  * Remote Atomic Access requires Local Write Access
 499                  */
 500                 ehca_err(mr->device, "bad input values: mr_rereg_mask=%x "
 501                          "mr_access_flags=%x", mr_rereg_mask, mr_access_flags);
 502                 ret = -EINVAL;
 503                 goto rereg_phys_mr_exit0;
 504         }
 505
 506         /* set requested values dependent on rereg request */
 507         spin_lock_irqsave(&e_mr->mrlock, sl_flags);
 508         new_start = e_mr->start;
 509         new_size = e_mr->size;
 510         new_acl = e_mr->acl;
 511         new_pd = container_of(mr->pd, struct ehca_pd, ib_pd);
 512
 513         if (mr_rereg_mask & IB_MR_REREG_TRANS) {
 514                 u64 hw_pgsize = ehca_get_max_hwpage_size(shca);
 515
 516                 new_start = iova_start; /* change address */
 517                 /* check physical buffer list and calculate size */
 518                 ret = ehca_mr_chk_buf_and_calc_size(phys_buf_array,
 519                                                     num_phys_buf, iova_start,
 520                                                     &new_size);
 521                 if (ret)
 522                         goto rereg_phys_mr_exit1;
 523                 if ((new_size == 0) ||
 524                     (((u64)iova_start + new_size) < (u64)iova_start)) {
 525                         ehca_err(mr->device, "bad input values: new_size=%lx "
 526                                  "iova_start=%p", new_size, iova_start);
 527                         ret = -EINVAL;
 528                         goto rereg_phys_mr_exit1;
 529                 }
 530                 num_kpages = NUM_CHUNKS(((u64)new_start % PAGE_SIZE) +
 531                                         new_size, PAGE_SIZE);
 532                 num_hwpages = NUM_CHUNKS(((u64)new_start % hw_pgsize) +
 533                                          new_size, hw_pgsize);
 534                 memset(&pginfo, 0, sizeof(pginfo));
 535                 pginfo.type = EHCA_MR_PGI_PHYS;
 536                 pginfo.num_kpages = num_kpages;
 537                 pginfo.hwpage_size = hw_pgsize;
 538                 pginfo.num_hwpages = num_hwpages;
 539                 pginfo.u.phy.num_phys_buf = num_phys_buf;
 540                 pginfo.u.phy.phys_buf_array = phys_buf_array;
 541                 pginfo.next_hwpage =
 542                         ((u64)iova_start & ~PAGE_MASK) / hw_pgsize;
 543         }
 544         if (mr_rereg_mask & IB_MR_REREG_ACCESS)
 545                 new_acl = mr_access_flags;
 546         if (mr_rereg_mask & IB_MR_REREG_PD)
 547                 new_pd = container_of(pd, struct ehca_pd, ib_pd);
 548
 549         ret = ehca_rereg_mr(shca, e_mr, new_start, new_size, new_acl,
 550                             new_pd, &pginfo, &tmp_lkey, &tmp_rkey);
 551         if (ret)
 552                 goto rereg_phys_mr_exit1;
 553
 554         /* successful reregistration */
 555         if (mr_rereg_mask & IB_MR_REREG_PD)
 556                 mr->pd = pd;
 557         mr->lkey = tmp_lkey;
 558         mr->rkey = tmp_rkey;
 559
 560 rereg_phys_mr_exit1:
 561         spin_unlock_irqrestore(&e_mr->mrlock, sl_flags);
 562 rereg_phys_mr_exit0:
 563         if (ret)
 564                 ehca_err(mr->device, "ret=%i mr=%p mr_rereg_mask=%x pd=%p "
 565                          "phys_buf_array=%p num_phys_buf=%x mr_access_flags=%x "
 566                          "iova_start=%p",
 567                          ret, mr, mr_rereg_mask, pd, phys_buf_array,
 568                          num_phys_buf, mr_access_flags, iova_start);
 569         return ret;
 570 } /* end ehca_rereg_phys_mr() */
 571
 572 /*----------------------------------------------------------------------*/
 573
 574 int ehca_query_mr(struct ib_mr *mr, struct ib_mr_attr *mr_attr)
 575 {
 576         int ret = 0;
 577         u64 h_ret;
 578         struct ehca_shca *shca =
 579                 container_of(mr->device, struct ehca_shca, ib_device);
 580         struct ehca_mr *e_mr = container_of(mr, struct ehca_mr, ib.ib_mr);
 581         struct ehca_pd *my_pd = container_of(mr->pd, struct ehca_pd, ib_pd);
 582         u32 cur_pid = current->tgid;
 583         unsigned long sl_flags;
 584         struct ehca_mr_hipzout_parms hipzout;
 585
 586         if (my_pd->ib_pd.uobject && my_pd->ib_pd.uobject->context &&
 587             (my_pd->ownpid != cur_pid)) {
 588                 ehca_err(mr->device, "Invalid caller pid=%x ownpid=%x",
 589                          cur_pid, my_pd->ownpid);
 590                 ret = -EINVAL;
 591                 goto query_mr_exit0;
 592         }
 593
 594         if ((e_mr->flags & EHCA_MR_FLAG_FMR)) {
 595                 ehca_err(mr->device, "not supported for FMR, mr=%p e_mr=%p "
 596                          "e_mr->flags=%x", mr, e_mr, e_mr->flags);
 597                 ret = -EINVAL;
 598                 goto query_mr_exit0;
 599         }
 600
 601         memset(mr_attr, 0, sizeof(struct ib_mr_attr));
 602         spin_lock_irqsave(&e_mr->mrlock, sl_flags);
 603
 604         h_ret = hipz_h_query_mr(shca->ipz_hca_handle, e_mr, &hipzout);
 605         if (h_ret != H_SUCCESS) {
 606                 ehca_err(mr->device, "hipz_mr_query failed, h_ret=%li mr=%p "
 607                          "hca_hndl=%lx mr_hndl=%lx lkey=%x",
 608                          h_ret, mr, shca->ipz_hca_handle.handle,
 609                          e_mr->ipz_mr_handle.handle, mr->lkey);
 610                 ret = ehca2ib_return_code(h_ret);
 611                 goto query_mr_exit1;
 612         }
 613         mr_attr->pd = mr->pd;
 614         mr_attr->device_virt_addr = hipzout.vaddr;
 615         mr_attr->size = hipzout.len;
 616         mr_attr->lkey = hipzout.lkey;
 617         mr_attr->rkey = hipzout.rkey;
 618         ehca_mrmw_reverse_map_acl(&hipzout.acl, &mr_attr->mr_access_flags);
 619
 620 query_mr_exit1:
 621         spin_unlock_irqrestore(&e_mr->mrlock, sl_flags);
 622 query_mr_exit0:
 623         if (ret)
 624                 ehca_err(mr->device, "ret=%i mr=%p mr_attr=%p",
 625                          ret, mr, mr_attr);
 626         return ret;
 627 } /* end ehca_query_mr() */
 628
 629 /*----------------------------------------------------------------------*/
 630
 631 int ehca_dereg_mr(struct ib_mr *mr)
 632 {
 633         int ret = 0;
 634         u64 h_ret;
 635         struct ehca_shca *shca =
 636                 container_of(mr->device, struct ehca_shca, ib_device);
 637         struct ehca_mr *e_mr = container_of(mr, struct ehca_mr, ib.ib_mr);
 638         struct ehca_pd *my_pd = container_of(mr->pd, struct ehca_pd, ib_pd);
 639         u32 cur_pid = current->tgid;
 640
 641         if (my_pd->ib_pd.uobject && my_pd->ib_pd.uobject->context &&
 642             (my_pd->ownpid != cur_pid)) {
 643                 ehca_err(mr->device, "Invalid caller pid=%x ownpid=%x",
 644                          cur_pid, my_pd->ownpid);
 645                 ret = -EINVAL;
 646                 goto dereg_mr_exit0;
 647         }
 648
 649         if ((e_mr->flags & EHCA_MR_FLAG_FMR)) {
 650                 ehca_err(mr->device, "not supported for FMR, mr=%p e_mr=%p "
 651                          "e_mr->flags=%x", mr, e_mr, e_mr->flags);
 652                 ret = -EINVAL;
 653                 goto dereg_mr_exit0;
 654         } else if (e_mr == shca->maxmr) {
 655                 /* should be impossible, however reject to be sure */
 656                 ehca_err(mr->device, "dereg internal max-MR impossible, mr=%p "
 657                          "shca->maxmr=%p mr->lkey=%x",
 658                          mr, shca->maxmr, mr->lkey);
 659                 ret = -EINVAL;
 660                 goto dereg_mr_exit0;
 661         }
 662
 663         /* TODO: BUSY: MR still has bound window(s) */
 664         h_ret = hipz_h_free_resource_mr(shca->ipz_hca_handle, e_mr);
 665         if (h_ret != H_SUCCESS) {
 666                 ehca_err(mr->device, "hipz_free_mr failed, h_ret=%li shca=%p "
 667                          "e_mr=%p hca_hndl=%lx mr_hndl=%lx mr->lkey=%x",
 668                          h_ret, shca, e_mr, shca->ipz_hca_handle.handle,
 669                          e_mr->ipz_mr_handle.handle, mr->lkey);
 670                 ret = ehca2ib_return_code(h_ret);
 671                 goto dereg_mr_exit0;
 672         }
 673
 674         if (e_mr->umem)
 675                 ib_umem_release(e_mr->umem);
 676
 677         /* successful deregistration */
 678         ehca_mr_delete(e_mr);
 679
 680 dereg_mr_exit0:
 681         if (ret)
 682                 ehca_err(mr->device, "ret=%i mr=%p", ret, mr);
 683         return ret;
 684 } /* end ehca_dereg_mr() */
 685
 686 /*----------------------------------------------------------------------*/
 687
 688 struct ib_mw *ehca_alloc_mw(struct ib_pd *pd)
 689 {
 690         struct ib_mw *ib_mw;
 691         u64 h_ret;
 692         struct ehca_mw *e_mw;
 693         struct ehca_pd *e_pd = container_of(pd, struct ehca_pd, ib_pd);
 694         struct ehca_shca *shca =
 695                 container_of(pd->device, struct ehca_shca, ib_device);
 696         struct ehca_mw_hipzout_parms hipzout;
 697
 698         e_mw = ehca_mw_new();
 699         if (!e_mw) {
 700                 ib_mw = ERR_PTR(-ENOMEM);
 701                 goto alloc_mw_exit0;
 702         }
 703
 704         h_ret = hipz_h_alloc_resource_mw(shca->ipz_hca_handle, e_mw,
 705                                          e_pd->fw_pd, &hipzout);
 706         if (h_ret != H_SUCCESS) {
 707                 ehca_err(pd->device, "hipz_mw_allocate failed, h_ret=%li "
 708                          "shca=%p hca_hndl=%lx mw=%p",
 709                          h_ret, shca, shca->ipz_hca_handle.handle, e_mw);
 710                 ib_mw = ERR_PTR(ehca2ib_return_code(h_ret));
 711                 goto alloc_mw_exit1;
 712         }
 713         /* successful MW allocation */
 714         e_mw->ipz_mw_handle = hipzout.handle;
 715         e_mw->ib_mw.rkey    = hipzout.rkey;
 716         return &e_mw->ib_mw;
 717
 718 alloc_mw_exit1:
 719         ehca_mw_delete(e_mw);
 720 alloc_mw_exit0:
 721         if (IS_ERR(ib_mw))
 722                 ehca_err(pd->device, "h_ret=%li pd=%p", PTR_ERR(ib_mw), pd);
 723         return ib_mw;
 724 } /* end ehca_alloc_mw() */
 725
 726 /*----------------------------------------------------------------------*/
 727
 728 int ehca_bind_mw(struct ib_qp *qp,
 729                  struct ib_mw *mw,
 730                  struct ib_mw_bind *mw_bind)
 731 {
 732         /* TODO: not supported up to now */
 733         ehca_gen_err("bind MW currently not supported by HCAD");
 734
 735         return -EPERM;
 736 } /* end ehca_bind_mw() */
 737
 738 /*----------------------------------------------------------------------*/
 739
 740 int ehca_dealloc_mw(struct ib_mw *mw)
 741 {
 742         u64 h_ret;
 743         struct ehca_shca *shca =
 744                 container_of(mw->device, struct ehca_shca, ib_device);
 745         struct ehca_mw *e_mw = container_of(mw, struct ehca_mw, ib_mw);
 746
 747         h_ret = hipz_h_free_resource_mw(shca->ipz_hca_handle, e_mw);
 748         if (h_ret != H_SUCCESS) {
 749                 ehca_err(mw->device, "hipz_free_mw failed, h_ret=%li shca=%p "
 750                          "mw=%p rkey=%x hca_hndl=%lx mw_hndl=%lx",
 751                          h_ret, shca, mw, mw->rkey, shca->ipz_hca_handle.handle,
 752                          e_mw->ipz_mw_handle.handle);
 753                 return ehca2ib_return_code(h_ret);
 754         }
 755         /* successful deallocation */
 756         ehca_mw_delete(e_mw);
 757         return 0;
 758 } /* end ehca_dealloc_mw() */
 759
 760 /*----------------------------------------------------------------------*/
 761
 762 struct ib_fmr *ehca_alloc_fmr(struct ib_pd *pd,
 763                               int mr_access_flags,
 764                               struct ib_fmr_attr *fmr_attr)
 765 {
 766         struct ib_fmr *ib_fmr;
 767         struct ehca_shca *shca =
 768                 container_of(pd->device, struct ehca_shca, ib_device);
 769         struct ehca_pd *e_pd = container_of(pd, struct ehca_pd, ib_pd);
 770         struct ehca_mr *e_fmr;
 771         int ret;
 772         u32 tmp_lkey, tmp_rkey;
 773         struct ehca_mr_pginfo pginfo;
 774         u64 hw_pgsize;
 775
 776         /* check other parameters */
 777         if (((mr_access_flags & IB_ACCESS_REMOTE_WRITE) &&
 778              !(mr_access_flags & IB_ACCESS_LOCAL_WRITE)) ||
 779             ((mr_access_flags & IB_ACCESS_REMOTE_ATOMIC) &&
 780              !(mr_access_flags & IB_ACCESS_LOCAL_WRITE))) {
 781                 /*
 782                  * Remote Write Access requires Local Write Access
 783                  * Remote Atomic Access requires Local Write Access
 784                  */
 785                 ehca_err(pd->device, "bad input values: mr_access_flags=%x",
 786                          mr_access_flags);
 787                 ib_fmr = ERR_PTR(-EINVAL);
 788                 goto alloc_fmr_exit0;
 789         }
 790         if (mr_access_flags & IB_ACCESS_MW_BIND) {
 791                 ehca_err(pd->device, "bad input values: mr_access_flags=%x",
 792                          mr_access_flags);
 793                 ib_fmr = ERR_PTR(-EINVAL);
 794                 goto alloc_fmr_exit0;
 795         }
 796         if ((fmr_attr->max_pages == 0) || (fmr_attr->max_maps == 0)) {
 797                 ehca_err(pd->device, "bad input values: fmr_attr->max_pages=%x "
 798                          "fmr_attr->max_maps=%x fmr_attr->page_shift=%x",
 799                          fmr_attr->max_pages, fmr_attr->max_maps,
 800                          fmr_attr->page_shift);
 801                 ib_fmr = ERR_PTR(-EINVAL);
 802                 goto alloc_fmr_exit0;
 803         }
 804         hw_pgsize = ehca_get_max_hwpage_size(shca);
 805         if ((1 << fmr_attr->page_shift) != hw_pgsize) {
 806                 ehca_err(pd->device, "unsupported fmr_attr->page_shift=%x",
 807                          fmr_attr->page_shift);
 808                 ib_fmr = ERR_PTR(-EINVAL);
 809                 goto alloc_fmr_exit0;
 810         }
 811
 812         e_fmr = ehca_mr_new();
 813         if (!e_fmr) {
 814                 ib_fmr = ERR_PTR(-ENOMEM);
 815                 goto alloc_fmr_exit0;
 816         }
 817         e_fmr->flags |= EHCA_MR_FLAG_FMR;
 818
 819         /* register MR on HCA */
 820         memset(&pginfo, 0, sizeof(pginfo));
 821         pginfo.hwpage_size = hw_pgsize;
 822         /*
 823          * pginfo.num_hwpages==0, ie register_rpages() will not be called
 824          * but deferred to map_phys_fmr()
 825          */
 826         ret = ehca_reg_mr(shca, e_fmr, NULL,
 827                           fmr_attr->max_pages * (1 << fmr_attr->page_shift),
 828                           mr_access_flags, e_pd, &pginfo,
 829                           &tmp_lkey, &tmp_rkey);
 830         if (ret) {
 831                 ib_fmr = ERR_PTR(ret);
 832                 goto alloc_fmr_exit1;
 833         }
 834
 835         /* successful */
 836         e_fmr->hwpage_size = hw_pgsize;
 837         e_fmr->fmr_page_size = 1 << fmr_attr->page_shift;
 838         e_fmr->fmr_max_pages = fmr_attr->max_pages;
 839         e_fmr->fmr_max_maps = fmr_attr->max_maps;
 840         e_fmr->fmr_map_cnt = 0;
 841         return &e_fmr->ib.ib_fmr;
 842
 843 alloc_fmr_exit1:
 844         ehca_mr_delete(e_fmr);
 845 alloc_fmr_exit0:
 846         return ib_fmr;
 847 } /* end ehca_alloc_fmr() */
 848
 849 /*----------------------------------------------------------------------*/
 850
 851 int ehca_map_phys_fmr(struct ib_fmr *fmr,
 852                       u64 *page_list,
 853                       int list_len,
 854                       u64 iova)
 855 {
 856         int ret;
 857         struct ehca_shca *shca =
 858                 container_of(fmr->device, struct ehca_shca, ib_device);
 859         struct ehca_mr *e_fmr = container_of(fmr, struct ehca_mr, ib.ib_fmr);
 860         struct ehca_pd *e_pd = container_of(fmr->pd, struct ehca_pd, ib_pd);
 861         struct ehca_mr_pginfo pginfo;
 862         u32 tmp_lkey, tmp_rkey;
 863
 864         if (!(e_fmr->flags & EHCA_MR_FLAG_FMR)) {
 865                 ehca_err(fmr->device, "not a FMR, e_fmr=%p e_fmr->flags=%x",
 866                          e_fmr, e_fmr->flags);
 867                 ret = -EINVAL;
 868                 goto map_phys_fmr_exit0;
 869         }
 870         ret = ehca_fmr_check_page_list(e_fmr, page_list, list_len);
 871         if (ret)
 872                 goto map_phys_fmr_exit0;
 873         if (iova % e_fmr->fmr_page_size) {
 874                 /* only whole-numbered pages */
 875                 ehca_err(fmr->device, "bad iova, iova=%lx fmr_page_size=%x",
 876                          iova, e_fmr->fmr_page_size);
 877                 ret = -EINVAL;
 878                 goto map_phys_fmr_exit0;
 879         }
 880         if (e_fmr->fmr_map_cnt >= e_fmr->fmr_max_maps) {
 881                 /* HCAD does not limit the maps, however trace this anyway */
 882                 ehca_info(fmr->device, "map limit exceeded, fmr=%p "
 883                           "e_fmr->fmr_map_cnt=%x e_fmr->fmr_max_maps=%x",
 884                           fmr, e_fmr->fmr_map_cnt, e_fmr->fmr_max_maps);
 885         }
 886
 887         memset(&pginfo, 0, sizeof(pginfo));
 888         pginfo.type = EHCA_MR_PGI_FMR;
 889         pginfo.num_kpages = list_len;
 890         pginfo.hwpage_size = e_fmr->hwpage_size;
 891         pginfo.num_hwpages =
 892                 list_len * e_fmr->fmr_page_size / pginfo.hwpage_size;
 893         pginfo.u.fmr.page_list = page_list;
 894         pginfo.next_hwpage =
 895                 (iova & (e_fmr->fmr_page_size-1)) / pginfo.hwpage_size;
 896         pginfo.u.fmr.fmr_pgsize = e_fmr->fmr_page_size;
 897
 898         ret = ehca_rereg_mr(shca, e_fmr, (u64 *)iova,
 899                             list_len * e_fmr->fmr_page_size,
 900                             e_fmr->acl, e_pd, &pginfo, &tmp_lkey, &tmp_rkey);
 901         if (ret)
 902                 goto map_phys_fmr_exit0;
 903
 904         /* successful reregistration */
 905         e_fmr->fmr_map_cnt++;
 906         e_fmr->ib.ib_fmr.lkey = tmp_lkey;
 907         e_fmr->ib.ib_fmr.rkey = tmp_rkey;
 908         return 0;
 909
 910 map_phys_fmr_exit0:
 911         if (ret)
 912                 ehca_err(fmr->device, "ret=%i fmr=%p page_list=%p list_len=%x "
 913                          "iova=%lx", ret, fmr, page_list, list_len, iova);
 914         return ret;
 915 } /* end ehca_map_phys_fmr() */
 916
 917 /*----------------------------------------------------------------------*/
 918
 919 int ehca_unmap_fmr(struct list_head *fmr_list)
 920 {
 921         int ret = 0;
 922         struct ib_fmr *ib_fmr;
 923         struct ehca_shca *shca = NULL;
 924         struct ehca_shca *prev_shca;
 925         struct ehca_mr *e_fmr;
 926         u32 num_fmr = 0;
 927         u32 unmap_fmr_cnt = 0;
 928
 929         /* check all FMR belong to same SHCA, and check internal flag */
 930         list_for_each_entry(ib_fmr, fmr_list, list) {
 931                 prev_shca = shca;
 932                 if (!ib_fmr) {
 933                         ehca_gen_err("bad fmr=%p in list", ib_fmr);
 934                         ret = -EINVAL;
 935                         goto unmap_fmr_exit0;
 936                 }
 937                 shca = container_of(ib_fmr->device, struct ehca_shca,
 938                                     ib_device);
 939                 e_fmr = container_of(ib_fmr, struct ehca_mr, ib.ib_fmr);
 940                 if ((shca != prev_shca) && prev_shca) {
 941                         ehca_err(&shca->ib_device, "SHCA mismatch, shca=%p "
 942                                  "prev_shca=%p e_fmr=%p",
 943                                  shca, prev_shca, e_fmr);
 944                         ret = -EINVAL;
 945                         goto unmap_fmr_exit0;
 946                 }
 947                 if (!(e_fmr->flags & EHCA_MR_FLAG_FMR)) {
 948                         ehca_err(&shca->ib_device, "not a FMR, e_fmr=%p "
 949                                  "e_fmr->flags=%x", e_fmr, e_fmr->flags);
 950                         ret = -EINVAL;
 951                         goto unmap_fmr_exit0;
 952                 }
 953                 num_fmr++;
 954         }
 955
 956         /* loop over all FMRs to unmap */
 957         list_for_each_entry(ib_fmr, fmr_list, list) {
 958                 unmap_fmr_cnt++;
 959                 e_fmr = container_of(ib_fmr, struct ehca_mr, ib.ib_fmr);
 960                 shca = container_of(ib_fmr->device, struct ehca_shca,
 961                                     ib_device);
 962                 ret = ehca_unmap_one_fmr(shca, e_fmr);
 963                 if (ret) {
 964                         /* unmap failed, stop unmapping of rest of FMRs */
 965                         ehca_err(&shca->ib_device, "unmap of one FMR failed, "
 966                                  "stop rest, e_fmr=%p num_fmr=%x "
 967                                  "unmap_fmr_cnt=%x lkey=%x", e_fmr, num_fmr,
 968                                  unmap_fmr_cnt, e_fmr->ib.ib_fmr.lkey);
 969                         goto unmap_fmr_exit0;
 970                 }
 971         }
 972
 973 unmap_fmr_exit0:
 974         if (ret)
 975                 ehca_gen_err("ret=%i fmr_list=%p num_fmr=%x unmap_fmr_cnt=%x",
 976                              ret, fmr_list, num_fmr, unmap_fmr_cnt);
 977         return ret;
 978 } /* end ehca_unmap_fmr() */
 979
 980 /*----------------------------------------------------------------------*/
 981
 982 int ehca_dealloc_fmr(struct ib_fmr *fmr)
 983 {
 984         int ret;
 985         u64 h_ret;
 986         struct ehca_shca *shca =
 987                 container_of(fmr->device, struct ehca_shca, ib_device);
 988         struct ehca_mr *e_fmr = container_of(fmr, struct ehca_mr, ib.ib_fmr);
 989
 990         if (!(e_fmr->flags & EHCA_MR_FLAG_FMR)) {
 991                 ehca_err(fmr->device, "not a FMR, e_fmr=%p e_fmr->flags=%x",
 992                          e_fmr, e_fmr->flags);
 993                 ret = -EINVAL;
 994                 goto free_fmr_exit0;
 995         }
 996
 997         h_ret = hipz_h_free_resource_mr(shca->ipz_hca_handle, e_fmr);
 998         if (h_ret != H_SUCCESS) {
 999                 ehca_err(fmr->device, "hipz_free_mr failed, h_ret=%li e_fmr=%p "
1000                          "hca_hndl=%lx fmr_hndl=%lx fmr->lkey=%x",
1001                          h_ret, e_fmr, shca->ipz_hca_handle.handle,
1002                          e_fmr->ipz_mr_handle.handle, fmr->lkey);
1003                 ret = ehca2ib_return_code(h_ret);
1004                 goto free_fmr_exit0;
1005         }
1006         /* successful deregistration */
1007         ehca_mr_delete(e_fmr);
1008         return 0;
1009
1010 free_fmr_exit0:
1011         if (ret)
1012                 ehca_err(&shca->ib_device, "ret=%i fmr=%p", ret, fmr);
1013         return ret;
1014 } /* end ehca_dealloc_fmr() */
1015
1016 /*----------------------------------------------------------------------*/
1017
1018 int ehca_reg_mr(struct ehca_shca *shca,
1019                 struct ehca_mr *e_mr,
1020                 u64 *iova_start,
1021                 u64 size,
1022                 int acl,
1023                 struct ehca_pd *e_pd,
1024                 struct ehca_mr_pginfo *pginfo,
1025                 u32 *lkey, /*OUT*/
1026                 u32 *rkey) /*OUT*/
1027 {
1028         int ret;
1029         u64 h_ret;
1030         u32 hipz_acl;
1031         struct ehca_mr_hipzout_parms hipzout;
1032
1033         ehca_mrmw_map_acl(acl, &hipz_acl);
1034         ehca_mrmw_set_pgsize_hipz_acl(pginfo->hwpage_size, &hipz_acl);
1035         if (ehca_use_hp_mr == 1)
1036                 hipz_acl |= 0x00000001;
1037
1038         h_ret = hipz_h_alloc_resource_mr(shca->ipz_hca_handle, e_mr,
1039                                          (u64)iova_start, size, hipz_acl,
1040                                          e_pd->fw_pd, &hipzout);
1041         if (h_ret != H_SUCCESS) {
1042                 ehca_err(&shca->ib_device, "hipz_alloc_mr failed, h_ret=%li "
1043                          "hca_hndl=%lx", h_ret, shca->ipz_hca_handle.handle);
1044                 ret = ehca2ib_return_code(h_ret);
1045                 goto ehca_reg_mr_exit0;
1046         }
1047
1048         e_mr->ipz_mr_handle = hipzout.handle;
1049
1050         ret = ehca_reg_mr_rpages(shca, e_mr, pginfo);
1051         if (ret)
1052                 goto ehca_reg_mr_exit1;
1053
1054         /* successful registration */
1055         e_mr->num_kpages = pginfo->num_kpages;
1056         e_mr->num_hwpages = pginfo->num_hwpages;
1057         e_mr->hwpage_size = pginfo->hwpage_size;
1058         e_mr->start = iova_start;
1059         e_mr->size = size;
1060         e_mr->acl = acl;
1061         *lkey = hipzout.lkey;
1062         *rkey = hipzout.rkey;
1063         return 0;
1064
1065 ehca_reg_mr_exit1:
1066         h_ret = hipz_h_free_resource_mr(shca->ipz_hca_handle, e_mr);
1067         if (h_ret != H_SUCCESS) {
1068                 ehca_err(&shca->ib_device, "h_ret=%li shca=%p e_mr=%p "
1069                          "iova_start=%p size=%lx acl=%x e_pd=%p lkey=%x "
1070                          "pginfo=%p num_kpages=%lx num_hwpages=%lx ret=%i",
1071                          h_ret, shca, e_mr, iova_start, size, acl, e_pd,
1072                          hipzout.lkey, pginfo, pginfo->num_kpages,
1073                          pginfo->num_hwpages, ret);
1074                 ehca_err(&shca->ib_device, "internal error in ehca_reg_mr, "
1075                          "not recoverable");
1076         }
1077 ehca_reg_mr_exit0:
1078         if (ret)
1079                 ehca_err(&shca->ib_device, "ret=%i shca=%p e_mr=%p "
1080                          "iova_start=%p size=%lx acl=%x e_pd=%p pginfo=%p "
1081                          "num_kpages=%lx num_hwpages=%lx",
1082                          ret, shca, e_mr, iova_start, size, acl, e_pd, pginfo,
1083                          pginfo->num_kpages, pginfo->num_hwpages);
1084         return ret;
1085 } /* end ehca_reg_mr() */
1086
1087 /*----------------------------------------------------------------------*/
1088
1089 int ehca_reg_mr_rpages(struct ehca_shca *shca,
1090                        struct ehca_mr *e_mr,
1091                        struct ehca_mr_pginfo *pginfo)
1092 {
1093         int ret = 0;
1094         u64 h_ret;
1095         u32 rnum;
1096         u64 rpage;
1097         u32 i;
1098         u64 *kpage;
1099
1100         if (!pginfo->num_hwpages) /* in case of fmr */
1101                 return 0;
1102
1103         kpage = ehca_alloc_fw_ctrlblock(GFP_KERNEL);
1104         if (!kpage) {
1105                 ehca_err(&shca->ib_device, "kpage alloc failed");
1106                 ret = -ENOMEM;
1107                 goto ehca_reg_mr_rpages_exit0;
1108         }
1109
1110         /* max MAX_RPAGES ehca mr pages per register call */
1111         for (i = 0; i < NUM_CHUNKS(pginfo->num_hwpages, MAX_RPAGES); i++) {
1112
1113                 if (i == NUM_CHUNKS(pginfo->num_hwpages, MAX_RPAGES) - 1) {
1114                         rnum = pginfo->num_hwpages % MAX_RPAGES; /* last shot */
1115                         if (rnum == 0)
1116                                 rnum = MAX_RPAGES;      /* last shot is full */
1117                 } else
1118                         rnum = MAX_RPAGES;
1119
1120                 ret = ehca_set_pagebuf(pginfo, rnum, kpage);
1121                 if (ret) {
1122                         ehca_err(&shca->ib_device, "ehca_set_pagebuf "
1123                                  "bad rc, ret=%i rnum=%x kpage=%p",
1124                                  ret, rnum, kpage);
1125                         goto ehca_reg_mr_rpages_exit1;
1126                 }
1127
1128                 if (rnum > 1) {
1129                         rpage = virt_to_abs(kpage);
1130                         if (!rpage) {
1131                                 ehca_err(&shca->ib_device, "kpage=%p i=%x",
1132                                          kpage, i);
1133                                 ret = -EFAULT;
1134                                 goto ehca_reg_mr_rpages_exit1;
1135                         }
1136                 } else
1137                         rpage = *kpage;
1138
1139                 h_ret = hipz_h_register_rpage_mr(
1140                         shca->ipz_hca_handle, e_mr,
1141                         ehca_encode_hwpage_size(pginfo->hwpage_size),
1142                         0, rpage, rnum);
1143
1144                 if (i == NUM_CHUNKS(pginfo->num_hwpages, MAX_RPAGES) - 1) {
1145                         /*
1146                          * check for 'registration complete'==H_SUCCESS
1147                          * and for 'page registered'==H_PAGE_REGISTERED
1148                          */
1149                         if (h_ret != H_SUCCESS) {
1150                                 ehca_err(&shca->ib_device, "last "
1151                                          "hipz_reg_rpage_mr failed, h_ret=%li "
1152                                          "e_mr=%p i=%x hca_hndl=%lx mr_hndl=%lx"
1153                                          " lkey=%x", h_ret, e_mr, i,
1154                                          shca->ipz_hca_handle.handle,
1155                                          e_mr->ipz_mr_handle.handle,
1156                                          e_mr->ib.ib_mr.lkey);
1157                                 ret = ehca2ib_return_code(h_ret);
1158                                 break;
1159                         } else
1160                                 ret = 0;
1161                 } else if (h_ret != H_PAGE_REGISTERED) {
1162                         ehca_err(&shca->ib_device, "hipz_reg_rpage_mr failed, "
1163                                  "h_ret=%li e_mr=%p i=%x lkey=%x hca_hndl=%lx "
1164                                  "mr_hndl=%lx", h_ret, e_mr, i,
1165                                  e_mr->ib.ib_mr.lkey,
1166                                  shca->ipz_hca_handle.handle,
1167                                  e_mr->ipz_mr_handle.handle);
1168                         ret = ehca2ib_return_code(h_ret);
1169                         break;
1170                 } else
1171                         ret = 0;
1172         } /* end for(i) */
1173
1174
1175 ehca_reg_mr_rpages_exit1:
1176         ehca_free_fw_ctrlblock(kpage);
1177 ehca_reg_mr_rpages_exit0:
1178         if (ret)
1179                 ehca_err(&shca->ib_device, "ret=%i shca=%p e_mr=%p pginfo=%p "
1180                          "num_kpages=%lx num_hwpages=%lx", ret, shca, e_mr,
1181                          pginfo, pginfo->num_kpages, pginfo->num_hwpages);
1182         return ret;
1183 } /* end ehca_reg_mr_rpages() */
1184
1185 /*----------------------------------------------------------------------*/
1186
1187 inline int ehca_rereg_mr_rereg1(struct ehca_shca *shca,
1188                                 struct ehca_mr *e_mr,
1189                                 u64 *iova_start,
1190                                 u64 size,
1191                                 u32 acl,
1192                                 struct ehca_pd *e_pd,
1193                                 struct ehca_mr_pginfo *pginfo,
1194                                 u32 *lkey, /*OUT*/
1195                                 u32 *rkey) /*OUT*/
1196 {
1197         int ret;
1198         u64 h_ret;
1199         u32 hipz_acl;
1200         u64 *kpage;
1201         u64 rpage;
1202         struct ehca_mr_pginfo pginfo_save;
1203         struct ehca_mr_hipzout_parms hipzout;
1204
1205         ehca_mrmw_map_acl(acl, &hipz_acl);
1206         ehca_mrmw_set_pgsize_hipz_acl(pginfo->hwpage_size, &hipz_acl);
1207
1208         kpage = ehca_alloc_fw_ctrlblock(GFP_KERNEL);
1209         if (!kpage) {
1210                 ehca_err(&shca->ib_device, "kpage alloc failed");
1211                 ret = -ENOMEM;
1212                 goto ehca_rereg_mr_rereg1_exit0;
1213         }
1214
1215         pginfo_save = *pginfo;
1216         ret = ehca_set_pagebuf(pginfo, pginfo->num_hwpages, kpage);
1217         if (ret) {
1218                 ehca_err(&shca->ib_device, "set pagebuf failed, e_mr=%p "
1219                          "pginfo=%p type=%x num_kpages=%lx num_hwpages=%lx "
1220                          "kpage=%p", e_mr, pginfo, pginfo->type,
1221                          pginfo->num_kpages, pginfo->num_hwpages, kpage);
1222                 goto ehca_rereg_mr_rereg1_exit1;
1223         }
1224         rpage = virt_to_abs(kpage);
1225         if (!rpage) {
1226                 ehca_err(&shca->ib_device, "kpage=%p", kpage);
1227                 ret = -EFAULT;
1228                 goto ehca_rereg_mr_rereg1_exit1;
1229         }
1230         h_ret = hipz_h_reregister_pmr(shca->ipz_hca_handle, e_mr,
1231                                       (u64)iova_start, size, hipz_acl,
1232                                       e_pd->fw_pd, rpage, &hipzout);
1233         if (h_ret != H_SUCCESS) {
1234                 /*
1235                  * reregistration unsuccessful, try it again with the 3 hCalls,
1236                  * e.g. this is required in case H_MR_CONDITION
1237                  * (MW bound or MR is shared)
1238                  */
1239                 ehca_warn(&shca->ib_device, "hipz_h_reregister_pmr failed "
1240                           "(Rereg1), h_ret=%li e_mr=%p", h_ret, e_mr);
1241                 *pginfo = pginfo_save;
1242                 ret = -EAGAIN;
1243         } else if ((u64 *)hipzout.vaddr != iova_start) {
1244                 ehca_err(&shca->ib_device, "PHYP changed iova_start in "
1245                          "rereg_pmr, iova_start=%p iova_start_out=%lx e_mr=%p "
1246                          "mr_handle=%lx lkey=%x lkey_out=%x", iova_start,
1247                          hipzout.vaddr, e_mr, e_mr->ipz_mr_handle.handle,
1248                          e_mr->ib.ib_mr.lkey, hipzout.lkey);
1249                 ret = -EFAULT;
1250         } else {
1251                 /*
1252                  * successful reregistration
1253                  * note: start and start_out are identical for eServer HCAs
1254                  */
1255                 e_mr->num_kpages = pginfo->num_kpages;
1256                 e_mr->num_hwpages = pginfo->num_hwpages;
1257                 e_mr->hwpage_size = pginfo->hwpage_size;
1258                 e_mr->start = iova_start;
1259                 e_mr->size = size;
1260                 e_mr->acl = acl;
1261                 *lkey = hipzout.lkey;
1262                 *rkey = hipzout.rkey;
1263         }
1264
1265 ehca_rereg_mr_rereg1_exit1:
1266         ehca_free_fw_ctrlblock(kpage);
1267 ehca_rereg_mr_rereg1_exit0:
1268         if ( ret && (ret != -EAGAIN) )
1269                 ehca_err(&shca->ib_device, "ret=%i lkey=%x rkey=%x "
1270                          "pginfo=%p num_kpages=%lx num_hwpages=%lx",
1271                          ret, *lkey, *rkey, pginfo, pginfo->num_kpages,
1272                          pginfo->num_hwpages);
1273         return ret;
1274 } /* end ehca_rereg_mr_rereg1() */
1275
1276 /*----------------------------------------------------------------------*/
1277
1278 int ehca_rereg_mr(struct ehca_shca *shca,
1279                   struct ehca_mr *e_mr,
1280                   u64 *iova_start,
1281                   u64 size,
1282                   int acl,
1283                   struct ehca_pd *e_pd,
1284                   struct ehca_mr_pginfo *pginfo,
1285                   u32 *lkey,
1286                   u32 *rkey)
1287 {
1288         int ret = 0;
1289         u64 h_ret;
1290         int rereg_1_hcall = 1; /* 1: use hipz_h_reregister_pmr directly */
1291         int rereg_3_hcall = 0; /* 1: use 3 hipz calls for reregistration */
1292
1293         /* first determine reregistration hCall(s) */
1294         if ((pginfo->num_hwpages > MAX_RPAGES) ||
1295             (e_mr->num_hwpages > MAX_RPAGES) ||
1296             (pginfo->num_hwpages > e_mr->num_hwpages)) {
1297                 ehca_dbg(&shca->ib_device, "Rereg3 case, "
1298                          "pginfo->num_hwpages=%lx e_mr->num_hwpages=%x",
1299                          pginfo->num_hwpages, e_mr->num_hwpages);
1300                 rereg_1_hcall = 0;
1301                 rereg_3_hcall = 1;
1302         }
1303
1304         if (e_mr->flags & EHCA_MR_FLAG_MAXMR) { /* check for max-MR */
1305                 rereg_1_hcall = 0;
1306                 rereg_3_hcall = 1;
1307                 e_mr->flags &= ~EHCA_MR_FLAG_MAXMR;
1308                 ehca_err(&shca->ib_device, "Rereg MR for max-MR! e_mr=%p",
1309                          e_mr);
1310         }
1311
1312         if (rereg_1_hcall) {
1313                 ret = ehca_rereg_mr_rereg1(shca, e_mr, iova_start, size,
1314                                            acl, e_pd, pginfo, lkey, rkey);
1315                 if (ret) {
1316                         if (ret == -EAGAIN)
1317                                 rereg_3_hcall = 1;
1318                         else
1319                                 goto ehca_rereg_mr_exit0;
1320                 }
1321         }
1322
1323         if (rereg_3_hcall) {
1324                 struct ehca_mr save_mr;
1325
1326                 /* first deregister old MR */
1327                 h_ret = hipz_h_free_resource_mr(shca->ipz_hca_handle, e_mr);
1328                 if (h_ret != H_SUCCESS) {
1329                         ehca_err(&shca->ib_device, "hipz_free_mr failed, "
1330                                  "h_ret=%li e_mr=%p hca_hndl=%lx mr_hndl=%lx "
1331                                  "mr->lkey=%x",
1332                                  h_ret, e_mr, shca->ipz_hca_handle.handle,
1333                                  e_mr->ipz_mr_handle.handle,
1334                                  e_mr->ib.ib_mr.lkey);
1335                         ret = ehca2ib_return_code(h_ret);
1336                         goto ehca_rereg_mr_exit0;
1337                 }
1338                 /* clean ehca_mr_t, without changing struct ib_mr and lock */
1339                 save_mr = *e_mr;
1340                 ehca_mr_deletenew(e_mr);
1341
1342                 /* set some MR values */
1343                 e_mr->flags = save_mr.flags;
1344                 e_mr->hwpage_size = save_mr.hwpage_size;
1345                 e_mr->fmr_page_size = save_mr.fmr_page_size;
1346                 e_mr->fmr_max_pages = save_mr.fmr_max_pages;
1347                 e_mr->fmr_max_maps = save_mr.fmr_max_maps;
1348                 e_mr->fmr_map_cnt = save_mr.fmr_map_cnt;
1349
1350                 ret = ehca_reg_mr(shca, e_mr, iova_start, size, acl,
1351                                   e_pd, pginfo, lkey, rkey);
1352                 if (ret) {
1353                         u32 offset = (u64)(&e_mr->flags) - (u64)e_mr;
1354                         memcpy(&e_mr->flags, &(save_mr.flags),
1355                                sizeof(struct ehca_mr) - offset);
1356                         goto ehca_rereg_mr_exit0;
1357                 }
1358         }
1359
1360 ehca_rereg_mr_exit0:
1361         if (ret)
1362                 ehca_err(&shca->ib_device, "ret=%i shca=%p e_mr=%p "
1363                          "iova_start=%p size=%lx acl=%x e_pd=%p pginfo=%p "
1364                          "num_kpages=%lx lkey=%x rkey=%x rereg_1_hcall=%x "
1365                          "rereg_3_hcall=%x", ret, shca, e_mr, iova_start, size,
1366                          acl, e_pd, pginfo, pginfo->num_kpages, *lkey, *rkey,
1367                          rereg_1_hcall, rereg_3_hcall);
1368         return ret;
1369 } /* end ehca_rereg_mr() */
1370
1371 /*----------------------------------------------------------------------*/
1372
1373 int ehca_unmap_one_fmr(struct ehca_shca *shca,
1374                        struct ehca_mr *e_fmr)
1375 {
1376         int ret = 0;
1377         u64 h_ret;
1378         struct ehca_pd *e_pd =
1379                 container_of(e_fmr->ib.ib_fmr.pd, struct ehca_pd, ib_pd);
1380         struct ehca_mr save_fmr;
1381         u32 tmp_lkey, tmp_rkey;
1382         struct ehca_mr_pginfo pginfo;
1383         struct ehca_mr_hipzout_parms hipzout;
1384         struct ehca_mr save_mr;
1385
1386         if (e_fmr->fmr_max_pages <= MAX_RPAGES) {
1387                 /*
1388                  * note: after using rereg hcall with len=0,
1389                  * rereg hcall must be used again for registering pages
1390                  */
1391                 h_ret = hipz_h_reregister_pmr(shca->ipz_hca_handle, e_fmr, 0,
1392                                               0, 0, e_pd->fw_pd, 0, &hipzout);
1393                 if (h_ret == H_SUCCESS) {
1394                         /* successful reregistration */
1395                         e_fmr->start = NULL;
1396                         e_fmr->size = 0;
1397                         tmp_lkey = hipzout.lkey;
1398                         tmp_rkey = hipzout.rkey;
1399                         return 0;
1400                 }
1401                 /*
1402                  * should not happen, because length checked above,
1403                  * FMRs are not shared and no MW bound to FMRs
1404                  */
1405                 ehca_err(&shca->ib_device, "hipz_reregister_pmr failed "
1406                          "(Rereg1), h_ret=%li e_fmr=%p hca_hndl=%lx "
1407                          "mr_hndl=%lx lkey=%x lkey_out=%x",
1408                          h_ret, e_fmr, shca->ipz_hca_handle.handle,
1409                          e_fmr->ipz_mr_handle.handle,
1410                          e_fmr->ib.ib_fmr.lkey, hipzout.lkey);
1411                 /* try free and rereg */
1412         }
1413
1414         /* first free old FMR */
1415         h_ret = hipz_h_free_resource_mr(shca->ipz_hca_handle, e_fmr);
1416         if (h_ret != H_SUCCESS) {
1417                 ehca_err(&shca->ib_device, "hipz_free_mr failed, "
1418                          "h_ret=%li e_fmr=%p hca_hndl=%lx mr_hndl=%lx "
1419                          "lkey=%x",
1420                          h_ret, e_fmr, shca->ipz_hca_handle.handle,
1421                          e_fmr->ipz_mr_handle.handle,
1422                          e_fmr->ib.ib_fmr.lkey);
1423                 ret = ehca2ib_return_code(h_ret);
1424                 goto ehca_unmap_one_fmr_exit0;
1425         }
1426         /* clean ehca_mr_t, without changing lock */
1427         save_fmr = *e_fmr;
1428         ehca_mr_deletenew(e_fmr);
1429
1430         /* set some MR values */
1431         e_fmr->flags = save_fmr.flags;
1432         e_fmr->hwpage_size = save_fmr.hwpage_size;
1433         e_fmr->fmr_page_size = save_fmr.fmr_page_size;
1434         e_fmr->fmr_max_pages = save_fmr.fmr_max_pages;
1435         e_fmr->fmr_max_maps = save_fmr.fmr_max_maps;
1436         e_fmr->fmr_map_cnt = save_fmr.fmr_map_cnt;
1437         e_fmr->acl = save_fmr.acl;
1438
1439         memset(&pginfo, 0, sizeof(pginfo));
1440         pginfo.type = EHCA_MR_PGI_FMR;
1441         ret = ehca_reg_mr(shca, e_fmr, NULL,
1442                           (e_fmr->fmr_max_pages * e_fmr->fmr_page_size),
1443                           e_fmr->acl, e_pd, &pginfo, &tmp_lkey,
1444                           &tmp_rkey);
1445         if (ret) {
1446                 u32 offset = (u64)(&e_fmr->flags) - (u64)e_fmr;
1447                 memcpy(&e_fmr->flags, &(save_mr.flags),
1448                        sizeof(struct ehca_mr) - offset);
1449         }
1450
1451 ehca_unmap_one_fmr_exit0:
1452         if (ret)
1453                 ehca_err(&shca->ib_device, "ret=%i tmp_lkey=%x tmp_rkey=%x "
1454                          "fmr_max_pages=%x",
1455                          ret, tmp_lkey, tmp_rkey, e_fmr->fmr_max_pages);
1456         return ret;
1457 } /* end ehca_unmap_one_fmr() */
1458
1459 /*----------------------------------------------------------------------*/
1460
1461 int ehca_reg_smr(struct ehca_shca *shca,
1462                  struct ehca_mr *e_origmr,
1463                  struct ehca_mr *e_newmr,
1464                  u64 *iova_start,
1465                  int acl,
1466                  struct ehca_pd *e_pd,
1467                  u32 *lkey, /*OUT*/
1468                  u32 *rkey) /*OUT*/
1469 {
1470         int ret = 0;
1471         u64 h_ret;
1472         u32 hipz_acl;
1473         struct ehca_mr_hipzout_parms hipzout;
1474
1475         ehca_mrmw_map_acl(acl, &hipz_acl);
1476         ehca_mrmw_set_pgsize_hipz_acl(e_origmr->hwpage_size, &hipz_acl);
1477
1478         h_ret = hipz_h_register_smr(shca->ipz_hca_handle, e_newmr, e_origmr,
1479                                     (u64)iova_start, hipz_acl, e_pd->fw_pd,
1480                                     &hipzout);
1481         if (h_ret != H_SUCCESS) {
1482                 ehca_err(&shca->ib_device, "hipz_reg_smr failed, h_ret=%li "
1483                          "shca=%p e_origmr=%p e_newmr=%p iova_start=%p acl=%x "
1484                          "e_pd=%p hca_hndl=%lx mr_hndl=%lx lkey=%x",
1485                          h_ret, shca, e_origmr, e_newmr, iova_start, acl, e_pd,
1486                          shca->ipz_hca_handle.handle,
1487                          e_origmr->ipz_mr_handle.handle,
1488                          e_origmr->ib.ib_mr.lkey);
1489                 ret = ehca2ib_return_code(h_ret);
1490                 goto ehca_reg_smr_exit0;
1491         }
1492         /* successful registration */
1493         e_newmr->num_kpages = e_origmr->num_kpages;
1494         e_newmr->num_hwpages = e_origmr->num_hwpages;
1495         e_newmr->hwpage_size   = e_origmr->hwpage_size;
1496         e_newmr->start = iova_start;
1497         e_newmr->size = e_origmr->size;
1498         e_newmr->acl = acl;
1499         e_newmr->ipz_mr_handle = hipzout.handle;
1500         *lkey = hipzout.lkey;
1501         *rkey = hipzout.rkey;
1502         return 0;
1503
1504 ehca_reg_smr_exit0:
1505         if (ret)
1506                 ehca_err(&shca->ib_device, "ret=%i shca=%p e_origmr=%p "
1507                          "e_newmr=%p iova_start=%p acl=%x e_pd=%p",
1508                          ret, shca, e_origmr, e_newmr, iova_start, acl, e_pd);
1509         return ret;
1510 } /* end ehca_reg_smr() */
1511
1512 /*----------------------------------------------------------------------*/
1513
1514 /* register internal max-MR to internal SHCA */
1515 int ehca_reg_internal_maxmr(
1516         struct ehca_shca *shca,
1517         struct ehca_pd *e_pd,
1518         struct ehca_mr **e_maxmr)  /*OUT*/
1519 {
1520         int ret;
1521         struct ehca_mr *e_mr;
1522         u64 *iova_start;
1523         u64 size_maxmr;
1524         struct ehca_mr_pginfo pginfo;
1525         struct ib_phys_buf ib_pbuf;
1526         u32 num_kpages;
1527         u32 num_hwpages;
1528         u64 hw_pgsize;
1529
1530         e_mr = ehca_mr_new();
1531         if (!e_mr) {
1532                 ehca_err(&shca->ib_device, "out of memory");
1533                 ret = -ENOMEM;
1534                 goto ehca_reg_internal_maxmr_exit0;
1535         }
1536         e_mr->flags |= EHCA_MR_FLAG_MAXMR;
1537
1538         /* register internal max-MR on HCA */
1539         size_maxmr = (u64)high_memory - PAGE_OFFSET;
1540         iova_start = (u64 *)KERNELBASE;
1541         ib_pbuf.addr = 0;
1542         ib_pbuf.size = size_maxmr;
1543         num_kpages = NUM_CHUNKS(((u64)iova_start % PAGE_SIZE) + size_maxmr,
1544                                 PAGE_SIZE);
1545         hw_pgsize = ehca_get_max_hwpage_size(shca);
1546         num_hwpages = NUM_CHUNKS(((u64)iova_start % hw_pgsize) + size_maxmr,
1547                                  hw_pgsize);
1548
1549         memset(&pginfo, 0, sizeof(pginfo));
1550         pginfo.type = EHCA_MR_PGI_PHYS;
1551         pginfo.num_kpages = num_kpages;
1552         pginfo.num_hwpages = num_hwpages;
1553         pginfo.hwpage_size = hw_pgsize;
1554         pginfo.u.phy.num_phys_buf = 1;
1555         pginfo.u.phy.phys_buf_array = &ib_pbuf;
1556
1557         ret = ehca_reg_mr(shca, e_mr, iova_start, size_maxmr, 0, e_pd,
1558                           &pginfo, &e_mr->ib.ib_mr.lkey,
1559                           &e_mr->ib.ib_mr.rkey);
1560         if (ret) {
1561                 ehca_err(&shca->ib_device, "reg of internal max MR failed, "
1562                          "e_mr=%p iova_start=%p size_maxmr=%lx num_kpages=%x "
1563                          "num_hwpages=%x", e_mr, iova_start, size_maxmr,
1564                          num_kpages, num_hwpages);
1565                 goto ehca_reg_internal_maxmr_exit1;
1566         }
1567
1568         /* successful registration of all pages */
1569         e_mr->ib.ib_mr.device = e_pd->ib_pd.device;
1570         e_mr->ib.ib_mr.pd = &e_pd->ib_pd;
1571         e_mr->ib.ib_mr.uobject = NULL;
1572         atomic_inc(&(e_pd->ib_pd.usecnt));
1573         atomic_set(&(e_mr->ib.ib_mr.usecnt), 0);
1574         *e_maxmr = e_mr;
1575         return 0;
1576
1577 ehca_reg_internal_maxmr_exit1:
1578         ehca_mr_delete(e_mr);
1579 ehca_reg_internal_maxmr_exit0:
1580         if (ret)
1581                 ehca_err(&shca->ib_device, "ret=%i shca=%p e_pd=%p e_maxmr=%p",
1582                          ret, shca, e_pd, e_maxmr);
1583         return ret;
1584 } /* end ehca_reg_internal_maxmr() */
1585
1586 /*----------------------------------------------------------------------*/
1587
1588 int ehca_reg_maxmr(struct ehca_shca *shca,
1589                    struct ehca_mr *e_newmr,
1590                    u64 *iova_start,
1591                    int acl,
1592                    struct ehca_pd *e_pd,
1593                    u32 *lkey,
1594                    u32 *rkey)
1595 {
1596         u64 h_ret;
1597         struct ehca_mr *e_origmr = shca->maxmr;
1598         u32 hipz_acl;
1599         struct ehca_mr_hipzout_parms hipzout;
1600
1601         ehca_mrmw_map_acl(acl, &hipz_acl);
1602         ehca_mrmw_set_pgsize_hipz_acl(e_origmr->hwpage_size, &hipz_acl);
1603
1604         h_ret = hipz_h_register_smr(shca->ipz_hca_handle, e_newmr, e_origmr,
1605                                     (u64)iova_start, hipz_acl, e_pd->fw_pd,
1606                                     &hipzout);
1607         if (h_ret != H_SUCCESS) {
1608                 ehca_err(&shca->ib_device, "hipz_reg_smr failed, h_ret=%li "
1609                          "e_origmr=%p hca_hndl=%lx mr_hndl=%lx lkey=%x",
1610                          h_ret, e_origmr, shca->ipz_hca_handle.handle,
1611                          e_origmr->ipz_mr_handle.handle,
1612                          e_origmr->ib.ib_mr.lkey);
1613                 return ehca2ib_return_code(h_ret);
1614         }
1615         /* successful registration */
1616         e_newmr->num_kpages = e_origmr->num_kpages;
1617         e_newmr->num_hwpages = e_origmr->num_hwpages;
1618         e_newmr->hwpage_size = e_origmr->hwpage_size;
1619         e_newmr->start = iova_start;
1620         e_newmr->size = e_origmr->size;
1621         e_newmr->acl = acl;
1622         e_newmr->ipz_mr_handle = hipzout.handle;
1623         *lkey = hipzout.lkey;
1624         *rkey = hipzout.rkey;
1625         return 0;
1626 } /* end ehca_reg_maxmr() */
1627
1628 /*----------------------------------------------------------------------*/
1629
1630 int ehca_dereg_internal_maxmr(struct ehca_shca *shca)
1631 {
1632         int ret;
1633         struct ehca_mr *e_maxmr;
1634         struct ib_pd *ib_pd;
1635
1636         if (!shca->maxmr) {
1637                 ehca_err(&shca->ib_device, "bad call, shca=%p", shca);
1638                 ret = -EINVAL;
1639                 goto ehca_dereg_internal_maxmr_exit0;
1640         }
1641
1642         e_maxmr = shca->maxmr;
1643         ib_pd = e_maxmr->ib.ib_mr.pd;
1644         shca->maxmr = NULL; /* remove internal max-MR indication from SHCA */
1645
1646         ret = ehca_dereg_mr(&e_maxmr->ib.ib_mr);
1647         if (ret) {
1648                 ehca_err(&shca->ib_device, "dereg internal max-MR failed, "
1649                          "ret=%i e_maxmr=%p shca=%p lkey=%x",
1650                          ret, e_maxmr, shca, e_maxmr->ib.ib_mr.lkey);
1651                 shca->maxmr = e_maxmr;
1652                 goto ehca_dereg_internal_maxmr_exit0;
1653         }
1654
1655         atomic_dec(&ib_pd->usecnt);
1656
1657 ehca_dereg_internal_maxmr_exit0:
1658         if (ret)
1659                 ehca_err(&shca->ib_device, "ret=%i shca=%p shca->maxmr=%p",
1660                          ret, shca, shca->maxmr);
1661         return ret;
1662 } /* end ehca_dereg_internal_maxmr() */
1663
1664 /*----------------------------------------------------------------------*/
1665
1666 /*
1667  * check physical buffer array of MR verbs for validness and
1668  * calculates MR size
1669  */
1670 int ehca_mr_chk_buf_and_calc_size(struct ib_phys_buf *phys_buf_array,
1671                                   int num_phys_buf,
1672                                   u64 *iova_start,
1673                                   u64 *size)
1674 {
1675         struct ib_phys_buf *pbuf = phys_buf_array;
1676         u64 size_count = 0;
1677         u32 i;
1678
1679         if (num_phys_buf == 0) {
1680                 ehca_gen_err("bad phys buf array len, num_phys_buf=0");
1681                 return -EINVAL;
1682         }
1683         /* check first buffer */
1684         if (((u64)iova_start & ~PAGE_MASK) != (pbuf->addr & ~PAGE_MASK)) {
1685                 ehca_gen_err("iova_start/addr mismatch, iova_start=%p "
1686                              "pbuf->addr=%lx pbuf->size=%lx",
1687                              iova_start, pbuf->addr, pbuf->size);
1688                 return -EINVAL;
1689         }
1690         if (((pbuf->addr + pbuf->size) % PAGE_SIZE) &&
1691             (num_phys_buf > 1)) {
1692                 ehca_gen_err("addr/size mismatch in 1st buf, pbuf->addr=%lx "
1693                              "pbuf->size=%lx", pbuf->addr, pbuf->size);
1694                 return -EINVAL;
1695         }
1696
1697         for (i = 0; i < num_phys_buf; i++) {
1698                 if ((i > 0) && (pbuf->addr % PAGE_SIZE)) {
1699                         ehca_gen_err("bad address, i=%x pbuf->addr=%lx "
1700                                      "pbuf->size=%lx",
1701                                      i, pbuf->addr, pbuf->size);
1702                         return -EINVAL;
1703                 }
1704                 if (((i > 0) && /* not 1st */
1705                      (i < (num_phys_buf - 1)) &&        /* not last */
1706                      (pbuf->size % PAGE_SIZE)) || (pbuf->size == 0)) {
1707                         ehca_gen_err("bad size, i=%x pbuf->size=%lx",
1708                                      i, pbuf->size);
1709                         return -EINVAL;
1710                 }
1711                 size_count += pbuf->size;
1712                 pbuf++;
1713         }
1714
1715         *size = size_count;
1716         return 0;
1717 } /* end ehca_mr_chk_buf_and_calc_size() */
1718
1719 /*----------------------------------------------------------------------*/
1720
1721 /* check page list of map FMR verb for validness */
1722 int ehca_fmr_check_page_list(struct ehca_mr *e_fmr,
1723                              u64 *page_list,
1724                              int list_len)
1725 {
1726         u32 i;
1727         u64 *page;
1728
1729         if ((list_len == 0) || (list_len > e_fmr->fmr_max_pages)) {
1730                 ehca_gen_err("bad list_len, list_len=%x "
1731                              "e_fmr->fmr_max_pages=%x fmr=%p",
1732                              list_len, e_fmr->fmr_max_pages, e_fmr);
1733                 return -EINVAL;
1734         }
1735
1736         /* each page must be aligned */
1737         page = page_list;
1738         for (i = 0; i < list_len; i++) {
1739                 if (*page % e_fmr->fmr_page_size) {
1740                         ehca_gen_err("bad page, i=%x *page=%lx page=%p fmr=%p "
1741                                      "fmr_page_size=%x", i, *page, page, e_fmr,
1742                                      e_fmr->fmr_page_size);
1743                         return -EINVAL;
1744                 }
1745                 page++;
1746         }
1747
1748         return 0;
1749 } /* end ehca_fmr_check_page_list() */
1750
1751 /*----------------------------------------------------------------------*/
1752
1753 /* PAGE_SIZE >= pginfo->hwpage_size */
1754 static int ehca_set_pagebuf_user1(struct ehca_mr_pginfo *pginfo,
1755                                   u32 number,
1756                                   u64 *kpage)
1757 {
1758         int ret = 0;
1759         struct ib_umem_chunk *prev_chunk;
1760         struct ib_umem_chunk *chunk;
1761         u64 pgaddr;
1762         u32 i = 0;
1763         u32 j = 0;
1764         int hwpages_per_kpage = PAGE_SIZE / pginfo->hwpage_size;
1765
1766         /* loop over desired chunk entries */
1767         chunk      = pginfo->u.usr.next_chunk;
1768         prev_chunk = pginfo->u.usr.next_chunk;
1769         list_for_each_entry_continue(
1770                 chunk, (&(pginfo->u.usr.region->chunk_list)), list) {
1771                 for (i = pginfo->u.usr.next_nmap; i < chunk->nmap; ) {
1772                         pgaddr = page_to_pfn(chunk->page_list[i].page)
1773                                 << PAGE_SHIFT ;
1774                         *kpage = phys_to_abs(pgaddr +
1775                                              (pginfo->next_hwpage *
1776                                               pginfo->hwpage_size));
1777                         if ( !(*kpage) ) {
1778                                 ehca_gen_err("pgaddr=%lx "
1779                                              "chunk->page_list[i]=%lx "
1780                                              "i=%x next_hwpage=%lx",
1781                                              pgaddr, (u64)sg_dma_address(
1782                                                      &chunk->page_list[i]),
1783                                              i, pginfo->next_hwpage);
1784                                 return -EFAULT;
1785                         }
1786                         (pginfo->hwpage_cnt)++;
1787                         (pginfo->next_hwpage)++;
1788                         kpage++;
1789                         if (pginfo->next_hwpage % hwpages_per_kpage == 0) {
1790                                 (pginfo->kpage_cnt)++;
1791                                 (pginfo->u.usr.next_nmap)++;
1792                                 pginfo->next_hwpage = 0;
1793                                 i++;
1794                         }
1795                         j++;
1796                         if (j >= number) break;
1797                 }
1798                 if ((pginfo->u.usr.next_nmap >= chunk->nmap) &&
1799                     (j >= number)) {
1800                         pginfo->u.usr.next_nmap = 0;
1801                         prev_chunk = chunk;
1802                         break;
1803                 } else if (pginfo->u.usr.next_nmap >= chunk->nmap) {
1804                         pginfo->u.usr.next_nmap = 0;
1805                         prev_chunk = chunk;
1806                 } else if (j >= number)
1807                         break;
1808                 else
1809                         prev_chunk = chunk;
1810         }
1811         pginfo->u.usr.next_chunk =
1812                 list_prepare_entry(prev_chunk,
1813                                    (&(pginfo->u.usr.region->chunk_list)),
1814                                    list);
1815         return ret;
1816 }
1817
1818 /*
1819  * check given pages for contiguous layout
1820  * last page addr is returned in prev_pgaddr for further check
1821  */
1822 static int ehca_check_kpages_per_ate(struct scatterlist *page_list,
1823                                      int start_idx, int end_idx,
1824                                      u64 *prev_pgaddr)
1825 {
1826         int t;
1827         for (t = start_idx; t <= end_idx; t++) {
1828                 u64 pgaddr = page_to_pfn(page_list[t].page) << PAGE_SHIFT;
1829                 ehca_gen_dbg("chunk_page=%lx value=%016lx", pgaddr,
1830                              *(u64 *)abs_to_virt(phys_to_abs(pgaddr)));
1831                 if (pgaddr - PAGE_SIZE != *prev_pgaddr) {
1832                         ehca_gen_err("uncontiguous page found pgaddr=%lx "
1833                                      "prev_pgaddr=%lx page_list_i=%x",
1834                                      pgaddr, *prev_pgaddr, t);
1835                         return -EINVAL;
1836                 }
1837                 *prev_pgaddr = pgaddr;
1838         }
1839         return 0;
1840 }
1841
1842 /* PAGE_SIZE < pginfo->hwpage_size */
1843 static int ehca_set_pagebuf_user2(struct ehca_mr_pginfo *pginfo,
1844                                   u32 number,
1845                                   u64 *kpage)
1846 {
1847         int ret = 0;
1848         struct ib_umem_chunk *prev_chunk;
1849         struct ib_umem_chunk *chunk;
1850         u64 pgaddr, prev_pgaddr;
1851         u32 i = 0;
1852         u32 j = 0;
1853         int kpages_per_hwpage = pginfo->hwpage_size / PAGE_SIZE;
1854         int nr_kpages = kpages_per_hwpage;
1855
1856         /* loop over desired chunk entries */
1857         chunk      = pginfo->u.usr.next_chunk;
1858         prev_chunk = pginfo->u.usr.next_chunk;
1859         list_for_each_entry_continue(
1860                 chunk, (&(pginfo->u.usr.region->chunk_list)), list) {
1861                 for (i = pginfo->u.usr.next_nmap; i < chunk->nmap; ) {
1862                         if (nr_kpages == kpages_per_hwpage) {
1863                                 pgaddr = ( page_to_pfn(chunk->page_list[i].page)
1864                                            << PAGE_SHIFT );
1865                                 *kpage = phys_to_abs(pgaddr);
1866                                 if ( !(*kpage) ) {
1867                                         ehca_gen_err("pgaddr=%lx i=%x",
1868                                                      pgaddr, i);
1869                                         ret = -EFAULT;
1870                                         return ret;
1871                                 }
1872                                 /*
1873                                  * The first page in a hwpage must be aligned;
1874                                  * the first MR page is exempt from this rule.
1875                                  */
1876                                 if (pgaddr & (pginfo->hwpage_size - 1)) {
1877                                         if (pginfo->hwpage_cnt) {
1878                                                 ehca_gen_err(
1879                                                         "invalid alignment "
1880                                                         "pgaddr=%lx i=%x "
1881                                                         "mr_pgsize=%lx",
1882                                                         pgaddr, i,
1883                                                         pginfo->hwpage_size);
1884                                                 ret = -EFAULT;
1885                                                 return ret;
1886                                         }
1887                                         /* first MR page */
1888                                         pginfo->kpage_cnt =
1889                                                 (pgaddr &
1890                                                  (pginfo->hwpage_size - 1)) >>
1891                                                 PAGE_SHIFT;
1892                                         nr_kpages -= pginfo->kpage_cnt;
1893                                         *kpage = phys_to_abs(
1894                                                 pgaddr &
1895                                                 ~(pginfo->hwpage_size - 1));
1896                                 }
1897                                 ehca_gen_dbg("kpage=%lx chunk_page=%lx "
1898                                              "value=%016lx", *kpage, pgaddr,
1899                                              *(u64 *)abs_to_virt(
1900                                                      phys_to_abs(pgaddr)));
1901                                 prev_pgaddr = pgaddr;
1902                                 i++;
1903                                 pginfo->kpage_cnt++;
1904                                 pginfo->u.usr.next_nmap++;
1905                                 nr_kpages--;
1906                                 if (!nr_kpages)
1907                                         goto next_kpage;
1908                                 continue;
1909                         }
1910                         if (i + nr_kpages > chunk->nmap) {
1911                                 ret = ehca_check_kpages_per_ate(
1912                                         chunk->page_list, i,
1913                                         chunk->nmap - 1, &prev_pgaddr);
1914                                 if (ret) return ret;
1915                                 pginfo->kpage_cnt += chunk->nmap - i;
1916                                 pginfo->u.usr.next_nmap += chunk->nmap - i;
1917                                 nr_kpages -= chunk->nmap - i;
1918                                 break;
1919                         }
1920
1921                         ret = ehca_check_kpages_per_ate(chunk->page_list, i,
1922                                                         i + nr_kpages - 1,
1923                                                         &prev_pgaddr);
1924                         if (ret) return ret;
1925                         i += nr_kpages;
1926                         pginfo->kpage_cnt += nr_kpages;
1927                         pginfo->u.usr.next_nmap += nr_kpages;
1928 next_kpage:
1929                         nr_kpages = kpages_per_hwpage;
1930                         (pginfo->hwpage_cnt)++;
1931                         kpage++;
1932                         j++;
1933                         if (j >= number) break;
1934                 }
1935                 if ((pginfo->u.usr.next_nmap >= chunk->nmap) &&
1936                     (j >= number)) {
1937                         pginfo->u.usr.next_nmap = 0;
1938                         prev_chunk = chunk;
1939                         break;
1940                 } else if (pginfo->u.usr.next_nmap >= chunk->nmap) {
1941                         pginfo->u.usr.next_nmap = 0;
1942                         prev_chunk = chunk;
1943                 } else if (j >= number)
1944                         break;
1945                 else
1946                         prev_chunk = chunk;
1947         }
1948         pginfo->u.usr.next_chunk =
1949                 list_prepare_entry(prev_chunk,
1950                                    (&(pginfo->u.usr.region->chunk_list)),
1951                                    list);
1952         return ret;
1953 }
1954
1955 int ehca_set_pagebuf_phys(struct ehca_mr_pginfo *pginfo,
1956                           u32 number,
1957                           u64 *kpage)
1958 {
1959         int ret = 0;
1960         struct ib_phys_buf *pbuf;
1961         u64 num_hw, offs_hw;
1962         u32 i = 0;
1963
1964         /* loop over desired phys_buf_array entries */
1965         while (i < number) {
1966                 pbuf   = pginfo->u.phy.phys_buf_array + pginfo->u.phy.next_buf;
1967                 num_hw  = NUM_CHUNKS((pbuf->addr % pginfo->hwpage_size) +
1968                                      pbuf->size, pginfo->hwpage_size);
1969                 offs_hw = (pbuf->addr & ~(pginfo->hwpage_size - 1)) /
1970                         pginfo->hwpage_size;
1971                 while (pginfo->next_hwpage < offs_hw + num_hw) {
1972                         /* sanity check */
1973                         if ((pginfo->kpage_cnt >= pginfo->num_kpages) ||
1974                             (pginfo->hwpage_cnt >= pginfo->num_hwpages)) {
1975                                 ehca_gen_err("kpage_cnt >= num_kpages, "
1976                                              "kpage_cnt=%lx num_kpages=%lx "
1977                                              "hwpage_cnt=%lx "
1978                                              "num_hwpages=%lx i=%x",
1979                                              pginfo->kpage_cnt,
1980                                              pginfo->num_kpages,
1981                                              pginfo->hwpage_cnt,
1982                                              pginfo->num_hwpages, i);
1983                                 return -EFAULT;
1984                         }
1985                         *kpage = phys_to_abs(
1986                                 (pbuf->addr & ~(pginfo->hwpage_size - 1)) +
1987                                 (pginfo->next_hwpage * pginfo->hwpage_size));
1988                         if ( !(*kpage) && pbuf->addr ) {
1989                                 ehca_gen_err("pbuf->addr=%lx pbuf->size=%lx "
1990                                              "next_hwpage=%lx", pbuf->addr,
1991                                              pbuf->size, pginfo->next_hwpage);
1992                                 return -EFAULT;
1993                         }
1994                         (pginfo->hwpage_cnt)++;
1995                         (pginfo->next_hwpage)++;
1996                         if (PAGE_SIZE >= pginfo->hwpage_size) {
1997                                 if (pginfo->next_hwpage %
1998                                     (PAGE_SIZE / pginfo->hwpage_size) == 0)
1999                                         (pginfo->kpage_cnt)++;
2000                         } else
2001                                 pginfo->kpage_cnt += pginfo->hwpage_size /
2002                                         PAGE_SIZE;
2003                         kpage++;
2004                         i++;
2005                         if (i >= number) break;
2006                 }
2007                 if (pginfo->next_hwpage >= offs_hw + num_hw) {
2008                         (pginfo->u.phy.next_buf)++;
2009                         pginfo->next_hwpage = 0;
2010                 }
2011         }
2012         return ret;
2013 }
2014
2015 int ehca_set_pagebuf_fmr(struct ehca_mr_pginfo *pginfo,
2016                          u32 number,
2017                          u64 *kpage)
2018 {
2019         int ret = 0;
2020         u64 *fmrlist;
2021         u32 i;
2022
2023         /* loop over desired page_list entries */
2024         fmrlist = pginfo->u.fmr.page_list + pginfo->u.fmr.next_listelem;
2025         for (i = 0; i < number; i++) {
2026                 *kpage = phys_to_abs((*fmrlist & ~(pginfo->hwpage_size - 1)) +
2027                                      pginfo->next_hwpage * pginfo->hwpage_size);
2028                 if ( !(*kpage) ) {
2029                         ehca_gen_err("*fmrlist=%lx fmrlist=%p "
2030                                      "next_listelem=%lx next_hwpage=%lx",
2031                                      *fmrlist, fmrlist,
2032                                      pginfo->u.fmr.next_listelem,
2033                                      pginfo->next_hwpage);
2034                         return -EFAULT;
2035                 }
2036                 (pginfo->hwpage_cnt)++;
2037                 if (pginfo->u.fmr.fmr_pgsize >= pginfo->hwpage_size) {
2038                         if (pginfo->next_hwpage %
2039                             (pginfo->u.fmr.fmr_pgsize /
2040                              pginfo->hwpage_size) == 0) {
2041                                 (pginfo->kpage_cnt)++;
2042                                 (pginfo->u.fmr.next_listelem)++;
2043                                 fmrlist++;
2044                                 pginfo->next_hwpage = 0;
2045                         } else
2046                                 (pginfo->next_hwpage)++;
2047                 } else {
2048                         unsigned int cnt_per_hwpage = pginfo->hwpage_size /
2049                                 pginfo->u.fmr.fmr_pgsize;
2050                         unsigned int j;
2051                         u64 prev = *kpage;
2052                         /* check if adrs are contiguous */
2053                         for (j = 1; j < cnt_per_hwpage; j++) {
2054                                 u64 p = phys_to_abs(fmrlist[j] &
2055                                                     ~(pginfo->hwpage_size - 1));
2056                                 if (prev + pginfo->u.fmr.fmr_pgsize != p) {
2057                                         ehca_gen_err("uncontiguous fmr pages "
2058                                                      "found prev=%lx p=%lx "
2059                                                      "idx=%x", prev, p, i + j);
2060                                         return -EINVAL;
2061                                 }
2062                                 prev = p;
2063                         }
2064                         pginfo->kpage_cnt += cnt_per_hwpage;
2065                         pginfo->u.fmr.next_listelem += cnt_per_hwpage;
2066                         fmrlist += cnt_per_hwpage;
2067                 }
2068                 kpage++;
2069         }
2070         return ret;
2071 }
2072
2073 /* setup page buffer from page info */
2074 int ehca_set_pagebuf(struct ehca_mr_pginfo *pginfo,
2075                      u32 number,
2076                      u64 *kpage)
2077 {
2078         int ret;
2079
2080         switch (pginfo->type) {
2081         case EHCA_MR_PGI_PHYS:
2082                 ret = ehca_set_pagebuf_phys(pginfo, number, kpage);
2083                 break;
2084         case EHCA_MR_PGI_USER:
2085                 ret = PAGE_SIZE >= pginfo->hwpage_size ?
2086                         ehca_set_pagebuf_user1(pginfo, number, kpage) :
2087                         ehca_set_pagebuf_user2(pginfo, number, kpage);
2088                 break;
2089         case EHCA_MR_PGI_FMR:
2090                 ret = ehca_set_pagebuf_fmr(pginfo, number, kpage);
2091                 break;
2092         default:
2093                 ehca_gen_err("bad pginfo->type=%x", pginfo->type);
2094                 ret = -EFAULT;
2095                 break;
2096         }
2097         return ret;
2098 } /* end ehca_set_pagebuf() */
2099
2100 /*----------------------------------------------------------------------*/
2101
2102 /*
2103  * check MR if it is a max-MR, i.e. uses whole memory
2104  * in case it's a max-MR 1 is returned, else 0
2105  */
2106 int ehca_mr_is_maxmr(u64 size,
2107                      u64 *iova_start)
2108 {
2109         /* a MR is treated as max-MR only if it fits following: */
2110         if ((size == ((u64)high_memory - PAGE_OFFSET)) &&
2111             (iova_start == (void *)KERNELBASE)) {
2112                 ehca_gen_dbg("this is a max-MR");
2113                 return 1;
2114         } else
2115                 return 0;
2116 } /* end ehca_mr_is_maxmr() */
2117
2118 /*----------------------------------------------------------------------*/
2119
2120 /* map access control for MR/MW. This routine is used for MR and MW. */
2121 void ehca_mrmw_map_acl(int ib_acl,
2122                        u32 *hipz_acl)
2123 {
2124         *hipz_acl = 0;
2125         if (ib_acl & IB_ACCESS_REMOTE_READ)
2126                 *hipz_acl |= HIPZ_ACCESSCTRL_R_READ;
2127         if (ib_acl & IB_ACCESS_REMOTE_WRITE)
2128                 *hipz_acl |= HIPZ_ACCESSCTRL_R_WRITE;
2129         if (ib_acl & IB_ACCESS_REMOTE_ATOMIC)
2130                 *hipz_acl |= HIPZ_ACCESSCTRL_R_ATOMIC;
2131         if (ib_acl & IB_ACCESS_LOCAL_WRITE)
2132                 *hipz_acl |= HIPZ_ACCESSCTRL_L_WRITE;
2133         if (ib_acl & IB_ACCESS_MW_BIND)
2134                 *hipz_acl |= HIPZ_ACCESSCTRL_MW_BIND;
2135 } /* end ehca_mrmw_map_acl() */
2136
2137 /*----------------------------------------------------------------------*/
2138
2139 /* sets page size in hipz access control for MR/MW. */
2140 void ehca_mrmw_set_pgsize_hipz_acl(u32 pgsize, u32 *hipz_acl) /*INOUT*/
2141 {
2142         *hipz_acl |= (ehca_encode_hwpage_size(pgsize) << 24);
2143 } /* end ehca_mrmw_set_pgsize_hipz_acl() */
2144
2145 /*----------------------------------------------------------------------*/
2146
2147 /*
2148  * reverse map access control for MR/MW.
2149  * This routine is used for MR and MW.
2150  */
2151 void ehca_mrmw_reverse_map_acl(const u32 *hipz_acl,
2152                                int *ib_acl) /*OUT*/
2153 {
2154         *ib_acl = 0;
2155         if (*hipz_acl & HIPZ_ACCESSCTRL_R_READ)
2156                 *ib_acl |= IB_ACCESS_REMOTE_READ;
2157         if (*hipz_acl & HIPZ_ACCESSCTRL_R_WRITE)
2158                 *ib_acl |= IB_ACCESS_REMOTE_WRITE;
2159         if (*hipz_acl & HIPZ_ACCESSCTRL_R_ATOMIC)
2160                 *ib_acl |= IB_ACCESS_REMOTE_ATOMIC;
2161         if (*hipz_acl & HIPZ_ACCESSCTRL_L_WRITE)
2162                 *ib_acl |= IB_ACCESS_LOCAL_WRITE;
2163         if (*hipz_acl & HIPZ_ACCESSCTRL_MW_BIND)
2164                 *ib_acl |= IB_ACCESS_MW_BIND;
2165 } /* end ehca_mrmw_reverse_map_acl() */
2166
2167
2168 /*----------------------------------------------------------------------*/
2169
2170 /*
2171  * MR destructor and constructor
2172  * used in Reregister MR verb, sets all fields in ehca_mr_t to 0,
2173  * except struct ib_mr and spinlock
2174  */
2175 void ehca_mr_deletenew(struct ehca_mr *mr)
2176 {
2177         mr->flags = 0;
2178         mr->num_kpages = 0;
2179         mr->num_hwpages = 0;
2180         mr->acl = 0;
2181         mr->start = NULL;
2182         mr->fmr_page_size = 0;
2183         mr->fmr_max_pages = 0;
2184         mr->fmr_max_maps = 0;
2185         mr->fmr_map_cnt = 0;
2186         memset(&mr->ipz_mr_handle, 0, sizeof(mr->ipz_mr_handle));
2187         memset(&mr->galpas, 0, sizeof(mr->galpas));
2188 } /* end ehca_mr_deletenew() */
2189
2190 int ehca_init_mrmw_cache(void)
2191 {
2192         mr_cache = kmem_cache_create("ehca_cache_mr",
2193                                      sizeof(struct ehca_mr), 0,
2194                                      SLAB_HWCACHE_ALIGN,
2195                                      NULL);
2196         if (!mr_cache)
2197                 return -ENOMEM;
2198         mw_cache = kmem_cache_create("ehca_cache_mw",
2199                                      sizeof(struct ehca_mw), 0,
2200                                      SLAB_HWCACHE_ALIGN,
2201                                      NULL);
2202         if (!mw_cache) {
2203                 kmem_cache_destroy(mr_cache);
2204                 mr_cache = NULL;
2205                 return -ENOMEM;
2206         }
2207         return 0;
2208 }
2209
2210 void ehca_cleanup_mrmw_cache(void)
2211 {
2212         if (mr_cache)
2213                 kmem_cache_destroy(mr_cache);
2214         if (mw_cache)
2215                 kmem_cache_destroy(mw_cache);
2216 }