drivers/mmc/mmc_write.c

   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 #ifdef CONFIG_BLK
  70 ulong mmc_berase(struct udevice *dev, lbaint_t start, lbaint_t blkcnt)
  71 #else
  72 ulong mmc_berase(struct blk_desc *block_dev, lbaint_t start, lbaint_t blkcnt)
  73 #endif
  74 {
  75 #ifdef CONFIG_BLK
  76         struct blk_desc *block_dev = dev_get_uclass_platdata(dev);
  77 #endif
  78         int dev_num = block_dev->devnum;
  79         int err = 0;
  80         u32 start_rem, blkcnt_rem;
  81         struct mmc *mmc = find_mmc_device(dev_num);
  82         lbaint_t blk = 0, blk_r = 0;
  83         int timeout = 1000;
  84
  85         if (!mmc)
  86                 return -1;
  87
  88         err = blk_select_hwpart_devnum(IF_TYPE_MMC, dev_num,
  89                                        block_dev->hwpart);
  90         if (err < 0)
  91                 return -1;
  92
  93         /*
  94          * We want to see if the requested start or total block count are
  95          * unaligned.  We discard the whole numbers and only care about the
  96          * remainder.
  97          */
  98         err = div_u64_rem(start, mmc->erase_grp_size, &start_rem);
  99         err = div_u64_rem(blkcnt, mmc->erase_grp_size, &blkcnt_rem);
 100         if (start_rem || blkcnt_rem)
 101                 printf("\n\nCaution! Your devices Erase group is 0x%x\n"
 102                        "The erase range would be change to "
 103                        "0x" LBAF "~0x" LBAF "\n\n",
 104                        mmc->erase_grp_size, start & ~(mmc->erase_grp_size - 1),
 105                        ((start + blkcnt + mmc->erase_grp_size)
 106                        & ~(mmc->erase_grp_size - 1)) - 1);
 107
 108         while (blk < blkcnt) {
 109                 if (IS_SD(mmc) && mmc->ssr.au) {
 110                         blk_r = ((blkcnt - blk) > mmc->ssr.au) ?
 111                                 mmc->ssr.au : (blkcnt - blk);
 112                 } else {
 113                         blk_r = ((blkcnt - blk) > mmc->erase_grp_size) ?
 114                                 mmc->erase_grp_size : (blkcnt - blk);
 115                 }
 116                 err = mmc_erase_t(mmc, start + blk, blk_r);
 117                 if (err)
 118                         break;
 119
 120                 blk += blk_r;
 121
 122                 /* Waiting for the ready status */
 123                 if (mmc_send_status(mmc, timeout))
 124                         return 0;
 125         }
 126
 127         return blk;
 128 }
 129
 130 static ulong mmc_write_blocks(struct mmc *mmc, lbaint_t start,
 131                 lbaint_t blkcnt, const void *src)
 132 {
 133         struct mmc_cmd cmd;
 134         struct mmc_data data;
 135         int timeout = 1000;
 136
 137         if ((start + blkcnt) > mmc_get_blk_desc(mmc)->lba) {
 138                 printf("MMC: block number 0x" LBAF " exceeds max(0x" LBAF ")\n",
 139                        start + blkcnt, mmc_get_blk_desc(mmc)->lba);
 140                 return 0;
 141         }
 142
 143         if (blkcnt == 0)
 144                 return 0;
 145         else if (blkcnt == 1)
 146                 cmd.cmdidx = MMC_CMD_WRITE_SINGLE_BLOCK;
 147         else
 148                 cmd.cmdidx = MMC_CMD_WRITE_MULTIPLE_BLOCK;
 149
 150         if (mmc->high_capacity)
 151                 cmd.cmdarg = start;
 152         else
 153                 cmd.cmdarg = start * mmc->write_bl_len;
 154
 155         cmd.resp_type = MMC_RSP_R1;
 156
 157         data.src = src;
 158         data.blocks = blkcnt;
 159         data.blocksize = mmc->write_bl_len;
 160         data.flags = MMC_DATA_WRITE;
 161
 162         if (mmc_send_cmd(mmc, &cmd, &data)) {
 163                 printf("mmc write failed\n");
 164                 return 0;
 165         }
 166
 167         /* SPI multiblock writes terminate using a special
 168          * token, not a STOP_TRANSMISSION request.
 169          */
 170         if (!mmc_host_is_spi(mmc) && blkcnt > 1) {
 171                 cmd.cmdidx = MMC_CMD_STOP_TRANSMISSION;
 172                 cmd.cmdarg = 0;
 173                 cmd.resp_type = MMC_RSP_R1b;
 174                 if (mmc_send_cmd(mmc, &cmd, NULL)) {
 175                         printf("mmc fail to send stop cmd\n");
 176                         return 0;
 177                 }
 178         }
 179
 180         /* Waiting for the ready status */
 181         if (mmc_send_status(mmc, timeout))
 182                 return 0;
 183
 184         return blkcnt;
 185 }
 186
 187 #ifdef CONFIG_BLK
 188 ulong mmc_bwrite(struct udevice *dev, lbaint_t start, lbaint_t blkcnt,
 189                  const void *src)
 190 #else
 191 ulong mmc_bwrite(struct blk_desc *block_dev, lbaint_t start, lbaint_t blkcnt,
 192                  const void *src)
 193 #endif
 194 {
 195 #ifdef CONFIG_BLK
 196         struct blk_desc *block_dev = dev_get_uclass_platdata(dev);
 197 #endif
 198         int dev_num = block_dev->devnum;
 199         lbaint_t cur, blocks_todo = blkcnt;
 200         int err;
 201
 202         struct mmc *mmc = find_mmc_device(dev_num);
 203         if (!mmc)
 204                 return 0;
 205
 206         err = blk_select_hwpart_devnum(IF_TYPE_MMC, dev_num, block_dev->hwpart);
 207         if (err < 0)
 208                 return 0;
 209
 210         if (mmc_set_blocklen(mmc, mmc->write_bl_len))
 211                 return 0;
 212
 213         do {
 214                 cur = (blocks_todo > mmc->cfg->b_max) ?
 215                         mmc->cfg->b_max : blocks_todo;
 216                 if (mmc_write_blocks(mmc, start, cur, src) != cur)
 217                         return 0;
 218                 blocks_todo -= cur;
 219                 start += cur;
 220                 src += cur * mmc->write_bl_len;
 221         } while (blocks_todo > 0);
 222
 223         return blkcnt;
 224 }