xref: /openbmc/u-boot/drivers/mmc/pxa_mmc_gen.c (revision c2cde27d)
1 /*
2  * Copyright (C) 2010 Marek Vasut <marek.vasut@gmail.com>
3  *
4  * Loosely based on the old code and Linux's PXA MMC driver
5  *
6  * SPDX-License-Identifier:	GPL-2.0+
7  */
8 
9 #include <config.h>
10 #include <common.h>
11 #include <malloc.h>
12 
13 #include <mmc.h>
14 #include <asm/errno.h>
15 #include <asm/arch/hardware.h>
16 #include <asm/arch/regs-mmc.h>
17 #include <asm/io.h>
18 
19 /* PXAMMC Generic default config for various CPUs */
20 #if defined(CONFIG_CPU_PXA25X)
21 #define PXAMMC_FIFO_SIZE	1
22 #define PXAMMC_MIN_SPEED	312500
23 #define PXAMMC_MAX_SPEED	20000000
24 #define PXAMMC_HOST_CAPS	(0)
25 #elif defined(CONFIG_CPU_PXA27X)
26 #define PXAMMC_CRC_SKIP
27 #define PXAMMC_FIFO_SIZE	32
28 #define PXAMMC_MIN_SPEED	304000
29 #define PXAMMC_MAX_SPEED	19500000
30 #define PXAMMC_HOST_CAPS	(MMC_MODE_4BIT)
31 #elif defined(CONFIG_CPU_MONAHANS)
32 #define PXAMMC_FIFO_SIZE	32
33 #define PXAMMC_MIN_SPEED	304000
34 #define PXAMMC_MAX_SPEED	26000000
35 #define PXAMMC_HOST_CAPS	(MMC_MODE_4BIT | MMC_MODE_HS)
36 #else
37 #error "This CPU isn't supported by PXA MMC!"
38 #endif
39 
40 #define MMC_STAT_ERRORS							\
41 	(MMC_STAT_RES_CRC_ERROR | MMC_STAT_SPI_READ_ERROR_TOKEN |	\
42 	MMC_STAT_CRC_READ_ERROR | MMC_STAT_TIME_OUT_RESPONSE |		\
43 	MMC_STAT_READ_TIME_OUT | MMC_STAT_CRC_WRITE_ERROR)
44 
45 /* 1 millisecond (in wait cycles below it's 100 x 10uS waits) */
46 #define PXA_MMC_TIMEOUT	100
47 
48 struct pxa_mmc_priv {
49 	struct pxa_mmc_regs *regs;
50 };
51 
52 /* Wait for bit to be set */
53 static int pxa_mmc_wait(struct mmc *mmc, uint32_t mask)
54 {
55 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
56 	struct pxa_mmc_regs *regs = priv->regs;
57 	unsigned int timeout = PXA_MMC_TIMEOUT;
58 
59 	/* Wait for bit to be set */
60 	while (--timeout) {
61 		if (readl(&regs->stat) & mask)
62 			break;
63 		udelay(10);
64 	}
65 
66 	if (!timeout)
67 		return -ETIMEDOUT;
68 
69 	return 0;
70 }
71 
72 static int pxa_mmc_stop_clock(struct mmc *mmc)
73 {
74 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
75 	struct pxa_mmc_regs *regs = priv->regs;
76 	unsigned int timeout = PXA_MMC_TIMEOUT;
77 
78 	/* If the clock aren't running, exit */
79 	if (!(readl(&regs->stat) & MMC_STAT_CLK_EN))
80 		return 0;
81 
82 	/* Tell the controller to turn off the clock */
83 	writel(MMC_STRPCL_STOP_CLK, &regs->strpcl);
84 
85 	/* Wait until the clock are off */
86 	while (--timeout) {
87 		if (!(readl(&regs->stat) & MMC_STAT_CLK_EN))
88 			break;
89 		udelay(10);
90 	}
91 
92 	/* The clock refused to stop, scream and die a painful death */
93 	if (!timeout)
94 		return -ETIMEDOUT;
95 
96 	/* The clock stopped correctly */
97 	return 0;
98 }
99 
100 static int pxa_mmc_start_cmd(struct mmc *mmc, struct mmc_cmd *cmd,
101 				uint32_t cmdat)
102 {
103 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
104 	struct pxa_mmc_regs *regs = priv->regs;
105 	int ret;
106 
107 	/* The card can send a "busy" response */
108 	if (cmd->resp_type & MMC_RSP_BUSY)
109 		cmdat |= MMC_CMDAT_BUSY;
110 
111 	/* Inform the controller about response type */
112 	switch (cmd->resp_type) {
113 	case MMC_RSP_R1:
114 	case MMC_RSP_R1b:
115 		cmdat |= MMC_CMDAT_R1;
116 		break;
117 	case MMC_RSP_R2:
118 		cmdat |= MMC_CMDAT_R2;
119 		break;
120 	case MMC_RSP_R3:
121 		cmdat |= MMC_CMDAT_R3;
122 		break;
123 	default:
124 		break;
125 	}
126 
127 	/* Load command and it's arguments into the controller */
128 	writel(cmd->cmdidx, &regs->cmd);
129 	writel(cmd->cmdarg >> 16, &regs->argh);
130 	writel(cmd->cmdarg & 0xffff, &regs->argl);
131 	writel(cmdat, &regs->cmdat);
132 
133 	/* Start the controller clock and wait until they are started */
134 	writel(MMC_STRPCL_START_CLK, &regs->strpcl);
135 
136 	ret = pxa_mmc_wait(mmc, MMC_STAT_CLK_EN);
137 	if (ret)
138 		return ret;
139 
140 	/* Correct and happy end */
141 	return 0;
142 }
143 
144 static int pxa_mmc_cmd_done(struct mmc *mmc, struct mmc_cmd *cmd)
145 {
146 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
147 	struct pxa_mmc_regs *regs = priv->regs;
148 	uint32_t a, b, c;
149 	int i;
150 	int stat;
151 
152 	/* Read the controller status */
153 	stat = readl(&regs->stat);
154 
155 	/*
156 	 * Linux says:
157 	 * Did I mention this is Sick.  We always need to
158 	 * discard the upper 8 bits of the first 16-bit word.
159 	 */
160 	a = readl(&regs->res) & 0xffff;
161 	for (i = 0; i < 4; i++) {
162 		b = readl(&regs->res) & 0xffff;
163 		c = readl(&regs->res) & 0xffff;
164 		cmd->response[i] = (a << 24) | (b << 8) | (c >> 8);
165 		a = c;
166 	}
167 
168 	/* The command response didn't arrive */
169 	if (stat & MMC_STAT_TIME_OUT_RESPONSE)
170 		return -ETIMEDOUT;
171 	else if (stat & MMC_STAT_RES_CRC_ERROR
172 			&& cmd->resp_type & MMC_RSP_CRC) {
173 #ifdef	PXAMMC_CRC_SKIP
174 		if (cmd->resp_type & MMC_RSP_136
175 				&& cmd->response[0] & (1 << 31))
176 			printf("Ignoring CRC, this may be dangerous!\n");
177 		else
178 #endif
179 		return -EILSEQ;
180 	}
181 
182 	/* The command response was successfully read */
183 	return 0;
184 }
185 
186 static int pxa_mmc_do_read_xfer(struct mmc *mmc, struct mmc_data *data)
187 {
188 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
189 	struct pxa_mmc_regs *regs = priv->regs;
190 	uint32_t len;
191 	uint32_t *buf = (uint32_t *)data->dest;
192 	int size;
193 	int ret;
194 
195 	len = data->blocks * data->blocksize;
196 
197 	while (len) {
198 		/* The controller has data ready */
199 		if (readl(&regs->i_reg) & MMC_I_REG_RXFIFO_RD_REQ) {
200 			size = min(len, PXAMMC_FIFO_SIZE);
201 			len -= size;
202 			size /= 4;
203 
204 			/* Read data into the buffer */
205 			while (size--)
206 				*buf++ = readl(&regs->rxfifo);
207 
208 		}
209 
210 		if (readl(&regs->stat) & MMC_STAT_ERRORS)
211 			return -EIO;
212 	}
213 
214 	/* Wait for the transmission-done interrupt */
215 	ret = pxa_mmc_wait(mmc, MMC_STAT_DATA_TRAN_DONE);
216 	if (ret)
217 		return ret;
218 
219 	return 0;
220 }
221 
222 static int pxa_mmc_do_write_xfer(struct mmc *mmc, struct mmc_data *data)
223 {
224 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
225 	struct pxa_mmc_regs *regs = priv->regs;
226 	uint32_t len;
227 	uint32_t *buf = (uint32_t *)data->src;
228 	int size;
229 	int ret;
230 
231 	len = data->blocks * data->blocksize;
232 
233 	while (len) {
234 		/* The controller is ready to receive data */
235 		if (readl(&regs->i_reg) & MMC_I_REG_TXFIFO_WR_REQ) {
236 			size = min(len, PXAMMC_FIFO_SIZE);
237 			len -= size;
238 			size /= 4;
239 
240 			while (size--)
241 				writel(*buf++, &regs->txfifo);
242 
243 			if (min(len, PXAMMC_FIFO_SIZE) < 32)
244 				writel(MMC_PRTBUF_BUF_PART_FULL, &regs->prtbuf);
245 		}
246 
247 		if (readl(&regs->stat) & MMC_STAT_ERRORS)
248 			return -EIO;
249 	}
250 
251 	/* Wait for the transmission-done interrupt */
252 	ret = pxa_mmc_wait(mmc, MMC_STAT_DATA_TRAN_DONE);
253 	if (ret)
254 		return ret;
255 
256 	/* Wait until the data are really written to the card */
257 	ret = pxa_mmc_wait(mmc, MMC_STAT_PRG_DONE);
258 	if (ret)
259 		return ret;
260 
261 	return 0;
262 }
263 
264 static int pxa_mmc_request(struct mmc *mmc, struct mmc_cmd *cmd,
265 				struct mmc_data *data)
266 {
267 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
268 	struct pxa_mmc_regs *regs = priv->regs;
269 	uint32_t cmdat = 0;
270 	int ret;
271 
272 	/* Stop the controller */
273 	ret = pxa_mmc_stop_clock(mmc);
274 	if (ret)
275 		return ret;
276 
277 	/* If we're doing data transfer, configure the controller accordingly */
278 	if (data) {
279 		writel(data->blocks, &regs->nob);
280 		writel(data->blocksize, &regs->blklen);
281 		/* This delay can be optimized, but stick with max value */
282 		writel(0xffff, &regs->rdto);
283 		cmdat |= MMC_CMDAT_DATA_EN;
284 		if (data->flags & MMC_DATA_WRITE)
285 			cmdat |= MMC_CMDAT_WRITE;
286 	}
287 
288 	/* Run in 4bit mode if the card can do it */
289 	if (mmc->bus_width == 4)
290 		cmdat |= MMC_CMDAT_SD_4DAT;
291 
292 	/* Execute the command */
293 	ret = pxa_mmc_start_cmd(mmc, cmd, cmdat);
294 	if (ret)
295 		return ret;
296 
297 	/* Wait until the command completes */
298 	ret = pxa_mmc_wait(mmc, MMC_STAT_END_CMD_RES);
299 	if (ret)
300 		return ret;
301 
302 	/* Read back the result */
303 	ret = pxa_mmc_cmd_done(mmc, cmd);
304 	if (ret)
305 		return ret;
306 
307 	/* In case there was a data transfer scheduled, do it */
308 	if (data) {
309 		if (data->flags & MMC_DATA_WRITE)
310 			pxa_mmc_do_write_xfer(mmc, data);
311 		else
312 			pxa_mmc_do_read_xfer(mmc, data);
313 	}
314 
315 	return 0;
316 }
317 
318 static void pxa_mmc_set_ios(struct mmc *mmc)
319 {
320 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
321 	struct pxa_mmc_regs *regs = priv->regs;
322 	uint32_t tmp;
323 	uint32_t pxa_mmc_clock;
324 
325 	if (!mmc->clock) {
326 		pxa_mmc_stop_clock(mmc);
327 		return;
328 	}
329 
330 	/* PXA3xx can do 26MHz with special settings. */
331 	if (mmc->clock == 26000000) {
332 		writel(0x7, &regs->clkrt);
333 		return;
334 	}
335 
336 	/* Set clock to the card the usual way. */
337 	pxa_mmc_clock = 0;
338 	tmp = mmc->f_max / mmc->clock;
339 	tmp += tmp % 2;
340 
341 	while (tmp > 1) {
342 		pxa_mmc_clock++;
343 		tmp >>= 1;
344 	}
345 
346 	writel(pxa_mmc_clock, &regs->clkrt);
347 }
348 
349 static int pxa_mmc_init(struct mmc *mmc)
350 {
351 	struct pxa_mmc_priv *priv = (struct pxa_mmc_priv *)mmc->priv;
352 	struct pxa_mmc_regs *regs = priv->regs;
353 
354 	/* Make sure the clock are stopped */
355 	pxa_mmc_stop_clock(mmc);
356 
357 	/* Turn off SPI mode */
358 	writel(0, &regs->spi);
359 
360 	/* Set up maximum timeout to wait for command response */
361 	writel(MMC_RES_TO_MAX_MASK, &regs->resto);
362 
363 	/* Mask all interrupts */
364 	writel(~(MMC_I_MASK_TXFIFO_WR_REQ | MMC_I_MASK_RXFIFO_RD_REQ),
365 		&regs->i_mask);
366 	return 0;
367 }
368 
369 int pxa_mmc_register(int card_index)
370 {
371 	struct mmc *mmc;
372 	struct pxa_mmc_priv *priv;
373 	uint32_t reg;
374 	int ret = -ENOMEM;
375 
376 	mmc = malloc(sizeof(struct mmc));
377 	if (!mmc)
378 		goto err0;
379 
380 	priv = malloc(sizeof(struct pxa_mmc_priv));
381 	if (!priv)
382 		goto err1;
383 
384 	switch (card_index) {
385 	case 0:
386 		priv->regs = (struct pxa_mmc_regs *)MMC0_BASE;
387 		break;
388 	case 1:
389 		priv->regs = (struct pxa_mmc_regs *)MMC1_BASE;
390 		break;
391 	default:
392 		printf("PXA MMC: Invalid MMC controller ID (card_index = %d)\n",
393 			card_index);
394 		goto err2;
395 	}
396 
397 	mmc->priv = priv;
398 
399 	sprintf(mmc->name, "PXA MMC");
400 	mmc->send_cmd	= pxa_mmc_request;
401 	mmc->set_ios	= pxa_mmc_set_ios;
402 	mmc->init	= pxa_mmc_init;
403 	mmc->getcd	= NULL;
404 
405 	mmc->voltages	= MMC_VDD_32_33 | MMC_VDD_33_34;
406 	mmc->f_max	= PXAMMC_MAX_SPEED;
407 	mmc->f_min	= PXAMMC_MIN_SPEED;
408 	mmc->host_caps	= PXAMMC_HOST_CAPS;
409 
410 	mmc->b_max = 0;
411 
412 #ifndef	CONFIG_CPU_MONAHANS	/* PXA2xx */
413 	reg = readl(CKEN);
414 	reg |= CKEN12_MMC;
415 	writel(reg, CKEN);
416 #else				/* PXA3xx */
417 	reg = readl(CKENA);
418 	reg |= CKENA_12_MMC0 | CKENA_13_MMC1;
419 	writel(reg, CKENA);
420 #endif
421 
422 	mmc_register(mmc);
423 
424 	return 0;
425 
426 err2:
427 	free(priv);
428 err1:
429 	free(mmc);
430 err0:
431 	return ret;
432 }
433