Merge remote-tracking branch 'y2038/y2038'
[karo-tx-linux.git] / drivers / staging / gdm72xx / gdm_sdio.c
1 /*
2  * Copyright (c) 2012 GCT Semiconductor, Inc. All rights reserved.
3  *
4  * This software is licensed under the terms of the GNU General Public
5  * License version 2, as published by the Free Software Foundation, and
6  * may be copied, distributed, and modified under those terms.
7  *
8  * This program is distributed in the hope that it will be useful,
9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11  * GNU General Public License for more details.
12  */
13
14 #include <linux/module.h>
15 #include <linux/init.h>
16 #include <linux/kernel.h>
17
18 #include <linux/mmc/core.h>
19 #include <linux/mmc/card.h>
20 #include <linux/mmc/sdio_func.h>
21 #include <linux/mmc/sdio_ids.h>
22
23 #include "gdm_sdio.h"
24 #include "gdm_wimax.h"
25 #include "sdio_boot.h"
26 #include "hci.h"
27
28 #define TYPE_A_HEADER_SIZE      4
29 #define TYPE_A_LOOKAHEAD_SIZE   16
30
31 #define MAX_NR_RX_BUF   4
32
33 #define SDU_TX_BUF_SIZE 2048
34 #define TX_BUF_SIZE     2048
35 #define TX_CHUNK_SIZE   (2048 - TYPE_A_HEADER_SIZE)
36 #define RX_BUF_SIZE     (25*1024)
37
38 #define TX_HZ           2000
39 #define TX_INTERVAL     (NSEC_PER_SEC/TX_HZ)
40
41 static struct sdio_tx *alloc_tx_struct(struct tx_cxt *tx)
42 {
43         struct sdio_tx *t = kzalloc(sizeof(*t), GFP_ATOMIC);
44
45         if (!t)
46                 return NULL;
47
48         t->buf = kmalloc(TX_BUF_SIZE, GFP_ATOMIC);
49         if (!t->buf) {
50                 kfree(t);
51                 return NULL;
52         }
53
54         t->tx_cxt = tx;
55
56         return t;
57 }
58
59 static void free_tx_struct(struct sdio_tx *t)
60 {
61         if (t) {
62                 kfree(t->buf);
63                 kfree(t);
64         }
65 }
66
67 static struct sdio_rx *alloc_rx_struct(struct rx_cxt *rx)
68 {
69         struct sdio_rx *r = kzalloc(sizeof(*r), GFP_ATOMIC);
70
71         if (r)
72                 r->rx_cxt = rx;
73
74         return r;
75 }
76
77 static void free_rx_struct(struct sdio_rx *r)
78 {
79         kfree(r);
80 }
81
82 /* Before this function is called, spin lock should be locked. */
83 static struct sdio_tx *get_tx_struct(struct tx_cxt *tx, int *no_spc)
84 {
85         struct sdio_tx *t;
86
87         if (list_empty(&tx->free_list))
88                 return NULL;
89
90         t = list_entry(tx->free_list.prev, struct sdio_tx, list);
91         list_del(&t->list);
92
93         *no_spc = list_empty(&tx->free_list) ? 1 : 0;
94
95         return t;
96 }
97
98 /* Before this function is called, spin lock should be locked. */
99 static void put_tx_struct(struct tx_cxt *tx, struct sdio_tx *t)
100 {
101         list_add_tail(&t->list, &tx->free_list);
102 }
103
104 /* Before this function is called, spin lock should be locked. */
105 static struct sdio_rx *get_rx_struct(struct rx_cxt *rx)
106 {
107         struct sdio_rx *r;
108
109         if (list_empty(&rx->free_list))
110                 return NULL;
111
112         r = list_entry(rx->free_list.prev, struct sdio_rx, list);
113         list_del(&r->list);
114
115         return r;
116 }
117
118 /* Before this function is called, spin lock should be locked. */
119 static void put_rx_struct(struct rx_cxt *rx, struct sdio_rx *r)
120 {
121         list_add_tail(&r->list, &rx->free_list);
122 }
123
124 static void release_sdio(struct sdiowm_dev *sdev)
125 {
126         struct tx_cxt   *tx = &sdev->tx;
127         struct rx_cxt   *rx = &sdev->rx;
128         struct sdio_tx  *t, *t_next;
129         struct sdio_rx  *r, *r_next;
130
131         kfree(tx->sdu_buf);
132
133         list_for_each_entry_safe(t, t_next, &tx->free_list, list) {
134                 list_del(&t->list);
135                 free_tx_struct(t);
136         }
137
138         list_for_each_entry_safe(t, t_next, &tx->sdu_list, list) {
139                 list_del(&t->list);
140                 free_tx_struct(t);
141         }
142
143         list_for_each_entry_safe(t, t_next, &tx->hci_list, list) {
144                 list_del(&t->list);
145                 free_tx_struct(t);
146         }
147
148         kfree(rx->rx_buf);
149
150         list_for_each_entry_safe(r, r_next, &rx->free_list, list) {
151                 list_del(&r->list);
152                 free_rx_struct(r);
153         }
154
155         list_for_each_entry_safe(r, r_next, &rx->req_list, list) {
156                 list_del(&r->list);
157                 free_rx_struct(r);
158         }
159 }
160
161 static int init_sdio(struct sdiowm_dev *sdev)
162 {
163         int ret = 0, i;
164         struct tx_cxt *tx = &sdev->tx;
165         struct rx_cxt *rx = &sdev->rx;
166         struct sdio_tx *t;
167         struct sdio_rx *r;
168
169         INIT_LIST_HEAD(&tx->free_list);
170         INIT_LIST_HEAD(&tx->sdu_list);
171         INIT_LIST_HEAD(&tx->hci_list);
172
173         spin_lock_init(&tx->lock);
174
175         tx->sdu_buf = kmalloc(SDU_TX_BUF_SIZE, GFP_KERNEL);
176         if (!tx->sdu_buf)
177                 goto fail;
178
179         for (i = 0; i < MAX_NR_SDU_BUF; i++) {
180                 t = alloc_tx_struct(tx);
181                 if (!t) {
182                         ret = -ENOMEM;
183                         goto fail;
184                 }
185                 list_add(&t->list, &tx->free_list);
186         }
187
188         INIT_LIST_HEAD(&rx->free_list);
189         INIT_LIST_HEAD(&rx->req_list);
190
191         spin_lock_init(&rx->lock);
192
193         for (i = 0; i < MAX_NR_RX_BUF; i++) {
194                 r = alloc_rx_struct(rx);
195                 if (!r) {
196                         ret = -ENOMEM;
197                         goto fail;
198                 }
199                 list_add(&r->list, &rx->free_list);
200         }
201
202         rx->rx_buf = kmalloc(RX_BUF_SIZE, GFP_KERNEL);
203         if (!rx->rx_buf)
204                 goto fail;
205
206         return 0;
207
208 fail:
209         release_sdio(sdev);
210         return ret;
211 }
212
213 static void send_sdio_pkt(struct sdio_func *func, u8 *data, int len)
214 {
215         int n, blocks, ret, remain;
216
217         sdio_claim_host(func);
218
219         blocks = len / func->cur_blksize;
220         n = blocks * func->cur_blksize;
221         if (blocks) {
222                 ret = sdio_memcpy_toio(func, 0, data, n);
223                 if (ret < 0) {
224                         if (ret != -ENOMEDIUM)
225                                 dev_err(&func->dev,
226                                         "gdmwms:  error: ret = %d\n", ret);
227                         goto end_io;
228                 }
229         }
230
231         remain = len - n;
232         remain = (remain + 3) & ~3;
233
234         if (remain) {
235                 ret = sdio_memcpy_toio(func, 0, data + n, remain);
236                 if (ret < 0) {
237                         if (ret != -ENOMEDIUM)
238                                 dev_err(&func->dev,
239                                         "gdmwms:  error: ret = %d\n", ret);
240                         goto end_io;
241                 }
242         }
243
244 end_io:
245         sdio_release_host(func);
246 }
247
248 static void send_sdu(struct sdio_func *func, struct tx_cxt *tx)
249 {
250         struct list_head *l, *next;
251         struct hci_s *hci;
252         struct sdio_tx *t;
253         int pos, len, i, estlen, aggr_num = 0, aggr_len;
254         u8 *buf;
255         unsigned long flags;
256
257         spin_lock_irqsave(&tx->lock, flags);
258
259         pos = TYPE_A_HEADER_SIZE + HCI_HEADER_SIZE;
260         list_for_each_entry(t, &tx->sdu_list, list) {
261                 estlen = ((t->len + 3) & ~3) + 4;
262                 if ((pos + estlen) > SDU_TX_BUF_SIZE)
263                         break;
264
265                 aggr_num++;
266                 memcpy(tx->sdu_buf + pos, t->buf, t->len);
267                 memset(tx->sdu_buf + pos + t->len, 0, estlen - t->len);
268                 pos += estlen;
269         }
270         aggr_len = pos;
271
272         hci = (struct hci_s *)(tx->sdu_buf + TYPE_A_HEADER_SIZE);
273         hci->cmd_evt = cpu_to_be16(WIMAX_TX_SDU_AGGR);
274         hci->length = cpu_to_be16(aggr_len - TYPE_A_HEADER_SIZE -
275                                   HCI_HEADER_SIZE);
276
277         spin_unlock_irqrestore(&tx->lock, flags);
278
279         dev_dbg(&func->dev, "sdio_send: %*ph\n", aggr_len - TYPE_A_HEADER_SIZE,
280                 tx->sdu_buf + TYPE_A_HEADER_SIZE);
281
282         for (pos = TYPE_A_HEADER_SIZE; pos < aggr_len; pos += TX_CHUNK_SIZE) {
283                 len = aggr_len - pos;
284                 len = len > TX_CHUNK_SIZE ? TX_CHUNK_SIZE : len;
285                 buf = tx->sdu_buf + pos - TYPE_A_HEADER_SIZE;
286
287                 buf[0] = len & 0xff;
288                 buf[1] = (len >> 8) & 0xff;
289                 buf[2] = (len >> 16) & 0xff;
290                 buf[3] = (pos + len) >= aggr_len ? 0 : 1;
291                 send_sdio_pkt(func, buf, len + TYPE_A_HEADER_SIZE);
292         }
293
294         spin_lock_irqsave(&tx->lock, flags);
295
296         for (l = tx->sdu_list.next, i = 0; i < aggr_num; i++, l = next) {
297                 next = l->next;
298                 t = list_entry(l, struct sdio_tx, list);
299                 if (t->callback)
300                         t->callback(t->cb_data);
301
302                 list_del(l);
303                 put_tx_struct(t->tx_cxt, t);
304         }
305
306         tx->sdu_stamp = ktime_get();
307         spin_unlock_irqrestore(&tx->lock, flags);
308 }
309
310 static void send_hci(struct sdio_func *func, struct tx_cxt *tx,
311                      struct sdio_tx *t)
312 {
313         unsigned long flags;
314
315         dev_dbg(&func->dev, "sdio_send: %*ph\n", t->len - TYPE_A_HEADER_SIZE,
316                 t->buf + TYPE_A_HEADER_SIZE);
317
318         send_sdio_pkt(func, t->buf, t->len);
319
320         spin_lock_irqsave(&tx->lock, flags);
321         if (t->callback)
322                 t->callback(t->cb_data);
323         free_tx_struct(t);
324         spin_unlock_irqrestore(&tx->lock, flags);
325 }
326
327 static void do_tx(struct work_struct *work)
328 {
329         struct sdiowm_dev *sdev = container_of(work, struct sdiowm_dev, ws);
330         struct sdio_func *func = sdev->func;
331         struct tx_cxt *tx = &sdev->tx;
332         struct sdio_tx *t = NULL;
333         ktime_t now, before;
334         int is_sdu = 0;
335         long diff;
336         unsigned long flags;
337
338         spin_lock_irqsave(&tx->lock, flags);
339         if (!tx->can_send) {
340                 spin_unlock_irqrestore(&tx->lock, flags);
341                 return;
342         }
343
344         if (!list_empty(&tx->hci_list)) {
345                 t = list_entry(tx->hci_list.next, struct sdio_tx, list);
346                 list_del(&t->list);
347                 is_sdu = 0;
348         } else if (!tx->stop_sdu_tx && !list_empty(&tx->sdu_list)) {
349                 now = ktime_get();
350                 before = tx->sdu_stamp;
351
352                 diff = ktime_to_ns(ktime_sub(now, before));
353                 if (diff >= 0 && diff < TX_INTERVAL) {
354                         schedule_work(&sdev->ws);
355                         spin_unlock_irqrestore(&tx->lock, flags);
356                         return;
357                 }
358                 is_sdu = 1;
359         }
360
361         if (!is_sdu && !t) {
362                 spin_unlock_irqrestore(&tx->lock, flags);
363                 return;
364         }
365
366         tx->can_send = 0;
367
368         spin_unlock_irqrestore(&tx->lock, flags);
369
370         if (is_sdu)
371                 send_sdu(func, tx);
372         else
373                 send_hci(func, tx, t);
374 }
375
376 static int gdm_sdio_send(void *priv_dev, void *data, int len,
377                          void (*cb)(void *data), void *cb_data)
378 {
379         struct sdiowm_dev *sdev = priv_dev;
380         struct tx_cxt *tx = &sdev->tx;
381         struct sdio_tx *t;
382         u8 *pkt = data;
383         int no_spc = 0;
384         u16 cmd_evt;
385         unsigned long flags;
386
387         if (len > TX_BUF_SIZE - TYPE_A_HEADER_SIZE)
388                 return -EINVAL;
389
390         spin_lock_irqsave(&tx->lock, flags);
391
392         cmd_evt = (pkt[0] << 8) | pkt[1];
393         if (cmd_evt == WIMAX_TX_SDU) {
394                 t = get_tx_struct(tx, &no_spc);
395                 if (!t) {
396                         /* This case must not happen. */
397                         spin_unlock_irqrestore(&tx->lock, flags);
398                         return -ENOSPC;
399                 }
400                 list_add_tail(&t->list, &tx->sdu_list);
401
402                 memcpy(t->buf, data, len);
403
404                 t->len = len;
405                 t->callback = cb;
406                 t->cb_data = cb_data;
407         } else {
408                 t = alloc_tx_struct(tx);
409                 if (!t) {
410                         spin_unlock_irqrestore(&tx->lock, flags);
411                         return -ENOMEM;
412                 }
413                 list_add_tail(&t->list, &tx->hci_list);
414
415                 t->buf[0] = len & 0xff;
416                 t->buf[1] = (len >> 8) & 0xff;
417                 t->buf[2] = (len >> 16) & 0xff;
418                 t->buf[3] = 2;
419                 memcpy(t->buf + TYPE_A_HEADER_SIZE, data, len);
420
421                 t->len = len + TYPE_A_HEADER_SIZE;
422                 t->callback = cb;
423                 t->cb_data = cb_data;
424         }
425
426         if (tx->can_send)
427                 schedule_work(&sdev->ws);
428
429         spin_unlock_irqrestore(&tx->lock, flags);
430
431         if (no_spc)
432                 return -ENOSPC;
433
434         return 0;
435 }
436
437 /* Handle the HCI, WIMAX_SDU_TX_FLOW. */
438 static int control_sdu_tx_flow(struct sdiowm_dev *sdev, u8 *hci_data, int len)
439 {
440         struct tx_cxt *tx = &sdev->tx;
441         u16 cmd_evt;
442         unsigned long flags;
443
444         spin_lock_irqsave(&tx->lock, flags);
445
446         cmd_evt = (hci_data[0] << 8) | (hci_data[1]);
447         if (cmd_evt != WIMAX_SDU_TX_FLOW)
448                 goto out;
449
450         if (hci_data[4] == 0) {
451                 dev_dbg(&sdev->func->dev, "WIMAX ==> STOP SDU TX\n");
452                 tx->stop_sdu_tx = 1;
453         } else if (hci_data[4] == 1) {
454                 dev_dbg(&sdev->func->dev, "WIMAX ==> START SDU TX\n");
455                 tx->stop_sdu_tx = 0;
456                 if (tx->can_send)
457                         schedule_work(&sdev->ws);
458                 /* If free buffer for sdu tx doesn't exist, then tx queue
459                  * should not be woken. For this reason, don't pass the command,
460                  * START_SDU_TX.
461                  */
462                 if (list_empty(&tx->free_list))
463                         len = 0;
464         }
465
466 out:
467         spin_unlock_irqrestore(&tx->lock, flags);
468         return len;
469 }
470
471 static void gdm_sdio_irq(struct sdio_func *func)
472 {
473         struct phy_dev *phy_dev = sdio_get_drvdata(func);
474         struct sdiowm_dev *sdev = phy_dev->priv_dev;
475         struct tx_cxt *tx = &sdev->tx;
476         struct rx_cxt *rx = &sdev->rx;
477         struct sdio_rx *r;
478         unsigned long flags;
479         u8 val, hdr[TYPE_A_LOOKAHEAD_SIZE], *buf;
480         u32 len, blocks, n;
481         int ret, remain;
482
483         /* Check interrupt */
484         val = sdio_readb(func, 0x13, &ret);
485         if (val & 0x01)
486                 sdio_writeb(func, 0x01, 0x13, &ret);    /* clear interrupt */
487         else
488                 return;
489
490         ret = sdio_memcpy_fromio(func, hdr, 0x0, TYPE_A_LOOKAHEAD_SIZE);
491         if (ret) {
492                 dev_err(&func->dev,
493                         "Cannot read from function %d\n", func->num);
494                 goto done;
495         }
496
497         len = (hdr[2] << 16) | (hdr[1] << 8) | hdr[0];
498         if (len > (RX_BUF_SIZE - TYPE_A_HEADER_SIZE)) {
499                 dev_err(&func->dev, "Too big Type-A size: %d\n", len);
500                 goto done;
501         }
502
503         if (hdr[3] == 1) {      /* Ack */
504                 u32 *ack_seq = (u32 *)&hdr[4];
505
506                 spin_lock_irqsave(&tx->lock, flags);
507                 tx->can_send = 1;
508
509                 if (!list_empty(&tx->sdu_list) || !list_empty(&tx->hci_list))
510                         schedule_work(&sdev->ws);
511                 spin_unlock_irqrestore(&tx->lock, flags);
512                 dev_dbg(&func->dev, "Ack... %0x\n", ntohl(*ack_seq));
513                 goto done;
514         }
515
516         memcpy(rx->rx_buf, hdr + TYPE_A_HEADER_SIZE,
517                TYPE_A_LOOKAHEAD_SIZE - TYPE_A_HEADER_SIZE);
518
519         buf = rx->rx_buf + TYPE_A_LOOKAHEAD_SIZE - TYPE_A_HEADER_SIZE;
520         remain = len - TYPE_A_LOOKAHEAD_SIZE + TYPE_A_HEADER_SIZE;
521         if (remain <= 0)
522                 goto end_io;
523
524         blocks = remain / func->cur_blksize;
525
526         if (blocks) {
527                 n = blocks * func->cur_blksize;
528                 ret = sdio_memcpy_fromio(func, buf, 0x0, n);
529                 if (ret) {
530                         dev_err(&func->dev,
531                                 "Cannot read from function %d\n", func->num);
532                         goto done;
533                 }
534                 buf += n;
535                 remain -= n;
536         }
537
538         if (remain) {
539                 ret = sdio_memcpy_fromio(func, buf, 0x0, remain);
540                 if (ret) {
541                         dev_err(&func->dev,
542                                 "Cannot read from function %d\n", func->num);
543                         goto done;
544                 }
545         }
546
547 end_io:
548         dev_dbg(&func->dev, "sdio_receive: %*ph\n", len, rx->rx_buf);
549
550         len = control_sdu_tx_flow(sdev, rx->rx_buf, len);
551
552         spin_lock_irqsave(&rx->lock, flags);
553
554         if (!list_empty(&rx->req_list)) {
555                 r = list_entry(rx->req_list.next, struct sdio_rx, list);
556                 spin_unlock_irqrestore(&rx->lock, flags);
557                 if (r->callback)
558                         r->callback(r->cb_data, rx->rx_buf, len);
559                 spin_lock_irqsave(&rx->lock, flags);
560                 list_del(&r->list);
561                 put_rx_struct(rx, r);
562         }
563
564         spin_unlock_irqrestore(&rx->lock, flags);
565
566 done:
567         sdio_writeb(func, 0x00, 0x10, &ret);    /* PCRRT */
568         if (!phy_dev->netdev)
569                 register_wimax_device(phy_dev, &func->dev);
570 }
571
572 static int gdm_sdio_receive(void *priv_dev,
573                             void (*cb)(void *cb_data, void *data, int len),
574                             void *cb_data)
575 {
576         struct sdiowm_dev *sdev = priv_dev;
577         struct rx_cxt *rx = &sdev->rx;
578         struct sdio_rx *r;
579         unsigned long flags;
580
581         spin_lock_irqsave(&rx->lock, flags);
582         r = get_rx_struct(rx);
583         if (!r) {
584                 spin_unlock_irqrestore(&rx->lock, flags);
585                 return -ENOMEM;
586         }
587
588         r->callback = cb;
589         r->cb_data = cb_data;
590
591         list_add_tail(&r->list, &rx->req_list);
592         spin_unlock_irqrestore(&rx->lock, flags);
593
594         return 0;
595 }
596
597 static int sdio_wimax_probe(struct sdio_func *func,
598                             const struct sdio_device_id *id)
599 {
600         int ret;
601         struct phy_dev *phy_dev = NULL;
602         struct sdiowm_dev *sdev = NULL;
603
604         dev_info(&func->dev, "Found GDM SDIO VID = 0x%04x PID = 0x%04x...\n",
605                  func->vendor, func->device);
606         dev_info(&func->dev, "GCT WiMax driver version %s\n", DRIVER_VERSION);
607
608         sdio_claim_host(func);
609         sdio_enable_func(func);
610         sdio_claim_irq(func, gdm_sdio_irq);
611
612         ret = sdio_boot(func);
613         if (ret)
614                 return ret;
615
616         phy_dev = kzalloc(sizeof(*phy_dev), GFP_KERNEL);
617         if (!phy_dev) {
618                 ret = -ENOMEM;
619                 goto out;
620         }
621         sdev = kzalloc(sizeof(*sdev), GFP_KERNEL);
622         if (!sdev) {
623                 ret = -ENOMEM;
624                 goto out;
625         }
626
627         phy_dev->priv_dev = (void *)sdev;
628         phy_dev->send_func = gdm_sdio_send;
629         phy_dev->rcv_func = gdm_sdio_receive;
630
631         ret = init_sdio(sdev);
632         if (ret < 0)
633                 goto out;
634
635         sdev->func = func;
636
637         sdio_writeb(func, 1, 0x14, &ret);       /* Enable interrupt */
638         sdio_release_host(func);
639
640         INIT_WORK(&sdev->ws, do_tx);
641
642         sdio_set_drvdata(func, phy_dev);
643 out:
644         if (ret) {
645                 kfree(phy_dev);
646                 kfree(sdev);
647         }
648
649         return ret;
650 }
651
652 static void sdio_wimax_remove(struct sdio_func *func)
653 {
654         struct phy_dev *phy_dev = sdio_get_drvdata(func);
655         struct sdiowm_dev *sdev = phy_dev->priv_dev;
656
657         cancel_work_sync(&sdev->ws);
658         if (phy_dev->netdev)
659                 unregister_wimax_device(phy_dev);
660         sdio_claim_host(func);
661         sdio_release_irq(func);
662         sdio_disable_func(func);
663         sdio_release_host(func);
664         release_sdio(sdev);
665
666         kfree(sdev);
667         kfree(phy_dev);
668 }
669
670 static const struct sdio_device_id sdio_wimax_ids[] = {
671         { SDIO_DEVICE(0x0296, 0x5347) },
672         {0}
673 };
674
675 MODULE_DEVICE_TABLE(sdio, sdio_wimax_ids);
676
677 static struct sdio_driver sdio_wimax_driver = {
678         .probe          = sdio_wimax_probe,
679         .remove         = sdio_wimax_remove,
680         .name           = "sdio_wimax",
681         .id_table       = sdio_wimax_ids,
682 };
683
684 static int __init sdio_gdm_wimax_init(void)
685 {
686         return sdio_register_driver(&sdio_wimax_driver);
687 }
688
689 static void __exit sdio_gdm_wimax_exit(void)
690 {
691         sdio_unregister_driver(&sdio_wimax_driver);
692 }
693
694 module_init(sdio_gdm_wimax_init);
695 module_exit(sdio_gdm_wimax_exit);
696
697 MODULE_VERSION(DRIVER_VERSION);
698 MODULE_DESCRIPTION("GCT WiMax SDIO Device Driver");
699 MODULE_AUTHOR("Ethan Park");
700 MODULE_LICENSE("GPL");