hw/spapr_vscsi.c

   1 /*
   2  * QEMU PowerPC pSeries Logical Partition (aka sPAPR) hardware System Emulator
   3  *
   4  * PAPR Virtual SCSI, aka ibmvscsi
   5  *
   6  * Copyright (c) 2010,2011 Benjamin Herrenschmidt, IBM Corporation.
   7  *
   8  * Permission is hereby granted, free of charge, to any person obtaining a copy
   9  * of this software and associated documentation files (the "Software"), to deal
  10  * in the Software without restriction, including without limitation the rights
  11  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  12  * copies of the Software, and to permit persons to whom the Software is
  13  * furnished to do so, subject to the following conditions:
  14  *
  15  * The above copyright notice and this permission notice shall be included in
  16  * all copies or substantial portions of the Software.
  17  *
  18  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  19  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  20  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  21  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  22  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  23  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  24  * THE SOFTWARE.
  25  *
  26  * TODO:
  27  *
  28  *  - Cleanups :-)
  29  *  - Sort out better how to assign devices to VSCSI instances
  30  *  - Fix residual counts
  31  *  - Add indirect descriptors support
  32  *  - Maybe do autosense (PAPR seems to mandate it, linux doesn't care)
  33  */
  34 #include "hw.h"
  35 #include "scsi.h"
  36 #include "scsi-defs.h"
  37 #include "net.h" /* Remove that when we can */
  38 #include "srp.h"
  39 #include "hw/qdev.h"
  40 #include "hw/spapr.h"
  41 #include "hw/spapr_vio.h"
  42 #include "hw/ppc-viosrp.h"
  43
  44 #include <libfdt.h>
  45
  46 /*#define DEBUG_VSCSI*/
  47
  48 #ifdef DEBUG_VSCSI
  49 #define dprintf(fmt, ...) \
  50     do { fprintf(stderr, fmt, ## __VA_ARGS__); } while (0)
  51 #else
  52 #define dprintf(fmt, ...) \
  53     do { } while (0)
  54 #endif
  55
  56 /*
  57  * Virtual SCSI device
  58  */
  59
  60 /* Random numbers */
  61 #define VSCSI_MAX_SECTORS       4096
  62 #define VSCSI_REQ_LIMIT         24
  63
  64 #define SCSI_SENSE_BUF_SIZE     96
  65 #define SRP_RSP_SENSE_DATA_LEN  18
  66
  67 typedef union vscsi_crq {
  68     struct viosrp_crq s;
  69     uint8_t raw[16];
  70 } vscsi_crq;
  71
  72 typedef struct vscsi_req {
  73     vscsi_crq               crq;
  74     union viosrp_iu         iu;
  75
  76     /* SCSI request tracking */
  77     SCSIRequest             *sreq;
  78     uint32_t                qtag; /* qemu tag != srp tag */
  79     int                     lun;
  80     int                     active;
  81     long                    data_len;
  82     int                     writing;
  83     int                     sensing;
  84     int                     senselen;
  85     uint8_t                 sense[SCSI_SENSE_BUF_SIZE];
  86
  87     /* RDMA related bits */
  88     uint8_t                 dma_fmt;
  89     struct srp_direct_buf   ext_desc;
  90     struct srp_direct_buf   *cur_desc;
  91     struct srp_indirect_buf *ind_desc;
  92     int                     local_desc;
  93     int                     total_desc;
  94 } vscsi_req;
  95
  96
  97 typedef struct {
  98     VIOsPAPRDevice vdev;
  99     SCSIBus bus;
 100     vscsi_req reqs[VSCSI_REQ_LIMIT];
 101 } VSCSIState;
 102
 103 /* XXX Debug only */
 104 static VSCSIState *dbg_vscsi_state;
 105
 106
 107 static struct vscsi_req *vscsi_get_req(VSCSIState *s)
 108 {
 109     vscsi_req *req;
 110     int i;
 111
 112     for (i = 0; i < VSCSI_REQ_LIMIT; i++) {
 113         req = &s->reqs[i];
 114         if (!req->active) {
 115             memset(req, 0, sizeof(*req));
 116             req->qtag = i;
 117             req->active = 1;
 118             return req;
 119         }
 120     }
 121     return NULL;
 122 }
 123
 124 static void vscsi_put_req(vscsi_req *req)
 125 {
 126     if (req->sreq != NULL) {
 127         scsi_req_unref(req->sreq);
 128     }
 129     req->sreq = NULL;
 130     req->active = 0;
 131 }
 132
 133 static void vscsi_decode_id_lun(uint64_t srp_lun, int *id, int *lun)
 134 {
 135     /* XXX Figure that one out properly ! This is crackpot */
 136     *id = (srp_lun >> 56) & 0x7f;
 137     *lun = (srp_lun >> 48) & 0xff;
 138 }
 139
 140 static int vscsi_send_iu(VSCSIState *s, vscsi_req *req,
 141                          uint64_t length, uint8_t format)
 142 {
 143     long rc, rc1;
 144
 145     /* First copy the SRP */
 146     rc = spapr_tce_dma_write(&s->vdev, req->crq.s.IU_data_ptr,
 147                              &req->iu, length);
 148     if (rc) {
 149         fprintf(stderr, "vscsi_send_iu: DMA write failure !\n");
 150     }
 151
 152     req->crq.s.valid = 0x80;
 153     req->crq.s.format = format;
 154     req->crq.s.reserved = 0x00;
 155     req->crq.s.timeout = cpu_to_be16(0x0000);
 156     req->crq.s.IU_length = cpu_to_be16(length);
 157     req->crq.s.IU_data_ptr = req->iu.srp.rsp.tag; /* right byte order */
 158
 159     if (rc == 0) {
 160         req->crq.s.status = 0x99; /* Just needs to be non-zero */
 161     } else {
 162         req->crq.s.status = 0x00;
 163     }
 164
 165     rc1 = spapr_vio_send_crq(&s->vdev, req->crq.raw);
 166     if (rc1) {
 167         fprintf(stderr, "vscsi_send_iu: Error sending response\n");
 168         return rc1;
 169     }
 170
 171     return rc;
 172 }
 173
 174 static void vscsi_makeup_sense(VSCSIState *s, vscsi_req *req,
 175                                uint8_t key, uint8_t asc, uint8_t ascq)
 176 {
 177     req->senselen = SRP_RSP_SENSE_DATA_LEN;
 178
 179     /* Valid bit and 'current errors' */
 180     req->sense[0] = (0x1 << 7 | 0x70);
 181     /* Sense key */
 182     req->sense[2] = key;
 183     /* Additional sense length */
 184     req->sense[7] = 0xa; /* 10 bytes */
 185     /* Additional sense code */
 186     req->sense[12] = asc;
 187     req->sense[13] = ascq;
 188 }
 189
 190 static int vscsi_send_rsp(VSCSIState *s, vscsi_req *req,
 191                           uint8_t status, int32_t res_in, int32_t res_out)
 192 {
 193     union viosrp_iu *iu = &req->iu;
 194     uint64_t tag = iu->srp.rsp.tag;
 195     int total_len = sizeof(iu->srp.rsp);
 196
 197     dprintf("VSCSI: Sending resp status: 0x%x, "
 198             "res_in: %d, res_out: %d\n", status, res_in, res_out);
 199
 200     memset(iu, 0, sizeof(struct srp_rsp));
 201     iu->srp.rsp.opcode = SRP_RSP;
 202     iu->srp.rsp.req_lim_delta = cpu_to_be32(1);
 203     iu->srp.rsp.tag = tag;
 204
 205     /* Handle residuals */
 206     if (res_in < 0) {
 207         iu->srp.rsp.flags |= SRP_RSP_FLAG_DIUNDER;
 208         res_in = -res_in;
 209     } else if (res_in) {
 210         iu->srp.rsp.flags |= SRP_RSP_FLAG_DIOVER;
 211     }
 212     if (res_out < 0) {
 213         iu->srp.rsp.flags |= SRP_RSP_FLAG_DOUNDER;
 214         res_out = -res_out;
 215     } else if (res_out) {
 216         iu->srp.rsp.flags |= SRP_RSP_FLAG_DOOVER;
 217     }
 218     iu->srp.rsp.data_in_res_cnt = cpu_to_be32(res_in);
 219     iu->srp.rsp.data_out_res_cnt = cpu_to_be32(res_out);
 220
 221     /* We don't do response data */
 222     /* iu->srp.rsp.flags &= ~SRP_RSP_FLAG_RSPVALID; */
 223     iu->srp.rsp.resp_data_len = cpu_to_be32(0);
 224
 225     /* Handle success vs. failure */
 226     iu->srp.rsp.status = status;
 227     if (status) {
 228         iu->srp.rsp.sol_not = (iu->srp.cmd.sol_not & 0x04) >> 2;
 229         if (req->senselen) {
 230             req->iu.srp.rsp.flags |= SRP_RSP_FLAG_SNSVALID;
 231             req->iu.srp.rsp.sense_data_len = cpu_to_be32(req->senselen);
 232             memcpy(req->iu.srp.rsp.data, req->sense, req->senselen);
 233             total_len += req->senselen;
 234         }
 235     } else {
 236         iu->srp.rsp.sol_not = (iu->srp.cmd.sol_not & 0x02) >> 1;
 237     }
 238
 239     vscsi_send_iu(s, req, total_len, VIOSRP_SRP_FORMAT);
 240     return 0;
 241 }
 242
 243 static inline void vscsi_swap_desc(struct srp_direct_buf *desc)
 244 {
 245     desc->va = be64_to_cpu(desc->va);
 246     desc->len = be32_to_cpu(desc->len);
 247 }
 248
 249 static int vscsi_srp_direct_data(VSCSIState *s, vscsi_req *req,
 250                                  uint8_t *buf, uint32_t len)
 251 {
 252     struct srp_direct_buf *md = req->cur_desc;
 253     uint32_t llen;
 254     int rc = 0;
 255
 256     dprintf("VSCSI: direct segment 0x%x bytes, va=0x%llx desc len=0x%x\n",
 257             len, (unsigned long long)md->va, md->len);
 258
 259     llen = MIN(len, md->len);
 260     if (llen) {
 261         if (req->writing) { /* writing = to device = reading from memory */
 262             rc = spapr_tce_dma_read(&s->vdev, md->va, buf, llen);
 263         } else {
 264             rc = spapr_tce_dma_write(&s->vdev, md->va, buf, llen);
 265         }
 266     }
 267     md->len -= llen;
 268     md->va += llen;
 269
 270     if (rc) {
 271         return -1;
 272     }
 273     return llen;
 274 }
 275
 276 static int vscsi_srp_indirect_data(VSCSIState *s, vscsi_req *req,
 277                                    uint8_t *buf, uint32_t len)
 278 {
 279     struct srp_direct_buf *td = &req->ind_desc->table_desc;
 280     struct srp_direct_buf *md = req->cur_desc;
 281     int rc = 0;
 282     uint32_t llen, total = 0;
 283
 284     dprintf("VSCSI: indirect segment 0x%x bytes, td va=0x%llx len=0x%x\n",
 285             len, (unsigned long long)td->va, td->len);
 286
 287     /* While we have data ... */
 288     while (len) {
 289         /* If we have a descriptor but it's empty, go fetch a new one */
 290         if (md && md->len == 0) {
 291             /* More local available, use one */
 292             if (req->local_desc) {
 293                 md = ++req->cur_desc;
 294                 --req->local_desc;
 295                 --req->total_desc;
 296                 td->va += sizeof(struct srp_direct_buf);
 297             } else {
 298                 md = req->cur_desc = NULL;
 299             }
 300         }
 301         /* No descriptor at hand, fetch one */
 302         if (!md) {
 303             if (!req->total_desc) {
 304                 dprintf("VSCSI:   Out of descriptors !\n");
 305                 break;
 306             }
 307             md = req->cur_desc = &req->ext_desc;
 308             dprintf("VSCSI:   Reading desc from 0x%llx\n",
 309                     (unsigned long long)td->va);
 310             rc = spapr_tce_dma_read(&s->vdev, td->va, md,
 311                                     sizeof(struct srp_direct_buf));
 312             if (rc) {
 313                 dprintf("VSCSI: tce_dma_read -> %d reading ext_desc\n", rc);
 314                 break;
 315             }
 316             vscsi_swap_desc(md);
 317             td->va += sizeof(struct srp_direct_buf);
 318             --req->total_desc;
 319         }
 320         dprintf("VSCSI:   [desc va=0x%llx,len=0x%x] remaining=0x%x\n",
 321                 (unsigned long long)md->va, md->len, len);
 322
 323         /* Perform transfer */
 324         llen = MIN(len, md->len);
 325         if (req->writing) { /* writing = to device = reading from memory */
 326             rc = spapr_tce_dma_read(&s->vdev, md->va, buf, llen);
 327         } else {
 328             rc = spapr_tce_dma_write(&s->vdev, md->va, buf, llen);
 329         }
 330         if (rc) {
 331             dprintf("VSCSI: tce_dma_r/w(%d) -> %d\n", req->writing, rc);
 332             break;
 333         }
 334         dprintf("VSCSI:     data: %02x %02x %02x %02x...\n",
 335                 buf[0], buf[1], buf[2], buf[3]);
 336
 337         len -= llen;
 338         buf += llen;
 339         total += llen;
 340         md->va += llen;
 341         md->len -= llen;
 342     }
 343     return rc ? -1 : total;
 344 }
 345
 346 static int vscsi_srp_transfer_data(VSCSIState *s, vscsi_req *req,
 347                                    int writing, uint8_t *buf, uint32_t len)
 348 {
 349     int err = 0;
 350
 351     switch (req->dma_fmt) {
 352     case SRP_NO_DATA_DESC:
 353         dprintf("VSCSI: no data desc transfer, skipping 0x%x bytes\n", len);
 354         break;
 355     case SRP_DATA_DESC_DIRECT:
 356         err = vscsi_srp_direct_data(s, req, buf, len);
 357         break;
 358     case SRP_DATA_DESC_INDIRECT:
 359         err = vscsi_srp_indirect_data(s, req, buf, len);
 360         break;
 361     }
 362     return err;
 363 }
 364
 365 /* Bits from linux srp */
 366 static int data_out_desc_size(struct srp_cmd *cmd)
 367 {
 368     int size = 0;
 369     uint8_t fmt = cmd->buf_fmt >> 4;
 370
 371     switch (fmt) {
 372     case SRP_NO_DATA_DESC:
 373         break;
 374     case SRP_DATA_DESC_DIRECT:
 375         size = sizeof(struct srp_direct_buf);
 376         break;
 377     case SRP_DATA_DESC_INDIRECT:
 378         size = sizeof(struct srp_indirect_buf) +
 379             sizeof(struct srp_direct_buf)*cmd->data_out_desc_cnt;
 380         break;
 381     default:
 382         break;
 383     }
 384     return size;
 385 }
 386
 387 static int vscsi_preprocess_desc(vscsi_req *req)
 388 {
 389     struct srp_cmd *cmd = &req->iu.srp.cmd;
 390     int offset, i;
 391
 392     offset = cmd->add_cdb_len & ~3;
 393
 394     if (req->writing) {
 395         req->dma_fmt = cmd->buf_fmt >> 4;
 396     } else {
 397         offset += data_out_desc_size(cmd);
 398         req->dma_fmt = cmd->buf_fmt & ((1U << 4) - 1);
 399     }
 400
 401     switch (req->dma_fmt) {
 402     case SRP_NO_DATA_DESC:
 403         break;
 404     case SRP_DATA_DESC_DIRECT:
 405         req->cur_desc = (struct srp_direct_buf *)(cmd->add_data + offset);
 406         req->total_desc = req->local_desc = 1;
 407         vscsi_swap_desc(req->cur_desc);
 408         dprintf("VSCSI: using direct RDMA %s, 0x%x bytes MD: 0x%llx\n",
 409                 req->writing ? "write" : "read",
 410                 req->cur_desc->len, (unsigned long long)req->cur_desc->va);
 411         break;
 412     case SRP_DATA_DESC_INDIRECT:
 413         req->ind_desc = (struct srp_indirect_buf *)(cmd->add_data + offset);
 414         vscsi_swap_desc(&req->ind_desc->table_desc);
 415         req->total_desc = req->ind_desc->table_desc.len /
 416             sizeof(struct srp_direct_buf);
 417         req->local_desc = req->writing ? cmd->data_out_desc_cnt :
 418             cmd->data_in_desc_cnt;
 419         for (i = 0; i < req->local_desc; i++) {
 420             vscsi_swap_desc(&req->ind_desc->desc_list[i]);
 421         }
 422         req->cur_desc = req->local_desc ? &req->ind_desc->desc_list[0] : NULL;
 423         dprintf("VSCSI: using indirect RDMA %s, 0x%x bytes %d descs "
 424                 "(%d local) VA: 0x%llx\n",
 425                 req->writing ? "read" : "write",
 426                 be32_to_cpu(req->ind_desc->len),
 427                 req->total_desc, req->local_desc,
 428                 (unsigned long long)req->ind_desc->table_desc.va);
 429         break;
 430     default:
 431         fprintf(stderr,
 432                 "vscsi_preprocess_desc: Unknown format %x\n", req->dma_fmt);
 433         return -1;
 434     }
 435
 436     return 0;
 437 }
 438
 439 static void vscsi_send_request_sense(VSCSIState *s, vscsi_req *req)
 440 {
 441     uint8_t *cdb = req->iu.srp.cmd.cdb;
 442     int n;
 443
 444     n = scsi_req_get_sense(req->sreq, req->sense, sizeof(req->sense));
 445     if (n) {
 446         req->senselen = n;
 447         vscsi_send_rsp(s, req, CHECK_CONDITION, 0, 0);
 448         vscsi_put_req(req);
 449         return;
 450     }
 451
 452     dprintf("VSCSI: Got CHECK_CONDITION, requesting sense...\n");
 453     cdb[0] = 3;
 454     cdb[1] = 0;
 455     cdb[2] = 0;
 456     cdb[3] = 0;
 457     cdb[4] = 96;
 458     cdb[5] = 0;
 459     req->sensing = 1;
 460     n = scsi_req_enqueue(req->sreq, cdb);
 461     dprintf("VSCSI: Queued request sense tag 0x%x\n", req->qtag);
 462     if (n < 0) {
 463         fprintf(stderr, "VSCSI: REQUEST_SENSE wants write data !?!?!?\n");
 464         vscsi_makeup_sense(s, req, HARDWARE_ERROR, 0, 0);
 465         scsi_req_abort(req->sreq, CHECK_CONDITION);
 466         return;
 467     } else if (n == 0) {
 468         return;
 469     }
 470     scsi_req_continue(req->sreq);
 471 }
 472
 473 /* Callback to indicate that the SCSI layer has completed a transfer.  */
 474 static void vscsi_transfer_data(SCSIRequest *sreq, uint32_t len)
 475 {
 476     VSCSIState *s = DO_UPCAST(VSCSIState, vdev.qdev, sreq->bus->qbus.parent);
 477     vscsi_req *req = sreq->hba_private;
 478     uint8_t *buf;
 479     int rc = 0;
 480
 481     dprintf("VSCSI: SCSI xfer complete tag=0x%x len=0x%x, req=%p\n",
 482             sreq->tag, len, req);
 483     if (req == NULL) {
 484         fprintf(stderr, "VSCSI: Can't find request for tag 0x%x\n", sreq->tag);
 485         return;
 486     }
 487
 488     if (req->sensing) {
 489         uint8_t *buf = scsi_req_get_buf(sreq);
 490
 491         len = MIN(len, SCSI_SENSE_BUF_SIZE);
 492         dprintf("VSCSI: Sense data, %d bytes:\n", len);
 493         dprintf("       %02x  %02x  %02x  %02x  %02x  %02x  %02x  %02x\n",
 494                 buf[0], buf[1], buf[2], buf[3],
 495                 buf[4], buf[5], buf[6], buf[7]);
 496         dprintf("       %02x  %02x  %02x  %02x  %02x  %02x  %02x  %02x\n",
 497                 buf[8], buf[9], buf[10], buf[11],
 498                 buf[12], buf[13], buf[14], buf[15]);
 499         memcpy(req->sense, buf, len);
 500         req->senselen = len;
 501         scsi_req_continue(req->sreq);
 502         return;
 503     }
 504
 505     if (len) {
 506         buf = scsi_req_get_buf(sreq);
 507         rc = vscsi_srp_transfer_data(s, req, req->writing, buf, len);
 508     }
 509     if (rc < 0) {
 510         fprintf(stderr, "VSCSI: RDMA error rc=%d!\n", rc);
 511         vscsi_makeup_sense(s, req, HARDWARE_ERROR, 0, 0);
 512         scsi_req_abort(req->sreq, CHECK_CONDITION);
 513         return;
 514     }
 515
 516     /* Start next chunk */
 517     req->data_len -= rc;
 518     scsi_req_continue(sreq);
 519 }
 520
 521 /* Callback to indicate that the SCSI layer has completed a transfer.  */
 522 static void vscsi_command_complete(SCSIRequest *sreq, uint32_t status)
 523 {
 524     VSCSIState *s = DO_UPCAST(VSCSIState, vdev.qdev, sreq->bus->qbus.parent);
 525     vscsi_req *req = sreq->hba_private;
 526     int32_t res_in = 0, res_out = 0;
 527
 528     dprintf("VSCSI: SCSI cmd complete, r=0x%x tag=0x%x status=0x%x, req=%p\n",
 529             reason, sreq->tag, status, req);
 530     if (req == NULL) {
 531         fprintf(stderr, "VSCSI: Can't find request for tag 0x%x\n", sreq->tag);
 532         return;
 533     }
 534
 535     if (!req->sensing && status == CHECK_CONDITION) {
 536         vscsi_send_request_sense(s, req);
 537         return;
 538     }
 539
 540     if (req->sensing) {
 541         dprintf("VSCSI: Sense done !\n");
 542         status = CHECK_CONDITION;
 543     } else {
 544         dprintf("VSCSI: Command complete err=%d\n", status);
 545         if (status == 0) {
 546             /* We handle overflows, not underflows for normal commands,
 547              * but hopefully nobody cares
 548              */
 549             if (req->writing) {
 550                 res_out = req->data_len;
 551             } else {
 552                 res_in = req->data_len;
 553             }
 554         }
 555     }
 556     vscsi_send_rsp(s, req, 0, res_in, res_out);
 557     vscsi_put_req(req);
 558 }
 559
 560 static void vscsi_request_cancelled(SCSIRequest *sreq)
 561 {
 562     vscsi_req *req = sreq->hba_private;
 563
 564     vscsi_put_req(req);
 565 }
 566
 567 static void vscsi_process_login(VSCSIState *s, vscsi_req *req)
 568 {
 569     union viosrp_iu *iu = &req->iu;
 570     struct srp_login_rsp *rsp = &iu->srp.login_rsp;
 571     uint64_t tag = iu->srp.rsp.tag;
 572
 573     dprintf("VSCSI: Got login, sendin response !\n");
 574
 575     /* TODO handle case that requested size is wrong and
 576      * buffer format is wrong
 577      */
 578     memset(iu, 0, sizeof(struct srp_login_rsp));
 579     rsp->opcode = SRP_LOGIN_RSP;
 580     /* Don't advertise quite as many request as we support to
 581      * keep room for management stuff etc...
 582      */
 583     rsp->req_lim_delta = cpu_to_be32(VSCSI_REQ_LIMIT-2);
 584     rsp->tag = tag;
 585     rsp->max_it_iu_len = cpu_to_be32(sizeof(union srp_iu));
 586     rsp->max_ti_iu_len = cpu_to_be32(sizeof(union srp_iu));
 587     /* direct and indirect */
 588     rsp->buf_fmt = cpu_to_be16(SRP_BUF_FORMAT_DIRECT | SRP_BUF_FORMAT_INDIRECT);
 589
 590     vscsi_send_iu(s, req, sizeof(*rsp), VIOSRP_SRP_FORMAT);
 591 }
 592
 593 static void vscsi_inquiry_no_target(VSCSIState *s, vscsi_req *req)
 594 {
 595     uint8_t *cdb = req->iu.srp.cmd.cdb;
 596     uint8_t resp_data[36];
 597     int rc, len, alen;
 598
 599     /* We dont do EVPD. Also check that page_code is 0 */
 600     if ((cdb[1] & 0x01) || (cdb[1] & 0x01) || cdb[2] != 0) {
 601         /* Send INVALID FIELD IN CDB */
 602         vscsi_makeup_sense(s, req, ILLEGAL_REQUEST, 0x24, 0);
 603         vscsi_send_rsp(s, req, CHECK_CONDITION, 0, 0);
 604         return;
 605     }
 606     alen = cdb[3];
 607     alen = (alen << 8) | cdb[4];
 608     len = MIN(alen, 36);
 609
 610     /* Fake up inquiry using PQ=3 */
 611     memset(resp_data, 0, 36);
 612     resp_data[0] = 0x7f;   /* Not capable of supporting a device here */
 613     resp_data[2] = 0x06;   /* SPS-4 */
 614     resp_data[3] = 0x02;   /* Resp data format */
 615     resp_data[4] = 36 - 5; /* Additional length */
 616     resp_data[7] = 0x10;   /* Sync transfers */
 617     memcpy(&resp_data[16], "QEMU EMPTY      ", 16);
 618     memcpy(&resp_data[8], "QEMU    ", 8);
 619
 620     req->writing = 0;
 621     vscsi_preprocess_desc(req);
 622     rc = vscsi_srp_transfer_data(s, req, 0, resp_data, len);
 623     if (rc < 0) {
 624         vscsi_makeup_sense(s, req, HARDWARE_ERROR, 0, 0);
 625         vscsi_send_rsp(s, req, CHECK_CONDITION, 0, 0);
 626     } else {
 627         vscsi_send_rsp(s, req, 0, 36 - rc, 0);
 628     }
 629 }
 630
 631 static int vscsi_queue_cmd(VSCSIState *s, vscsi_req *req)
 632 {
 633     union srp_iu *srp = &req->iu.srp;
 634     SCSIDevice *sdev;
 635     int n, id, lun;
 636
 637     vscsi_decode_id_lun(be64_to_cpu(srp->cmd.lun), &id, &lun);
 638
 639     /* Qemu vs. linux issue with LUNs to be sorted out ... */
 640     sdev = (id < 8 && lun < 16) ? s->bus.devs[id] : NULL;
 641     if (!sdev) {
 642         dprintf("VSCSI: Command for id %d with no drive\n", id);
 643         if (srp->cmd.cdb[0] == INQUIRY) {
 644             vscsi_inquiry_no_target(s, req);
 645         } else {
 646             vscsi_makeup_sense(s, req, ILLEGAL_REQUEST, 0x24, 0x00);
 647             vscsi_send_rsp(s, req, CHECK_CONDITION, 0, 0);
 648         } return 1;
 649     }
 650
 651     req->lun = lun;
 652     req->sreq = scsi_req_new(sdev, req->qtag, lun, req);
 653     n = scsi_req_enqueue(req->sreq, srp->cmd.cdb);
 654
 655     dprintf("VSCSI: Queued command tag 0x%x CMD 0x%x ID %d LUN %d ret: %d\n",
 656             req->qtag, srp->cmd.cdb[0], id, lun, n);
 657
 658     if (n) {
 659         /* Transfer direction must be set before preprocessing the
 660          * descriptors
 661          */
 662         req->writing = (n < 1);
 663
 664         /* Preprocess RDMA descriptors */
 665         vscsi_preprocess_desc(req);
 666
 667         /* Get transfer direction and initiate transfer */
 668         if (n > 0) {
 669             req->data_len = n;
 670         } else if (n < 0) {
 671             req->data_len = -n;
 672         }
 673         scsi_req_continue(req->sreq);
 674     }
 675     /* Don't touch req here, it may have been recycled already */
 676
 677     return 0;
 678 }
 679
 680 static int vscsi_process_tsk_mgmt(VSCSIState *s, vscsi_req *req)
 681 {
 682     union viosrp_iu *iu = &req->iu;
 683     int fn;
 684
 685     fprintf(stderr, "vscsi_process_tsk_mgmt %02x\n",
 686             iu->srp.tsk_mgmt.tsk_mgmt_func);
 687
 688     switch (iu->srp.tsk_mgmt.tsk_mgmt_func) {
 689 #if 0 /* We really don't deal with these for now */
 690     case SRP_TSK_ABORT_TASK:
 691         fn = ABORT_TASK;
 692         break;
 693     case SRP_TSK_ABORT_TASK_SET:
 694         fn = ABORT_TASK_SET;
 695         break;
 696     case SRP_TSK_CLEAR_TASK_SET:
 697         fn = CLEAR_TASK_SET;
 698         break;
 699     case SRP_TSK_LUN_RESET:
 700         fn = LOGICAL_UNIT_RESET;
 701         break;
 702     case SRP_TSK_CLEAR_ACA:
 703         fn = CLEAR_ACA;
 704         break;
 705 #endif
 706     default:
 707         fn = 0;
 708     }
 709     if (fn) {
 710         /* XXX Send/Handle target task management */
 711         ;
 712     } else {
 713         vscsi_makeup_sense(s, req, ILLEGAL_REQUEST, 0x20, 0);
 714         vscsi_send_rsp(s, req, CHECK_CONDITION, 0, 0);
 715     }
 716     return !fn;
 717 }
 718
 719 static int vscsi_handle_srp_req(VSCSIState *s, vscsi_req *req)
 720 {
 721     union srp_iu *srp = &req->iu.srp;
 722     int done = 1;
 723     uint8_t opcode = srp->rsp.opcode;
 724
 725     switch (opcode) {
 726     case SRP_LOGIN_REQ:
 727         vscsi_process_login(s, req);
 728         break;
 729     case SRP_TSK_MGMT:
 730         done = vscsi_process_tsk_mgmt(s, req);
 731         break;
 732     case SRP_CMD:
 733         done = vscsi_queue_cmd(s, req);
 734         break;
 735     case SRP_LOGIN_RSP:
 736     case SRP_I_LOGOUT:
 737     case SRP_T_LOGOUT:
 738     case SRP_RSP:
 739     case SRP_CRED_REQ:
 740     case SRP_CRED_RSP:
 741     case SRP_AER_REQ:
 742     case SRP_AER_RSP:
 743         fprintf(stderr, "VSCSI: Unsupported opcode %02x\n", opcode);
 744         break;
 745     default:
 746         fprintf(stderr, "VSCSI: Unknown type %02x\n", opcode);
 747     }
 748
 749     return done;
 750 }
 751
 752 static int vscsi_send_adapter_info(VSCSIState *s, vscsi_req *req)
 753 {
 754     struct viosrp_adapter_info *sinfo;
 755     struct mad_adapter_info_data info;
 756     int rc;
 757
 758     sinfo = &req->iu.mad.adapter_info;
 759
 760 #if 0 /* What for ? */
 761     rc = spapr_tce_dma_read(&s->vdev, be64_to_cpu(sinfo->buffer),
 762                             &info, be16_to_cpu(sinfo->common.length));
 763     if (rc) {
 764         fprintf(stderr, "vscsi_send_adapter_info: DMA read failure !\n");
 765     }
 766 #endif
 767     memset(&info, 0, sizeof(info));
 768     strcpy(info.srp_version, SRP_VERSION);
 769     strncpy(info.partition_name, "qemu", sizeof("qemu"));
 770     info.partition_number = cpu_to_be32(0);
 771     info.mad_version = cpu_to_be32(1);
 772     info.os_type = cpu_to_be32(2);
 773     info.port_max_txu[0] = cpu_to_be32(VSCSI_MAX_SECTORS << 9);
 774
 775     rc = spapr_tce_dma_write(&s->vdev, be64_to_cpu(sinfo->buffer),
 776                              &info, be16_to_cpu(sinfo->common.length));
 777     if (rc)  {
 778         fprintf(stderr, "vscsi_send_adapter_info: DMA write failure !\n");
 779     }
 780
 781     sinfo->common.status = rc ? cpu_to_be32(1) : 0;
 782
 783     return vscsi_send_iu(s, req, sizeof(*sinfo), VIOSRP_MAD_FORMAT);
 784 }
 785
 786 static int vscsi_handle_mad_req(VSCSIState *s, vscsi_req *req)
 787 {
 788     union mad_iu *mad = &req->iu.mad;
 789
 790     switch (be32_to_cpu(mad->empty_iu.common.type)) {
 791     case VIOSRP_EMPTY_IU_TYPE:
 792         fprintf(stderr, "Unsupported EMPTY MAD IU\n");
 793         break;
 794     case VIOSRP_ERROR_LOG_TYPE:
 795         fprintf(stderr, "Unsupported ERROR LOG MAD IU\n");
 796         mad->error_log.common.status = cpu_to_be16(1);
 797         vscsi_send_iu(s, req, sizeof(mad->error_log), VIOSRP_MAD_FORMAT);
 798         break;
 799     case VIOSRP_ADAPTER_INFO_TYPE:
 800         vscsi_send_adapter_info(s, req);
 801         break;
 802     case VIOSRP_HOST_CONFIG_TYPE:
 803         mad->host_config.common.status = cpu_to_be16(1);
 804         vscsi_send_iu(s, req, sizeof(mad->host_config), VIOSRP_MAD_FORMAT);
 805         break;
 806     default:
 807         fprintf(stderr, "VSCSI: Unknown MAD type %02x\n",
 808                 be32_to_cpu(mad->empty_iu.common.type));
 809     }
 810
 811     return 1;
 812 }
 813
 814 static void vscsi_got_payload(VSCSIState *s, vscsi_crq *crq)
 815 {
 816     vscsi_req *req;
 817     int done;
 818
 819     req = vscsi_get_req(s);
 820     if (req == NULL) {
 821         fprintf(stderr, "VSCSI: Failed to get a request !\n");
 822         return;
 823     }
 824
 825     /* We only support a limited number of descriptors, we know
 826      * the ibmvscsi driver uses up to 10 max, so it should fit
 827      * in our 256 bytes IUs. If not we'll have to increase the size
 828      * of the structure.
 829      */
 830     if (crq->s.IU_length > sizeof(union viosrp_iu)) {
 831         fprintf(stderr, "VSCSI: SRP IU too long (%d bytes) !\n",
 832                 crq->s.IU_length);
 833         return;
 834     }
 835
 836     /* XXX Handle failure differently ? */
 837     if (spapr_tce_dma_read(&s->vdev, crq->s.IU_data_ptr, &req->iu,
 838                            crq->s.IU_length)) {
 839         fprintf(stderr, "vscsi_got_payload: DMA read failure !\n");
 840         qemu_free(req);
 841     }
 842     memcpy(&req->crq, crq, sizeof(vscsi_crq));
 843
 844     if (crq->s.format == VIOSRP_MAD_FORMAT) {
 845         done = vscsi_handle_mad_req(s, req);
 846     } else {
 847         done = vscsi_handle_srp_req(s, req);
 848     }
 849
 850     if (done) {
 851         vscsi_put_req(req);
 852     }
 853 }
 854
 855
 856 static int vscsi_do_crq(struct VIOsPAPRDevice *dev, uint8_t *crq_data)
 857 {
 858     VSCSIState *s = DO_UPCAST(VSCSIState, vdev, dev);
 859     vscsi_crq crq;
 860
 861     memcpy(crq.raw, crq_data, 16);
 862     crq.s.timeout = be16_to_cpu(crq.s.timeout);
 863     crq.s.IU_length = be16_to_cpu(crq.s.IU_length);
 864     crq.s.IU_data_ptr = be64_to_cpu(crq.s.IU_data_ptr);
 865
 866     dprintf("VSCSI: do_crq %02x %02x ...\n", crq.raw[0], crq.raw[1]);
 867
 868     switch (crq.s.valid) {
 869     case 0xc0: /* Init command/response */
 870
 871         /* Respond to initialization request */
 872         if (crq.s.format == 0x01) {
 873             memset(crq.raw, 0, 16);
 874             crq.s.valid = 0xc0;
 875             crq.s.format = 0x02;
 876             spapr_vio_send_crq(dev, crq.raw);
 877         }
 878
 879         /* Note that in hotplug cases, we might get a 0x02
 880          * as a result of us emitting the init request
 881          */
 882
 883         break;
 884     case 0xff: /* Link event */
 885
 886         /* Not handled for now */
 887
 888         break;
 889     case 0x80: /* Payloads */
 890         switch (crq.s.format) {
 891         case VIOSRP_SRP_FORMAT: /* AKA VSCSI request */
 892         case VIOSRP_MAD_FORMAT: /* AKA VSCSI response */
 893             vscsi_got_payload(s, &crq);
 894             break;
 895         case VIOSRP_OS400_FORMAT:
 896         case VIOSRP_AIX_FORMAT:
 897         case VIOSRP_LINUX_FORMAT:
 898         case VIOSRP_INLINE_FORMAT:
 899             fprintf(stderr, "vscsi_do_srq: Unsupported payload format %02x\n",
 900                     crq.s.format);
 901             break;
 902         default:
 903             fprintf(stderr, "vscsi_do_srq: Unknown payload format %02x\n",
 904                     crq.s.format);
 905         }
 906         break;
 907     default:
 908         fprintf(stderr, "vscsi_do_crq: unknown CRQ %02x %02x ...\n",
 909                 crq.raw[0], crq.raw[1]);
 910     };
 911
 912     return 0;
 913 }
 914
 915 static const struct SCSIBusOps vscsi_scsi_ops = {
 916     .transfer_data = vscsi_transfer_data,
 917     .complete = vscsi_command_complete,
 918     .cancel = vscsi_request_cancelled
 919 };
 920
 921 static int spapr_vscsi_init(VIOsPAPRDevice *dev)
 922 {
 923     VSCSIState *s = DO_UPCAST(VSCSIState, vdev, dev);
 924     int i;
 925
 926     dbg_vscsi_state = s;
 927
 928     /* Initialize qemu request tags */
 929     memset(s->reqs, 0, sizeof(s->reqs));
 930     for (i = 0; i < VSCSI_REQ_LIMIT; i++) {
 931         s->reqs[i].qtag = i;
 932     }
 933
 934     dev->crq.SendFunc = vscsi_do_crq;
 935
 936     scsi_bus_new(&s->bus, &dev->qdev, 1, VSCSI_REQ_LIMIT,
 937                  &vscsi_scsi_ops);
 938     if (!dev->qdev.hotplugged) {
 939         scsi_bus_legacy_handle_cmdline(&s->bus);
 940     }
 941
 942     return 0;
 943 }
 944
 945 void spapr_vscsi_create(VIOsPAPRBus *bus, uint32_t reg,
 946                         qemu_irq qirq, uint32_t vio_irq_num)
 947 {
 948     DeviceState *dev;
 949     VIOsPAPRDevice *sdev;
 950
 951     dev = qdev_create(&bus->bus, "spapr-vscsi");
 952     qdev_prop_set_uint32(dev, "reg", reg);
 953
 954     qdev_init_nofail(dev);
 955
 956     sdev = (VIOsPAPRDevice *)dev;
 957     sdev->qirq = qirq;
 958     sdev->vio_irq_num = vio_irq_num;
 959 }
 960
 961 static int spapr_vscsi_devnode(VIOsPAPRDevice *dev, void *fdt, int node_off)
 962 {
 963     int ret;
 964
 965     ret = fdt_setprop_cell(fdt, node_off, "#address-cells", 2);
 966     if (ret < 0) {
 967         return ret;
 968     }
 969
 970     ret = fdt_setprop_cell(fdt, node_off, "#size-cells", 0);
 971     if (ret < 0) {
 972         return ret;
 973     }
 974
 975     return 0;
 976 }
 977
 978 static VIOsPAPRDeviceInfo spapr_vscsi = {
 979     .init = spapr_vscsi_init,
 980     .devnode = spapr_vscsi_devnode,
 981     .dt_name = "v-scsi",
 982     .dt_type = "vscsi",
 983     .dt_compatible = "IBM,v-scsi",
 984     .signal_mask = 0x00000001,
 985     .qdev.name = "spapr-vscsi",
 986     .qdev.size = sizeof(VSCSIState),
 987     .qdev.props = (Property[]) {
 988         DEFINE_PROP_UINT32("reg", VIOsPAPRDevice, reg, 0x2000),
 989         DEFINE_PROP_UINT32("dma-window", VIOsPAPRDevice,
 990                            rtce_window_size, 0x10000000),
 991         DEFINE_PROP_END_OF_LIST(),
 992     },
 993 };
 994
 995 static void spapr_vscsi_register(void)
 996 {
 997     spapr_vio_bus_register_withprop(&spapr_vscsi);
 998 }
 999 device_init(spapr_vscsi_register);