drivers/misc/hpilo.c

   1 /*
   2  * Driver for the HP iLO management processor.
   3  *
   4  * Copyright (C) 2008 Hewlett-Packard Development Company, L.P.
   5  *      David Altobelli <david.altobelli@hpe.com>
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License version 2 as
   9  * published by the Free Software Foundation.
  10  */
  11 #include <linux/kernel.h>
  12 #include <linux/types.h>
  13 #include <linux/module.h>
  14 #include <linux/fs.h>
  15 #include <linux/pci.h>
  16 #include <linux/interrupt.h>
  17 #include <linux/ioport.h>
  18 #include <linux/device.h>
  19 #include <linux/file.h>
  20 #include <linux/cdev.h>
  21 #include <linux/sched.h>
  22 #include <linux/spinlock.h>
  23 #include <linux/delay.h>
  24 #include <linux/uaccess.h>
  25 #include <linux/io.h>
  26 #include <linux/wait.h>
  27 #include <linux/poll.h>
  28 #include <linux/slab.h>
  29 #include "hpilo.h"
  30
  31 static struct class *ilo_class;
  32 static unsigned int ilo_major;
  33 static unsigned int max_ccb = 16;
  34 static char ilo_hwdev[MAX_ILO_DEV];
  35
  36 static inline int get_entry_id(int entry)
  37 {
  38         return (entry & ENTRY_MASK_DESCRIPTOR) >> ENTRY_BITPOS_DESCRIPTOR;
  39 }
  40
  41 static inline int get_entry_len(int entry)
  42 {
  43         return ((entry & ENTRY_MASK_QWORDS) >> ENTRY_BITPOS_QWORDS) << 3;
  44 }
  45
  46 static inline int mk_entry(int id, int len)
  47 {
  48         int qlen = len & 7 ? (len >> 3) + 1 : len >> 3;
  49         return id << ENTRY_BITPOS_DESCRIPTOR | qlen << ENTRY_BITPOS_QWORDS;
  50 }
  51
  52 static inline int desc_mem_sz(int nr_entry)
  53 {
  54         return nr_entry << L2_QENTRY_SZ;
  55 }
  56
  57 /*
  58  * FIFO queues, shared with hardware.
  59  *
  60  * If a queue has empty slots, an entry is added to the queue tail,
  61  * and that entry is marked as occupied.
  62  * Entries can be dequeued from the head of the list, when the device
  63  * has marked the entry as consumed.
  64  *
  65  * Returns true on successful queue/dequeue, false on failure.
  66  */
  67 static int fifo_enqueue(struct ilo_hwinfo *hw, char *fifobar, int entry)
  68 {
  69         struct fifo *fifo_q = FIFOBARTOHANDLE(fifobar);
  70         unsigned long flags;
  71         int ret = 0;
  72
  73         spin_lock_irqsave(&hw->fifo_lock, flags);
  74         if (!(fifo_q->fifobar[(fifo_q->tail + 1) & fifo_q->imask]
  75               & ENTRY_MASK_O)) {
  76                 fifo_q->fifobar[fifo_q->tail & fifo_q->imask] |=
  77                                 (entry & ENTRY_MASK_NOSTATE) | fifo_q->merge;
  78                 fifo_q->tail += 1;
  79                 ret = 1;
  80         }
  81         spin_unlock_irqrestore(&hw->fifo_lock, flags);
  82
  83         return ret;
  84 }
  85
  86 static int fifo_dequeue(struct ilo_hwinfo *hw, char *fifobar, int *entry)
  87 {
  88         struct fifo *fifo_q = FIFOBARTOHANDLE(fifobar);
  89         unsigned long flags;
  90         int ret = 0;
  91         u64 c;
  92
  93         spin_lock_irqsave(&hw->fifo_lock, flags);
  94         c = fifo_q->fifobar[fifo_q->head & fifo_q->imask];
  95         if (c & ENTRY_MASK_C) {
  96                 if (entry)
  97                         *entry = c & ENTRY_MASK_NOSTATE;
  98
  99                 fifo_q->fifobar[fifo_q->head & fifo_q->imask] =
 100                                                         (c | ENTRY_MASK) + 1;
 101                 fifo_q->head += 1;
 102                 ret = 1;
 103         }
 104         spin_unlock_irqrestore(&hw->fifo_lock, flags);
 105
 106         return ret;
 107 }
 108
 109 static int fifo_check_recv(struct ilo_hwinfo *hw, char *fifobar)
 110 {
 111         struct fifo *fifo_q = FIFOBARTOHANDLE(fifobar);
 112         unsigned long flags;
 113         int ret = 0;
 114         u64 c;
 115
 116         spin_lock_irqsave(&hw->fifo_lock, flags);
 117         c = fifo_q->fifobar[fifo_q->head & fifo_q->imask];
 118         if (c & ENTRY_MASK_C)
 119                 ret = 1;
 120         spin_unlock_irqrestore(&hw->fifo_lock, flags);
 121
 122         return ret;
 123 }
 124
 125 static int ilo_pkt_enqueue(struct ilo_hwinfo *hw, struct ccb *ccb,
 126                            int dir, int id, int len)
 127 {
 128         char *fifobar;
 129         int entry;
 130
 131         if (dir == SENDQ)
 132                 fifobar = ccb->ccb_u1.send_fifobar;
 133         else
 134                 fifobar = ccb->ccb_u3.recv_fifobar;
 135
 136         entry = mk_entry(id, len);
 137         return fifo_enqueue(hw, fifobar, entry);
 138 }
 139
 140 static int ilo_pkt_dequeue(struct ilo_hwinfo *hw, struct ccb *ccb,
 141                            int dir, int *id, int *len, void **pkt)
 142 {
 143         char *fifobar, *desc;
 144         int entry = 0, pkt_id = 0;
 145         int ret;
 146
 147         if (dir == SENDQ) {
 148                 fifobar = ccb->ccb_u1.send_fifobar;
 149                 desc = ccb->ccb_u2.send_desc;
 150         } else {
 151                 fifobar = ccb->ccb_u3.recv_fifobar;
 152                 desc = ccb->ccb_u4.recv_desc;
 153         }
 154
 155         ret = fifo_dequeue(hw, fifobar, &entry);
 156         if (ret) {
 157                 pkt_id = get_entry_id(entry);
 158                 if (id)
 159                         *id = pkt_id;
 160                 if (len)
 161                         *len = get_entry_len(entry);
 162                 if (pkt)
 163                         *pkt = (void *)(desc + desc_mem_sz(pkt_id));
 164         }
 165
 166         return ret;
 167 }
 168
 169 static int ilo_pkt_recv(struct ilo_hwinfo *hw, struct ccb *ccb)
 170 {
 171         char *fifobar = ccb->ccb_u3.recv_fifobar;
 172
 173         return fifo_check_recv(hw, fifobar);
 174 }
 175
 176 static inline void doorbell_set(struct ccb *ccb)
 177 {
 178         iowrite8(1, ccb->ccb_u5.db_base);
 179 }
 180
 181 static inline void doorbell_clr(struct ccb *ccb)
 182 {
 183         iowrite8(2, ccb->ccb_u5.db_base);
 184 }
 185
 186 static inline int ctrl_set(int l2sz, int idxmask, int desclim)
 187 {
 188         int active = 0, go = 1;
 189         return l2sz << CTRL_BITPOS_L2SZ |
 190                idxmask << CTRL_BITPOS_FIFOINDEXMASK |
 191                desclim << CTRL_BITPOS_DESCLIMIT |
 192                active << CTRL_BITPOS_A |
 193                go << CTRL_BITPOS_G;
 194 }
 195
 196 static void ctrl_setup(struct ccb *ccb, int nr_desc, int l2desc_sz)
 197 {
 198         /* for simplicity, use the same parameters for send and recv ctrls */
 199         ccb->send_ctrl = ctrl_set(l2desc_sz, nr_desc-1, nr_desc-1);
 200         ccb->recv_ctrl = ctrl_set(l2desc_sz, nr_desc-1, nr_desc-1);
 201 }
 202
 203 static inline int fifo_sz(int nr_entry)
 204 {
 205         /* size of a fifo is determined by the number of entries it contains */
 206         return (nr_entry * sizeof(u64)) + FIFOHANDLESIZE;
 207 }
 208
 209 static void fifo_setup(void *base_addr, int nr_entry)
 210 {
 211         struct fifo *fifo_q = base_addr;
 212         int i;
 213
 214         /* set up an empty fifo */
 215         fifo_q->head = 0;
 216         fifo_q->tail = 0;
 217         fifo_q->reset = 0;
 218         fifo_q->nrents = nr_entry;
 219         fifo_q->imask = nr_entry - 1;
 220         fifo_q->merge = ENTRY_MASK_O;
 221
 222         for (i = 0; i < nr_entry; i++)
 223                 fifo_q->fifobar[i] = 0;
 224 }
 225
 226 static void ilo_ccb_close(struct pci_dev *pdev, struct ccb_data *data)
 227 {
 228         struct ccb *driver_ccb = &data->driver_ccb;
 229         struct ccb __iomem *device_ccb = data->mapped_ccb;
 230         int retries;
 231
 232         /* complicated dance to tell the hw we are stopping */
 233         doorbell_clr(driver_ccb);
 234         iowrite32(ioread32(&device_ccb->send_ctrl) & ~(1 << CTRL_BITPOS_G),
 235                   &device_ccb->send_ctrl);
 236         iowrite32(ioread32(&device_ccb->recv_ctrl) & ~(1 << CTRL_BITPOS_G),
 237                   &device_ccb->recv_ctrl);
 238
 239         /* give iLO some time to process stop request */
 240         for (retries = MAX_WAIT; retries > 0; retries--) {
 241                 doorbell_set(driver_ccb);
 242                 udelay(WAIT_TIME);
 243                 if (!(ioread32(&device_ccb->send_ctrl) & (1 << CTRL_BITPOS_A))
 244                     &&
 245                     !(ioread32(&device_ccb->recv_ctrl) & (1 << CTRL_BITPOS_A)))
 246                         break;
 247         }
 248         if (retries == 0)
 249                 dev_err(&pdev->dev, "Closing, but controller still active\n");
 250
 251         /* clear the hw ccb */
 252         memset_io(device_ccb, 0, sizeof(struct ccb));
 253
 254         /* free resources used to back send/recv queues */
 255         pci_free_consistent(pdev, data->dma_size, data->dma_va, data->dma_pa);
 256 }
 257
 258 static int ilo_ccb_setup(struct ilo_hwinfo *hw, struct ccb_data *data, int slot)
 259 {
 260         char *dma_va;
 261         dma_addr_t dma_pa;
 262         struct ccb *driver_ccb, *ilo_ccb;
 263
 264         driver_ccb = &data->driver_ccb;
 265         ilo_ccb = &data->ilo_ccb;
 266
 267         data->dma_size = 2 * fifo_sz(NR_QENTRY) +
 268                          2 * desc_mem_sz(NR_QENTRY) +
 269                          ILO_START_ALIGN + ILO_CACHE_SZ;
 270
 271         data->dma_va = pci_alloc_consistent(hw->ilo_dev, data->dma_size,
 272                                             &data->dma_pa);
 273         if (!data->dma_va)
 274                 return -ENOMEM;
 275
 276         dma_va = (char *)data->dma_va;
 277         dma_pa = data->dma_pa;
 278
 279         memset(dma_va, 0, data->dma_size);
 280
 281         dma_va = (char *)roundup((unsigned long)dma_va, ILO_START_ALIGN);
 282         dma_pa = roundup(dma_pa, ILO_START_ALIGN);
 283
 284         /*
 285          * Create two ccb's, one with virt addrs, one with phys addrs.
 286          * Copy the phys addr ccb to device shared mem.
 287          */
 288         ctrl_setup(driver_ccb, NR_QENTRY, L2_QENTRY_SZ);
 289         ctrl_setup(ilo_ccb, NR_QENTRY, L2_QENTRY_SZ);
 290
 291         fifo_setup(dma_va, NR_QENTRY);
 292         driver_ccb->ccb_u1.send_fifobar = dma_va + FIFOHANDLESIZE;
 293         ilo_ccb->ccb_u1.send_fifobar_pa = dma_pa + FIFOHANDLESIZE;
 294         dma_va += fifo_sz(NR_QENTRY);
 295         dma_pa += fifo_sz(NR_QENTRY);
 296
 297         dma_va = (char *)roundup((unsigned long)dma_va, ILO_CACHE_SZ);
 298         dma_pa = roundup(dma_pa, ILO_CACHE_SZ);
 299
 300         fifo_setup(dma_va, NR_QENTRY);
 301         driver_ccb->ccb_u3.recv_fifobar = dma_va + FIFOHANDLESIZE;
 302         ilo_ccb->ccb_u3.recv_fifobar_pa = dma_pa + FIFOHANDLESIZE;
 303         dma_va += fifo_sz(NR_QENTRY);
 304         dma_pa += fifo_sz(NR_QENTRY);
 305
 306         driver_ccb->ccb_u2.send_desc = dma_va;
 307         ilo_ccb->ccb_u2.send_desc_pa = dma_pa;
 308         dma_pa += desc_mem_sz(NR_QENTRY);
 309         dma_va += desc_mem_sz(NR_QENTRY);
 310
 311         driver_ccb->ccb_u4.recv_desc = dma_va;
 312         ilo_ccb->ccb_u4.recv_desc_pa = dma_pa;
 313
 314         driver_ccb->channel = slot;
 315         ilo_ccb->channel = slot;
 316
 317         driver_ccb->ccb_u5.db_base = hw->db_vaddr + (slot << L2_DB_SIZE);
 318         ilo_ccb->ccb_u5.db_base = NULL; /* hw ccb's doorbell is not used */
 319
 320         return 0;
 321 }
 322
 323 static void ilo_ccb_open(struct ilo_hwinfo *hw, struct ccb_data *data, int slot)
 324 {
 325         int pkt_id, pkt_sz;
 326         struct ccb *driver_ccb = &data->driver_ccb;
 327
 328         /* copy the ccb with physical addrs to device memory */
 329         data->mapped_ccb = (struct ccb __iomem *)
 330                                 (hw->ram_vaddr + (slot * ILOHW_CCB_SZ));
 331         memcpy_toio(data->mapped_ccb, &data->ilo_ccb, sizeof(struct ccb));
 332
 333         /* put packets on the send and receive queues */
 334         pkt_sz = 0;
 335         for (pkt_id = 0; pkt_id < NR_QENTRY; pkt_id++) {
 336                 ilo_pkt_enqueue(hw, driver_ccb, SENDQ, pkt_id, pkt_sz);
 337                 doorbell_set(driver_ccb);
 338         }
 339
 340         pkt_sz = desc_mem_sz(1);
 341         for (pkt_id = 0; pkt_id < NR_QENTRY; pkt_id++)
 342                 ilo_pkt_enqueue(hw, driver_ccb, RECVQ, pkt_id, pkt_sz);
 343
 344         /* the ccb is ready to use */
 345         doorbell_clr(driver_ccb);
 346 }
 347
 348 static int ilo_ccb_verify(struct ilo_hwinfo *hw, struct ccb_data *data)
 349 {
 350         int pkt_id, i;
 351         struct ccb *driver_ccb = &data->driver_ccb;
 352
 353         /* make sure iLO is really handling requests */
 354         for (i = MAX_WAIT; i > 0; i--) {
 355                 if (ilo_pkt_dequeue(hw, driver_ccb, SENDQ, &pkt_id, NULL, NULL))
 356                         break;
 357                 udelay(WAIT_TIME);
 358         }
 359
 360         if (i == 0) {
 361                 dev_err(&hw->ilo_dev->dev, "Open could not dequeue a packet\n");
 362                 return -EBUSY;
 363         }
 364
 365         ilo_pkt_enqueue(hw, driver_ccb, SENDQ, pkt_id, 0);
 366         doorbell_set(driver_ccb);
 367         return 0;
 368 }
 369
 370 static inline int is_channel_reset(struct ccb *ccb)
 371 {
 372         /* check for this particular channel needing a reset */
 373         return FIFOBARTOHANDLE(ccb->ccb_u1.send_fifobar)->reset;
 374 }
 375
 376 static inline void set_channel_reset(struct ccb *ccb)
 377 {
 378         /* set a flag indicating this channel needs a reset */
 379         FIFOBARTOHANDLE(ccb->ccb_u1.send_fifobar)->reset = 1;
 380 }
 381
 382 static inline int get_device_outbound(struct ilo_hwinfo *hw)
 383 {
 384         return ioread32(&hw->mmio_vaddr[DB_OUT]);
 385 }
 386
 387 static inline int is_db_reset(int db_out)
 388 {
 389         return db_out & (1 << DB_RESET);
 390 }
 391
 392 static inline int is_device_reset(struct ilo_hwinfo *hw)
 393 {
 394         /* check for global reset condition */
 395         return is_db_reset(get_device_outbound(hw));
 396 }
 397
 398 static inline void clear_pending_db(struct ilo_hwinfo *hw, int clr)
 399 {
 400         iowrite32(clr, &hw->mmio_vaddr[DB_OUT]);
 401 }
 402
 403 static inline void clear_device(struct ilo_hwinfo *hw)
 404 {
 405         /* clear the device (reset bits, pending channel entries) */
 406         clear_pending_db(hw, -1);
 407 }
 408
 409 static inline void ilo_enable_interrupts(struct ilo_hwinfo *hw)
 410 {
 411         iowrite8(ioread8(&hw->mmio_vaddr[DB_IRQ]) | 1, &hw->mmio_vaddr[DB_IRQ]);
 412 }
 413
 414 static inline void ilo_disable_interrupts(struct ilo_hwinfo *hw)
 415 {
 416         iowrite8(ioread8(&hw->mmio_vaddr[DB_IRQ]) & ~1,
 417                  &hw->mmio_vaddr[DB_IRQ]);
 418 }
 419
 420 static void ilo_set_reset(struct ilo_hwinfo *hw)
 421 {
 422         int slot;
 423
 424         /*
 425          * Mapped memory is zeroed on ilo reset, so set a per ccb flag
 426          * to indicate that this ccb needs to be closed and reopened.
 427          */
 428         for (slot = 0; slot < max_ccb; slot++) {
 429                 if (!hw->ccb_alloc[slot])
 430                         continue;
 431                 set_channel_reset(&hw->ccb_alloc[slot]->driver_ccb);
 432         }
 433 }
 434
 435 static ssize_t ilo_read(struct file *fp, char __user *buf,
 436                         size_t len, loff_t *off)
 437 {
 438         int err, found, cnt, pkt_id, pkt_len;
 439         struct ccb_data *data = fp->private_data;
 440         struct ccb *driver_ccb = &data->driver_ccb;
 441         struct ilo_hwinfo *hw = data->ilo_hw;
 442         void *pkt;
 443
 444         if (is_channel_reset(driver_ccb)) {
 445                 /*
 446                  * If the device has been reset, applications
 447                  * need to close and reopen all ccbs.
 448                  */
 449                 return -ENODEV;
 450         }
 451
 452         /*
 453          * This function is to be called when data is expected
 454          * in the channel, and will return an error if no packet is found
 455          * during the loop below.  The sleep/retry logic is to allow
 456          * applications to call read() immediately post write(),
 457          * and give iLO some time to process the sent packet.
 458          */
 459         cnt = 20;
 460         do {
 461                 /* look for a received packet */
 462                 found = ilo_pkt_dequeue(hw, driver_ccb, RECVQ, &pkt_id,
 463                                         &pkt_len, &pkt);
 464                 if (found)
 465                         break;
 466                 cnt--;
 467                 msleep(100);
 468         } while (!found && cnt);
 469
 470         if (!found)
 471                 return -EAGAIN;
 472
 473         /* only copy the length of the received packet */
 474         if (pkt_len < len)
 475                 len = pkt_len;
 476
 477         err = copy_to_user(buf, pkt, len);
 478
 479         /* return the received packet to the queue */
 480         ilo_pkt_enqueue(hw, driver_ccb, RECVQ, pkt_id, desc_mem_sz(1));
 481
 482         return err ? -EFAULT : len;
 483 }
 484
 485 static ssize_t ilo_write(struct file *fp, const char __user *buf,
 486                          size_t len, loff_t *off)
 487 {
 488         int err, pkt_id, pkt_len;
 489         struct ccb_data *data = fp->private_data;
 490         struct ccb *driver_ccb = &data->driver_ccb;
 491         struct ilo_hwinfo *hw = data->ilo_hw;
 492         void *pkt;
 493
 494         if (is_channel_reset(driver_ccb))
 495                 return -ENODEV;
 496
 497         /* get a packet to send the user command */
 498         if (!ilo_pkt_dequeue(hw, driver_ccb, SENDQ, &pkt_id, &pkt_len, &pkt))
 499                 return -EBUSY;
 500
 501         /* limit the length to the length of the packet */
 502         if (pkt_len < len)
 503                 len = pkt_len;
 504
 505         /* on failure, set the len to 0 to return empty packet to the device */
 506         err = copy_from_user(pkt, buf, len);
 507         if (err)
 508                 len = 0;
 509
 510         /* send the packet */
 511         ilo_pkt_enqueue(hw, driver_ccb, SENDQ, pkt_id, len);
 512         doorbell_set(driver_ccb);
 513
 514         return err ? -EFAULT : len;
 515 }
 516
 517 static unsigned int ilo_poll(struct file *fp, poll_table *wait)
 518 {
 519         struct ccb_data *data = fp->private_data;
 520         struct ccb *driver_ccb = &data->driver_ccb;
 521
 522         poll_wait(fp, &data->ccb_waitq, wait);
 523
 524         if (is_channel_reset(driver_ccb))
 525                 return POLLERR;
 526         else if (ilo_pkt_recv(data->ilo_hw, driver_ccb))
 527                 return POLLIN | POLLRDNORM;
 528
 529         return 0;
 530 }
 531
 532 static int ilo_close(struct inode *ip, struct file *fp)
 533 {
 534         int slot;
 535         struct ccb_data *data;
 536         struct ilo_hwinfo *hw;
 537         unsigned long flags;
 538
 539         slot = iminor(ip) % max_ccb;
 540         hw = container_of(ip->i_cdev, struct ilo_hwinfo, cdev);
 541
 542         spin_lock(&hw->open_lock);
 543
 544         if (hw->ccb_alloc[slot]->ccb_cnt == 1) {
 545
 546                 data = fp->private_data;
 547
 548                 spin_lock_irqsave(&hw->alloc_lock, flags);
 549                 hw->ccb_alloc[slot] = NULL;
 550                 spin_unlock_irqrestore(&hw->alloc_lock, flags);
 551
 552                 ilo_ccb_close(hw->ilo_dev, data);
 553
 554                 kfree(data);
 555         } else
 556                 hw->ccb_alloc[slot]->ccb_cnt--;
 557
 558         spin_unlock(&hw->open_lock);
 559
 560         return 0;
 561 }
 562
 563 static int ilo_open(struct inode *ip, struct file *fp)
 564 {
 565         int slot, error;
 566         struct ccb_data *data;
 567         struct ilo_hwinfo *hw;
 568         unsigned long flags;
 569
 570         slot = iminor(ip) % max_ccb;
 571         hw = container_of(ip->i_cdev, struct ilo_hwinfo, cdev);
 572
 573         /* new ccb allocation */
 574         data = kzalloc(sizeof(*data), GFP_KERNEL);
 575         if (!data)
 576                 return -ENOMEM;
 577
 578         spin_lock(&hw->open_lock);
 579
 580         /* each fd private_data holds sw/hw view of ccb */
 581         if (hw->ccb_alloc[slot] == NULL) {
 582                 /* create a channel control block for this minor */
 583                 error = ilo_ccb_setup(hw, data, slot);
 584                 if (error) {
 585                         kfree(data);
 586                         goto out;
 587                 }
 588
 589                 data->ccb_cnt = 1;
 590                 data->ccb_excl = fp->f_flags & O_EXCL;
 591                 data->ilo_hw = hw;
 592                 init_waitqueue_head(&data->ccb_waitq);
 593
 594                 /* write the ccb to hw */
 595                 spin_lock_irqsave(&hw->alloc_lock, flags);
 596                 ilo_ccb_open(hw, data, slot);
 597                 hw->ccb_alloc[slot] = data;
 598                 spin_unlock_irqrestore(&hw->alloc_lock, flags);
 599
 600                 /* make sure the channel is functional */
 601                 error = ilo_ccb_verify(hw, data);
 602                 if (error) {
 603
 604                         spin_lock_irqsave(&hw->alloc_lock, flags);
 605                         hw->ccb_alloc[slot] = NULL;
 606                         spin_unlock_irqrestore(&hw->alloc_lock, flags);
 607
 608                         ilo_ccb_close(hw->ilo_dev, data);
 609
 610                         kfree(data);
 611                         goto out;
 612                 }
 613
 614         } else {
 615                 kfree(data);
 616                 if (fp->f_flags & O_EXCL || hw->ccb_alloc[slot]->ccb_excl) {
 617                         /*
 618                          * The channel exists, and either this open
 619                          * or a previous open of this channel wants
 620                          * exclusive access.
 621                          */
 622                         error = -EBUSY;
 623                 } else {
 624                         hw->ccb_alloc[slot]->ccb_cnt++;
 625                         error = 0;
 626                 }
 627         }
 628 out:
 629         spin_unlock(&hw->open_lock);
 630
 631         if (!error)
 632                 fp->private_data = hw->ccb_alloc[slot];
 633
 634         return error;
 635 }
 636
 637 static const struct file_operations ilo_fops = {
 638         .owner          = THIS_MODULE,
 639         .read           = ilo_read,
 640         .write          = ilo_write,
 641         .poll           = ilo_poll,
 642         .open           = ilo_open,
 643         .release        = ilo_close,
 644         .llseek         = noop_llseek,
 645 };
 646
 647 static irqreturn_t ilo_isr(int irq, void *data)
 648 {
 649         struct ilo_hwinfo *hw = data;
 650         int pending, i;
 651
 652         spin_lock(&hw->alloc_lock);
 653
 654         /* check for ccbs which have data */
 655         pending = get_device_outbound(hw);
 656         if (!pending) {
 657                 spin_unlock(&hw->alloc_lock);
 658                 return IRQ_NONE;
 659         }
 660
 661         if (is_db_reset(pending)) {
 662                 /* wake up all ccbs if the device was reset */
 663                 pending = -1;
 664                 ilo_set_reset(hw);
 665         }
 666
 667         for (i = 0; i < max_ccb; i++) {
 668                 if (!hw->ccb_alloc[i])
 669                         continue;
 670                 if (pending & (1 << i))
 671                         wake_up_interruptible(&hw->ccb_alloc[i]->ccb_waitq);
 672         }
 673
 674         /* clear the device of the channels that have been handled */
 675         clear_pending_db(hw, pending);
 676
 677         spin_unlock(&hw->alloc_lock);
 678
 679         return IRQ_HANDLED;
 680 }
 681
 682 static void ilo_unmap_device(struct pci_dev *pdev, struct ilo_hwinfo *hw)
 683 {
 684         pci_iounmap(pdev, hw->db_vaddr);
 685         pci_iounmap(pdev, hw->ram_vaddr);
 686         pci_iounmap(pdev, hw->mmio_vaddr);
 687 }
 688
 689 static int ilo_map_device(struct pci_dev *pdev, struct ilo_hwinfo *hw)
 690 {
 691         int bar;
 692         unsigned long off;
 693
 694         /* map the memory mapped i/o registers */
 695         hw->mmio_vaddr = pci_iomap(pdev, 1, 0);
 696         if (hw->mmio_vaddr == NULL) {
 697                 dev_err(&pdev->dev, "Error mapping mmio\n");
 698                 goto out;
 699         }
 700
 701         /* map the adapter shared memory region */
 702         if (pdev->subsystem_device == 0x00E4) {
 703                 bar = 5;
 704                 /* Last 8k is reserved for CCBs */
 705                 off = pci_resource_len(pdev, bar) - 0x2000;
 706         } else {
 707                 bar = 2;
 708                 off = 0;
 709         }
 710         hw->ram_vaddr = pci_iomap_range(pdev, bar, off, max_ccb * ILOHW_CCB_SZ);
 711         if (hw->ram_vaddr == NULL) {
 712                 dev_err(&pdev->dev, "Error mapping shared mem\n");
 713                 goto mmio_free;
 714         }
 715
 716         /* map the doorbell aperture */
 717         hw->db_vaddr = pci_iomap(pdev, 3, max_ccb * ONE_DB_SIZE);
 718         if (hw->db_vaddr == NULL) {
 719                 dev_err(&pdev->dev, "Error mapping doorbell\n");
 720                 goto ram_free;
 721         }
 722
 723         return 0;
 724 ram_free:
 725         pci_iounmap(pdev, hw->ram_vaddr);
 726 mmio_free:
 727         pci_iounmap(pdev, hw->mmio_vaddr);
 728 out:
 729         return -ENOMEM;
 730 }
 731
 732 static void ilo_remove(struct pci_dev *pdev)
 733 {
 734         int i, minor;
 735         struct ilo_hwinfo *ilo_hw = pci_get_drvdata(pdev);
 736
 737         if (!ilo_hw)
 738                 return;
 739
 740         clear_device(ilo_hw);
 741
 742         minor = MINOR(ilo_hw->cdev.dev);
 743         for (i = minor; i < minor + max_ccb; i++)
 744                 device_destroy(ilo_class, MKDEV(ilo_major, i));
 745
 746         cdev_del(&ilo_hw->cdev);
 747         ilo_disable_interrupts(ilo_hw);
 748         free_irq(pdev->irq, ilo_hw);
 749         ilo_unmap_device(pdev, ilo_hw);
 750         pci_release_regions(pdev);
 751         /*
 752          * pci_disable_device(pdev) used to be here. But this PCI device has
 753          * two functions with interrupt lines connected to a single pin. The
 754          * other one is a USB host controller. So when we disable the PIN here
 755          * e.g. by rmmod hpilo, the controller stops working. It is because
 756          * the interrupt link is disabled in ACPI since it is not refcounted
 757          * yet. See acpi_pci_link_free_irq called from acpi_pci_irq_disable.
 758          */
 759         kfree(ilo_hw);
 760         ilo_hwdev[(minor / max_ccb)] = 0;
 761 }
 762
 763 static int ilo_probe(struct pci_dev *pdev,
 764                                const struct pci_device_id *ent)
 765 {
 766         int devnum, minor, start, error = 0;
 767         struct ilo_hwinfo *ilo_hw;
 768
 769         /* Ignore subsystem_device = 0x1979 (set by BIOS)  */
 770         if (pdev->subsystem_device == 0x1979)
 771                 return 0;
 772
 773         if (max_ccb > MAX_CCB)
 774                 max_ccb = MAX_CCB;
 775         else if (max_ccb < MIN_CCB)
 776                 max_ccb = MIN_CCB;
 777
 778         /* find a free range for device files */
 779         for (devnum = 0; devnum < MAX_ILO_DEV; devnum++) {
 780                 if (ilo_hwdev[devnum] == 0) {
 781                         ilo_hwdev[devnum] = 1;
 782                         break;
 783                 }
 784         }
 785
 786         if (devnum == MAX_ILO_DEV) {
 787                 dev_err(&pdev->dev, "Error finding free device\n");
 788                 return -ENODEV;
 789         }
 790
 791         /* track global allocations for this device */
 792         error = -ENOMEM;
 793         ilo_hw = kzalloc(sizeof(*ilo_hw), GFP_KERNEL);
 794         if (!ilo_hw)
 795                 goto out;
 796
 797         ilo_hw->ilo_dev = pdev;
 798         spin_lock_init(&ilo_hw->alloc_lock);
 799         spin_lock_init(&ilo_hw->fifo_lock);
 800         spin_lock_init(&ilo_hw->open_lock);
 801
 802         error = pci_enable_device(pdev);
 803         if (error)
 804                 goto free;
 805
 806         pci_set_master(pdev);
 807
 808         error = pci_request_regions(pdev, ILO_NAME);
 809         if (error)
 810                 goto disable;
 811
 812         error = ilo_map_device(pdev, ilo_hw);
 813         if (error)
 814                 goto free_regions;
 815
 816         pci_set_drvdata(pdev, ilo_hw);
 817         clear_device(ilo_hw);
 818
 819         error = request_irq(pdev->irq, ilo_isr, IRQF_SHARED, "hpilo", ilo_hw);
 820         if (error)
 821                 goto unmap;
 822
 823         ilo_enable_interrupts(ilo_hw);
 824
 825         cdev_init(&ilo_hw->cdev, &ilo_fops);
 826         ilo_hw->cdev.owner = THIS_MODULE;
 827         start = devnum * max_ccb;
 828         error = cdev_add(&ilo_hw->cdev, MKDEV(ilo_major, start), max_ccb);
 829         if (error) {
 830                 dev_err(&pdev->dev, "Could not add cdev\n");
 831                 goto remove_isr;
 832         }
 833
 834         for (minor = 0 ; minor < max_ccb; minor++) {
 835                 struct device *dev;
 836                 dev = device_create(ilo_class, &pdev->dev,
 837                                     MKDEV(ilo_major, minor), NULL,
 838                                     "hpilo!d%dccb%d", devnum, minor);
 839                 if (IS_ERR(dev))
 840                         dev_err(&pdev->dev, "Could not create files\n");
 841         }
 842
 843         return 0;
 844 remove_isr:
 845         ilo_disable_interrupts(ilo_hw);
 846         free_irq(pdev->irq, ilo_hw);
 847 unmap:
 848         ilo_unmap_device(pdev, ilo_hw);
 849 free_regions:
 850         pci_release_regions(pdev);
 851 disable:
 852 /*      pci_disable_device(pdev);  see comment in ilo_remove */
 853 free:
 854         kfree(ilo_hw);
 855 out:
 856         ilo_hwdev[devnum] = 0;
 857         return error;
 858 }
 859
 860 static struct pci_device_id ilo_devices[] = {
 861         { PCI_DEVICE(PCI_VENDOR_ID_COMPAQ, 0xB204) },
 862         { PCI_DEVICE(PCI_VENDOR_ID_HP, 0x3307) },
 863         { }
 864 };
 865 MODULE_DEVICE_TABLE(pci, ilo_devices);
 866
 867 static struct pci_driver ilo_driver = {
 868         .name     = ILO_NAME,
 869         .id_table = ilo_devices,
 870         .probe    = ilo_probe,
 871         .remove   = ilo_remove,
 872 };
 873
 874 static int __init ilo_init(void)
 875 {
 876         int error;
 877         dev_t dev;
 878
 879         ilo_class = class_create(THIS_MODULE, "iLO");
 880         if (IS_ERR(ilo_class)) {
 881                 error = PTR_ERR(ilo_class);
 882                 goto out;
 883         }
 884
 885         error = alloc_chrdev_region(&dev, 0, MAX_OPEN, ILO_NAME);
 886         if (error)
 887                 goto class_destroy;
 888
 889         ilo_major = MAJOR(dev);
 890
 891         error = pci_register_driver(&ilo_driver);
 892         if (error)
 893                 goto chr_remove;
 894
 895         return 0;
 896 chr_remove:
 897         unregister_chrdev_region(dev, MAX_OPEN);
 898 class_destroy:
 899         class_destroy(ilo_class);
 900 out:
 901         return error;
 902 }
 903
 904 static void __exit ilo_exit(void)
 905 {
 906         pci_unregister_driver(&ilo_driver);
 907         unregister_chrdev_region(MKDEV(ilo_major, 0), MAX_OPEN);
 908         class_destroy(ilo_class);
 909 }
 910
 911 MODULE_VERSION("1.5.0");
 912 MODULE_ALIAS(ILO_NAME);
 913 MODULE_DESCRIPTION(ILO_NAME);
 914 MODULE_AUTHOR("David Altobelli <david.altobelli@hpe.com>");
 915 MODULE_LICENSE("GPL v2");
 916
 917 module_param(max_ccb, uint, 0444);
 918 MODULE_PARM_DESC(max_ccb, "Maximum number of HP iLO channels to attach (8-24)(default=16)");
 919
 920 module_init(ilo_init);
 921 module_exit(ilo_exit);