blob: f2e02d7d9f3d45555356a54aecb5e5ec3228472d [file] [log] [blame]
Linus Torvalds1da177e2005-04-16 15:20:36 -07001/*
Pierre Ossman70f10482007-07-11 20:04:50 +02002 * linux/drivers/mmc/host/mmci.c - ARM PrimeCell MMCI PL180/1 driver
Linus Torvalds1da177e2005-04-16 15:20:36 -07003 *
4 * Copyright (C) 2003 Deep Blue Solutions, Ltd, All Rights Reserved.
Linus Walleij64de0282010-02-19 01:09:10 +01005 * Copyright (C) 2010 ST-Ericsson AB.
Linus Torvalds1da177e2005-04-16 15:20:36 -07006 *
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 */
Linus Torvalds1da177e2005-04-16 15:20:36 -070011#include <linux/module.h>
12#include <linux/moduleparam.h>
13#include <linux/init.h>
14#include <linux/ioport.h>
15#include <linux/device.h>
16#include <linux/interrupt.h>
17#include <linux/delay.h>
18#include <linux/err.h>
19#include <linux/highmem.h>
Nicolas Pitre019a5f52007-10-11 01:06:03 -040020#include <linux/log2.h>
Linus Torvalds1da177e2005-04-16 15:20:36 -070021#include <linux/mmc/host.h>
Russell Kinga62c80e2006-01-07 13:52:45 +000022#include <linux/amba/bus.h>
Russell Kingf8ce2542006-01-07 16:15:52 +000023#include <linux/clk.h>
Jens Axboebd6dee62007-10-24 09:01:09 +020024#include <linux/scatterlist.h>
Russell King89001442009-07-09 15:16:07 +010025#include <linux/gpio.h>
Linus Walleij6ef297f2009-09-22 14:29:36 +010026#include <linux/amba/mmci.h>
Linus Walleij34e84f32009-09-22 14:41:40 +010027#include <linux/regulator/consumer.h>
Linus Torvalds1da177e2005-04-16 15:20:36 -070028
Russell King7b09cda2005-07-01 12:02:59 +010029#include <asm/div64.h>
Linus Torvalds1da177e2005-04-16 15:20:36 -070030#include <asm/io.h>
Russell Kingc6b8fda2005-10-28 14:05:16 +010031#include <asm/sizes.h>
Linus Torvalds1da177e2005-04-16 15:20:36 -070032
33#include "mmci.h"
34
35#define DRIVER_NAME "mmci-pl18x"
36
Linus Torvalds1da177e2005-04-16 15:20:36 -070037static unsigned int fmax = 515633;
38
Rabin Vincent4956e102010-07-21 12:54:40 +010039/**
40 * struct variant_data - MMCI variant-specific quirks
41 * @clkreg: default value for MCICLOCK register
Rabin Vincent4380c142010-07-21 12:55:18 +010042 * @clkreg_enable: enable value for MMCICLOCK register
Rabin Vincent08458ef2010-07-21 12:55:59 +010043 * @datalength_bits: number of bits in the MMCIDATALENGTH register
Rabin Vincent8301bb62010-08-09 12:57:30 +010044 * @fifosize: number of bytes that can be written when MMCI_TXFIFOEMPTY
45 * is asserted (likewise for RX)
46 * @fifohalfsize: number of bytes that can be written when MCI_TXFIFOHALFEMPTY
47 * is asserted (likewise for RX)
Rabin Vincent4956e102010-07-21 12:54:40 +010048 */
49struct variant_data {
50 unsigned int clkreg;
Rabin Vincent4380c142010-07-21 12:55:18 +010051 unsigned int clkreg_enable;
Rabin Vincent08458ef2010-07-21 12:55:59 +010052 unsigned int datalength_bits;
Rabin Vincent8301bb62010-08-09 12:57:30 +010053 unsigned int fifosize;
54 unsigned int fifohalfsize;
Rabin Vincent4956e102010-07-21 12:54:40 +010055};
56
57static struct variant_data variant_arm = {
Rabin Vincent8301bb62010-08-09 12:57:30 +010058 .fifosize = 16 * 4,
59 .fifohalfsize = 8 * 4,
Rabin Vincent08458ef2010-07-21 12:55:59 +010060 .datalength_bits = 16,
Rabin Vincent4956e102010-07-21 12:54:40 +010061};
62
63static struct variant_data variant_u300 = {
Rabin Vincent8301bb62010-08-09 12:57:30 +010064 .fifosize = 16 * 4,
65 .fifohalfsize = 8 * 4,
Rabin Vincent4380c142010-07-21 12:55:18 +010066 .clkreg_enable = 1 << 13, /* HWFCEN */
Rabin Vincent08458ef2010-07-21 12:55:59 +010067 .datalength_bits = 16,
Rabin Vincent4956e102010-07-21 12:54:40 +010068};
69
70static struct variant_data variant_ux500 = {
Rabin Vincent8301bb62010-08-09 12:57:30 +010071 .fifosize = 30 * 4,
72 .fifohalfsize = 8 * 4,
Rabin Vincent4956e102010-07-21 12:54:40 +010073 .clkreg = MCI_CLK_ENABLE,
Rabin Vincent4380c142010-07-21 12:55:18 +010074 .clkreg_enable = 1 << 14, /* HWFCEN */
Rabin Vincent08458ef2010-07-21 12:55:59 +010075 .datalength_bits = 24,
Rabin Vincent4956e102010-07-21 12:54:40 +010076};
Linus Walleija6a64642009-09-14 12:56:14 +010077/*
78 * This must be called with host->lock held
79 */
80static void mmci_set_clkreg(struct mmci_host *host, unsigned int desired)
81{
Rabin Vincent4956e102010-07-21 12:54:40 +010082 struct variant_data *variant = host->variant;
83 u32 clk = variant->clkreg;
Linus Walleija6a64642009-09-14 12:56:14 +010084
85 if (desired) {
86 if (desired >= host->mclk) {
87 clk = MCI_CLK_BYPASS;
88 host->cclk = host->mclk;
89 } else {
90 clk = host->mclk / (2 * desired) - 1;
91 if (clk >= 256)
92 clk = 255;
93 host->cclk = host->mclk / (2 * (clk + 1));
94 }
Rabin Vincent4380c142010-07-21 12:55:18 +010095
96 clk |= variant->clkreg_enable;
Linus Walleija6a64642009-09-14 12:56:14 +010097 clk |= MCI_CLK_ENABLE;
98 /* This hasn't proven to be worthwhile */
99 /* clk |= MCI_CLK_PWRSAVE; */
100 }
101
Linus Walleij9e6c82c2009-09-14 12:57:11 +0100102 if (host->mmc->ios.bus_width == MMC_BUS_WIDTH_4)
Linus Walleij771dc152010-04-08 07:38:52 +0100103 clk |= MCI_4BIT_BUS;
104 if (host->mmc->ios.bus_width == MMC_BUS_WIDTH_8)
105 clk |= MCI_ST_8BIT_BUS;
Linus Walleij9e6c82c2009-09-14 12:57:11 +0100106
Linus Walleija6a64642009-09-14 12:56:14 +0100107 writel(clk, host->base + MMCICLOCK);
108}
109
Linus Torvalds1da177e2005-04-16 15:20:36 -0700110static void
111mmci_request_end(struct mmci_host *host, struct mmc_request *mrq)
112{
113 writel(0, host->base + MMCICOMMAND);
114
Russell Kinge47c2222007-01-08 16:42:51 +0000115 BUG_ON(host->data);
116
Linus Torvalds1da177e2005-04-16 15:20:36 -0700117 host->mrq = NULL;
118 host->cmd = NULL;
119
120 if (mrq->data)
121 mrq->data->bytes_xfered = host->data_xfered;
122
123 /*
124 * Need to drop the host lock here; mmc_request_done may call
125 * back into the driver...
126 */
127 spin_unlock(&host->lock);
128 mmc_request_done(host->mmc, mrq);
129 spin_lock(&host->lock);
130}
131
132static void mmci_stop_data(struct mmci_host *host)
133{
134 writel(0, host->base + MMCIDATACTRL);
135 writel(0, host->base + MMCIMASK1);
136 host->data = NULL;
137}
138
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100139static void mmci_init_sg(struct mmci_host *host, struct mmc_data *data)
140{
141 unsigned int flags = SG_MITER_ATOMIC;
142
143 if (data->flags & MMC_DATA_READ)
144 flags |= SG_MITER_TO_SG;
145 else
146 flags |= SG_MITER_FROM_SG;
147
148 sg_miter_start(&host->sg_miter, data->sg, data->sg_len, flags);
149}
150
Linus Torvalds1da177e2005-04-16 15:20:36 -0700151static void mmci_start_data(struct mmci_host *host, struct mmc_data *data)
152{
Rabin Vincent8301bb62010-08-09 12:57:30 +0100153 struct variant_data *variant = host->variant;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700154 unsigned int datactrl, timeout, irqmask;
Russell King7b09cda2005-07-01 12:02:59 +0100155 unsigned long long clks;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700156 void __iomem *base;
Russell King3bc87f22006-08-27 13:51:28 +0100157 int blksz_bits;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700158
Linus Walleij64de0282010-02-19 01:09:10 +0100159 dev_dbg(mmc_dev(host->mmc), "blksz %04x blks %04x flags %08x\n",
160 data->blksz, data->blocks, data->flags);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700161
162 host->data = data;
Rabin Vincent528320d2010-07-21 12:49:49 +0100163 host->size = data->blksz * data->blocks;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700164 host->data_xfered = 0;
165
166 mmci_init_sg(host, data);
167
Russell King7b09cda2005-07-01 12:02:59 +0100168 clks = (unsigned long long)data->timeout_ns * host->cclk;
169 do_div(clks, 1000000000UL);
170
171 timeout = data->timeout_clks + (unsigned int)clks;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700172
173 base = host->base;
174 writel(timeout, base + MMCIDATATIMER);
175 writel(host->size, base + MMCIDATALENGTH);
176
Russell King3bc87f22006-08-27 13:51:28 +0100177 blksz_bits = ffs(data->blksz) - 1;
178 BUG_ON(1 << blksz_bits != data->blksz);
179
180 datactrl = MCI_DPSM_ENABLE | blksz_bits << 4;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700181 if (data->flags & MMC_DATA_READ) {
182 datactrl |= MCI_DPSM_DIRECTION;
183 irqmask = MCI_RXFIFOHALFFULLMASK;
Russell King0425a142006-02-16 16:48:31 +0000184
185 /*
186 * If we have less than a FIFOSIZE of bytes to transfer,
187 * trigger a PIO interrupt as soon as any data is available.
188 */
Rabin Vincent8301bb62010-08-09 12:57:30 +0100189 if (host->size < variant->fifosize)
Russell King0425a142006-02-16 16:48:31 +0000190 irqmask |= MCI_RXDATAAVLBLMASK;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700191 } else {
192 /*
193 * We don't actually need to include "FIFO empty" here
194 * since its implicit in "FIFO half empty".
195 */
196 irqmask = MCI_TXFIFOHALFEMPTYMASK;
197 }
198
199 writel(datactrl, base + MMCIDATACTRL);
200 writel(readl(base + MMCIMASK0) & ~MCI_DATAENDMASK, base + MMCIMASK0);
201 writel(irqmask, base + MMCIMASK1);
202}
203
204static void
205mmci_start_command(struct mmci_host *host, struct mmc_command *cmd, u32 c)
206{
207 void __iomem *base = host->base;
208
Linus Walleij64de0282010-02-19 01:09:10 +0100209 dev_dbg(mmc_dev(host->mmc), "op %02x arg %08x flags %08x\n",
Linus Torvalds1da177e2005-04-16 15:20:36 -0700210 cmd->opcode, cmd->arg, cmd->flags);
211
212 if (readl(base + MMCICOMMAND) & MCI_CPSM_ENABLE) {
213 writel(0, base + MMCICOMMAND);
214 udelay(1);
215 }
216
217 c |= cmd->opcode | MCI_CPSM_ENABLE;
Russell Kinge9225172006-02-02 12:23:12 +0000218 if (cmd->flags & MMC_RSP_PRESENT) {
219 if (cmd->flags & MMC_RSP_136)
220 c |= MCI_CPSM_LONGRSP;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700221 c |= MCI_CPSM_RESPONSE;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700222 }
223 if (/*interrupt*/0)
224 c |= MCI_CPSM_INTERRUPT;
225
226 host->cmd = cmd;
227
228 writel(cmd->arg, base + MMCIARGUMENT);
229 writel(c, base + MMCICOMMAND);
230}
231
232static void
233mmci_data_irq(struct mmci_host *host, struct mmc_data *data,
234 unsigned int status)
235{
236 if (status & MCI_DATABLOCKEND) {
Russell King3bc87f22006-08-27 13:51:28 +0100237 host->data_xfered += data->blksz;
Linus Walleijf28e8a42010-01-25 07:14:46 +0100238#ifdef CONFIG_ARCH_U300
239 /*
240 * On the U300 some signal or other is
241 * badly routed so that a data write does
242 * not properly terminate with a MCI_DATAEND
243 * status flag. This quirk will make writes
244 * work again.
245 */
246 if (data->flags & MMC_DATA_WRITE)
247 status |= MCI_DATAEND;
248#endif
Linus Torvalds1da177e2005-04-16 15:20:36 -0700249 }
250 if (status & (MCI_DATACRCFAIL|MCI_DATATIMEOUT|MCI_TXUNDERRUN|MCI_RXOVERRUN)) {
Linus Walleij64de0282010-02-19 01:09:10 +0100251 dev_dbg(mmc_dev(host->mmc), "MCI ERROR IRQ (status %08x)\n", status);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700252 if (status & MCI_DATACRCFAIL)
Pierre Ossman17b04292007-07-22 22:18:46 +0200253 data->error = -EILSEQ;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700254 else if (status & MCI_DATATIMEOUT)
Pierre Ossman17b04292007-07-22 22:18:46 +0200255 data->error = -ETIMEDOUT;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700256 else if (status & (MCI_TXUNDERRUN|MCI_RXOVERRUN))
Pierre Ossman17b04292007-07-22 22:18:46 +0200257 data->error = -EIO;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700258 status |= MCI_DATAEND;
Russell Kinge9c091b2006-01-04 16:24:05 +0000259
260 /*
261 * We hit an error condition. Ensure that any data
262 * partially written to a page is properly coherent.
263 */
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100264 if (data->flags & MMC_DATA_READ) {
265 struct sg_mapping_iter *sg_miter = &host->sg_miter;
266 unsigned long flags;
267
268 local_irq_save(flags);
269 if (sg_miter_next(sg_miter)) {
270 flush_dcache_page(sg_miter->page);
271 sg_miter_stop(sg_miter);
272 }
273 local_irq_restore(flags);
274 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700275 }
276 if (status & MCI_DATAEND) {
277 mmci_stop_data(host);
278
279 if (!data->stop) {
280 mmci_request_end(host, data->mrq);
281 } else {
282 mmci_start_command(host, data->stop, 0);
283 }
284 }
285}
286
287static void
288mmci_cmd_irq(struct mmci_host *host, struct mmc_command *cmd,
289 unsigned int status)
290{
291 void __iomem *base = host->base;
292
293 host->cmd = NULL;
294
295 cmd->resp[0] = readl(base + MMCIRESPONSE0);
296 cmd->resp[1] = readl(base + MMCIRESPONSE1);
297 cmd->resp[2] = readl(base + MMCIRESPONSE2);
298 cmd->resp[3] = readl(base + MMCIRESPONSE3);
299
300 if (status & MCI_CMDTIMEOUT) {
Pierre Ossman17b04292007-07-22 22:18:46 +0200301 cmd->error = -ETIMEDOUT;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700302 } else if (status & MCI_CMDCRCFAIL && cmd->flags & MMC_RSP_CRC) {
Pierre Ossman17b04292007-07-22 22:18:46 +0200303 cmd->error = -EILSEQ;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700304 }
305
Pierre Ossman17b04292007-07-22 22:18:46 +0200306 if (!cmd->data || cmd->error) {
Russell Kinge47c2222007-01-08 16:42:51 +0000307 if (host->data)
308 mmci_stop_data(host);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700309 mmci_request_end(host, cmd->mrq);
310 } else if (!(cmd->data->flags & MMC_DATA_READ)) {
311 mmci_start_data(host, cmd->data);
312 }
313}
314
315static int mmci_pio_read(struct mmci_host *host, char *buffer, unsigned int remain)
316{
317 void __iomem *base = host->base;
318 char *ptr = buffer;
319 u32 status;
Linus Walleij26eed9a2008-04-26 23:39:44 +0100320 int host_remain = host->size;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700321
322 do {
Linus Walleij26eed9a2008-04-26 23:39:44 +0100323 int count = host_remain - (readl(base + MMCIFIFOCNT) << 2);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700324
325 if (count > remain)
326 count = remain;
327
328 if (count <= 0)
329 break;
330
331 readsl(base + MMCIFIFO, ptr, count >> 2);
332
333 ptr += count;
334 remain -= count;
Linus Walleij26eed9a2008-04-26 23:39:44 +0100335 host_remain -= count;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700336
337 if (remain == 0)
338 break;
339
340 status = readl(base + MMCISTATUS);
341 } while (status & MCI_RXDATAAVLBL);
342
343 return ptr - buffer;
344}
345
346static int mmci_pio_write(struct mmci_host *host, char *buffer, unsigned int remain, u32 status)
347{
Rabin Vincent8301bb62010-08-09 12:57:30 +0100348 struct variant_data *variant = host->variant;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700349 void __iomem *base = host->base;
350 char *ptr = buffer;
351
352 do {
353 unsigned int count, maxcnt;
354
Rabin Vincent8301bb62010-08-09 12:57:30 +0100355 maxcnt = status & MCI_TXFIFOEMPTY ?
356 variant->fifosize : variant->fifohalfsize;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700357 count = min(remain, maxcnt);
358
359 writesl(base + MMCIFIFO, ptr, count >> 2);
360
361 ptr += count;
362 remain -= count;
363
364 if (remain == 0)
365 break;
366
367 status = readl(base + MMCISTATUS);
368 } while (status & MCI_TXFIFOHALFEMPTY);
369
370 return ptr - buffer;
371}
372
373/*
374 * PIO data transfer IRQ handler.
375 */
David Howells7d12e782006-10-05 14:55:46 +0100376static irqreturn_t mmci_pio_irq(int irq, void *dev_id)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700377{
378 struct mmci_host *host = dev_id;
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100379 struct sg_mapping_iter *sg_miter = &host->sg_miter;
Rabin Vincent8301bb62010-08-09 12:57:30 +0100380 struct variant_data *variant = host->variant;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700381 void __iomem *base = host->base;
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100382 unsigned long flags;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700383 u32 status;
384
385 status = readl(base + MMCISTATUS);
386
Linus Walleij64de0282010-02-19 01:09:10 +0100387 dev_dbg(mmc_dev(host->mmc), "irq1 (pio) %08x\n", status);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700388
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100389 local_irq_save(flags);
390
Linus Torvalds1da177e2005-04-16 15:20:36 -0700391 do {
Linus Torvalds1da177e2005-04-16 15:20:36 -0700392 unsigned int remain, len;
393 char *buffer;
394
395 /*
396 * For write, we only need to test the half-empty flag
397 * here - if the FIFO is completely empty, then by
398 * definition it is more than half empty.
399 *
400 * For read, check for data available.
401 */
402 if (!(status & (MCI_TXFIFOHALFEMPTY|MCI_RXDATAAVLBL)))
403 break;
404
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100405 if (!sg_miter_next(sg_miter))
406 break;
407
408 buffer = sg_miter->addr;
409 remain = sg_miter->length;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700410
411 len = 0;
412 if (status & MCI_RXACTIVE)
413 len = mmci_pio_read(host, buffer, remain);
414 if (status & MCI_TXACTIVE)
415 len = mmci_pio_write(host, buffer, remain, status);
416
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100417 sg_miter->consumed = len;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700418
Linus Torvalds1da177e2005-04-16 15:20:36 -0700419 host->size -= len;
420 remain -= len;
421
422 if (remain)
423 break;
424
Russell Kinge9c091b2006-01-04 16:24:05 +0000425 if (status & MCI_RXACTIVE)
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100426 flush_dcache_page(sg_miter->page);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700427
428 status = readl(base + MMCISTATUS);
429 } while (1);
430
Rabin Vincent4ce1d6c2010-07-21 12:44:58 +0100431 sg_miter_stop(sg_miter);
432
433 local_irq_restore(flags);
434
Linus Torvalds1da177e2005-04-16 15:20:36 -0700435 /*
436 * If we're nearing the end of the read, switch to
437 * "any data available" mode.
438 */
Rabin Vincent8301bb62010-08-09 12:57:30 +0100439 if (status & MCI_RXACTIVE && host->size < variant->fifosize)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700440 writel(MCI_RXDATAAVLBLMASK, base + MMCIMASK1);
441
442 /*
443 * If we run out of data, disable the data IRQs; this
444 * prevents a race where the FIFO becomes empty before
445 * the chip itself has disabled the data path, and
446 * stops us racing with our data end IRQ.
447 */
448 if (host->size == 0) {
449 writel(0, base + MMCIMASK1);
450 writel(readl(base + MMCIMASK0) | MCI_DATAENDMASK, base + MMCIMASK0);
451 }
452
453 return IRQ_HANDLED;
454}
455
456/*
457 * Handle completion of command and data transfers.
458 */
David Howells7d12e782006-10-05 14:55:46 +0100459static irqreturn_t mmci_irq(int irq, void *dev_id)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700460{
461 struct mmci_host *host = dev_id;
462 u32 status;
463 int ret = 0;
464
465 spin_lock(&host->lock);
466
467 do {
468 struct mmc_command *cmd;
469 struct mmc_data *data;
470
471 status = readl(host->base + MMCISTATUS);
472 status &= readl(host->base + MMCIMASK0);
473 writel(status, host->base + MMCICLEAR);
474
Linus Walleij64de0282010-02-19 01:09:10 +0100475 dev_dbg(mmc_dev(host->mmc), "irq0 (data+cmd) %08x\n", status);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700476
477 data = host->data;
478 if (status & (MCI_DATACRCFAIL|MCI_DATATIMEOUT|MCI_TXUNDERRUN|
479 MCI_RXOVERRUN|MCI_DATAEND|MCI_DATABLOCKEND) && data)
480 mmci_data_irq(host, data, status);
481
482 cmd = host->cmd;
483 if (status & (MCI_CMDCRCFAIL|MCI_CMDTIMEOUT|MCI_CMDSENT|MCI_CMDRESPEND) && cmd)
484 mmci_cmd_irq(host, cmd, status);
485
486 ret = 1;
487 } while (status);
488
489 spin_unlock(&host->lock);
490
491 return IRQ_RETVAL(ret);
492}
493
494static void mmci_request(struct mmc_host *mmc, struct mmc_request *mrq)
495{
496 struct mmci_host *host = mmc_priv(mmc);
Linus Walleij9e943022008-10-24 21:17:50 +0100497 unsigned long flags;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700498
499 WARN_ON(host->mrq != NULL);
500
Nicolas Pitre019a5f52007-10-11 01:06:03 -0400501 if (mrq->data && !is_power_of_2(mrq->data->blksz)) {
Linus Walleij64de0282010-02-19 01:09:10 +0100502 dev_err(mmc_dev(mmc), "unsupported block size (%d bytes)\n",
503 mrq->data->blksz);
Pierre Ossman255d01a2007-07-24 20:38:53 +0200504 mrq->cmd->error = -EINVAL;
505 mmc_request_done(mmc, mrq);
506 return;
507 }
508
Linus Walleij9e943022008-10-24 21:17:50 +0100509 spin_lock_irqsave(&host->lock, flags);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700510
511 host->mrq = mrq;
512
513 if (mrq->data && mrq->data->flags & MMC_DATA_READ)
514 mmci_start_data(host, mrq->data);
515
516 mmci_start_command(host, mrq->cmd, 0);
517
Linus Walleij9e943022008-10-24 21:17:50 +0100518 spin_unlock_irqrestore(&host->lock, flags);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700519}
520
521static void mmci_set_ios(struct mmc_host *mmc, struct mmc_ios *ios)
522{
523 struct mmci_host *host = mmc_priv(mmc);
Linus Walleija6a64642009-09-14 12:56:14 +0100524 u32 pwr = 0;
525 unsigned long flags;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700526
Linus Torvalds1da177e2005-04-16 15:20:36 -0700527 switch (ios->power_mode) {
528 case MMC_POWER_OFF:
Linus Walleij34e84f32009-09-22 14:41:40 +0100529 if(host->vcc &&
530 regulator_is_enabled(host->vcc))
531 regulator_disable(host->vcc);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700532 break;
533 case MMC_POWER_UP:
Linus Walleij34e84f32009-09-22 14:41:40 +0100534#ifdef CONFIG_REGULATOR
535 if (host->vcc)
536 /* This implicitly enables the regulator */
537 mmc_regulator_set_ocr(host->vcc, ios->vdd);
538#endif
Rabin Vincentbb8f5632010-07-21 12:53:57 +0100539 if (host->plat->vdd_handler)
540 pwr |= host->plat->vdd_handler(mmc_dev(mmc), ios->vdd,
541 ios->power_mode);
Linus Walleijcc30d602009-01-04 15:18:54 +0100542 /* The ST version does not have this, fall through to POWER_ON */
Linus Walleijf17a1f02009-08-04 01:01:02 +0100543 if (host->hw_designer != AMBA_VENDOR_ST) {
Linus Walleijcc30d602009-01-04 15:18:54 +0100544 pwr |= MCI_PWR_UP;
545 break;
546 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700547 case MMC_POWER_ON:
548 pwr |= MCI_PWR_ON;
549 break;
550 }
551
Linus Walleijcc30d602009-01-04 15:18:54 +0100552 if (ios->bus_mode == MMC_BUSMODE_OPENDRAIN) {
Linus Walleijf17a1f02009-08-04 01:01:02 +0100553 if (host->hw_designer != AMBA_VENDOR_ST)
Linus Walleijcc30d602009-01-04 15:18:54 +0100554 pwr |= MCI_ROD;
555 else {
556 /*
557 * The ST Micro variant use the ROD bit for something
558 * else and only has OD (Open Drain).
559 */
560 pwr |= MCI_OD;
561 }
562 }
Linus Torvalds1da177e2005-04-16 15:20:36 -0700563
Linus Walleija6a64642009-09-14 12:56:14 +0100564 spin_lock_irqsave(&host->lock, flags);
565
566 mmci_set_clkreg(host, ios->clock);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700567
568 if (host->pwr != pwr) {
569 host->pwr = pwr;
570 writel(pwr, host->base + MMCIPOWER);
571 }
Linus Walleija6a64642009-09-14 12:56:14 +0100572
573 spin_unlock_irqrestore(&host->lock, flags);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700574}
575
Russell King89001442009-07-09 15:16:07 +0100576static int mmci_get_ro(struct mmc_host *mmc)
577{
578 struct mmci_host *host = mmc_priv(mmc);
579
580 if (host->gpio_wp == -ENOSYS)
581 return -ENOSYS;
582
Linus Walleij18a06302010-09-12 12:56:44 +0100583 return gpio_get_value_cansleep(host->gpio_wp);
Russell King89001442009-07-09 15:16:07 +0100584}
585
586static int mmci_get_cd(struct mmc_host *mmc)
587{
588 struct mmci_host *host = mmc_priv(mmc);
Rabin Vincent29719442010-08-09 12:54:43 +0100589 struct mmci_platform_data *plat = host->plat;
Russell King89001442009-07-09 15:16:07 +0100590 unsigned int status;
591
Rabin Vincent4b8caec2010-08-09 12:56:40 +0100592 if (host->gpio_cd == -ENOSYS) {
593 if (!plat->status)
594 return 1; /* Assume always present */
595
Rabin Vincent29719442010-08-09 12:54:43 +0100596 status = plat->status(mmc_dev(host->mmc));
Rabin Vincent4b8caec2010-08-09 12:56:40 +0100597 } else
Linus Walleij18a06302010-09-12 12:56:44 +0100598 status = !!gpio_get_value_cansleep(host->gpio_cd)
599 ^ plat->cd_invert;
Russell King89001442009-07-09 15:16:07 +0100600
Russell King74bc8092010-07-29 15:58:59 +0100601 /*
602 * Use positive logic throughout - status is zero for no card,
603 * non-zero for card inserted.
604 */
605 return status;
Russell King89001442009-07-09 15:16:07 +0100606}
607
Rabin Vincent148b8b32010-08-09 12:55:48 +0100608static irqreturn_t mmci_cd_irq(int irq, void *dev_id)
609{
610 struct mmci_host *host = dev_id;
611
612 mmc_detect_change(host->mmc, msecs_to_jiffies(500));
613
614 return IRQ_HANDLED;
615}
616
David Brownellab7aefd2006-11-12 17:55:30 -0800617static const struct mmc_host_ops mmci_ops = {
Linus Torvalds1da177e2005-04-16 15:20:36 -0700618 .request = mmci_request,
619 .set_ios = mmci_set_ios,
Russell King89001442009-07-09 15:16:07 +0100620 .get_ro = mmci_get_ro,
621 .get_cd = mmci_get_cd,
Linus Torvalds1da177e2005-04-16 15:20:36 -0700622};
623
Alessandro Rubini03fbdb12009-05-20 22:39:08 +0100624static int __devinit mmci_probe(struct amba_device *dev, struct amba_id *id)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700625{
Linus Walleij6ef297f2009-09-22 14:29:36 +0100626 struct mmci_platform_data *plat = dev->dev.platform_data;
Rabin Vincent4956e102010-07-21 12:54:40 +0100627 struct variant_data *variant = id->data;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700628 struct mmci_host *host;
629 struct mmc_host *mmc;
630 int ret;
631
632 /* must have platform data */
633 if (!plat) {
634 ret = -EINVAL;
635 goto out;
636 }
637
638 ret = amba_request_regions(dev, DRIVER_NAME);
639 if (ret)
640 goto out;
641
642 mmc = mmc_alloc_host(sizeof(struct mmci_host), &dev->dev);
643 if (!mmc) {
644 ret = -ENOMEM;
645 goto rel_regions;
646 }
647
648 host = mmc_priv(mmc);
Rabin Vincent4ea580f2009-04-17 08:44:19 +0530649 host->mmc = mmc;
Russell King012b7d32009-07-09 15:13:56 +0100650
Russell King89001442009-07-09 15:16:07 +0100651 host->gpio_wp = -ENOSYS;
652 host->gpio_cd = -ENOSYS;
Rabin Vincent148b8b32010-08-09 12:55:48 +0100653 host->gpio_cd_irq = -1;
Russell King89001442009-07-09 15:16:07 +0100654
Russell King012b7d32009-07-09 15:13:56 +0100655 host->hw_designer = amba_manf(dev);
656 host->hw_revision = amba_rev(dev);
Linus Walleij64de0282010-02-19 01:09:10 +0100657 dev_dbg(mmc_dev(mmc), "designer ID = 0x%02x\n", host->hw_designer);
658 dev_dbg(mmc_dev(mmc), "revision = 0x%01x\n", host->hw_revision);
Russell King012b7d32009-07-09 15:13:56 +0100659
Russell Kingee569c42008-11-30 17:38:14 +0000660 host->clk = clk_get(&dev->dev, NULL);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700661 if (IS_ERR(host->clk)) {
662 ret = PTR_ERR(host->clk);
663 host->clk = NULL;
664 goto host_free;
665 }
666
Linus Torvalds1da177e2005-04-16 15:20:36 -0700667 ret = clk_enable(host->clk);
668 if (ret)
Russell Kinga8d35842006-01-03 18:41:37 +0000669 goto clk_free;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700670
671 host->plat = plat;
Rabin Vincent4956e102010-07-21 12:54:40 +0100672 host->variant = variant;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700673 host->mclk = clk_get_rate(host->clk);
Linus Walleijc8df9a52008-04-29 09:34:07 +0100674 /*
675 * According to the spec, mclk is max 100 MHz,
676 * so we try to adjust the clock down to this,
677 * (if possible).
678 */
679 if (host->mclk > 100000000) {
680 ret = clk_set_rate(host->clk, 100000000);
681 if (ret < 0)
682 goto clk_disable;
683 host->mclk = clk_get_rate(host->clk);
Linus Walleij64de0282010-02-19 01:09:10 +0100684 dev_dbg(mmc_dev(mmc), "eventual mclk rate: %u Hz\n",
685 host->mclk);
Linus Walleijc8df9a52008-04-29 09:34:07 +0100686 }
Linus Walleijdc890c22009-06-07 23:27:31 +0100687 host->base = ioremap(dev->res.start, resource_size(&dev->res));
Linus Torvalds1da177e2005-04-16 15:20:36 -0700688 if (!host->base) {
689 ret = -ENOMEM;
690 goto clk_disable;
691 }
692
693 mmc->ops = &mmci_ops;
694 mmc->f_min = (host->mclk + 511) / 512;
Linus Walleij808d97c2010-04-08 07:39:38 +0100695 /*
696 * If the platform data supplies a maximum operating
697 * frequency, this takes precedence. Else, we fall back
698 * to using the module parameter, which has a (low)
699 * default value in case it is not specified. Either
700 * value must not exceed the clock rate into the block,
701 * of course.
702 */
703 if (plat->f_max)
704 mmc->f_max = min(host->mclk, plat->f_max);
705 else
706 mmc->f_max = min(host->mclk, fmax);
Linus Walleij64de0282010-02-19 01:09:10 +0100707 dev_dbg(mmc_dev(mmc), "clocking block at %u Hz\n", mmc->f_max);
708
Linus Walleij34e84f32009-09-22 14:41:40 +0100709#ifdef CONFIG_REGULATOR
710 /* If we're using the regulator framework, try to fetch a regulator */
711 host->vcc = regulator_get(&dev->dev, "vmmc");
712 if (IS_ERR(host->vcc))
713 host->vcc = NULL;
714 else {
715 int mask = mmc_regulator_get_ocrmask(host->vcc);
716
717 if (mask < 0)
718 dev_err(&dev->dev, "error getting OCR mask (%d)\n",
719 mask);
720 else {
721 host->mmc->ocr_avail = (u32) mask;
722 if (plat->ocr_mask)
723 dev_warn(&dev->dev,
724 "Provided ocr_mask/setpower will not be used "
725 "(using regulator instead)\n");
726 }
727 }
728#endif
729 /* Fall back to platform data if no regulator is found */
730 if (host->vcc == NULL)
731 mmc->ocr_avail = plat->ocr_mask;
Linus Walleij9e6c82c2009-09-14 12:57:11 +0100732 mmc->caps = plat->capabilities;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700733
734 /*
735 * We can do SGIO
736 */
737 mmc->max_hw_segs = 16;
738 mmc->max_phys_segs = NR_SG;
739
740 /*
Rabin Vincent08458ef2010-07-21 12:55:59 +0100741 * Since only a certain number of bits are valid in the data length
742 * register, we must ensure that we don't exceed 2^num-1 bytes in a
743 * single request.
Linus Torvalds1da177e2005-04-16 15:20:36 -0700744 */
Rabin Vincent08458ef2010-07-21 12:55:59 +0100745 mmc->max_req_size = (1 << variant->datalength_bits) - 1;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700746
747 /*
748 * Set the maximum segment size. Since we aren't doing DMA
749 * (yet) we are only limited by the data length register.
750 */
Pierre Ossman55db8902006-11-21 17:55:45 +0100751 mmc->max_seg_size = mmc->max_req_size;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700752
Pierre Ossmanfe4a3c72006-11-21 17:54:23 +0100753 /*
754 * Block size can be up to 2048 bytes, but must be a power of two.
755 */
756 mmc->max_blk_size = 2048;
757
Pierre Ossman55db8902006-11-21 17:55:45 +0100758 /*
759 * No limit on the number of blocks transferred.
760 */
761 mmc->max_blk_count = mmc->max_req_size;
762
Linus Torvalds1da177e2005-04-16 15:20:36 -0700763 spin_lock_init(&host->lock);
764
765 writel(0, host->base + MMCIMASK0);
766 writel(0, host->base + MMCIMASK1);
767 writel(0xfff, host->base + MMCICLEAR);
768
Russell King89001442009-07-09 15:16:07 +0100769 if (gpio_is_valid(plat->gpio_cd)) {
770 ret = gpio_request(plat->gpio_cd, DRIVER_NAME " (cd)");
771 if (ret == 0)
772 ret = gpio_direction_input(plat->gpio_cd);
773 if (ret == 0)
774 host->gpio_cd = plat->gpio_cd;
775 else if (ret != -ENOSYS)
776 goto err_gpio_cd;
Rabin Vincent148b8b32010-08-09 12:55:48 +0100777
778 ret = request_any_context_irq(gpio_to_irq(plat->gpio_cd),
779 mmci_cd_irq, 0,
780 DRIVER_NAME " (cd)", host);
781 if (ret >= 0)
782 host->gpio_cd_irq = gpio_to_irq(plat->gpio_cd);
Russell King89001442009-07-09 15:16:07 +0100783 }
784 if (gpio_is_valid(plat->gpio_wp)) {
785 ret = gpio_request(plat->gpio_wp, DRIVER_NAME " (wp)");
786 if (ret == 0)
787 ret = gpio_direction_input(plat->gpio_wp);
788 if (ret == 0)
789 host->gpio_wp = plat->gpio_wp;
790 else if (ret != -ENOSYS)
791 goto err_gpio_wp;
792 }
793
Rabin Vincent4b8caec2010-08-09 12:56:40 +0100794 if ((host->plat->status || host->gpio_cd != -ENOSYS)
795 && host->gpio_cd_irq < 0)
Rabin Vincent148b8b32010-08-09 12:55:48 +0100796 mmc->caps |= MMC_CAP_NEEDS_POLL;
797
Thomas Gleixnerdace1452006-07-01 19:29:38 -0700798 ret = request_irq(dev->irq[0], mmci_irq, IRQF_SHARED, DRIVER_NAME " (cmd)", host);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700799 if (ret)
800 goto unmap;
801
Thomas Gleixnerdace1452006-07-01 19:29:38 -0700802 ret = request_irq(dev->irq[1], mmci_pio_irq, IRQF_SHARED, DRIVER_NAME " (pio)", host);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700803 if (ret)
804 goto irq0_free;
805
806 writel(MCI_IRQENABLE, host->base + MMCIMASK0);
807
808 amba_set_drvdata(dev, mmc);
809
810 mmc_add_host(mmc);
811
Linus Walleij64de0282010-02-19 01:09:10 +0100812 dev_info(&dev->dev, "%s: MMCI rev %x cfg %02x at 0x%016llx irq %d,%d\n",
Russell Kingd366b642005-08-19 09:40:08 +0100813 mmc_hostname(mmc), amba_rev(dev), amba_config(dev),
Greg Kroah-Hartmane29419f2006-06-12 15:20:16 -0700814 (unsigned long long)dev->res.start, dev->irq[0], dev->irq[1]);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700815
Linus Torvalds1da177e2005-04-16 15:20:36 -0700816 return 0;
817
818 irq0_free:
819 free_irq(dev->irq[0], host);
820 unmap:
Russell King89001442009-07-09 15:16:07 +0100821 if (host->gpio_wp != -ENOSYS)
822 gpio_free(host->gpio_wp);
823 err_gpio_wp:
Rabin Vincent148b8b32010-08-09 12:55:48 +0100824 if (host->gpio_cd_irq >= 0)
825 free_irq(host->gpio_cd_irq, host);
Russell King89001442009-07-09 15:16:07 +0100826 if (host->gpio_cd != -ENOSYS)
827 gpio_free(host->gpio_cd);
828 err_gpio_cd:
Linus Torvalds1da177e2005-04-16 15:20:36 -0700829 iounmap(host->base);
830 clk_disable:
831 clk_disable(host->clk);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700832 clk_free:
833 clk_put(host->clk);
834 host_free:
835 mmc_free_host(mmc);
836 rel_regions:
837 amba_release_regions(dev);
838 out:
839 return ret;
840}
841
Linus Walleij6dc4a472009-03-07 00:23:52 +0100842static int __devexit mmci_remove(struct amba_device *dev)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700843{
844 struct mmc_host *mmc = amba_get_drvdata(dev);
845
846 amba_set_drvdata(dev, NULL);
847
848 if (mmc) {
849 struct mmci_host *host = mmc_priv(mmc);
850
Linus Torvalds1da177e2005-04-16 15:20:36 -0700851 mmc_remove_host(mmc);
852
853 writel(0, host->base + MMCIMASK0);
854 writel(0, host->base + MMCIMASK1);
855
856 writel(0, host->base + MMCICOMMAND);
857 writel(0, host->base + MMCIDATACTRL);
858
859 free_irq(dev->irq[0], host);
860 free_irq(dev->irq[1], host);
861
Russell King89001442009-07-09 15:16:07 +0100862 if (host->gpio_wp != -ENOSYS)
863 gpio_free(host->gpio_wp);
Rabin Vincent148b8b32010-08-09 12:55:48 +0100864 if (host->gpio_cd_irq >= 0)
865 free_irq(host->gpio_cd_irq, host);
Russell King89001442009-07-09 15:16:07 +0100866 if (host->gpio_cd != -ENOSYS)
867 gpio_free(host->gpio_cd);
868
Linus Torvalds1da177e2005-04-16 15:20:36 -0700869 iounmap(host->base);
870 clk_disable(host->clk);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700871 clk_put(host->clk);
872
Linus Walleij34e84f32009-09-22 14:41:40 +0100873 if (regulator_is_enabled(host->vcc))
874 regulator_disable(host->vcc);
875 regulator_put(host->vcc);
876
Linus Torvalds1da177e2005-04-16 15:20:36 -0700877 mmc_free_host(mmc);
878
879 amba_release_regions(dev);
880 }
881
882 return 0;
883}
884
885#ifdef CONFIG_PM
Pavel Macheke5378ca2005-04-16 15:25:29 -0700886static int mmci_suspend(struct amba_device *dev, pm_message_t state)
Linus Torvalds1da177e2005-04-16 15:20:36 -0700887{
888 struct mmc_host *mmc = amba_get_drvdata(dev);
889 int ret = 0;
890
891 if (mmc) {
892 struct mmci_host *host = mmc_priv(mmc);
893
Matt Fleming1a13f8f2010-05-26 14:42:08 -0700894 ret = mmc_suspend_host(mmc);
Linus Torvalds1da177e2005-04-16 15:20:36 -0700895 if (ret == 0)
896 writel(0, host->base + MMCIMASK0);
897 }
898
899 return ret;
900}
901
902static int mmci_resume(struct amba_device *dev)
903{
904 struct mmc_host *mmc = amba_get_drvdata(dev);
905 int ret = 0;
906
907 if (mmc) {
908 struct mmci_host *host = mmc_priv(mmc);
909
910 writel(MCI_IRQENABLE, host->base + MMCIMASK0);
911
912 ret = mmc_resume_host(mmc);
913 }
914
915 return ret;
916}
917#else
918#define mmci_suspend NULL
919#define mmci_resume NULL
920#endif
921
922static struct amba_id mmci_ids[] = {
923 {
924 .id = 0x00041180,
925 .mask = 0x000fffff,
Rabin Vincent4956e102010-07-21 12:54:40 +0100926 .data = &variant_arm,
Linus Torvalds1da177e2005-04-16 15:20:36 -0700927 },
928 {
929 .id = 0x00041181,
930 .mask = 0x000fffff,
Rabin Vincent4956e102010-07-21 12:54:40 +0100931 .data = &variant_arm,
Linus Torvalds1da177e2005-04-16 15:20:36 -0700932 },
Linus Walleijcc30d602009-01-04 15:18:54 +0100933 /* ST Micro variants */
934 {
935 .id = 0x00180180,
936 .mask = 0x00ffffff,
Rabin Vincent4956e102010-07-21 12:54:40 +0100937 .data = &variant_u300,
Linus Walleijcc30d602009-01-04 15:18:54 +0100938 },
939 {
940 .id = 0x00280180,
941 .mask = 0x00ffffff,
Rabin Vincent4956e102010-07-21 12:54:40 +0100942 .data = &variant_u300,
943 },
944 {
945 .id = 0x00480180,
946 .mask = 0x00ffffff,
947 .data = &variant_ux500,
Linus Walleijcc30d602009-01-04 15:18:54 +0100948 },
Linus Torvalds1da177e2005-04-16 15:20:36 -0700949 { 0, 0 },
950};
951
952static struct amba_driver mmci_driver = {
953 .drv = {
954 .name = DRIVER_NAME,
955 },
956 .probe = mmci_probe,
Linus Walleij6dc4a472009-03-07 00:23:52 +0100957 .remove = __devexit_p(mmci_remove),
Linus Torvalds1da177e2005-04-16 15:20:36 -0700958 .suspend = mmci_suspend,
959 .resume = mmci_resume,
960 .id_table = mmci_ids,
961};
962
963static int __init mmci_init(void)
964{
965 return amba_driver_register(&mmci_driver);
966}
967
968static void __exit mmci_exit(void)
969{
970 amba_driver_unregister(&mmci_driver);
971}
972
973module_init(mmci_init);
974module_exit(mmci_exit);
975module_param(fmax, uint, 0444);
976
977MODULE_DESCRIPTION("ARM PrimeCell PL180/181 Multimedia Card Interface driver");
978MODULE_LICENSE("GPL");