1 /* 2 * Copyright 2008, Freescale Semiconductor, Inc 3 * Andy Fleming 4 * 5 * Based vaguely on the Linux code 6 * 7 * SPDX-License-Identifier: GPL-2.0+ 8 */ 9 10 #include <config.h> 11 #include <common.h> 12 #include <dm.h> 13 #include <part.h> 14 #include <div64.h> 15 #include <linux/math64.h> 16 #include "mmc_private.h" 17 18 static ulong mmc_erase_t(struct mmc *mmc, ulong start, lbaint_t blkcnt) 19 { 20 struct mmc_cmd cmd; 21 ulong end; 22 int err, start_cmd, end_cmd; 23 24 if (mmc->high_capacity) { 25 end = start + blkcnt - 1; 26 } else { 27 end = (start + blkcnt - 1) * mmc->write_bl_len; 28 start *= mmc->write_bl_len; 29 } 30 31 if (IS_SD(mmc)) { 32 start_cmd = SD_CMD_ERASE_WR_BLK_START; 33 end_cmd = SD_CMD_ERASE_WR_BLK_END; 34 } else { 35 start_cmd = MMC_CMD_ERASE_GROUP_START; 36 end_cmd = MMC_CMD_ERASE_GROUP_END; 37 } 38 39 cmd.cmdidx = start_cmd; 40 cmd.cmdarg = start; 41 cmd.resp_type = MMC_RSP_R1; 42 43 err = mmc_send_cmd(mmc, &cmd, NULL); 44 if (err) 45 goto err_out; 46 47 cmd.cmdidx = end_cmd; 48 cmd.cmdarg = end; 49 50 err = mmc_send_cmd(mmc, &cmd, NULL); 51 if (err) 52 goto err_out; 53 54 cmd.cmdidx = MMC_CMD_ERASE; 55 cmd.cmdarg = MMC_ERASE_ARG; 56 cmd.resp_type = MMC_RSP_R1b; 57 58 err = mmc_send_cmd(mmc, &cmd, NULL); 59 if (err) 60 goto err_out; 61 62 return 0; 63 64 err_out: 65 puts("mmc erase failed\n"); 66 return err; 67 } 68 69 unsigned long mmc_berase(struct blk_desc *block_dev, lbaint_t start, 70 lbaint_t blkcnt) 71 { 72 int dev_num = block_dev->devnum; 73 int err = 0; 74 u32 start_rem, blkcnt_rem; 75 struct mmc *mmc = find_mmc_device(dev_num); 76 lbaint_t blk = 0, blk_r = 0; 77 int timeout = 1000; 78 79 if (!mmc) 80 return -1; 81 82 err = blk_select_hwpart_devnum(IF_TYPE_MMC, dev_num, 83 block_dev->hwpart); 84 if (err < 0) 85 return -1; 86 87 /* 88 * We want to see if the requested start or total block count are 89 * unaligned. We discard the whole numbers and only care about the 90 * remainder. 91 */ 92 err = div_u64_rem(start, mmc->erase_grp_size, &start_rem); 93 err = div_u64_rem(blkcnt, mmc->erase_grp_size, &blkcnt_rem); 94 if (start_rem || blkcnt_rem) 95 printf("\n\nCaution! Your devices Erase group is 0x%x\n" 96 "The erase range would be change to " 97 "0x" LBAF "~0x" LBAF "\n\n", 98 mmc->erase_grp_size, start & ~(mmc->erase_grp_size - 1), 99 ((start + blkcnt + mmc->erase_grp_size) 100 & ~(mmc->erase_grp_size - 1)) - 1); 101 102 while (blk < blkcnt) { 103 if (IS_SD(mmc) && mmc->ssr.au) { 104 blk_r = ((blkcnt - blk) > mmc->ssr.au) ? 105 mmc->ssr.au : (blkcnt - blk); 106 } else { 107 blk_r = ((blkcnt - blk) > mmc->erase_grp_size) ? 108 mmc->erase_grp_size : (blkcnt - blk); 109 } 110 err = mmc_erase_t(mmc, start + blk, blk_r); 111 if (err) 112 break; 113 114 blk += blk_r; 115 116 /* Waiting for the ready status */ 117 if (mmc_send_status(mmc, timeout)) 118 return 0; 119 } 120 121 return blk; 122 } 123 124 static ulong mmc_write_blocks(struct mmc *mmc, lbaint_t start, 125 lbaint_t blkcnt, const void *src) 126 { 127 struct mmc_cmd cmd; 128 struct mmc_data data; 129 int timeout = 1000; 130 131 if ((start + blkcnt) > mmc_get_blk_desc(mmc)->lba) { 132 printf("MMC: block number 0x" LBAF " exceeds max(0x" LBAF ")\n", 133 start + blkcnt, mmc_get_blk_desc(mmc)->lba); 134 return 0; 135 } 136 137 if (blkcnt == 0) 138 return 0; 139 else if (blkcnt == 1) 140 cmd.cmdidx = MMC_CMD_WRITE_SINGLE_BLOCK; 141 else 142 cmd.cmdidx = MMC_CMD_WRITE_MULTIPLE_BLOCK; 143 144 if (mmc->high_capacity) 145 cmd.cmdarg = start; 146 else 147 cmd.cmdarg = start * mmc->write_bl_len; 148 149 cmd.resp_type = MMC_RSP_R1; 150 151 data.src = src; 152 data.blocks = blkcnt; 153 data.blocksize = mmc->write_bl_len; 154 data.flags = MMC_DATA_WRITE; 155 156 if (mmc_send_cmd(mmc, &cmd, &data)) { 157 printf("mmc write failed\n"); 158 return 0; 159 } 160 161 /* SPI multiblock writes terminate using a special 162 * token, not a STOP_TRANSMISSION request. 163 */ 164 if (!mmc_host_is_spi(mmc) && blkcnt > 1) { 165 cmd.cmdidx = MMC_CMD_STOP_TRANSMISSION; 166 cmd.cmdarg = 0; 167 cmd.resp_type = MMC_RSP_R1b; 168 if (mmc_send_cmd(mmc, &cmd, NULL)) { 169 printf("mmc fail to send stop cmd\n"); 170 return 0; 171 } 172 } 173 174 /* Waiting for the ready status */ 175 if (mmc_send_status(mmc, timeout)) 176 return 0; 177 178 return blkcnt; 179 } 180 181 #ifdef CONFIG_BLK 182 ulong mmc_bwrite(struct udevice *dev, lbaint_t start, lbaint_t blkcnt, 183 const void *src) 184 #else 185 ulong mmc_bwrite(struct blk_desc *block_dev, lbaint_t start, lbaint_t blkcnt, 186 const void *src) 187 #endif 188 { 189 #ifdef CONFIG_BLK 190 struct blk_desc *block_dev = dev_get_uclass_platdata(dev); 191 #endif 192 int dev_num = block_dev->devnum; 193 lbaint_t cur, blocks_todo = blkcnt; 194 int err; 195 196 struct mmc *mmc = find_mmc_device(dev_num); 197 if (!mmc) 198 return 0; 199 200 err = blk_select_hwpart_devnum(IF_TYPE_MMC, dev_num, block_dev->hwpart); 201 if (err < 0) 202 return 0; 203 204 if (mmc_set_blocklen(mmc, mmc->write_bl_len)) 205 return 0; 206 207 do { 208 cur = (blocks_todo > mmc->cfg->b_max) ? 209 mmc->cfg->b_max : blocks_todo; 210 if (mmc_write_blocks(mmc, start, cur, src) != cur) 211 return 0; 212 blocks_todo -= cur; 213 start += cur; 214 src += cur * mmc->write_bl_len; 215 } while (blocks_todo > 0); 216 217 return blkcnt; 218 } 219