drivers/mtd/inftlcore.c

   1 /*
   2  * inftlcore.c -- Linux driver for Inverse Flash Translation Layer (INFTL)
   3  *
   4  * (C) Copyright 2002, Greg Ungerer (gerg@snapgear.com)
   5  *
   6  * Based heavily on the nftlcore.c code which is:
   7  * (c) 1999 Machine Vision Holdings, Inc.
   8  * Author: David Woodhouse <dwmw2@infradead.org>
   9  *
  10  * $Id: inftlcore.c,v 1.19 2005/11/07 11:14:20 gleixner Exp $
  11  *
  12  * This program is free software; you can redistribute it and/or modify
  13  * it under the terms of the GNU General Public License as published by
  14  * the Free Software Foundation; either version 2 of the License, or
  15  * (at your option) any later version.
  16  *
  17  * This program is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20  * GNU General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU General Public License
  23  * along with this program; if not, write to the Free Software
  24  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  25  */
  26
  27 #include <linux/kernel.h>
  28 #include <linux/module.h>
  29 #include <linux/delay.h>
  30 #include <linux/slab.h>
  31 #include <linux/sched.h>
  32 #include <linux/init.h>
  33 #include <linux/kmod.h>
  34 #include <linux/hdreg.h>
  35 #include <linux/mtd/mtd.h>
  36 #include <linux/mtd/nftl.h>
  37 #include <linux/mtd/inftl.h>
  38 #include <linux/mtd/nand.h>
  39 #include <asm/uaccess.h>
  40 #include <asm/errno.h>
  41 #include <asm/io.h>
  42
  43 /*
  44  * Maximum number of loops while examining next block, to have a
  45  * chance to detect consistency problems (they should never happen
  46  * because of the checks done in the mounting.
  47  */
  48 #define MAX_LOOPS 10000
  49
  50 static void inftl_add_mtd(struct mtd_blktrans_ops *tr, struct mtd_info *mtd)
  51 {
  52         struct INFTLrecord *inftl;
  53         unsigned long temp;
  54
  55         if (mtd->type != MTD_NANDFLASH)
  56                 return;
  57         /* OK, this is moderately ugly.  But probably safe.  Alternatives? */
  58         if (memcmp(mtd->name, "DiskOnChip", 10))
  59                 return;
  60
  61         if (!mtd->block_isbad) {
  62                 printk(KERN_ERR
  63 "INFTL no longer supports the old DiskOnChip drivers loaded via docprobe.\n"
  64 "Please use the new diskonchip driver under the NAND subsystem.\n");
  65                 return;
  66         }
  67
  68         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: add_mtd for %s\n", mtd->name);
  69
  70         inftl = kzalloc(sizeof(*inftl), GFP_KERNEL);
  71
  72         if (!inftl) {
  73                 printk(KERN_WARNING "INFTL: Out of memory for data structures\n");
  74                 return;
  75         }
  76
  77         inftl->mbd.mtd = mtd;
  78         inftl->mbd.devnum = -1;
  79
  80         inftl->mbd.tr = tr;
  81
  82         if (INFTL_mount(inftl) < 0) {
  83                 printk(KERN_WARNING "INFTL: could not mount device\n");
  84                 kfree(inftl);
  85                 return;
  86         }
  87
  88         /* OK, it's a new one. Set up all the data structures. */
  89
  90         /* Calculate geometry */
  91         inftl->cylinders = 1024;
  92         inftl->heads = 16;
  93
  94         temp = inftl->cylinders * inftl->heads;
  95         inftl->sectors = inftl->mbd.size / temp;
  96         if (inftl->mbd.size % temp) {
  97                 inftl->sectors++;
  98                 temp = inftl->cylinders * inftl->sectors;
  99                 inftl->heads = inftl->mbd.size / temp;
 100
 101                 if (inftl->mbd.size % temp) {
 102                         inftl->heads++;
 103                         temp = inftl->heads * inftl->sectors;
 104                         inftl->cylinders = inftl->mbd.size / temp;
 105                 }
 106         }
 107
 108         if (inftl->mbd.size != inftl->heads * inftl->cylinders * inftl->sectors) {
 109                 /*
 110                   Oh no we don't have
 111                    mbd.size == heads * cylinders * sectors
 112                 */
 113                 printk(KERN_WARNING "INFTL: cannot calculate a geometry to "
 114                        "match size of 0x%lx.\n", inftl->mbd.size);
 115                 printk(KERN_WARNING "INFTL: using C:%d H:%d S:%d "
 116                         "(== 0x%lx sects)\n",
 117                         inftl->cylinders, inftl->heads , inftl->sectors,
 118                         (long)inftl->cylinders * (long)inftl->heads *
 119                         (long)inftl->sectors );
 120         }
 121
 122         if (add_mtd_blktrans_dev(&inftl->mbd)) {
 123                 kfree(inftl->PUtable);
 124                 kfree(inftl->VUtable);
 125                 kfree(inftl);
 126                 return;
 127         }
 128 #ifdef PSYCHO_DEBUG
 129         printk(KERN_INFO "INFTL: Found new inftl%c\n", inftl->mbd.devnum + 'a');
 130 #endif
 131         return;
 132 }
 133
 134 static void inftl_remove_dev(struct mtd_blktrans_dev *dev)
 135 {
 136         struct INFTLrecord *inftl = (void *)dev;
 137
 138         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: remove_dev (i=%d)\n", dev->devnum);
 139
 140         del_mtd_blktrans_dev(dev);
 141
 142         kfree(inftl->PUtable);
 143         kfree(inftl->VUtable);
 144         kfree(inftl);
 145 }
 146
 147 /*
 148  * Actual INFTL access routines.
 149  */
 150
 151 /*
 152  * Read oob data from flash
 153  */
 154 int inftl_read_oob(struct mtd_info *mtd, loff_t offs, size_t len,
 155                    size_t *retlen, uint8_t *buf)
 156 {
 157         struct mtd_oob_ops ops;
 158         int res;
 159
 160         ops.mode = MTD_OOB_PLACE;
 161         ops.ooboffs = offs & (mtd->writesize - 1);
 162         ops.ooblen = len;
 163         ops.oobbuf = buf;
 164         ops.datbuf = NULL;
 165
 166         res = mtd->read_oob(mtd, offs & ~(mtd->writesize - 1), &ops);
 167         *retlen = ops.oobretlen;
 168         return res;
 169 }
 170
 171 /*
 172  * Write oob data to flash
 173  */
 174 int inftl_write_oob(struct mtd_info *mtd, loff_t offs, size_t len,
 175                     size_t *retlen, uint8_t *buf)
 176 {
 177         struct mtd_oob_ops ops;
 178         int res;
 179
 180         ops.mode = MTD_OOB_PLACE;
 181         ops.ooboffs = offs & (mtd->writesize - 1);
 182         ops.ooblen = len;
 183         ops.oobbuf = buf;
 184         ops.datbuf = NULL;
 185
 186         res = mtd->write_oob(mtd, offs & ~(mtd->writesize - 1), &ops);
 187         *retlen = ops.oobretlen;
 188         return res;
 189 }
 190
 191 /*
 192  * Write data and oob to flash
 193  */
 194 static int inftl_write(struct mtd_info *mtd, loff_t offs, size_t len,
 195                        size_t *retlen, uint8_t *buf, uint8_t *oob)
 196 {
 197         struct mtd_oob_ops ops;
 198         int res;
 199
 200         ops.mode = MTD_OOB_PLACE;
 201         ops.ooboffs = offs;
 202         ops.ooblen = mtd->oobsize;
 203         ops.oobbuf = oob;
 204         ops.datbuf = buf;
 205         ops.len = len;
 206
 207         res = mtd->write_oob(mtd, offs & ~(mtd->writesize - 1), &ops);
 208         *retlen = ops.retlen;
 209         return res;
 210 }
 211
 212 /*
 213  * INFTL_findfreeblock: Find a free Erase Unit on the INFTL partition.
 214  *      This function is used when the give Virtual Unit Chain.
 215  */
 216 static u16 INFTL_findfreeblock(struct INFTLrecord *inftl, int desperate)
 217 {
 218         u16 pot = inftl->LastFreeEUN;
 219         int silly = inftl->nb_blocks;
 220
 221         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: INFTL_findfreeblock(inftl=%p,"
 222                 "desperate=%d)\n", inftl, desperate);
 223
 224         /*
 225          * Normally, we force a fold to happen before we run out of free
 226          * blocks completely.
 227          */
 228         if (!desperate && inftl->numfreeEUNs < 2) {
 229                 DEBUG(MTD_DEBUG_LEVEL1, "INFTL: there are too few free "
 230                         "EUNs (%d)\n", inftl->numfreeEUNs);
 231                 return 0xffff;
 232         }
 233
 234         /* Scan for a free block */
 235         do {
 236                 if (inftl->PUtable[pot] == BLOCK_FREE) {
 237                         inftl->LastFreeEUN = pot;
 238                         return pot;
 239                 }
 240
 241                 if (++pot > inftl->lastEUN)
 242                         pot = 0;
 243
 244                 if (!silly--) {
 245                         printk(KERN_WARNING "INFTL: no free blocks found!  "
 246                                 "EUN range = %d - %d\n", 0, inftl->LastFreeEUN);
 247                         return BLOCK_NIL;
 248                 }
 249         } while (pot != inftl->LastFreeEUN);
 250
 251         return BLOCK_NIL;
 252 }
 253
 254 static u16 INFTL_foldchain(struct INFTLrecord *inftl, unsigned thisVUC, unsigned pendingblock)
 255 {
 256         u16 BlockMap[MAX_SECTORS_PER_UNIT];
 257         unsigned char BlockDeleted[MAX_SECTORS_PER_UNIT];
 258         unsigned int thisEUN, prevEUN, status;
 259         struct mtd_info *mtd = inftl->mbd.mtd;
 260         int block, silly;
 261         unsigned int targetEUN;
 262         struct inftl_oob oob;
 263         size_t retlen;
 264
 265         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: INFTL_foldchain(inftl=%p,thisVUC=%d,"
 266                 "pending=%d)\n", inftl, thisVUC, pendingblock);
 267
 268         memset(BlockMap, 0xff, sizeof(BlockMap));
 269         memset(BlockDeleted, 0, sizeof(BlockDeleted));
 270
 271         thisEUN = targetEUN = inftl->VUtable[thisVUC];
 272
 273         if (thisEUN == BLOCK_NIL) {
 274                 printk(KERN_WARNING "INFTL: trying to fold non-existent "
 275                        "Virtual Unit Chain %d!\n", thisVUC);
 276                 return BLOCK_NIL;
 277         }
 278
 279         /*
 280          * Scan to find the Erase Unit which holds the actual data for each
 281          * 512-byte block within the Chain.
 282          */
 283         silly = MAX_LOOPS;
 284         while (thisEUN < inftl->nb_blocks) {
 285                 for (block = 0; block < inftl->EraseSize/SECTORSIZE; block ++) {
 286                         if ((BlockMap[block] != 0xffff) || BlockDeleted[block])
 287                                 continue;
 288
 289                         if (inftl_read_oob(mtd, (thisEUN * inftl->EraseSize)
 290                                            + (block * SECTORSIZE), 16, &retlen,
 291                                            (char *)&oob) < 0)
 292                                 status = SECTOR_IGNORE;
 293                         else
 294                                 status = oob.b.Status | oob.b.Status1;
 295
 296                         switch(status) {
 297                         case SECTOR_FREE:
 298                         case SECTOR_IGNORE:
 299                                 break;
 300                         case SECTOR_USED:
 301                                 BlockMap[block] = thisEUN;
 302                                 continue;
 303                         case SECTOR_DELETED:
 304                                 BlockDeleted[block] = 1;
 305                                 continue;
 306                         default:
 307                                 printk(KERN_WARNING "INFTL: unknown status "
 308                                         "for block %d in EUN %d: %x\n",
 309                                         block, thisEUN, status);
 310                                 break;
 311                         }
 312                 }
 313
 314                 if (!silly--) {
 315                         printk(KERN_WARNING "INFTL: infinite loop in Virtual "
 316                                 "Unit Chain 0x%x\n", thisVUC);
 317                         return BLOCK_NIL;
 318                 }
 319
 320                 thisEUN = inftl->PUtable[thisEUN];
 321         }
 322
 323         /*
 324          * OK. We now know the location of every block in the Virtual Unit
 325          * Chain, and the Erase Unit into which we are supposed to be copying.
 326          * Go for it.
 327          */
 328         DEBUG(MTD_DEBUG_LEVEL1, "INFTL: folding chain %d into unit %d\n",
 329                 thisVUC, targetEUN);
 330
 331         for (block = 0; block < inftl->EraseSize/SECTORSIZE ; block++) {
 332                 unsigned char movebuf[SECTORSIZE];
 333                 int ret;
 334
 335                 /*
 336                  * If it's in the target EUN already, or if it's pending write,
 337                  * do nothing.
 338                  */
 339                 if (BlockMap[block] == targetEUN || (pendingblock ==
 340                     (thisVUC * (inftl->EraseSize / SECTORSIZE) + block))) {
 341                         continue;
 342                 }
 343
 344                 /*
 345                  * Copy only in non free block (free blocks can only
 346                  * happen in case of media errors or deleted blocks).
 347                  */
 348                 if (BlockMap[block] == BLOCK_NIL)
 349                         continue;
 350
 351                 ret = mtd->read(mtd, (inftl->EraseSize * BlockMap[block]) +
 352                                 (block * SECTORSIZE), SECTORSIZE, &retlen,
 353                                 movebuf);
 354                 if (ret < 0 && ret != -EUCLEAN) {
 355                         ret = mtd->read(mtd,
 356                                         (inftl->EraseSize * BlockMap[block]) +
 357                                         (block * SECTORSIZE), SECTORSIZE,
 358                                         &retlen, movebuf);
 359                         if (ret != -EIO)
 360                                 DEBUG(MTD_DEBUG_LEVEL1, "INFTL: error went "
 361                                       "away on retry?\n");
 362                 }
 363                 memset(&oob, 0xff, sizeof(struct inftl_oob));
 364                 oob.b.Status = oob.b.Status1 = SECTOR_USED;
 365
 366                 inftl_write(inftl->mbd.mtd, (inftl->EraseSize * targetEUN) +
 367                             (block * SECTORSIZE), SECTORSIZE, &retlen,
 368                             movebuf, (char *)&oob);
 369         }
 370
 371         /*
 372          * Newest unit in chain now contains data from _all_ older units.
 373          * So go through and erase each unit in chain, oldest first. (This
 374          * is important, by doing oldest first if we crash/reboot then it
 375          * it is relatively simple to clean up the mess).
 376          */
 377         DEBUG(MTD_DEBUG_LEVEL1, "INFTL: want to erase virtual chain %d\n",
 378                 thisVUC);
 379
 380         for (;;) {
 381                 /* Find oldest unit in chain. */
 382                 thisEUN = inftl->VUtable[thisVUC];
 383                 prevEUN = BLOCK_NIL;
 384                 while (inftl->PUtable[thisEUN] != BLOCK_NIL) {
 385                         prevEUN = thisEUN;
 386                         thisEUN = inftl->PUtable[thisEUN];
 387                 }
 388
 389                 /* Check if we are all done */
 390                 if (thisEUN == targetEUN)
 391                         break;
 392
 393                 if (INFTL_formatblock(inftl, thisEUN) < 0) {
 394                         /*
 395                          * Could not erase : mark block as reserved.
 396                          */
 397                         inftl->PUtable[thisEUN] = BLOCK_RESERVED;
 398                 } else {
 399                         /* Correctly erased : mark it as free */
 400                         inftl->PUtable[thisEUN] = BLOCK_FREE;
 401                         inftl->PUtable[prevEUN] = BLOCK_NIL;
 402                         inftl->numfreeEUNs++;
 403                 }
 404         }
 405
 406         return targetEUN;
 407 }
 408
 409 static u16 INFTL_makefreeblock(struct INFTLrecord *inftl, unsigned pendingblock)
 410 {
 411         /*
 412          * This is the part that needs some cleverness applied.
 413          * For now, I'm doing the minimum applicable to actually
 414          * get the thing to work.
 415          * Wear-levelling and other clever stuff needs to be implemented
 416          * and we also need to do some assessment of the results when
 417          * the system loses power half-way through the routine.
 418          */
 419         u16 LongestChain = 0;
 420         u16 ChainLength = 0, thislen;
 421         u16 chain, EUN;
 422
 423         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: INFTL_makefreeblock(inftl=%p,"
 424                 "pending=%d)\n", inftl, pendingblock);
 425
 426         for (chain = 0; chain < inftl->nb_blocks; chain++) {
 427                 EUN = inftl->VUtable[chain];
 428                 thislen = 0;
 429
 430                 while (EUN <= inftl->lastEUN) {
 431                         thislen++;
 432                         EUN = inftl->PUtable[EUN];
 433                         if (thislen > 0xff00) {
 434                                 printk(KERN_WARNING "INFTL: endless loop in "
 435                                         "Virtual Chain %d: Unit %x\n",
 436                                         chain, EUN);
 437                                 /*
 438                                  * Actually, don't return failure.
 439                                  * Just ignore this chain and get on with it.
 440                                  */
 441                                 thislen = 0;
 442                                 break;
 443                         }
 444                 }
 445
 446                 if (thislen > ChainLength) {
 447                         ChainLength = thislen;
 448                         LongestChain = chain;
 449                 }
 450         }
 451
 452         if (ChainLength < 2) {
 453                 printk(KERN_WARNING "INFTL: no Virtual Unit Chains available "
 454                         "for folding. Failing request\n");
 455                 return BLOCK_NIL;
 456         }
 457
 458         return INFTL_foldchain(inftl, LongestChain, pendingblock);
 459 }
 460
 461 static int nrbits(unsigned int val, int bitcount)
 462 {
 463         int i, total = 0;
 464
 465         for (i = 0; (i < bitcount); i++)
 466                 total += (((0x1 << i) & val) ? 1 : 0);
 467         return total;
 468 }
 469
 470 /*
 471  * INFTL_findwriteunit: Return the unit number into which we can write
 472  *                      for this block. Make it available if it isn't already.
 473  */
 474 static inline u16 INFTL_findwriteunit(struct INFTLrecord *inftl, unsigned block)
 475 {
 476         unsigned int thisVUC = block / (inftl->EraseSize / SECTORSIZE);
 477         unsigned int thisEUN, writeEUN, prev_block, status;
 478         unsigned long blockofs = (block * SECTORSIZE) & (inftl->EraseSize -1);
 479         struct mtd_info *mtd = inftl->mbd.mtd;
 480         struct inftl_oob oob;
 481         struct inftl_bci bci;
 482         unsigned char anac, nacs, parity;
 483         size_t retlen;
 484         int silly, silly2 = 3;
 485
 486         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: INFTL_findwriteunit(inftl=%p,"
 487                 "block=%d)\n", inftl, block);
 488
 489         do {
 490                 /*
 491                  * Scan the media to find a unit in the VUC which has
 492                  * a free space for the block in question.
 493                  */
 494                 writeEUN = BLOCK_NIL;
 495                 thisEUN = inftl->VUtable[thisVUC];
 496                 silly = MAX_LOOPS;
 497
 498                 while (thisEUN <= inftl->lastEUN) {
 499                         inftl_read_oob(mtd, (thisEUN * inftl->EraseSize) +
 500                                        blockofs, 8, &retlen, (char *)&bci);
 501
 502                         status = bci.Status | bci.Status1;
 503                         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: status of block %d in "
 504                                 "EUN %d is %x\n", block , writeEUN, status);
 505
 506                         switch(status) {
 507                         case SECTOR_FREE:
 508                                 writeEUN = thisEUN;
 509                                 break;
 510                         case SECTOR_DELETED:
 511                         case SECTOR_USED:
 512                                 /* Can't go any further */
 513                                 goto hitused;
 514                         case SECTOR_IGNORE:
 515                                 break;
 516                         default:
 517                                 /*
 518                                  * Invalid block. Don't use it any more.
 519                                  * Must implement.
 520                                  */
 521                                 break;
 522                         }
 523
 524                         if (!silly--) {
 525                                 printk(KERN_WARNING "INFTL: infinite loop in "
 526                                         "Virtual Unit Chain 0x%x\n", thisVUC);
 527                                 return 0xffff;
 528                         }
 529
 530                         /* Skip to next block in chain */
 531                         thisEUN = inftl->PUtable[thisEUN];
 532                 }
 533
 534 hitused:
 535                 if (writeEUN != BLOCK_NIL)
 536                         return writeEUN;
 537
 538
 539                 /*
 540                  * OK. We didn't find one in the existing chain, or there
 541                  * is no existing chain. Allocate a new one.
 542                  */
 543                 writeEUN = INFTL_findfreeblock(inftl, 0);
 544
 545                 if (writeEUN == BLOCK_NIL) {
 546                         /*
 547                          * That didn't work - there were no free blocks just
 548                          * waiting to be picked up. We're going to have to fold
 549                          * a chain to make room.
 550                          */
 551                         thisEUN = INFTL_makefreeblock(inftl, 0xffff);
 552
 553                         /*
 554                          * Hopefully we free something, lets try again.
 555                          * This time we are desperate...
 556                          */
 557                         DEBUG(MTD_DEBUG_LEVEL1, "INFTL: using desperate==1 "
 558                                 "to find free EUN to accommodate write to "
 559                                 "VUC %d\n", thisVUC);
 560                         writeEUN = INFTL_findfreeblock(inftl, 1);
 561                         if (writeEUN == BLOCK_NIL) {
 562                                 /*
 563                                  * Ouch. This should never happen - we should
 564                                  * always be able to make some room somehow.
 565                                  * If we get here, we've allocated more storage
 566                                  * space than actual media, or our makefreeblock
 567                                  * routine is missing something.
 568                                  */
 569                                 printk(KERN_WARNING "INFTL: cannot make free "
 570                                         "space.\n");
 571 #ifdef DEBUG
 572                                 INFTL_dumptables(inftl);
 573                                 INFTL_dumpVUchains(inftl);
 574 #endif
 575                                 return BLOCK_NIL;
 576                         }
 577                 }
 578
 579                 /*
 580                  * Insert new block into virtual chain. Firstly update the
 581                  * block headers in flash...
 582                  */
 583                 anac = 0;
 584                 nacs = 0;
 585                 thisEUN = inftl->VUtable[thisVUC];
 586                 if (thisEUN != BLOCK_NIL) {
 587                         inftl_read_oob(mtd, thisEUN * inftl->EraseSize
 588                                        + 8, 8, &retlen, (char *)&oob.u);
 589                         anac = oob.u.a.ANAC + 1;
 590                         nacs = oob.u.a.NACs + 1;
 591                 }
 592
 593                 prev_block = inftl->VUtable[thisVUC];
 594                 if (prev_block < inftl->nb_blocks)
 595                         prev_block -= inftl->firstEUN;
 596
 597                 parity = (nrbits(thisVUC, 16) & 0x1) ? 0x1 : 0;
 598                 parity |= (nrbits(prev_block, 16) & 0x1) ? 0x2 : 0;
 599                 parity |= (nrbits(anac, 8) & 0x1) ? 0x4 : 0;
 600                 parity |= (nrbits(nacs, 8) & 0x1) ? 0x8 : 0;
 601
 602                 oob.u.a.virtualUnitNo = cpu_to_le16(thisVUC);
 603                 oob.u.a.prevUnitNo = cpu_to_le16(prev_block);
 604                 oob.u.a.ANAC = anac;
 605                 oob.u.a.NACs = nacs;
 606                 oob.u.a.parityPerField = parity;
 607                 oob.u.a.discarded = 0xaa;
 608
 609                 inftl_write_oob(mtd, writeEUN * inftl->EraseSize + 8, 8,
 610                                 &retlen, (char *)&oob.u);
 611
 612                 /* Also back up header... */
 613                 oob.u.b.virtualUnitNo = cpu_to_le16(thisVUC);
 614                 oob.u.b.prevUnitNo = cpu_to_le16(prev_block);
 615                 oob.u.b.ANAC = anac;
 616                 oob.u.b.NACs = nacs;
 617                 oob.u.b.parityPerField = parity;
 618                 oob.u.b.discarded = 0xaa;
 619
 620                 inftl_write_oob(mtd, writeEUN * inftl->EraseSize +
 621                                 SECTORSIZE * 4 + 8, 8, &retlen, (char *)&oob.u);
 622
 623                 inftl->PUtable[writeEUN] = inftl->VUtable[thisVUC];
 624                 inftl->VUtable[thisVUC] = writeEUN;
 625
 626                 inftl->numfreeEUNs--;
 627                 return writeEUN;
 628
 629         } while (silly2--);
 630
 631         printk(KERN_WARNING "INFTL: error folding to make room for Virtual "
 632                 "Unit Chain 0x%x\n", thisVUC);
 633         return 0xffff;
 634 }
 635
 636 /*
 637  * Given a Virtual Unit Chain, see if it can be deleted, and if so do it.
 638  */
 639 static void INFTL_trydeletechain(struct INFTLrecord *inftl, unsigned thisVUC)
 640 {
 641         struct mtd_info *mtd = inftl->mbd.mtd;
 642         unsigned char BlockUsed[MAX_SECTORS_PER_UNIT];
 643         unsigned char BlockDeleted[MAX_SECTORS_PER_UNIT];
 644         unsigned int thisEUN, status;
 645         int block, silly;
 646         struct inftl_bci bci;
 647         size_t retlen;
 648
 649         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: INFTL_trydeletechain(inftl=%p,"
 650                 "thisVUC=%d)\n", inftl, thisVUC);
 651
 652         memset(BlockUsed, 0, sizeof(BlockUsed));
 653         memset(BlockDeleted, 0, sizeof(BlockDeleted));
 654
 655         thisEUN = inftl->VUtable[thisVUC];
 656         if (thisEUN == BLOCK_NIL) {
 657                 printk(KERN_WARNING "INFTL: trying to delete non-existent "
 658                        "Virtual Unit Chain %d!\n", thisVUC);
 659                 return;
 660         }
 661
 662         /*
 663          * Scan through the Erase Units to determine whether any data is in
 664          * each of the 512-byte blocks within the Chain.
 665          */
 666         silly = MAX_LOOPS;
 667         while (thisEUN < inftl->nb_blocks) {
 668                 for (block = 0; block < inftl->EraseSize/SECTORSIZE; block++) {
 669                         if (BlockUsed[block] || BlockDeleted[block])
 670                                 continue;
 671
 672                         if (inftl_read_oob(mtd, (thisEUN * inftl->EraseSize)
 673                                            + (block * SECTORSIZE), 8 , &retlen,
 674                                           (char *)&bci) < 0)
 675                                 status = SECTOR_IGNORE;
 676                         else
 677                                 status = bci.Status | bci.Status1;
 678
 679                         switch(status) {
 680                         case SECTOR_FREE:
 681                         case SECTOR_IGNORE:
 682                                 break;
 683                         case SECTOR_USED:
 684                                 BlockUsed[block] = 1;
 685                                 continue;
 686                         case SECTOR_DELETED:
 687                                 BlockDeleted[block] = 1;
 688                                 continue;
 689                         default:
 690                                 printk(KERN_WARNING "INFTL: unknown status "
 691                                         "for block %d in EUN %d: 0x%x\n",
 692                                         block, thisEUN, status);
 693                         }
 694                 }
 695
 696                 if (!silly--) {
 697                         printk(KERN_WARNING "INFTL: infinite loop in Virtual "
 698                                 "Unit Chain 0x%x\n", thisVUC);
 699                         return;
 700                 }
 701
 702                 thisEUN = inftl->PUtable[thisEUN];
 703         }
 704
 705         for (block = 0; block < inftl->EraseSize/SECTORSIZE; block++)
 706                 if (BlockUsed[block])
 707                         return;
 708
 709         /*
 710          * For each block in the chain free it and make it available
 711          * for future use. Erase from the oldest unit first.
 712          */
 713         DEBUG(MTD_DEBUG_LEVEL1, "INFTL: deleting empty VUC %d\n", thisVUC);
 714
 715         for (;;) {
 716                 u16 *prevEUN = &inftl->VUtable[thisVUC];
 717                 thisEUN = *prevEUN;
 718
 719                 /* If the chain is all gone already, we're done */
 720                 if (thisEUN == BLOCK_NIL) {
 721                         DEBUG(MTD_DEBUG_LEVEL2, "INFTL: Empty VUC %d for deletion was already absent\n", thisEUN);
 722                         return;
 723                 }
 724
 725                 /* Find oldest unit in chain. */
 726                 while (inftl->PUtable[thisEUN] != BLOCK_NIL) {
 727                         BUG_ON(thisEUN >= inftl->nb_blocks);
 728
 729                         prevEUN = &inftl->PUtable[thisEUN];
 730                         thisEUN = *prevEUN;
 731                 }
 732
 733                 DEBUG(MTD_DEBUG_LEVEL3, "Deleting EUN %d from VUC %d\n",
 734                       thisEUN, thisVUC);
 735
 736                 if (INFTL_formatblock(inftl, thisEUN) < 0) {
 737                         /*
 738                          * Could not erase : mark block as reserved.
 739                          */
 740                         inftl->PUtable[thisEUN] = BLOCK_RESERVED;
 741                 } else {
 742                         /* Correctly erased : mark it as free */
 743                         inftl->PUtable[thisEUN] = BLOCK_FREE;
 744                         inftl->numfreeEUNs++;
 745                 }
 746
 747                 /* Now sort out whatever was pointing to it... */
 748                 *prevEUN = BLOCK_NIL;
 749
 750                 /* Ideally we'd actually be responsive to new
 751                    requests while we're doing this -- if there's
 752                    free space why should others be made to wait? */
 753                 cond_resched();
 754         }
 755
 756         inftl->VUtable[thisVUC] = BLOCK_NIL;
 757 }
 758
 759 static int INFTL_deleteblock(struct INFTLrecord *inftl, unsigned block)
 760 {
 761         unsigned int thisEUN = inftl->VUtable[block / (inftl->EraseSize / SECTORSIZE)];
 762         unsigned long blockofs = (block * SECTORSIZE) & (inftl->EraseSize - 1);
 763         struct mtd_info *mtd = inftl->mbd.mtd;
 764         unsigned int status;
 765         int silly = MAX_LOOPS;
 766         size_t retlen;
 767         struct inftl_bci bci;
 768
 769         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: INFTL_deleteblock(inftl=%p,"
 770                 "block=%d)\n", inftl, block);
 771
 772         while (thisEUN < inftl->nb_blocks) {
 773                 if (inftl_read_oob(mtd, (thisEUN * inftl->EraseSize) +
 774                                    blockofs, 8, &retlen, (char *)&bci) < 0)
 775                         status = SECTOR_IGNORE;
 776                 else
 777                         status = bci.Status | bci.Status1;
 778
 779                 switch (status) {
 780                 case SECTOR_FREE:
 781                 case SECTOR_IGNORE:
 782                         break;
 783                 case SECTOR_DELETED:
 784                         thisEUN = BLOCK_NIL;
 785                         goto foundit;
 786                 case SECTOR_USED:
 787                         goto foundit;
 788                 default:
 789                         printk(KERN_WARNING "INFTL: unknown status for "
 790                                 "block %d in EUN %d: 0x%x\n",
 791                                 block, thisEUN, status);
 792                         break;
 793                 }
 794
 795                 if (!silly--) {
 796                         printk(KERN_WARNING "INFTL: infinite loop in Virtual "
 797                                 "Unit Chain 0x%x\n",
 798                                 block / (inftl->EraseSize / SECTORSIZE));
 799                         return 1;
 800                 }
 801                 thisEUN = inftl->PUtable[thisEUN];
 802         }
 803
 804 foundit:
 805         if (thisEUN != BLOCK_NIL) {
 806                 loff_t ptr = (thisEUN * inftl->EraseSize) + blockofs;
 807
 808                 if (inftl_read_oob(mtd, ptr, 8, &retlen, (char *)&bci) < 0)
 809                         return -EIO;
 810                 bci.Status = bci.Status1 = SECTOR_DELETED;
 811                 if (inftl_write_oob(mtd, ptr, 8, &retlen, (char *)&bci) < 0)
 812                         return -EIO;
 813                 INFTL_trydeletechain(inftl, block / (inftl->EraseSize / SECTORSIZE));
 814         }
 815         return 0;
 816 }
 817
 818 static int inftl_writeblock(struct mtd_blktrans_dev *mbd, unsigned long block,
 819                             char *buffer)
 820 {
 821         struct INFTLrecord *inftl = (void *)mbd;
 822         unsigned int writeEUN;
 823         unsigned long blockofs = (block * SECTORSIZE) & (inftl->EraseSize - 1);
 824         size_t retlen;
 825         struct inftl_oob oob;
 826         char *p, *pend;
 827
 828         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: inftl_writeblock(inftl=%p,block=%ld,"
 829                 "buffer=%p)\n", inftl, block, buffer);
 830
 831         /* Is block all zero? */
 832         pend = buffer + SECTORSIZE;
 833         for (p = buffer; p < pend && !*p; p++)
 834                 ;
 835
 836         if (p < pend) {
 837                 writeEUN = INFTL_findwriteunit(inftl, block);
 838
 839                 if (writeEUN == BLOCK_NIL) {
 840                         printk(KERN_WARNING "inftl_writeblock(): cannot find "
 841                                 "block to write to\n");
 842                         /*
 843                          * If we _still_ haven't got a block to use,
 844                          * we're screwed.
 845                          */
 846                         return 1;
 847                 }
 848
 849                 memset(&oob, 0xff, sizeof(struct inftl_oob));
 850                 oob.b.Status = oob.b.Status1 = SECTOR_USED;
 851
 852                 inftl_write(inftl->mbd.mtd, (writeEUN * inftl->EraseSize) +
 853                             blockofs, SECTORSIZE, &retlen, (char *)buffer,
 854                             (char *)&oob);
 855                 /*
 856                  * need to write SECTOR_USED flags since they are not written
 857                  * in mtd_writeecc
 858                  */
 859         } else {
 860                 INFTL_deleteblock(inftl, block);
 861         }
 862
 863         return 0;
 864 }
 865
 866 static int inftl_readblock(struct mtd_blktrans_dev *mbd, unsigned long block,
 867                            char *buffer)
 868 {
 869         struct INFTLrecord *inftl = (void *)mbd;
 870         unsigned int thisEUN = inftl->VUtable[block / (inftl->EraseSize / SECTORSIZE)];
 871         unsigned long blockofs = (block * SECTORSIZE) & (inftl->EraseSize - 1);
 872         struct mtd_info *mtd = inftl->mbd.mtd;
 873         unsigned int status;
 874         int silly = MAX_LOOPS;
 875         struct inftl_bci bci;
 876         size_t retlen;
 877
 878         DEBUG(MTD_DEBUG_LEVEL3, "INFTL: inftl_readblock(inftl=%p,block=%ld,"
 879                 "buffer=%p)\n", inftl, block, buffer);
 880
 881         while (thisEUN < inftl->nb_blocks) {
 882                 if (inftl_read_oob(mtd, (thisEUN * inftl->EraseSize) +
 883                                   blockofs, 8, &retlen, (char *)&bci) < 0)
 884                         status = SECTOR_IGNORE;
 885                 else
 886                         status = bci.Status | bci.Status1;
 887
 888                 switch (status) {
 889                 case SECTOR_DELETED:
 890                         thisEUN = BLOCK_NIL;
 891                         goto foundit;
 892                 case SECTOR_USED:
 893                         goto foundit;
 894                 case SECTOR_FREE:
 895                 case SECTOR_IGNORE:
 896                         break;
 897                 default:
 898                         printk(KERN_WARNING "INFTL: unknown status for "
 899                                 "block %ld in EUN %d: 0x%04x\n",
 900                                 block, thisEUN, status);
 901                         break;
 902                 }
 903
 904                 if (!silly--) {
 905                         printk(KERN_WARNING "INFTL: infinite loop in "
 906                                 "Virtual Unit Chain 0x%lx\n",
 907                                 block / (inftl->EraseSize / SECTORSIZE));
 908                         return 1;
 909                 }
 910
 911                 thisEUN = inftl->PUtable[thisEUN];
 912         }
 913
 914 foundit:
 915         if (thisEUN == BLOCK_NIL) {
 916                 /* The requested block is not on the media, return all 0x00 */
 917                 memset(buffer, 0, SECTORSIZE);
 918         } else {
 919                 size_t retlen;
 920                 loff_t ptr = (thisEUN * inftl->EraseSize) + blockofs;
 921                 int ret = mtd->read(mtd, ptr, SECTORSIZE, &retlen, buffer);
 922
 923                 /* Handle corrected bit flips gracefully */
 924                 if (ret < 0 && ret != -EUCLEAN)
 925                         return -EIO;
 926         }
 927         return 0;
 928 }
 929
 930 static int inftl_getgeo(struct mtd_blktrans_dev *dev, struct hd_geometry *geo)
 931 {
 932         struct INFTLrecord *inftl = (void *)dev;
 933
 934         geo->heads = inftl->heads;
 935         geo->sectors = inftl->sectors;
 936         geo->cylinders = inftl->cylinders;
 937
 938         return 0;
 939 }
 940
 941 static struct mtd_blktrans_ops inftl_tr = {
 942         .name           = "inftl",
 943         .major          = INFTL_MAJOR,
 944         .part_bits      = INFTL_PARTN_BITS,
 945         .blksize        = 512,
 946         .getgeo         = inftl_getgeo,
 947         .readsect       = inftl_readblock,
 948         .writesect      = inftl_writeblock,
 949         .add_mtd        = inftl_add_mtd,
 950         .remove_dev     = inftl_remove_dev,
 951         .owner          = THIS_MODULE,
 952 };
 953
 954 static int __init init_inftl(void)
 955 {
 956         printk(KERN_INFO "INFTL: inftlcore.c $Revision: 1.19 $, "
 957                 "inftlmount.c %s\n", inftlmountrev);
 958
 959         return register_mtd_blktrans(&inftl_tr);
 960 }
 961
 962 static void __exit cleanup_inftl(void)
 963 {
 964         deregister_mtd_blktrans(&inftl_tr);
 965 }
 966
 967 module_init(init_inftl);
 968 module_exit(cleanup_inftl);
 969
 970 MODULE_LICENSE("GPL");
 971 MODULE_AUTHOR("Greg Ungerer <gerg@snapgear.com>, David Woodhouse <dwmw2@infradead.org>, Fabrice Bellard <fabrice.bellard@netgem.com> et al.");
 972 MODULE_DESCRIPTION("Support code for Inverse Flash Translation Layer, used on M-Systems DiskOnChip 2000, Millennium and Millennium Plus");