2 * Copyright (c) 2003-2006 Silicon Graphics, Inc. All Rights Reserved.
4 * This program is free software; you can redistribute it and/or modify it
5 * under the terms of version 2 of the GNU General Public License
6 * as published by the Free Software Foundation.
8 * This program is distributed in the hope that it would be useful, but
9 * WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
12 * You should have received a copy of the GNU General Public
13 * License along with this program; if not, write the Free Software
14 * Foundation, Inc., 59 Temple Place - Suite 330, Boston MA 02111-1307, USA.
16 * For further information regarding this notice, see:
18 * http://oss.sgi.com/projects/GenInfo/NoticeExplan
21 #include <linux/module.h>
22 #include <linux/types.h>
23 #include <linux/pci.h>
24 #include <linux/delay.h>
25 #include <linux/hdreg.h>
26 #include <linux/init.h>
27 #include <linux/kernel.h>
28 #include <linux/timer.h>
30 #include <linux/ioport.h>
31 #include <linux/blkdev.h>
32 #include <linux/scatterlist.h>
33 #include <linux/ioc4.h>
36 #include <linux/ide.h>
38 #define DRV_NAME "SGIIOC4"
40 /* IOC4 Specific Definitions */
41 #define IOC4_CMD_OFFSET 0x100
42 #define IOC4_CTRL_OFFSET 0x120
43 #define IOC4_DMA_OFFSET 0x140
44 #define IOC4_INTR_OFFSET 0x0
46 #define IOC4_TIMING 0x00
47 #define IOC4_DMA_PTR_L 0x01
48 #define IOC4_DMA_PTR_H 0x02
49 #define IOC4_DMA_ADDR_L 0x03
50 #define IOC4_DMA_ADDR_H 0x04
51 #define IOC4_BC_DEV 0x05
52 #define IOC4_BC_MEM 0x06
53 #define IOC4_DMA_CTRL 0x07
54 #define IOC4_DMA_END_ADDR 0x08
56 /* Bits in the IOC4 Control/Status Register */
57 #define IOC4_S_DMA_START 0x01
58 #define IOC4_S_DMA_STOP 0x02
59 #define IOC4_S_DMA_DIR 0x04
60 #define IOC4_S_DMA_ACTIVE 0x08
61 #define IOC4_S_DMA_ERROR 0x10
62 #define IOC4_ATA_MEMERR 0x02
64 /* Read/Write Directions */
65 #define IOC4_DMA_WRITE 0x04
66 #define IOC4_DMA_READ 0x00
68 /* Interrupt Register Offsets */
69 #define IOC4_INTR_REG 0x03
70 #define IOC4_INTR_SET 0x05
71 #define IOC4_INTR_CLEAR 0x07
73 #define IOC4_IDE_CACHELINE_SIZE 128
74 #define IOC4_CMD_CTL_BLK_SIZE 0x20
75 #define IOC4_SUPPORTED_FIRMWARE_REV 46
89 /* Each Physical Region Descriptor Entry size is 16 bytes (2 * 64 bits) */
90 /* IOC4 has only 1 IDE channel */
91 #define IOC4_PRD_BYTES 16
92 #define IOC4_PRD_ENTRIES (PAGE_SIZE /(4*IOC4_PRD_BYTES))
96 sgiioc4_init_hwif_ports(hw_regs_t * hw, unsigned long data_port,
97 unsigned long ctrl_port, unsigned long irq_port)
99 unsigned long reg = data_port;
102 /* Registers are word (32 bit) aligned */
103 for (i = IDE_DATA_OFFSET; i <= IDE_STATUS_OFFSET; i++)
104 hw->io_ports[i] = reg + i * 4;
107 hw->io_ports[IDE_CONTROL_OFFSET] = ctrl_port;
110 hw->io_ports[IDE_IRQ_OFFSET] = irq_port;
114 sgiioc4_maskproc(ide_drive_t * drive, int mask)
116 writeb(mask ? (drive->ctl | 2) : (drive->ctl & ~2),
117 (void __iomem *)IDE_CONTROL_REG);
122 sgiioc4_checkirq(ide_hwif_t * hwif)
124 unsigned long intr_addr =
125 hwif->io_ports[IDE_IRQ_OFFSET] + IOC4_INTR_REG * 4;
127 if ((u8)readl((void __iomem *)intr_addr) & 0x03)
133 static u8 sgiioc4_INB(unsigned long);
136 sgiioc4_clearirq(ide_drive_t * drive)
139 ide_hwif_t *hwif = HWIF(drive);
140 unsigned long other_ir =
141 hwif->io_ports[IDE_IRQ_OFFSET] + (IOC4_INTR_REG << 2);
143 /* Code to check for PCI error conditions */
144 intr_reg = readl((void __iomem *)other_ir);
145 if (intr_reg & 0x03) { /* Valid IOC4-IDE interrupt */
147 * Using sgiioc4_INB to read the IDE_STATUS_REG has a side effect
148 * of clearing the interrupt. The first read should clear it
149 * if it is set. The second read should return a "clear" status
150 * if it got cleared. If not, then spin for a bit trying to
153 u8 stat = sgiioc4_INB(IDE_STATUS_REG);
155 stat = sgiioc4_INB(IDE_STATUS_REG);
156 while ((stat & 0x80) && (count++ < 100)) {
158 stat = sgiioc4_INB(IDE_STATUS_REG);
161 if (intr_reg & 0x02) {
162 /* Error when transferring DMA data on PCI bus */
163 u32 pci_err_addr_low, pci_err_addr_high,
167 readl((void __iomem *)hwif->io_ports[IDE_IRQ_OFFSET]);
169 readl((void __iomem *)(hwif->io_ports[IDE_IRQ_OFFSET] + 4));
170 pci_read_config_dword(hwif->pci_dev, PCI_COMMAND,
173 "%s(%s) : PCI Bus Error when doing DMA:"
174 " status-cmd reg is 0x%x\n",
175 __FUNCTION__, drive->name, pci_stat_cmd_reg);
177 "%s(%s) : PCI Error Address is 0x%x%x\n",
178 __FUNCTION__, drive->name,
179 pci_err_addr_high, pci_err_addr_low);
180 /* Clear the PCI Error indicator */
181 pci_write_config_dword(hwif->pci_dev, PCI_COMMAND,
185 /* Clear the Interrupt, Error bits on the IOC4 */
186 writel(0x03, (void __iomem *)other_ir);
188 intr_reg = readl((void __iomem *)other_ir);
194 static void sgiioc4_ide_dma_start(ide_drive_t * drive)
196 ide_hwif_t *hwif = HWIF(drive);
197 unsigned long ioc4_dma_addr = hwif->dma_base + IOC4_DMA_CTRL * 4;
198 unsigned int reg = readl((void __iomem *)ioc4_dma_addr);
199 unsigned int temp_reg = reg | IOC4_S_DMA_START;
201 writel(temp_reg, (void __iomem *)ioc4_dma_addr);
205 sgiioc4_ide_dma_stop(ide_hwif_t *hwif, u64 dma_base)
207 unsigned long ioc4_dma_addr = dma_base + IOC4_DMA_CTRL * 4;
212 ioc4_dma = readl((void __iomem *)ioc4_dma_addr);
213 while ((ioc4_dma & IOC4_S_DMA_STOP) && (count++ < 200)) {
215 ioc4_dma = readl((void __iomem *)ioc4_dma_addr);
220 /* Stops the IOC4 DMA Engine */
222 sgiioc4_ide_dma_end(ide_drive_t * drive)
224 u32 ioc4_dma, bc_dev, bc_mem, num, valid = 0, cnt = 0;
225 ide_hwif_t *hwif = HWIF(drive);
226 unsigned long dma_base = hwif->dma_base;
228 unsigned long *ending_dma = ide_get_hwifdata(hwif);
230 writel(IOC4_S_DMA_STOP, (void __iomem *)(dma_base + IOC4_DMA_CTRL * 4));
232 ioc4_dma = sgiioc4_ide_dma_stop(hwif, dma_base);
234 if (ioc4_dma & IOC4_S_DMA_STOP) {
236 "%s(%s): IOC4 DMA STOP bit is still 1 :"
237 "ioc4_dma_reg 0x%x\n",
238 __FUNCTION__, drive->name, ioc4_dma);
243 * The IOC4 will DMA 1's to the ending dma area to indicate that
244 * previous data DMA is complete. This is necessary because of relaxed
245 * ordering between register reads and DMA writes on the Altix.
247 while ((cnt++ < 200) && (!valid)) {
248 for (num = 0; num < 16; num++) {
249 if (ending_dma[num]) {
257 printk(KERN_ERR "%s(%s) : DMA incomplete\n", __FUNCTION__,
262 bc_dev = readl((void __iomem *)(dma_base + IOC4_BC_DEV * 4));
263 bc_mem = readl((void __iomem *)(dma_base + IOC4_BC_MEM * 4));
265 if ((bc_dev & 0x01FF) || (bc_mem & 0x1FF)) {
266 if (bc_dev > bc_mem + 8) {
268 "%s(%s): WARNING!! byte_count_dev %d "
269 "!= byte_count_mem %d\n",
270 __FUNCTION__, drive->name, bc_dev, bc_mem);
274 drive->waiting_for_dma = 0;
275 ide_destroy_dmatable(drive);
281 sgiioc4_ide_dma_on(ide_drive_t * drive)
283 drive->using_dma = 1;
288 static void sgiioc4_dma_off_quietly(ide_drive_t *drive)
290 drive->using_dma = 0;
292 drive->hwif->dma_host_off(drive);
295 static void sgiioc4_set_dma_mode(ide_drive_t *drive, const u8 speed)
299 static int sgiioc4_ide_dma_check(ide_drive_t *drive)
301 if (ide_tune_dma(drive))
305 * ->set_pio_mode is not implemented currently
306 * so this is just for the completness
308 ide_set_max_pio(drive);
313 /* returns 1 if dma irq issued, 0 otherwise */
315 sgiioc4_ide_dma_test_irq(ide_drive_t * drive)
317 return sgiioc4_checkirq(HWIF(drive));
320 static void sgiioc4_dma_host_on(ide_drive_t * drive)
324 static void sgiioc4_dma_host_off(ide_drive_t * drive)
326 sgiioc4_clearirq(drive);
330 sgiioc4_resetproc(ide_drive_t * drive)
332 sgiioc4_ide_dma_end(drive);
333 sgiioc4_clearirq(drive);
337 sgiioc4_dma_lost_irq(ide_drive_t * drive)
339 sgiioc4_resetproc(drive);
341 ide_dma_lost_irq(drive);
345 sgiioc4_INB(unsigned long port)
347 u8 reg = (u8) readb((void __iomem *) port);
349 if ((port & 0xFFF) == 0x11C) { /* Status register of IOC4 */
350 if (reg & 0x51) { /* Not busy...check for interrupt */
351 unsigned long other_ir = port - 0x110;
352 unsigned int intr_reg = (u32) readl((void __iomem *) other_ir);
354 /* Clear the Interrupt, Error bits on the IOC4 */
355 if (intr_reg & 0x03) {
356 writel(0x03, (void __iomem *) other_ir);
357 intr_reg = (u32) readl((void __iomem *) other_ir);
365 /* Creates a dma map for the scatter-gather list entries */
367 ide_dma_sgiioc4(ide_hwif_t * hwif, unsigned long dma_base)
369 void __iomem *virt_dma_base;
370 int num_ports = sizeof (ioc4_dma_regs_t);
373 printk(KERN_INFO "%s: BM-DMA at 0x%04lx-0x%04lx\n", hwif->name,
374 dma_base, dma_base + num_ports - 1);
376 if (!request_mem_region(dma_base, num_ports, hwif->name)) {
378 "%s(%s) -- ERROR, Addresses 0x%p to 0x%p "
380 __FUNCTION__, hwif->name, (void *) dma_base,
381 (void *) dma_base + num_ports - 1);
385 virt_dma_base = ioremap(dma_base, num_ports);
386 if (virt_dma_base == NULL) {
388 "%s(%s) -- ERROR, Unable to map addresses 0x%lx to 0x%lx\n",
389 __FUNCTION__, hwif->name, dma_base, dma_base + num_ports - 1);
390 goto dma_remap_failure;
392 hwif->dma_base = (unsigned long) virt_dma_base;
394 hwif->dmatable_cpu = pci_alloc_consistent(hwif->pci_dev,
395 IOC4_PRD_ENTRIES * IOC4_PRD_BYTES,
396 &hwif->dmatable_dma);
398 if (!hwif->dmatable_cpu)
399 goto dma_pci_alloc_failure;
401 hwif->sg_max_nents = IOC4_PRD_ENTRIES;
403 pad = pci_alloc_consistent(hwif->pci_dev, IOC4_IDE_CACHELINE_SIZE,
404 (dma_addr_t *) &(hwif->dma_status));
407 ide_set_hwifdata(hwif, pad);
411 pci_free_consistent(hwif->pci_dev,
412 IOC4_PRD_ENTRIES * IOC4_PRD_BYTES,
413 hwif->dmatable_cpu, hwif->dmatable_dma);
415 "%s() -- Error! Unable to allocate DMA Maps for drive %s\n",
416 __FUNCTION__, hwif->name);
418 "Changing from DMA to PIO mode for Drive %s\n", hwif->name);
420 dma_pci_alloc_failure:
421 iounmap(virt_dma_base);
424 release_mem_region(dma_base, num_ports);
429 /* Initializes the IOC4 DMA Engine */
431 sgiioc4_configure_for_dma(int dma_direction, ide_drive_t * drive)
434 ide_hwif_t *hwif = HWIF(drive);
435 unsigned long dma_base = hwif->dma_base;
436 unsigned long ioc4_dma_addr = dma_base + IOC4_DMA_CTRL * 4;
437 u32 dma_addr, ending_dma_addr;
439 ioc4_dma = readl((void __iomem *)ioc4_dma_addr);
441 if (ioc4_dma & IOC4_S_DMA_ACTIVE) {
443 "%s(%s):Warning!! DMA from previous transfer was still active\n",
444 __FUNCTION__, drive->name);
445 writel(IOC4_S_DMA_STOP, (void __iomem *)ioc4_dma_addr);
446 ioc4_dma = sgiioc4_ide_dma_stop(hwif, dma_base);
448 if (ioc4_dma & IOC4_S_DMA_STOP)
450 "%s(%s) : IOC4 Dma STOP bit is still 1\n",
451 __FUNCTION__, drive->name);
454 ioc4_dma = readl((void __iomem *)ioc4_dma_addr);
455 if (ioc4_dma & IOC4_S_DMA_ERROR) {
457 "%s(%s) : Warning!! - DMA Error during Previous"
458 " transfer | status 0x%x\n",
459 __FUNCTION__, drive->name, ioc4_dma);
460 writel(IOC4_S_DMA_STOP, (void __iomem *)ioc4_dma_addr);
461 ioc4_dma = sgiioc4_ide_dma_stop(hwif, dma_base);
463 if (ioc4_dma & IOC4_S_DMA_STOP)
465 "%s(%s) : IOC4 DMA STOP bit is still 1\n",
466 __FUNCTION__, drive->name);
469 /* Address of the Scatter Gather List */
470 dma_addr = cpu_to_le32(hwif->dmatable_dma);
471 writel(dma_addr, (void __iomem *)(dma_base + IOC4_DMA_PTR_L * 4));
473 /* Address of the Ending DMA */
474 memset(ide_get_hwifdata(hwif), 0, IOC4_IDE_CACHELINE_SIZE);
475 ending_dma_addr = cpu_to_le32(hwif->dma_status);
476 writel(ending_dma_addr, (void __iomem *)(dma_base + IOC4_DMA_END_ADDR * 4));
478 writel(dma_direction, (void __iomem *)ioc4_dma_addr);
479 drive->waiting_for_dma = 1;
482 /* IOC4 Scatter Gather list Format */
483 /* 128 Bit entries to support 64 bit addresses in the future */
484 /* The Scatter Gather list Entry should be in the BIG-ENDIAN Format */
485 /* --------------------------------------------------------------------- */
486 /* | Upper 32 bits - Zero | Lower 32 bits- address | */
487 /* --------------------------------------------------------------------- */
488 /* | Upper 32 bits - Zero |EOL| 15 unused | 16 Bit Length| */
489 /* --------------------------------------------------------------------- */
490 /* Creates the scatter gather list, DMA Table */
492 sgiioc4_build_dma_table(ide_drive_t * drive, struct request *rq, int ddir)
494 ide_hwif_t *hwif = HWIF(drive);
495 unsigned int *table = hwif->dmatable_cpu;
496 unsigned int count = 0, i = 1;
497 struct scatterlist *sg;
499 hwif->sg_nents = i = ide_build_sglist(drive, rq);
502 return 0; /* sglist of length Zero */
505 while (i && sg_dma_len(sg)) {
508 cur_addr = sg_dma_address(sg);
509 cur_len = sg_dma_len(sg);
512 if (count++ >= IOC4_PRD_ENTRIES) {
514 "%s: DMA table too small\n",
516 goto use_pio_instead;
519 0x10000 - (cur_addr & 0xffff);
521 if (bcount > cur_len)
524 /* put the addr, length in
525 * the IOC4 dma-table format */
528 *table = cpu_to_be32(cur_addr);
533 *table = cpu_to_be32(bcount);
547 *table |= cpu_to_be32(0x80000000);
552 pci_unmap_sg(hwif->pci_dev, hwif->sg_table, hwif->sg_nents,
553 hwif->sg_dma_direction);
555 return 0; /* revert to PIO for this request */
558 static int sgiioc4_ide_dma_setup(ide_drive_t *drive)
560 struct request *rq = HWGROUP(drive)->rq;
561 unsigned int count = 0;
565 ddir = PCI_DMA_TODEVICE;
567 ddir = PCI_DMA_FROMDEVICE;
569 if (!(count = sgiioc4_build_dma_table(drive, rq, ddir))) {
570 /* try PIO instead of DMA */
571 ide_map_sg(drive, rq);
576 /* Writes TO the IOC4 FROM Main Memory */
577 ddir = IOC4_DMA_READ;
579 /* Writes FROM the IOC4 TO Main Memory */
580 ddir = IOC4_DMA_WRITE;
582 sgiioc4_configure_for_dma(ddir, drive);
587 static void __devinit
588 ide_init_sgiioc4(ide_hwif_t * hwif)
591 hwif->pio_mask = 0x00;
592 hwif->set_pio_mode = NULL; /* Sets timing for PIO mode */
593 hwif->set_dma_mode = &sgiioc4_set_dma_mode;
594 hwif->selectproc = NULL;/* Use the default routine to select drive */
595 hwif->reset_poll = NULL;/* No HBA specific reset_poll needed */
596 hwif->pre_reset = NULL; /* No HBA specific pre_set needed */
597 hwif->resetproc = &sgiioc4_resetproc;/* Reset DMA engine,
599 hwif->intrproc = NULL; /* Enable or Disable interrupt from drive */
600 hwif->maskproc = &sgiioc4_maskproc; /* Mask on/off NIEN register */
601 hwif->quirkproc = NULL;
602 hwif->busproc = NULL;
604 hwif->INB = &sgiioc4_INB;
606 if (hwif->dma_base == 0)
610 hwif->mwdma_mask = 0x04;
612 hwif->dma_setup = &sgiioc4_ide_dma_setup;
613 hwif->dma_start = &sgiioc4_ide_dma_start;
614 hwif->ide_dma_end = &sgiioc4_ide_dma_end;
615 hwif->ide_dma_check = &sgiioc4_ide_dma_check;
616 hwif->ide_dma_on = &sgiioc4_ide_dma_on;
617 hwif->dma_off_quietly = &sgiioc4_dma_off_quietly;
618 hwif->ide_dma_test_irq = &sgiioc4_ide_dma_test_irq;
619 hwif->dma_host_on = &sgiioc4_dma_host_on;
620 hwif->dma_host_off = &sgiioc4_dma_host_off;
621 hwif->dma_lost_irq = &sgiioc4_dma_lost_irq;
622 hwif->dma_timeout = &ide_dma_timeout;
626 sgiioc4_ide_setup_pci_device(struct pci_dev *dev)
628 unsigned long cmd_base, dma_base, irqport;
629 unsigned long bar0, cmd_phys_base, ctl;
630 void __iomem *virt_base;
635 * Find an empty HWIF; if none available, return -ENOMEM.
637 for (h = 0; h < MAX_HWIFS; ++h) {
638 hwif = &ide_hwifs[h];
639 if (hwif->chipset == ide_unknown)
642 if (h == MAX_HWIFS) {
643 printk(KERN_ERR "%s: too many IDE interfaces, no room in table\n",
648 /* Get the CmdBlk and CtrlBlk Base Registers */
649 bar0 = pci_resource_start(dev, 0);
650 virt_base = ioremap(bar0, pci_resource_len(dev, 0));
651 if (virt_base == NULL) {
652 printk(KERN_ERR "%s: Unable to remap BAR 0 address: 0x%lx\n",
656 cmd_base = (unsigned long) virt_base + IOC4_CMD_OFFSET;
657 ctl = (unsigned long) virt_base + IOC4_CTRL_OFFSET;
658 irqport = (unsigned long) virt_base + IOC4_INTR_OFFSET;
659 dma_base = pci_resource_start(dev, 0) + IOC4_DMA_OFFSET;
661 cmd_phys_base = bar0 + IOC4_CMD_OFFSET;
662 if (!request_mem_region(cmd_phys_base, IOC4_CMD_CTL_BLK_SIZE,
665 "%s : %s -- ERROR, Addresses "
666 "0x%p to 0x%p ALREADY in use\n",
667 __FUNCTION__, hwif->name, (void *) cmd_phys_base,
668 (void *) cmd_phys_base + IOC4_CMD_CTL_BLK_SIZE);
672 if (hwif->io_ports[IDE_DATA_OFFSET] != cmd_base) {
673 /* Initialize the IO registers */
674 sgiioc4_init_hwif_ports(&hwif->hw, cmd_base, ctl, irqport);
675 memcpy(hwif->io_ports, hwif->hw.io_ports,
676 sizeof (hwif->io_ports));
677 hwif->noprobe = !hwif->io_ports[IDE_DATA_OFFSET];
680 hwif->irq = dev->irq;
681 hwif->chipset = ide_pci;
683 hwif->channel = 0; /* Single Channel chip */
684 hwif->gendev.parent = &dev->dev;/* setup proper ancestral information */
686 /* The IOC4 uses MMIO rather than Port IO. */
687 default_hwif_mmiops(hwif);
689 /* Initializing chipset IRQ Registers */
690 writel(0x03, (void __iomem *)(irqport + IOC4_INTR_SET * 4));
694 if (dma_base && ide_dma_sgiioc4(hwif, dma_base) == 0) {
696 hwif->drives[1].autodma = hwif->drives[0].autodma = 1;
698 printk(KERN_INFO "%s: %s Bus-Master DMA disabled\n",
699 hwif->name, DRV_NAME);
701 ide_init_sgiioc4(hwif);
703 if (probe_hwif_init(hwif))
706 /* Create /proc/ide entries */
707 ide_proc_register_port(hwif);
712 static unsigned int __devinit
713 pci_init_sgiioc4(struct pci_dev *dev)
715 unsigned int class_rev;
718 pci_read_config_dword(dev, PCI_CLASS_REVISION, &class_rev);
720 printk(KERN_INFO "%s: IDE controller at PCI slot %s, revision %d\n",
721 DRV_NAME, pci_name(dev), class_rev);
722 if (class_rev < IOC4_SUPPORTED_FIRMWARE_REV) {
723 printk(KERN_ERR "Skipping %s IDE controller in slot %s: "
724 "firmware is obsolete - please upgrade to "
725 "revision46 or higher\n",
726 DRV_NAME, pci_name(dev));
730 ret = sgiioc4_ide_setup_pci_device(dev);
736 ioc4_ide_attach_one(struct ioc4_driver_data *idd)
738 /* PCI-RT does not bring out IDE connection.
739 * Do not attach to this particular IOC4.
741 if (idd->idd_variant == IOC4_VARIANT_PCI_RT)
744 return pci_init_sgiioc4(idd->idd_pdev);
747 static struct ioc4_submodule ioc4_ide_submodule = {
748 .is_name = "IOC4_ide",
749 .is_owner = THIS_MODULE,
750 .is_probe = ioc4_ide_attach_one,
751 /* .is_remove = ioc4_ide_remove_one, */
754 static int __init ioc4_ide_init(void)
756 return ioc4_register_submodule(&ioc4_ide_submodule);
759 late_initcall(ioc4_ide_init); /* Call only after IDE init is done */
761 MODULE_AUTHOR("Aniket Malatpure/Jeremy Higdon");
762 MODULE_DESCRIPTION("IDE PCI driver module for SGI IOC4 Base-IO Card");
763 MODULE_LICENSE("GPL");