Remove never used functions and declarations.
[yaffs2.git] / yaffs_guts.c
1 /*
2  * YAFFS: Yet another FFS. A NAND-flash specific file system. 
3  *
4  * Copyright (C) 2002 Aleph One Ltd.
5  *   for Toby Churchill Ltd and Brightstar Engineering
6  *
7  * Created by Charles Manning <charles@aleph1.co.uk>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License version 2 as
11  * published by the Free Software Foundation.
12  *
13  */
14  //yaffs_guts.c
15
16 const char *yaffs_guts_c_version="$Id: yaffs_guts.c,v 1.13 2005-08-01 04:53:01 charles Exp $";
17
18 #include "yportenv.h"
19
20 #include "yaffsinterface.h"
21 #include "yaffs_guts.h"
22 #include "yaffs_tagsvalidity.h"
23
24
25 #include "yaffs_tagscompat.h"
26
27 #ifdef CONFIG_YAFFS_WINCE
28 void yfsd_LockYAFFS(BOOL fsLockOnly);
29 void yfsd_UnlockYAFFS(BOOL fsLockOnly);
30 #endif
31
32 #define YAFFS_PASSIVE_GC_CHUNKS 2
33
34 #if 0
35 // Use Steven Hill's ECC struff instead
36 // External functions for ECC on data
37 void nand_calculate_ecc (const u_char *dat, u_char *ecc_code);
38 int nand_correct_data (u_char *dat, u_char *read_ecc, u_char *calc_ecc);
39 #define yaffs_ECCCalculate(data,ecc) nand_calculate_ecc(data,ecc)
40 #define yaffs_ECCCorrect(data,read_ecc,calc_ecc) nand_correct_ecc(data,read_ecc,calc_ecc)
41 #else
42 #include "yaffs_ecc.h"
43 #endif
44
45 #if 0
46 // countBits is a quick way of counting the number of bits in a byte.
47 // ie. countBits[n] holds the number of 1 bits in a byte with the value n.
48
49 static const char yaffs_countBitsTable[256] =
50 {
51 0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4,
52 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,
53 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,
54 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
55 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,
56 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
57 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
58 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,
59 1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,
60 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
61 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
62 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,
63 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
64 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,
65 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,
66 4,5,5,6,5,6,6,7,5,6,6,7,6,7,7,8
67 };
68
69 static int yaffs_CountBits(__u8 x)
70 {
71         int retVal;
72         retVal = yaffs_countBitsTable[x];
73         return retVal;
74 }
75
76 #endif
77
78
79 #if 0
80 // Stuff using yea olde tags
81 static void yaffs_LoadTagsIntoSpare(yaffs_Spare *sparePtr, yaffs_Tags *tagsPtr);
82 static void yaffs_GetTagsFromSpare(yaffs_Device *dev, yaffs_Spare *sparePtr,yaffs_Tags *tagsPtr);
83
84 static int yaffs_ReadChunkTagsFromNAND(yaffs_Device *dev,int chunkInNAND, yaffs_Tags *tags, int *chunkDeleted);
85 static int yaffs_TagsMatch(const yaffs_Tags *tags, int objectId, int chunkInObject, int chunkDeleted);
86 #else
87 #endif
88
89 // NAND access
90
91
92 static Y_INLINE int yaffs_ReadChunkWithTagsFromNAND(yaffs_Device *dev,int chunkInNAND, __u8 *buffer, yaffs_ExtendedTags *tags);
93 static Y_INLINE int yaffs_WriteChunkWithTagsToNAND(yaffs_Device *dev,int chunkInNAND, const __u8 *data, yaffs_ExtendedTags *tags);
94 static Y_INLINE int yaffs_MarkBlockBad(yaffs_Device *dev, int blockNo);
95 static Y_INLINE int yaffs_QueryInitialBlockState(yaffs_Device *dev,int blockNo, yaffs_BlockState *state,unsigned *sequenceNumber);
96 // Local prototypes
97 static int yaffs_WriteNewChunkWithTagsToNAND(yaffs_Device *dev, const __u8 *buffer, yaffs_ExtendedTags *tags, int useReserve);
98 #if 0
99 static int yaffs_CheckObjectHashSanity(yaffs_Device *dev);
100 #endif
101 static int yaffs_PutChunkIntoFile(yaffs_Object *in,int chunkInInode, int chunkInNAND, int inScan);
102
103 static yaffs_Object *yaffs_CreateNewObject(yaffs_Device *dev,int number,yaffs_ObjectType type);
104 static void yaffs_AddObjectToDirectory(yaffs_Object *directory, yaffs_Object *obj);
105 static int yaffs_UpdateObjectHeader(yaffs_Object *in,const YCHAR *name, int force,int isShrink, int shadows);
106 static void yaffs_RemoveObjectFromDirectory(yaffs_Object *obj);
107 static int yaffs_CheckStructures(void);
108 static int yaffs_DeleteWorker(yaffs_Object *in, yaffs_Tnode *tn, __u32 level, int chunkOffset,int *limit);
109 static int yaffs_DoGenericObjectDeletion(yaffs_Object *in);
110
111 static yaffs_BlockInfo *yaffs_GetBlockInfo(yaffs_Device *dev,int blockNo);
112
113 static __u8 *yaffs_GetTempBuffer(yaffs_Device *dev,int lineNo);
114 static void yaffs_ReleaseTempBuffer(yaffs_Device *dev, __u8 *buffer, int lineNo);
115
116
117 // Robustification (if it ever comes about...)
118 static void yaffs_RetireBlock(yaffs_Device *dev,int blockInNAND);
119 #if 0
120 static void yaffs_HandleReadDataError(yaffs_Device *dev,int chunkInNAND);
121 #endif
122 static void yaffs_HandleWriteChunkError(yaffs_Device *dev,int chunkInNAND);
123 static void yaffs_HandleWriteChunkOk(yaffs_Device *dev,int chunkInNAND,const __u8 *data, const yaffs_ExtendedTags *tags);
124 static void yaffs_HandleUpdateChunk(yaffs_Device *dev,int chunkInNAND,  const yaffs_ExtendedTags *tags);
125
126 static int  yaffs_CheckChunkErased(struct yaffs_DeviceStruct *dev,int chunkInNAND);
127
128 static int yaffs_UnlinkWorker(yaffs_Object *obj);
129 static void yaffs_DestroyObject(yaffs_Object *obj);
130
131 #if 0
132 static int yaffs_VerifyCompare(const __u8 *d0, const __u8 * d1, const yaffs_Spare *s0, const yaffs_Spare *s1,int dataSize);
133 #endif
134
135 static int yaffs_TagsMatch(const yaffs_ExtendedTags *tags, int objectId, int chunkInObject);
136
137
138 loff_t yaffs_GetFileSize(yaffs_Object *obj);
139
140
141 static int yaffs_AllocateChunk(yaffs_Device *dev,int useReserve);
142
143 static void yaffs_VerifyFreeChunks(yaffs_Device *dev);
144
145 #ifdef YAFFS_PARANOID
146 static int yaffs_CheckFileSanity(yaffs_Object *in);
147 #else
148 #define yaffs_CheckFileSanity(in)
149 #endif
150
151 static void yaffs_InvalidateWholeChunkCache(yaffs_Object *in);
152 static void yaffs_InvalidateChunkCache(yaffs_Object *object, int chunkId);
153
154 static int yaffs_ReadChunkWithTagsFromNAND(yaffs_Device *dev,int chunkInNAND, __u8 *buffer, yaffs_ExtendedTags *tags)
155 {
156         chunkInNAND -= dev->chunkOffset;
157         
158         if(dev->readChunkWithTagsFromNAND)
159                 return dev->readChunkWithTagsFromNAND(dev,chunkInNAND,buffer,tags);
160         else
161                 return yaffs_TagsCompatabilityReadChunkWithTagsFromNAND(dev,chunkInNAND,buffer,tags);
162 }
163
164 static Y_INLINE int yaffs_WriteChunkWithTagsToNAND(yaffs_Device *dev,int chunkInNAND, const __u8 *buffer, yaffs_ExtendedTags *tags)
165 {
166         chunkInNAND -= dev->chunkOffset;
167         
168         if(tags)
169         {
170                 tags->sequenceNumber = dev->sequenceNumber;
171                 tags->chunkUsed = 1;
172                 if(!yaffs_ValidateTags(tags))
173                 {
174                         T(YAFFS_TRACE_ERROR,(TSTR("Writing uninitialised tags" TENDSTR)));
175                         YBUG();
176                 }
177                 T(YAFFS_TRACE_WRITE,(TSTR("Writing chunk %d tags %d %d"TENDSTR),chunkInNAND,tags->objectId,tags->chunkId));
178         }
179         else
180         {
181                         T(YAFFS_TRACE_ERROR,(TSTR("Writing with no tags" TENDSTR)));
182                         YBUG();
183         }
184
185         if(dev->writeChunkWithTagsToNAND)
186                 return dev->writeChunkWithTagsToNAND(dev,chunkInNAND,buffer,tags);
187         else
188                 return yaffs_TagsCompatabilityWriteChunkWithTagsToNAND(dev,chunkInNAND,buffer,tags);
189 }
190
191 static Y_INLINE int yaffs_MarkBlockBad(yaffs_Device *dev, int blockNo)
192 {
193         blockNo -= dev->blockOffset;
194         
195         if(dev->markNANDBlockBad)
196                 return dev->markNANDBlockBad(dev,blockNo);
197         else
198                 return yaffs_TagsCompatabilityMarkNANDBlockBad(dev,blockNo);
199 }
200 static Y_INLINE int yaffs_QueryInitialBlockState(yaffs_Device *dev,int blockNo, yaffs_BlockState *state, unsigned *sequenceNumber)
201 {
202         blockNo -= dev->blockOffset;
203         
204         if(dev->queryNANDBlock)
205                 return dev->queryNANDBlock(dev,blockNo,state,sequenceNumber);
206         else
207                 return yaffs_TagsCompatabilityQueryNANDBlock(dev,blockNo,state,sequenceNumber);
208 }
209
210 static int yaffs_EraseBlockInNAND(struct yaffs_DeviceStruct *dev,int blockInNAND)
211 {
212         int result;
213         
214         blockInNAND -= dev->blockOffset;
215
216         dev->nBlockErasures++;
217         result = dev->eraseBlockInNAND(dev,blockInNAND);
218
219         if(!result)result = dev->eraseBlockInNAND(dev,blockInNAND); // If at first we don't succeed, try again *once*.
220         return result;
221 }
222
223 static int yaffs_InitialiseNAND(struct yaffs_DeviceStruct *dev)
224 {
225         return dev->initialiseNAND(dev);
226 }
227
228
229
230
231 // Temporary buffer manipulations
232
233 static __u8 *yaffs_GetTempBuffer(yaffs_Device *dev,int lineNo)
234 {
235         int i,j;
236         for(i = 0; i < YAFFS_N_TEMP_BUFFERS; i++)
237         {
238                 if(dev->tempBuffer[i].line == 0)
239                 {
240                         dev->tempBuffer[i].line = lineNo;
241                         if((i+1) > dev->maxTemp)
242                         {
243                                 dev->maxTemp = i + 1;
244                                 for(j = 0; j <= i; j++)
245                                         dev->tempBuffer[j].maxLine = dev->tempBuffer[j].line;
246                         }       
247                         
248                         return dev->tempBuffer[i].buffer;
249                 }
250         }
251
252         T(YAFFS_TRACE_BUFFERS,(TSTR("Out of temp buffers at line %d, other held by lines:"),lineNo));
253         for(i = 0; i < YAFFS_N_TEMP_BUFFERS; i++)
254         {
255                 T(YAFFS_TRACE_BUFFERS,(TSTR(" %d "),dev->tempBuffer[i].line));
256         }
257         T(YAFFS_TRACE_BUFFERS,(TSTR(" "TENDSTR)));
258         
259         dev->unmanagedTempAllocations++;
260         // Get an unmanaged one
261         return YMALLOC(dev->nBytesPerChunk);    
262         
263         
264 }
265
266 static void yaffs_ReleaseTempBuffer(yaffs_Device *dev, __u8 *buffer, int lineNo)
267 {
268         int i;
269         for(i = 0; i < YAFFS_N_TEMP_BUFFERS; i++)
270         {
271                 if(dev->tempBuffer[i].buffer == buffer)
272                 {
273                         dev->tempBuffer[i].line = 0;
274                         return;
275                 }
276         }
277         
278         if(buffer)
279         {
280                 // assume it is an unmanaged one.
281                 T(YAFFS_TRACE_BUFFERS,(TSTR("Releasing unmanaged temp buffer in line %d" TENDSTR),lineNo));
282                 YFREE(buffer);
283                 dev->unmanagedTempDeallocations++;
284         }
285
286 }
287
288
289 // Chunk bitmap manipulations
290
291 static Y_INLINE __u8 *yaffs_BlockBits(yaffs_Device *dev, int blk)
292 {
293         if(blk < dev->internalStartBlock || blk > dev->internalEndBlock)
294         {
295                 T(YAFFS_TRACE_ERROR,(TSTR("**>> yaffs: BlockBits block %d is not valid" TENDSTR),blk));
296                 YBUG();
297         }
298         return dev->chunkBits + (dev->chunkBitmapStride * (blk - dev->internalStartBlock));
299 }
300
301 static Y_INLINE void yaffs_ClearChunkBits(yaffs_Device *dev,int blk)
302 {
303         __u8 *blkBits = yaffs_BlockBits(dev,blk);
304
305          memset(blkBits,0,dev->chunkBitmapStride);
306 }
307
308 static Y_INLINE void yaffs_ClearChunkBit(yaffs_Device *dev,int blk,int chunk)
309 {
310         __u8 *blkBits = yaffs_BlockBits(dev,blk);
311         
312         blkBits[chunk/8] &=  ~ (1<<(chunk & 7));
313 }
314
315 static Y_INLINE void yaffs_SetChunkBit(yaffs_Device *dev,int blk,int chunk)
316 {
317         __u8 *blkBits = yaffs_BlockBits(dev,blk);
318
319         blkBits[chunk/8] |=   (1<<(chunk & 7));
320 }
321
322 static Y_INLINE int yaffs_CheckChunkBit(yaffs_Device *dev,int blk,int chunk)
323 {
324         __u8 *blkBits = yaffs_BlockBits(dev,blk);
325         return (blkBits[chunk/8] &  (1<<(chunk & 7))) ? 1 :0;
326 }
327
328 static Y_INLINE int yaffs_StillSomeChunkBits(yaffs_Device *dev,int blk)
329 {
330         __u8 *blkBits = yaffs_BlockBits(dev,blk);
331         int i;
332         for(i = 0; i < dev->chunkBitmapStride; i++)
333         {
334                 if(*blkBits) return 1;
335                 blkBits++;
336         }
337         return 0;
338 }
339
340
341 static  Y_INLINE int yaffs_HashFunction(int n)
342 {
343         return (n % YAFFS_NOBJECT_BUCKETS);
344 }
345
346
347 yaffs_Object *yaffs_Root(yaffs_Device *dev)
348 {
349         return dev->rootDir;
350 }
351
352 yaffs_Object *yaffs_LostNFound(yaffs_Device *dev)
353 {
354         return dev->lostNFoundDir;
355 }
356
357
358
359
360 int yaffs_CheckFF(__u8 *buffer,int nBytes)
361 {
362         //Horrible, slow implementation
363         while(nBytes--)
364         {
365                 if(*buffer != 0xFF) return 0;
366                 buffer++;
367         }
368         return 1;
369 }
370
371 static int yaffs_CheckChunkErased(struct yaffs_DeviceStruct *dev,int chunkInNAND)
372 {
373
374         int retval = YAFFS_OK;
375         __u8 *data = yaffs_GetTempBuffer(dev,__LINE__);
376         yaffs_ExtendedTags tags;
377
378 // NCB          dev->readChunkWithTagsFromNAND(dev,chunkInNAND,data,&tags);
379         yaffs_ReadChunkWithTagsFromNAND(dev,chunkInNAND,data,&tags);
380         
381         if(!yaffs_CheckFF(data,dev->nBytesPerChunk) || tags.chunkUsed)
382         {
383                 T(YAFFS_TRACE_NANDACCESS,(TSTR("Chunk %d not erased" TENDSTR),chunkInNAND));
384                 retval = YAFFS_FAIL;
385         }
386
387         yaffs_ReleaseTempBuffer(dev,data,__LINE__);
388         
389         return retval;
390         
391 }
392
393
394
395 #if 1
396 static int yaffs_WriteNewChunkWithTagsToNAND(struct yaffs_DeviceStruct *dev, const __u8 *data, yaffs_ExtendedTags *tags,int useReserve)
397 {
398         int chunk;
399         
400         int writeOk = 1;
401         int attempts = 0;
402         
403
404         
405         do{
406                 chunk = yaffs_AllocateChunk(dev,useReserve);
407         
408                 if(chunk >= 0)
409                 {
410
411                         // First check this chunk is erased...
412 #ifndef CONFIG_YAFFS_DISABLE_CHUNK_ERASED_CHECK
413                         writeOk = yaffs_CheckChunkErased(dev,chunk);
414 #endif          
415                         if(!writeOk)
416                         {
417                                 T(YAFFS_TRACE_ERROR,(TSTR("**>> yaffs chunk %d was not erased" TENDSTR),chunk));
418                         }
419                         else
420                         {
421                                 writeOk =  yaffs_WriteChunkWithTagsToNAND(dev,chunk,data,tags);
422                         }
423                         attempts++;
424
425                         if(writeOk)
426                         {
427                                 // Copy the data into the robustification buffer.
428                                 // NB We do this at the end to prevent duplicates in the case of a write error.
429                                 //Todo
430                                 yaffs_HandleWriteChunkOk(dev,chunk,data,tags);
431                         }
432                         else
433                         {
434                                 yaffs_HandleWriteChunkError(dev,chunk);
435                         }
436                 }
437                 
438         } while(chunk >= 0 && ! writeOk);
439         
440         if(attempts > 1)
441         {
442                 T(YAFFS_TRACE_ERROR,(TSTR("**>> yaffs write required %d attempts" TENDSTR),attempts));
443                 dev->nRetriedWrites+= (attempts - 1);   
444         }
445         
446
447         
448         return chunk;
449 }
450 #endif
451
452
453 ///
454 // Functions for robustisizing
455 //
456 //
457
458 static void yaffs_RetireBlock(yaffs_Device *dev,int blockInNAND)
459 {
460         
461         yaffs_MarkBlockBad(dev,blockInNAND);
462         
463         yaffs_GetBlockInfo(dev,blockInNAND)->blockState = YAFFS_BLOCK_STATE_DEAD;
464
465         dev->nRetiredBlocks++;
466 }
467
468
469 #if 0
470 static int yaffs_RewriteBufferedBlock(yaffs_Device *dev)
471 {
472         dev->doingBufferedBlockRewrite = 1;
473         //
474         //      Remove erased chunks
475         //  Rewrite existing chunks to a new block
476         //      Set current write block to the new block
477         
478         dev->doingBufferedBlockRewrite = 0;
479         
480         return 1;
481 }
482
483
484 static void yaffs_HandleReadDataError(yaffs_Device *dev,int chunkInNAND)
485 {
486         int blockInNAND = chunkInNAND/dev->nChunksPerBlock;
487
488         // Mark the block for retirement
489         yaffs_GetBlockInfo(dev,blockInNAND)->needsRetiring = 1;
490         T(YAFFS_TRACE_ERROR | YAFFS_TRACE_BAD_BLOCKS,(TSTR("**>>Block %d marked for retirement" TENDSTR),blockInNAND));
491
492
493         //TODO  
494         // Just do a garbage collection on the affected block then retire the block
495         // NB recursion
496 }
497
498
499 static void yaffs_CheckWrittenBlock(yaffs_Device *dev,int chunkInNAND)
500 {
501 }
502
503 #endif
504
505 static void yaffs_HandleWriteChunkOk(yaffs_Device *dev,int chunkInNAND,const __u8 *data, const yaffs_ExtendedTags *tags)
506 {
507 }
508
509 static void yaffs_HandleUpdateChunk(yaffs_Device *dev,int chunkInNAND, const yaffs_ExtendedTags *tags)
510 {
511 }
512
513 static void yaffs_HandleWriteChunkError(yaffs_Device *dev,int chunkInNAND)
514 {
515         int blockInNAND = chunkInNAND/dev->nChunksPerBlock;
516
517         // Mark the block for retirement
518         yaffs_GetBlockInfo(dev,blockInNAND)->needsRetiring = 1;
519         // Delete the chunk
520         yaffs_DeleteChunk(dev,chunkInNAND,1,__LINE__);
521 }
522
523
524
525 #if 0
526 static int yaffs_VerifyCompare(const __u8 *d0, const __u8 * d1, const yaffs_Spare *s0, const yaffs_Spare *s1,int dataSize)
527 {
528
529
530         if( memcmp(d0,d1,dataSize) != 0 ||
531                 s0->tagByte0 != s1->tagByte0 ||
532                 s0->tagByte1 != s1->tagByte1 ||
533                 s0->tagByte2 != s1->tagByte2 ||
534                 s0->tagByte3 != s1->tagByte3 ||
535                 s0->tagByte4 != s1->tagByte4 ||
536                 s0->tagByte5 != s1->tagByte5 ||
537                 s0->tagByte6 != s1->tagByte6 ||
538                 s0->tagByte7 != s1->tagByte7 ||
539                 s0->ecc1[0]  != s1->ecc1[0]  ||
540                 s0->ecc1[1]  != s1->ecc1[1]  ||
541                 s0->ecc1[2]  != s1->ecc1[2]  ||
542                 s0->ecc2[0]  != s1->ecc2[0]  ||
543                 s0->ecc2[1]  != s1->ecc2[1]  ||
544                 s0->ecc2[2]  != s1->ecc2[2] )
545                 {
546                         return 0;
547                 }
548         
549         return 1;
550 }
551 #endif
552
553
554 ///////////////////////// Object management //////////////////
555 // List of spare objects
556 // The list is hooked together using the first pointer
557 // in the object
558
559 // static yaffs_Object *yaffs_freeObjects = NULL;
560
561 // static int yaffs_nFreeObjects;
562
563 // static yaffs_ObjectList *yaffs_allocatedObjectList = NULL;
564
565 // static yaffs_ObjectBucket yaffs_objectBucket[YAFFS_NOBJECT_BUCKETS];
566
567
568 static __u16 yaffs_CalcNameSum(const YCHAR *name)
569 {
570         __u16 sum = 0;
571         __u16 i = 1;
572         
573         YUCHAR *bname = (YUCHAR *)name;
574         if(bname)
575         {
576                 while ((*bname) && (i <=YAFFS_MAX_NAME_LENGTH))
577                 {
578
579 #ifdef CONFIG_YAFFS_CASE_INSENSITIVE
580                         sum += yaffs_toupper(*bname) * i;
581 #else
582                         sum += (*bname) * i;
583 #endif
584                         i++;
585                         bname++;
586                 }
587         }
588         return sum;
589 }
590
591 static void yaffs_SetObjectName(yaffs_Object *obj, const YCHAR *name)
592 {
593 #ifdef CONFIG_YAFFS_SHORT_NAMES_IN_RAM
594                                         if(name && yaffs_strlen(name) <= YAFFS_SHORT_NAME_LENGTH)
595                                         {
596                                                 yaffs_strcpy(obj->shortName,name);
597                                         }
598                                         else
599                                         {
600                                                 obj->shortName[0]=_Y('\0');
601                                         }
602 #endif
603                                         obj->sum = yaffs_CalcNameSum(name);
604 }
605
606 #if 0
607 void yaffs_CalcECC(const __u8 *data, yaffs_Spare *spare)
608 {
609         yaffs_ECCCalculate(data , spare->ecc1);
610         yaffs_ECCCalculate(&data[256] , spare->ecc2);
611 }
612 #endif
613
614
615 ///////////////////////// TNODES ///////////////////////
616
617 // List of spare tnodes
618 // The list is hooked together using the first pointer
619 // in the tnode.
620
621 //static yaffs_Tnode *yaffs_freeTnodes = NULL;
622
623 // static int yaffs_nFreeTnodes;
624
625 //static yaffs_TnodeList *yaffs_allocatedTnodeList = NULL;
626
627
628
629 // yaffs_CreateTnodes creates a bunch more tnodes and
630 // adds them to the tnode free list.
631 // Don't use this function directly
632
633 static int yaffs_CreateTnodes(yaffs_Device *dev,int nTnodes)
634 {
635     int i;
636     yaffs_Tnode *newTnodes;
637     yaffs_TnodeList *tnl;
638     
639     if(nTnodes < 1) return YAFFS_OK;
640    
641         // make these things
642         
643     newTnodes = YMALLOC(nTnodes * sizeof(yaffs_Tnode));
644    
645     if (!newTnodes)
646     {
647                 T(YAFFS_TRACE_ERROR,(TSTR("yaffs: Could not allocate Tnodes"TENDSTR)));
648                 return YAFFS_FAIL;
649     }
650     
651     // Hook them into the free list
652     for(i = 0; i < nTnodes - 1; i++)
653     {
654         newTnodes[i].internal[0] = &newTnodes[i+1];
655 #ifdef CONFIG_YAFFS_TNODE_LIST_DEBUG
656         newTnodes[i].internal[YAFFS_NTNODES_INTERNAL] = (void *)1;
657 #endif
658     }
659         
660         newTnodes[nTnodes - 1].internal[0] = dev->freeTnodes;
661 #ifdef CONFIG_YAFFS_TNODE_LIST_DEBUG
662         newTnodes[nTnodes - 1].internal[YAFFS_NTNODES_INTERNAL] = (void *)1;
663 #endif
664         dev->freeTnodes = newTnodes;
665         dev->nFreeTnodes+= nTnodes;
666         dev->nTnodesCreated += nTnodes;
667
668         // Now add this bunch of tnodes to a list for freeing up.
669         // NB If we can't add this to the management list it isn't fatal
670         // but it just means we can't free this bunch of tnodes later.
671         tnl = YMALLOC(sizeof(yaffs_TnodeList));
672         if(!tnl)
673         {
674                 T(YAFFS_TRACE_ERROR,(TSTR("yaffs: Could not add tnodes to management list" TENDSTR)));
675                 
676         }
677         else
678         {
679                 tnl->tnodes = newTnodes;
680                 tnl->next = dev->allocatedTnodeList;
681                 dev->allocatedTnodeList = tnl;
682         }
683
684
685         T(YAFFS_TRACE_ALLOCATE,(TSTR("yaffs: Tnodes added" TENDSTR)));
686
687
688         return YAFFS_OK;
689 }
690
691
692 // GetTnode gets us a clean tnode. Tries to make allocate more if we run out
693 static yaffs_Tnode *yaffs_GetTnode(yaffs_Device *dev)
694 {
695         yaffs_Tnode *tn = NULL;
696         
697         // If there are none left make more
698         if(!dev->freeTnodes)
699         {
700                 yaffs_CreateTnodes(dev,YAFFS_ALLOCATION_NTNODES);
701         }
702         
703         if(dev->freeTnodes)
704         {
705                 tn = dev->freeTnodes;
706 #ifdef CONFIG_YAFFS_TNODE_LIST_DEBUG
707         if(tn->internal[YAFFS_NTNODES_INTERNAL] != (void *)1)
708                 {
709                         // Hoosterman, this thing looks like it isn't in the list
710                                 T(YAFFS_TRACE_ALWAYS,(TSTR("yaffs: Tnode list bug 1" TENDSTR)));
711                 }
712 #endif
713                 dev->freeTnodes = dev->freeTnodes->internal[0];
714                 dev->nFreeTnodes--;
715                 // zero out
716                 memset(tn,0,sizeof(yaffs_Tnode));
717         }
718         
719
720         return tn;
721 }
722
723
724 // FreeTnode frees up a tnode and puts it back on the free list
725 static void yaffs_FreeTnode(yaffs_Device*dev, yaffs_Tnode *tn)
726 {
727         if(tn)
728         {
729 #ifdef CONFIG_YAFFS_TNODE_LIST_DEBUG
730         if(tn->internal[YAFFS_NTNODES_INTERNAL] != 0)
731                 {
732                         // Hoosterman, this thing looks like it is already in the list
733                                 T(YAFFS_TRACE_ALWAYS,(TSTR("yaffs: Tnode list bug 2" TENDSTR)));
734                 }
735                 tn->internal[YAFFS_NTNODES_INTERNAL] = (void *)1;
736 #endif
737                 tn->internal[0] = dev->freeTnodes;
738                 dev->freeTnodes = tn;
739                 dev->nFreeTnodes++;
740         }
741 }
742
743
744 static void yaffs_DeinitialiseTnodes(yaffs_Device*dev)
745 {
746         // Free the list of allocated tnodes
747         yaffs_TnodeList *tmp;
748                 
749         while(dev->allocatedTnodeList)
750         {
751                 tmp =  dev->allocatedTnodeList->next;
752
753                 YFREE(dev->allocatedTnodeList->tnodes);
754                 YFREE(dev->allocatedTnodeList);
755                 dev->allocatedTnodeList = tmp;
756                 
757         }
758         
759         dev->freeTnodes = NULL;
760         dev->nFreeTnodes = 0;
761 }
762
763 static void yaffs_InitialiseTnodes(yaffs_Device*dev)
764 {
765         dev->allocatedTnodeList = NULL;
766         dev->freeTnodes = NULL;
767         dev->nFreeTnodes = 0;
768         dev->nTnodesCreated = 0;
769
770 }
771
772 #if 0
773 void yaffs_TnodeTest(yaffs_Device *dev)
774 {
775
776         int i;
777         int j;
778         yaffs_Tnode *tn[1000];
779         
780         YINFO("Testing TNodes");
781         
782         for(j = 0; j < 50; j++)
783         {
784                 for(i = 0; i < 1000; i++)
785                 {
786                         tn[i] = yaffs_GetTnode(dev);
787                         if(!tn[i])
788                         {
789                                 YALERT("Getting tnode failed");
790                         }
791                 }
792                 for(i = 0; i < 1000; i+=3)
793                 {
794                         yaffs_FreeTnode(dev,tn[i]);
795                         tn[i] = NULL;
796                 }
797                 
798         }
799 }
800 #endif
801
802
803 ////////////////// END OF TNODE MANIPULATION ///////////////////////////
804
805 /////////////// Functions to manipulate the look-up tree (made up of tnodes)
806 // The look up tree is represented by the top tnode and the number of topLevel
807 // in the tree. 0 means only the level 0 tnode is in the tree.
808
809
810 // FindLevel0Tnode finds the level 0 tnode, if one exists.
811 // Used when reading.....
812 static yaffs_Tnode *yaffs_FindLevel0Tnode(yaffs_Device *dev,yaffs_FileStructure *fStruct, __u32 chunkId)
813 {
814         
815         yaffs_Tnode *tn = fStruct->top;
816         __u32 i;
817         int requiredTallness;   
818         int level = fStruct->topLevel;
819         
820         // Check sane level and chunk Id
821         if(level < 0 || level > YAFFS_TNODES_MAX_LEVEL)
822         {
823 //              char str[50];
824 //              sprintf(str,"Bad level %d",level);
825 //              YALERT(str);
826                 return NULL;
827         }
828         
829         if(chunkId > YAFFS_MAX_CHUNK_ID)
830         {
831 //              char str[50];
832 //              sprintf(str,"Bad chunkId %d",chunkId);
833 //              YALERT(str);
834                 return NULL;
835         }
836
837         // First check we're tall enough (ie enough topLevel)
838         
839         i = chunkId >> (/*dev->chunkGroupBits  + */YAFFS_TNODES_LEVEL0_BITS);
840         requiredTallness = 0;
841         while(i)
842         {
843                 i >>= YAFFS_TNODES_INTERNAL_BITS;
844                 requiredTallness++;
845         }
846         
847         
848         if(requiredTallness > fStruct->topLevel)
849         {
850                 // Not tall enough, so we can't find it, return NULL.
851                 return NULL;
852         }
853                 
854         
855         // Traverse down to level 0
856         while (level > 0 && tn)
857         {
858             tn = tn->internal[(chunkId >>(/* dev->chunkGroupBits + */ YAFFS_TNODES_LEVEL0_BITS + (level-1) * YAFFS_TNODES_INTERNAL_BITS)) & 
859                                YAFFS_TNODES_INTERNAL_MASK]; 
860                 level--;
861         
862         }
863         
864         return tn;              
865 }
866
867 // AddOrFindLevel0Tnode finds the level 0 tnode if it exists, otherwise first expands the tree.
868 // This happens in two steps:
869 //  1. If the tree isn't tall enough, then make it taller.
870 //  2. Scan down the tree towards the level 0 tnode adding tnodes if required.
871 //
872 // Used when modifying the tree.
873 //
874 static yaffs_Tnode *yaffs_AddOrFindLevel0Tnode(yaffs_Device *dev, yaffs_FileStructure *fStruct, __u32 chunkId)
875 {
876         
877         yaffs_Tnode *tn; 
878         
879         int requiredTallness;
880         int i;
881         int l;
882         
883         __u32 x;
884                 
885         
886         //T((TSTR("AddOrFind topLevel=%d, chunk=%d"),fStruct->topLevel,chunkId));
887         
888         // Check sane level and page Id
889         if(fStruct->topLevel < 0 || fStruct->topLevel > YAFFS_TNODES_MAX_LEVEL)
890         {
891 //              char str[50];
892 //              sprintf(str,"Bad level %d",fStruct->topLevel);
893 //              YALERT(str);
894                 return NULL;
895         }
896         
897         if(chunkId > YAFFS_MAX_CHUNK_ID)
898         {
899 //              char str[50];
900 //              sprintf(str,"Bad chunkId %d",chunkId);
901 //              YALERT(str);
902                 return NULL;
903         }
904         
905         // First check we're tall enough (ie enough topLevel)
906         
907         x = chunkId >> (/*dev->chunkGroupBits + */YAFFS_TNODES_LEVEL0_BITS);
908         requiredTallness = 0;
909         while(x)
910         {
911                 x >>= YAFFS_TNODES_INTERNAL_BITS;
912                 requiredTallness++;
913         }
914         
915         //T((TSTR(" required=%d"),requiredTallness));
916         
917         
918         if(requiredTallness > fStruct->topLevel)
919         {
920                 // Not tall enough,gotta make the tree taller
921                 for(i = fStruct->topLevel; i < requiredTallness; i++)
922                 {
923                         //T((TSTR(" add new top")));
924                         
925                         tn = yaffs_GetTnode(dev);
926                         
927                         if(tn)
928                         {
929                                 tn->internal[0] = fStruct->top;
930                                 fStruct->top = tn;
931                         }
932                         else
933                         {
934                                         T(YAFFS_TRACE_ERROR,(TSTR("yaffs: no more tnodes" TENDSTR)));
935                         }
936                 }
937                 
938                 fStruct->topLevel = requiredTallness;
939         }
940         
941         
942         // Traverse down to level 0, adding anything we need
943         
944         l = fStruct->topLevel;
945         tn = fStruct->top;
946         while (l > 0 && tn)
947         {
948                 x = (chunkId >> (/*dev->chunkGroupBits + */YAFFS_TNODES_LEVEL0_BITS + (l-1) * YAFFS_TNODES_INTERNAL_BITS)) & 
949                                YAFFS_TNODES_INTERNAL_MASK;
950                                
951                 //T((TSTR(" [%d:%d]"),l,i));
952                 
953             if(!tn->internal[x])
954             {
955                 //T((TSTR(" added")));
956                 
957                 tn->internal[x] = yaffs_GetTnode(dev);
958             }
959             
960             tn =        tn->internal[x];
961                 l--;
962         
963         }
964         
965         //TSTR(TENDSTR)));
966         
967         return tn;              
968 }
969
970
971 static int yaffs_FindChunkInGroup(yaffs_Device *dev, int theChunk, yaffs_ExtendedTags *tags, int objectId, int chunkInInode)
972 {
973         int j;
974         
975                                         
976         for(j = 0; theChunk && j < dev->chunkGroupSize; j++)
977         {
978                 if(yaffs_CheckChunkBit(dev,theChunk / dev->nChunksPerBlock,theChunk % dev->nChunksPerBlock))
979                 {
980                         yaffs_ReadChunkWithTagsFromNAND(dev,theChunk,NULL,tags);
981                         if(yaffs_TagsMatch(tags,objectId,chunkInInode))
982                         {
983                                 // found it;
984                                 return theChunk;
985                                         
986                         }
987                 }
988                 theChunk++;
989         }
990         return -1;
991 }
992
993 // DeleteWorker scans backwards through the tnode tree and deletes all the
994 // chunks and tnodes in the file
995 // Returns 1 if the tree was deleted. Returns 0 if it stopped early due to hitting the limit and the delete is incomplete.
996
997 static int yaffs_DeleteWorker(yaffs_Object *in, yaffs_Tnode *tn, __u32 level, int chunkOffset,int *limit)
998 {
999         int i;
1000         int chunkInInode;
1001         int theChunk;
1002         yaffs_ExtendedTags tags;
1003         int foundChunk;
1004         yaffs_Device *dev = in->myDev;
1005
1006         int allDone = 1;
1007         
1008         
1009         if(tn)
1010         {
1011                 if(level > 0)
1012                 {
1013                 
1014                         for(i = YAFFS_NTNODES_INTERNAL -1; allDone && i >= 0; i--)
1015                         {
1016                             if(tn->internal[i])
1017                         {
1018                                         if(limit && (*limit) < 0)
1019                                         {
1020                                                 allDone = 0;
1021                                         }
1022                                         else
1023                                         {
1024                                                 allDone = yaffs_DeleteWorker(in,tn->internal[i],level - 1,
1025                                                                                 (chunkOffset << YAFFS_TNODES_INTERNAL_BITS ) + i ,limit);
1026                                         }
1027                                         if(allDone)
1028                                         {
1029                                                 yaffs_FreeTnode(dev,tn->internal[i]);
1030                                         tn->internal[i] = NULL;
1031                                         }
1032                             }
1033                     
1034                         }
1035                         return (allDone) ? 1 : 0;
1036                 }
1037                 else if(level == 0)
1038                 {
1039                         int hitLimit = 0;
1040                         
1041                         for(i = YAFFS_NTNODES_LEVEL0 -1; i >= 0 && !hitLimit; i--)
1042                         {
1043                             if(tn->level0[i])
1044                         {
1045                                         
1046                                         chunkInInode = (chunkOffset << YAFFS_TNODES_LEVEL0_BITS ) + i;
1047                                         
1048                                         theChunk =  tn->level0[i] << dev->chunkGroupBits;
1049                                         
1050                                         foundChunk = yaffs_FindChunkInGroup(dev,theChunk,&tags,in->objectId,chunkInInode);
1051                                         
1052                                         if(foundChunk > 0)
1053                                         {
1054                                                 yaffs_DeleteChunk(dev,foundChunk,1,__LINE__);
1055                                                 in->nDataChunks--;
1056                                                 if(limit)
1057                                                 { 
1058                                                         *limit = *limit-1;
1059                                                         if(*limit <= 0) 
1060                                                         { 
1061                                                                 hitLimit = 1;
1062                                                         }
1063                                                 }
1064                                         
1065                                         }
1066                                         
1067                                 tn->level0[i] = 0;
1068                             }
1069                     
1070                         }
1071                         return (i < 0) ? 1 : 0;
1072
1073                         
1074                 }
1075                 
1076         }
1077         
1078         return 1;
1079         
1080 }
1081
1082
1083 static void yaffs_SoftDeleteChunk(yaffs_Device *dev, int chunk)
1084 {
1085
1086         yaffs_BlockInfo *theBlock;                                      
1087         
1088         T(YAFFS_TRACE_DELETION,(TSTR("soft delete chunk %d" TENDSTR),chunk));
1089                                                 
1090         theBlock =      yaffs_GetBlockInfo(dev,  chunk/dev->nChunksPerBlock);
1091         if(theBlock)
1092         {
1093                 theBlock->softDeletions++;
1094                 dev->nFreeChunks++;
1095         }
1096 }
1097
1098 // SoftDeleteWorker scans backwards through the tnode tree and soft deletes all the chunks in the file.
1099 // All soft deleting does is increment the block's softdelete count and pulls the chunk out
1100 // of the tnode.
1101 // THus, essentially this is the same as DeleteWorker except that the chunks are soft deleted.
1102 //
1103 static int yaffs_SoftDeleteWorker(yaffs_Object *in, yaffs_Tnode *tn, __u32 level, int chunkOffset)
1104 {
1105         int i;
1106         int theChunk;
1107         int allDone = 1;
1108         yaffs_Device *dev = in->myDev;
1109         
1110         
1111         if(tn)
1112         {
1113                 if(level > 0)
1114                 {
1115                 
1116                         for(i = YAFFS_NTNODES_INTERNAL -1; allDone && i >= 0; i--)
1117                         {
1118                             if(tn->internal[i])
1119                         {
1120                                                 allDone = yaffs_SoftDeleteWorker(in,tn->internal[i],level - 1,
1121                                                                                 (chunkOffset << YAFFS_TNODES_INTERNAL_BITS ) + i);
1122                                         if(allDone)
1123                                         {
1124                                                 yaffs_FreeTnode(dev,tn->internal[i]);
1125                                         tn->internal[i] = NULL;
1126                                         }
1127                                         else
1128                                         {
1129                                                 //Hoosterman... how could this happen.
1130                                         }                           
1131                                 }                   
1132                         }
1133                         return (allDone) ? 1 : 0;
1134                 }
1135                 else if(level == 0)
1136                 {
1137                         
1138                         for(i = YAFFS_NTNODES_LEVEL0 -1; i >=0; i--)
1139                         {
1140                             if(tn->level0[i])
1141                         {
1142                                         // Note this does not find the real chunk, only the chunk group.
1143                                         // We make an assumption that a chunk group is niot larger than a block.
1144                                         theChunk =  (tn->level0[i] << dev->chunkGroupBits);
1145                                         
1146                                         yaffs_SoftDeleteChunk(dev,theChunk);
1147                                 tn->level0[i] = 0;
1148                             }
1149                     
1150                         }
1151                         return 1;
1152                         
1153                 }
1154                 
1155         }
1156         
1157         return 1;
1158                 
1159 }
1160
1161
1162
1163 static void yaffs_SoftDeleteFile(yaffs_Object *obj)
1164 {
1165         if(obj->deleted &&
1166            obj->variantType == YAFFS_OBJECT_TYPE_FILE &&
1167            !obj->softDeleted)
1168         {
1169                 if(obj->nDataChunks <= 0)
1170                 {
1171                                 // Empty file with no duplicate object headers, just delete it immediately
1172                                 yaffs_FreeTnode(obj->myDev,obj->variant.fileVariant.top);
1173                                 obj->variant.fileVariant.top = NULL;
1174                                 T(YAFFS_TRACE_TRACING,(TSTR("yaffs: Deleting empty file %d" TENDSTR),obj->objectId));
1175                                 yaffs_DoGenericObjectDeletion(obj);     
1176                 }
1177                 else
1178                 {
1179                         yaffs_SoftDeleteWorker(obj, obj->variant.fileVariant.top, obj->variant.fileVariant.topLevel, 0);
1180                         obj->softDeleted = 1;
1181                 }
1182         }
1183 }
1184
1185
1186
1187
1188
1189 // Pruning removes any part of the file structure tree that is beyond the
1190 // bounds of the file (ie that does not point to chunks).
1191 //
1192 // A file should only get pruned when its size is reduced.
1193 //
1194 // Before pruning, the chunks must be pulled from the tree and the
1195 // level 0 tnode entries must be zeroed out.
1196 // Could also use this for file deletion, but that's probably better handled
1197 // by a special case.
1198
1199 // yaffs_PruneWorker should only be called by yaffs_PruneFileStructure()
1200
1201 static yaffs_Tnode *yaffs_PruneWorker(yaffs_Device *dev, yaffs_Tnode *tn, __u32 level, int del0)
1202 {
1203         int i;
1204         int hasData;
1205         
1206         if(tn)
1207         {
1208                 hasData = 0;
1209                 
1210                 for(i = 0; i < YAFFS_NTNODES_INTERNAL; i++)
1211                 {
1212                     if(tn->internal[i] && level > 0)
1213                     {
1214                         tn->internal[i] = yaffs_PruneWorker(dev,tn->internal[i],level - 1, ( i == 0) ? del0 : 1);
1215                     }
1216                     
1217                     if(tn->internal[i])
1218                     {
1219                         hasData++;
1220                         }
1221                 }
1222                 
1223                 if(hasData == 0 && del0)
1224                 {
1225                         // Free and return NULL
1226                         
1227                         yaffs_FreeTnode(dev,tn);
1228                         tn = NULL;
1229                 }
1230                 
1231         }
1232
1233         return tn;
1234         
1235 }
1236
1237 static int yaffs_PruneFileStructure(yaffs_Device *dev, yaffs_FileStructure *fStruct)
1238 {
1239         int i;
1240         int hasData;
1241         int done = 0;
1242         yaffs_Tnode *tn;
1243         
1244         if(fStruct->topLevel > 0)
1245         {
1246                 fStruct->top = yaffs_PruneWorker(dev,fStruct->top, fStruct->topLevel,0);
1247                 
1248                 // Now we have a tree with all the non-zero branches NULL but the height
1249                 // is the same as it was.
1250                 // Let's see if we can trim internal tnodes to shorten the tree.
1251                 // We can do this if only the 0th element in the tnode is in use 
1252                 // (ie all the non-zero are NULL)
1253                 
1254                 while(fStruct->topLevel && !done)
1255                 {
1256                         tn = fStruct->top;
1257                         
1258                         hasData = 0;
1259                         for(i = 1; i <YAFFS_NTNODES_INTERNAL; i++)
1260                         {
1261                                 if(tn->internal[i])
1262                         {
1263                                 hasData++;
1264                                 }
1265                         }
1266                         
1267                         if(!hasData)
1268                         {
1269                                 fStruct->top = tn->internal[0];
1270                                 fStruct->topLevel--;
1271                                 yaffs_FreeTnode(dev,tn);
1272                         }
1273                         else
1274                         {
1275                                 done = 1;
1276                         }
1277                 }
1278         }
1279         
1280         return YAFFS_OK;
1281 }
1282
1283
1284
1285
1286
1287 /////////////////////// End of File Structure functions. /////////////////
1288
1289 // yaffs_CreateFreeObjects creates a bunch more objects and
1290 // adds them to the object free list.
1291 static int yaffs_CreateFreeObjects(yaffs_Device *dev, int nObjects)
1292 {
1293     int i;
1294     yaffs_Object *newObjects;
1295     yaffs_ObjectList *list;
1296     
1297     if(nObjects < 1) return YAFFS_OK;
1298    
1299         // make these things
1300         
1301     newObjects = YMALLOC(nObjects * sizeof(yaffs_Object));
1302    
1303     if (!newObjects)
1304     {
1305                 T(YAFFS_TRACE_ALLOCATE,(TSTR("yaffs: Could not allocate more objects" TENDSTR)));
1306                 return YAFFS_FAIL;
1307     }
1308     
1309     // Hook them into the free list
1310     for(i = 0; i < nObjects - 1; i++)
1311     {
1312         newObjects[i].siblings.next = (struct list_head *)(&newObjects[i+1]);
1313     }
1314         
1315         newObjects[nObjects - 1].siblings.next = (void *)dev->freeObjects;
1316         dev->freeObjects = newObjects;
1317         dev->nFreeObjects+= nObjects;
1318         dev->nObjectsCreated+= nObjects;
1319         
1320         // Now add this bunch of Objects to a list for freeing up.
1321         
1322         list = YMALLOC(sizeof(yaffs_ObjectList));
1323         if(!list)
1324         {
1325                 T(YAFFS_TRACE_ALLOCATE,(TSTR("Could not add objects to management list" TENDSTR)));
1326         }
1327         else
1328         {
1329                 list->objects = newObjects;
1330                 list->next = dev->allocatedObjectList;
1331                 dev->allocatedObjectList = list;
1332         }
1333         
1334         
1335         
1336         return YAFFS_OK;
1337 }
1338
1339
1340 // AllocateEmptyObject gets us a clean Object. Tries to make allocate more if we run out
1341 static yaffs_Object *yaffs_AllocateEmptyObject(yaffs_Device *dev)
1342 {
1343         yaffs_Object *tn = NULL;
1344         
1345         // If there are none left make more
1346         if(!dev->freeObjects)
1347         {
1348                 yaffs_CreateFreeObjects(dev,YAFFS_ALLOCATION_NOBJECTS);
1349         }
1350         
1351         if(dev->freeObjects)
1352         {
1353                 tn = dev->freeObjects;
1354                 dev->freeObjects = (yaffs_Object *)(dev->freeObjects->siblings.next);
1355                 dev->nFreeObjects--;
1356                 
1357                 // Now sweeten it up...
1358         
1359                 memset(tn,0,sizeof(yaffs_Object));
1360                 tn->myDev = dev;
1361                 tn->chunkId = -1;
1362                 tn->variantType = YAFFS_OBJECT_TYPE_UNKNOWN;
1363                 INIT_LIST_HEAD(&(tn->hardLinks));
1364                 INIT_LIST_HEAD(&(tn->hashLink));
1365                 INIT_LIST_HEAD(&tn->siblings);
1366                 
1367                 // Add it to the lost and found directory.
1368                 // NB Can't put root or lostNFound in lostNFound so
1369                 // check if lostNFound exists first
1370                 if(dev->lostNFoundDir)
1371                 {
1372                         yaffs_AddObjectToDirectory(dev->lostNFoundDir,tn);      
1373                 }
1374         }
1375         
1376
1377         return tn;
1378 }
1379
1380 static yaffs_Object *yaffs_CreateFakeDirectory(yaffs_Device *dev,int number,__u32 mode)
1381 {
1382
1383         yaffs_Object *obj = yaffs_CreateNewObject(dev,number,YAFFS_OBJECT_TYPE_DIRECTORY);              
1384         if(obj)
1385         {
1386                 obj->fake = 1;                  // it is fake so it has no NAND presence...
1387                 obj->renameAllowed= 0;  // ... and we're not allowed to rename it...
1388                 obj->unlinkAllowed= 0;  // ... or unlink it
1389                 obj->deleted = 0;
1390                 obj->unlinked = 0;
1391                 obj->yst_mode = mode;
1392                 obj->myDev = dev;
1393                 obj->chunkId = 0; // Not a valid chunk.
1394         }
1395         
1396         return obj;
1397         
1398 }
1399
1400
1401 static void yaffs_UnhashObject(yaffs_Object *tn)
1402 {
1403         int bucket;
1404         yaffs_Device *dev = tn->myDev;
1405         
1406         
1407         // If it is still linked into the bucket list, free from the list
1408         if(!list_empty(&tn->hashLink))
1409         {
1410                 list_del_init(&tn->hashLink);
1411                 bucket =  yaffs_HashFunction(tn->objectId);
1412                 dev->objectBucket[bucket].count--;
1413         }
1414         
1415 }
1416
1417
1418 // FreeObject frees up a Object and puts it back on the free list
1419 static void yaffs_FreeObject(yaffs_Object *tn)
1420 {
1421
1422         yaffs_Device *dev = tn->myDev;
1423         
1424 #ifdef  __KERNEL__
1425         if(tn->myInode)
1426         {
1427                 // We're still hooked up to a cached inode.
1428                 // Don't delete now, but mark for later deletion
1429                 tn->deferedFree = 1;
1430                 return;
1431         }
1432 #endif
1433         
1434         yaffs_UnhashObject(tn);
1435         
1436         // Link into the free list.
1437         tn->siblings.next = (struct list_head *)(dev->freeObjects);
1438         dev->freeObjects = tn;
1439         dev->nFreeObjects++;
1440 }
1441
1442
1443
1444 #ifdef __KERNEL__
1445
1446 void yaffs_HandleDeferedFree(yaffs_Object *obj)
1447 {
1448         if(obj->deferedFree)
1449         {
1450            yaffs_FreeObject(obj);
1451         }
1452 }
1453
1454 #endif
1455
1456
1457
1458 static void yaffs_DeinitialiseObjects(yaffs_Device *dev)
1459 {
1460         // Free the list of allocated Objects
1461         
1462         yaffs_ObjectList *tmp;
1463         
1464         while( dev->allocatedObjectList)
1465         {
1466                 tmp =  dev->allocatedObjectList->next;
1467                 YFREE(dev->allocatedObjectList->objects);
1468                 YFREE(dev->allocatedObjectList);
1469                 
1470                 dev->allocatedObjectList =  tmp;
1471         }
1472         
1473         dev->freeObjects = NULL;
1474         dev->nFreeObjects = 0;
1475 }
1476
1477 static void yaffs_InitialiseObjects(yaffs_Device *dev)
1478 {
1479         int i;
1480         
1481         dev->allocatedObjectList = NULL;
1482         dev->freeObjects = NULL;
1483         dev->nFreeObjects = 0;
1484         
1485         for(i = 0; i < YAFFS_NOBJECT_BUCKETS; i++)
1486         {
1487                 INIT_LIST_HEAD(&dev->objectBucket[i].list);
1488                 dev->objectBucket[i].count = 0; 
1489         }
1490
1491 }
1492
1493
1494
1495
1496
1497
1498 static int yaffs_FindNiceObjectBucket(yaffs_Device *dev)
1499 {
1500         static int x = 0;
1501         int i;
1502         int l = 999;
1503         int lowest = 999999;
1504
1505                 
1506         // First let's see if we can find one that's empty.
1507         
1508         for(i = 0; i < 10 && lowest > 0; i++)
1509          {
1510                 x++;
1511                 x %=  YAFFS_NOBJECT_BUCKETS;
1512                 if(dev->objectBucket[x].count < lowest)
1513                 {
1514                         lowest = dev->objectBucket[x].count;
1515                         l = x;
1516                 }
1517                 
1518         }
1519         
1520         // If we didn't find an empty list, then try
1521         // looking a bit further for a short one
1522         
1523         for(i = 0; i < 10 && lowest > 3; i++)
1524          {
1525                 x++;
1526                 x %=  YAFFS_NOBJECT_BUCKETS;
1527                 if(dev->objectBucket[x].count < lowest)
1528                 {
1529                         lowest = dev->objectBucket[x].count;
1530                         l = x;
1531                 }
1532                 
1533         }
1534         
1535         return l;
1536 }
1537
1538 static int yaffs_CreateNewObjectNumber(yaffs_Device *dev)
1539 {
1540         int bucket = yaffs_FindNiceObjectBucket(dev);
1541         
1542         // Now find an object value that has not already been taken
1543         // by scanning the list.
1544         
1545         int found = 0;
1546         struct list_head *i;
1547         
1548         __u32 n = (__u32)bucket;
1549
1550         //yaffs_CheckObjectHashSanity();        
1551         
1552         while(!found)
1553         {
1554                 found = 1;
1555                 n +=  YAFFS_NOBJECT_BUCKETS;
1556                 if(1 ||dev->objectBucket[bucket].count > 0)
1557                 {
1558                         list_for_each(i,&dev->objectBucket[bucket].list)
1559                         {
1560                                 // If there is already one in the list
1561                                 if(i && list_entry(i, yaffs_Object,hashLink)->objectId == n)
1562                                 {
1563                                         found = 0;
1564                                 }
1565                         }
1566                 }
1567         }
1568         
1569         //T(("bucket %d count %d inode %d\n",bucket,yaffs_objectBucket[bucket].count,n);
1570         
1571         return n;       
1572 }
1573
1574 static void yaffs_HashObject(yaffs_Object *in)
1575 {
1576         int bucket = yaffs_HashFunction(in->objectId);
1577         yaffs_Device *dev = in->myDev;
1578         
1579         if(!list_empty(&in->hashLink))
1580         {
1581                 //YINFO("!!!");
1582         }
1583
1584         
1585         list_add(&in->hashLink,&dev->objectBucket[bucket].list);
1586         dev->objectBucket[bucket].count++;
1587
1588 }
1589
1590 yaffs_Object *yaffs_FindObjectByNumber(yaffs_Device *dev,__u32 number)
1591 {
1592         int bucket = yaffs_HashFunction(number);
1593         struct list_head *i;
1594         yaffs_Object *in;
1595         
1596         list_for_each(i,&dev->objectBucket[bucket].list)
1597         {
1598                 // Look if it is in the list
1599                 if(i)
1600                 {
1601                         in = list_entry(i, yaffs_Object,hashLink);
1602                         if(in->objectId == number)
1603                         {
1604 #ifdef __KERNEL__
1605                                 // Don't tell the VFS about this one if it is defered free
1606                                 if(in->deferedFree)
1607                                   return NULL;
1608 #endif
1609                                   
1610                                 return in;
1611                         }
1612                 }
1613         }
1614         
1615         return NULL;
1616 }
1617
1618
1619
1620 yaffs_Object *yaffs_CreateNewObject(yaffs_Device *dev,int number,yaffs_ObjectType type)
1621 {
1622                 
1623         yaffs_Object *theObject;
1624
1625         if(number < 0)
1626         {
1627                 number = yaffs_CreateNewObjectNumber(dev);
1628         }
1629         
1630         theObject = yaffs_AllocateEmptyObject(dev);
1631         
1632         if(theObject)
1633         {
1634                 theObject->fake = 0;
1635                 theObject->renameAllowed = 1;
1636                 theObject->unlinkAllowed = 1;
1637                 theObject->objectId = number;
1638                 yaffs_HashObject(theObject);
1639                 theObject->variantType = type;
1640 #ifdef CONFIG_YAFFS_WINCE
1641                 yfsd_WinFileTimeNow(theObject->win_atime);
1642                 theObject->win_ctime[0] = theObject->win_mtime[0] = theObject->win_atime[0];
1643                 theObject->win_ctime[1] = theObject->win_mtime[1] = theObject->win_atime[1];
1644
1645 #else
1646
1647                 theObject->yst_atime = theObject->yst_mtime = theObject->yst_ctime = Y_CURRENT_TIME;            
1648 #endif
1649                 switch(type)
1650                 {
1651                         case YAFFS_OBJECT_TYPE_FILE: 
1652                                 theObject->variant.fileVariant.fileSize = 0;
1653                                 theObject->variant.fileVariant.scannedFileSize = 0;
1654                                 theObject->variant.fileVariant.shrinkSize = 0xFFFFFFFF; // max __u32
1655                                 theObject->variant.fileVariant.topLevel = 0;
1656                                 theObject->variant.fileVariant.top  = yaffs_GetTnode(dev);
1657                                 break;
1658                         case YAFFS_OBJECT_TYPE_DIRECTORY:
1659                                 INIT_LIST_HEAD(&theObject->variant.directoryVariant.children);
1660                                 break;
1661                         case YAFFS_OBJECT_TYPE_SYMLINK:
1662                                 // No action required
1663                                 break;
1664                         case YAFFS_OBJECT_TYPE_HARDLINK:
1665                                 // No action required
1666                                 break;
1667                         case YAFFS_OBJECT_TYPE_SPECIAL:
1668                                 // No action required
1669                                 break;
1670                         case YAFFS_OBJECT_TYPE_UNKNOWN:
1671                                 // todo this should not happen
1672                                 break;
1673                 }
1674         }
1675         
1676         return theObject;
1677 }
1678
1679 static yaffs_Object *yaffs_FindOrCreateObjectByNumber(yaffs_Device *dev, int number,yaffs_ObjectType type)
1680 {
1681         yaffs_Object *theObject = NULL;
1682         
1683         if(number > 0)
1684         {
1685                 theObject = yaffs_FindObjectByNumber(dev,number);
1686         }
1687         
1688         if(!theObject)
1689         {
1690                 theObject = yaffs_CreateNewObject(dev,number,type);
1691         }
1692         
1693         return theObject;
1694
1695 }
1696
1697 static YCHAR *yaffs_CloneString(const YCHAR *str)
1698 {
1699         YCHAR *newStr = NULL;
1700         
1701         if(str && *str)
1702         {
1703                 newStr = YMALLOC((yaffs_strlen(str) + 1) * sizeof(YCHAR));
1704                 yaffs_strcpy(newStr,str);
1705         }
1706
1707         return newStr;
1708         
1709 }
1710
1711 //
1712 // Mknod (create) a new object.
1713 // equivalentObject only has meaning for a hard link;
1714 // aliasString only has meaning for a sumlink.
1715 // rdev only has meaning for devices (a subset of special objects)
1716 static yaffs_Object *yaffs_MknodObject( yaffs_ObjectType type,
1717                                                                  yaffs_Object *parent,
1718                                                                  const YCHAR *name, 
1719                                                                  __u32 mode,
1720                                                                  __u32 uid,
1721                                                                  __u32 gid,
1722                                                                  yaffs_Object *equivalentObject,
1723                                                                  const YCHAR *aliasString,
1724                                                                  __u32 rdev)
1725 {
1726         yaffs_Object *in;
1727
1728         yaffs_Device *dev = parent->myDev;
1729         
1730         // Check if the entry exists. If it does then fail the call since we don't want a dup.
1731         if(yaffs_FindObjectByName(parent,name))
1732         {
1733                 return NULL;
1734         }
1735         
1736         in = yaffs_CreateNewObject(dev,-1,type);
1737         
1738         if(in)
1739         {
1740                 in->chunkId = -1;
1741                 in->valid = 1;
1742                 in->variantType = type;
1743
1744                 in->yst_mode  = mode;
1745                 
1746 #ifdef CONFIG_YAFFS_WINCE
1747                 yfsd_WinFileTimeNow(in->win_atime);
1748                 in->win_ctime[0] = in->win_mtime[0] = in->win_atime[0];
1749                 in->win_ctime[1] = in->win_mtime[1] = in->win_atime[1];
1750                 
1751 #else
1752                 in->yst_atime = in->yst_mtime = in->yst_ctime = Y_CURRENT_TIME;
1753
1754                 in->yst_rdev  = rdev;
1755                 in->yst_uid   = uid;
1756                 in->yst_gid   = gid;
1757 #endif          
1758                 in->nDataChunks = 0;
1759
1760                 yaffs_SetObjectName(in,name);
1761                 in->dirty = 1;
1762                 
1763                 yaffs_AddObjectToDirectory(parent,in);
1764                 
1765                 in->myDev = parent->myDev;
1766                 
1767                                 
1768                 switch(type)
1769                 {
1770                         case YAFFS_OBJECT_TYPE_SYMLINK:
1771                                 in->variant.symLinkVariant.alias = yaffs_CloneString(aliasString);
1772                                 break;
1773                         case YAFFS_OBJECT_TYPE_HARDLINK:
1774                                 in->variant.hardLinkVariant.equivalentObject = equivalentObject;
1775                                 in->variant.hardLinkVariant.equivalentObjectId = equivalentObject->objectId;
1776                                 list_add(&in->hardLinks,&equivalentObject->hardLinks);
1777                                 break;
1778                         case YAFFS_OBJECT_TYPE_FILE: // do nothing
1779                         case YAFFS_OBJECT_TYPE_DIRECTORY: // do nothing
1780                         case YAFFS_OBJECT_TYPE_SPECIAL: // do nothing
1781                         case YAFFS_OBJECT_TYPE_UNKNOWN:
1782                                 break;
1783                 }
1784
1785                 if(/*yaffs_GetNumberOfFreeChunks(dev) <= 0 || */
1786                    yaffs_UpdateObjectHeader(in,name,0,0,0) < 0)
1787                 {
1788                         // Could not create the object header, fail the creation
1789                         yaffs_DestroyObject(in);
1790                         in = NULL;
1791                 }
1792
1793         }
1794         
1795         return in;
1796 }
1797
1798 yaffs_Object *yaffs_MknodFile(yaffs_Object *parent,const YCHAR *name, __u32 mode, __u32 uid, __u32 gid)
1799 {
1800         return yaffs_MknodObject(YAFFS_OBJECT_TYPE_FILE,parent,name,mode,uid,gid,NULL,NULL,0);
1801 }
1802
1803 yaffs_Object *yaffs_MknodDirectory(yaffs_Object *parent,const YCHAR *name, __u32 mode, __u32 uid, __u32 gid)
1804 {
1805         return yaffs_MknodObject(YAFFS_OBJECT_TYPE_DIRECTORY,parent,name,mode,uid,gid,NULL,NULL,0);
1806 }
1807
1808 yaffs_Object *yaffs_MknodSpecial(yaffs_Object *parent,const YCHAR *name, __u32 mode, __u32 uid, __u32 gid, __u32 rdev)
1809 {
1810         return yaffs_MknodObject(YAFFS_OBJECT_TYPE_SPECIAL,parent,name,mode,uid,gid,NULL,NULL,rdev);
1811 }
1812
1813 yaffs_Object *yaffs_MknodSymLink(yaffs_Object *parent,const YCHAR *name, __u32 mode, __u32 uid, __u32 gid,const YCHAR *alias)
1814 {
1815         return yaffs_MknodObject(YAFFS_OBJECT_TYPE_SYMLINK,parent,name,mode,uid,gid,NULL,alias,0);
1816 }
1817
1818 // NB yaffs_Link returns the object id of the equivalent object.
1819 yaffs_Object *yaffs_Link(yaffs_Object *parent, const YCHAR *name, yaffs_Object *equivalentObject)
1820 {
1821         // Get the real object in case we were fed a hard link as an equivalent object
1822         equivalentObject = yaffs_GetEquivalentObject(equivalentObject);
1823         
1824         if(yaffs_MknodObject(YAFFS_OBJECT_TYPE_HARDLINK,parent,name,0,0,0,equivalentObject,NULL,0))
1825         {
1826                 return equivalentObject;
1827         }
1828         else
1829         {
1830                 return NULL;
1831         }
1832         
1833 }
1834
1835
1836 static int yaffs_ChangeObjectName(yaffs_Object *obj, yaffs_Object *newDir, const YCHAR *newName,int force,int shadows)
1837 {
1838         int unlinkOp;
1839         int deleteOp;
1840         
1841         yaffs_Object * existingTarget;
1842
1843         if(newDir == NULL)
1844         {
1845                 newDir = obj->parent; // use the old directory
1846         }
1847         
1848         if(newDir->variantType != YAFFS_OBJECT_TYPE_DIRECTORY)
1849         {
1850                 T(YAFFS_TRACE_ALWAYS,(TSTR("tragendy: yaffs_ChangeObjectName: newDir is not a directory"TENDSTR)));
1851                 YBUG();
1852         }
1853
1854         // TODO: Do we need this different handling for YAFFS2 and YAFFS1??
1855         if(obj->myDev->isYaffs2)
1856         {
1857                 unlinkOp = (newDir == obj->myDev->unlinkedDir);
1858         }
1859         else
1860         {
1861                 unlinkOp = (newDir == obj->myDev->unlinkedDir && obj->variantType == YAFFS_OBJECT_TYPE_FILE);
1862         }
1863
1864         deleteOp = (newDir == obj->myDev->deletedDir);
1865         
1866         existingTarget = yaffs_FindObjectByName(newDir,newName);
1867         
1868         // If the object is a file going into the unlinked directory, then it is OK to just stuff it in since
1869         // duplicate names are allowed.
1870         // Otherwise only proceed if the new name does not exist and if we're putting it into a directory.
1871         if( (unlinkOp|| 
1872                  deleteOp ||
1873                  force || 
1874                  (shadows > 0) ||
1875                  !existingTarget)  &&
1876              newDir->variantType == YAFFS_OBJECT_TYPE_DIRECTORY)
1877         {
1878                 yaffs_SetObjectName(obj,newName);
1879                 obj->dirty = 1;
1880                 
1881                 yaffs_AddObjectToDirectory(newDir,obj);
1882                 
1883                 if(unlinkOp) obj->unlinked = 1;
1884                 
1885                 // If it is a deletion then we mark it as a shrink for gc purposes.
1886                 if(yaffs_UpdateObjectHeader(obj,newName,0,deleteOp,shadows) >= 0)
1887                 {
1888                         return YAFFS_OK;
1889                 }
1890         }
1891         
1892         return YAFFS_FAIL;
1893 }
1894
1895
1896
1897 int yaffs_RenameObject(yaffs_Object *oldDir, const YCHAR *oldName, yaffs_Object *newDir, const YCHAR *newName)
1898 {
1899         yaffs_Object *obj;
1900         yaffs_Object *existingTarget;
1901         int force = 0;
1902         
1903 #ifdef CONFIG_YAFFS_CASE_INSENSITIVE
1904         // Special case for case insemsitive systems (eg. WinCE).
1905         // While look-up is case insensitive, the name isn't.
1906         // THerefore we might want to change x.txt to X.txt
1907         if(oldDir == newDir && yaffs_strcmp(oldName,newName) == 0)
1908         {
1909                 force = 1;
1910         }       
1911 #endif
1912         
1913         obj = yaffs_FindObjectByName(oldDir,oldName);
1914         
1915         if(obj && obj->renameAllowed)
1916         {
1917         
1918                 // Now do the handling for an existing target, if there is one
1919         
1920                 existingTarget = yaffs_FindObjectByName(newDir,newName);
1921                 if(existingTarget &&
1922                    existingTarget->variantType == YAFFS_OBJECT_TYPE_DIRECTORY &&
1923                    !list_empty(&existingTarget->variant.directoryVariant.children))
1924                  {
1925                         // There is a target that is a non-empty directory, so we have to fail
1926                         return YAFFS_FAIL; // EEXIST or ENOTEMPTY
1927                  }
1928                  else if(existingTarget)
1929                  {
1930                         // Nuke the target first, using shadowing
1931                          yaffs_ChangeObjectName(obj,newDir,newName,force,existingTarget->objectId);
1932                          yaffs_Unlink(newDir,newName);
1933                  }
1934                 
1935                 
1936                 return yaffs_ChangeObjectName(obj,newDir,newName,force,0);
1937         }
1938         return YAFFS_FAIL;
1939 }
1940
1941
1942 #if 0
1943
1944 static int yaffs_CheckObjectHashSanity(yaffs_Device *dev)
1945 {
1946         // Scan the buckets and check that the lists 
1947         // have as many members as the count says there are
1948         int bucket;
1949         int countEm;
1950         struct list_head *j;
1951         int ok = YAFFS_OK;
1952         
1953         for(bucket = 0; bucket < YAFFS_NOBJECT_BUCKETS; bucket++)
1954         {
1955                 countEm = 0;
1956                 
1957                 list_for_each(j,&dev->objectBucket[bucket].list)
1958                 {
1959                         countEm++;
1960                 }
1961                 
1962                 if(countEm != dev->objectBucket[bucket].count)
1963                 {
1964                         T(YAFFS_TRACE_ERROR,(TSTR("Inode hash inconsistency" TENDSTR)));
1965                         ok = YAFFS_FAIL;
1966                 }
1967         }
1968
1969         return ok;
1970 }
1971
1972
1973 void yaffs_ObjectTest(yaffs_Device *dev)
1974 {
1975         yaffs_Object *in[1000];
1976         int inNo[1000];
1977         yaffs_Object *inold[1000];
1978         int i;
1979         int j;
1980         
1981         memset(in,0,1000*sizeof(yaffs_Object *));
1982         memset(inold,0,1000*sizeof(yaffs_Object *));
1983         
1984         yaffs_CheckObjectHashSanity(dev);
1985         
1986         for(j = 0; j < 10; j++)
1987         {
1988                 //T(("%d\n",j));
1989                 
1990                 for(i = 0; i < 1000; i++)
1991                 {
1992                         in[i] = yaffs_CreateNewObject(dev,-1,YAFFS_OBJECT_TYPE_FILE);
1993                         if(!in[i])
1994                         {
1995                                 YINFO("No more inodes");
1996                         }
1997                         else
1998                         {
1999                                 inNo[i] = in[i]->objectId;
2000                         }
2001                 }
2002                 
2003                 for(i = 0; i < 1000; i++)
2004                 {
2005                         if(yaffs_FindObjectByNumber(dev,inNo[i]) != in[i])
2006                         {
2007                                 //T(("Differnce in look up test\n"));
2008                         }
2009                         else
2010                         {
2011                                 // T(("Look up ok\n"));
2012                         }
2013                 }
2014                 
2015                 yaffs_CheckObjectHashSanity(dev);
2016         
2017                 for(i = 0; i < 1000; i+=3)
2018                 {
2019                         yaffs_FreeObject(in[i]);        
2020                         in[i] = NULL;
2021                 }
2022                 
2023         
2024                 yaffs_CheckObjectHashSanity(dev);
2025         }
2026                 
2027 }
2028
2029 #endif
2030
2031 /////////////////////////// Block Management and Page Allocation ///////////////////
2032
2033
2034 static int yaffs_InitialiseBlocks(yaffs_Device *dev,int nBlocks)
2035 {
2036         dev->allocationBlock = -1; // force it to get a new one
2037         //Todo we're assuming the malloc will pass.
2038         dev->blockInfo = YMALLOC(nBlocks * sizeof(yaffs_BlockInfo));
2039         // Set up dynamic blockinfo stuff.
2040         dev->chunkBitmapStride = (dev->nChunksPerBlock+7)/8;
2041         dev->chunkBits = YMALLOC(dev->chunkBitmapStride * nBlocks);
2042         if(dev->blockInfo && dev->chunkBits)
2043         {
2044                 memset(dev->blockInfo,0,nBlocks * sizeof(yaffs_BlockInfo));
2045                 memset(dev->chunkBits,0,dev->chunkBitmapStride * nBlocks);
2046                 return YAFFS_OK;
2047         }
2048         
2049         return YAFFS_FAIL;
2050         
2051 }
2052
2053 static void yaffs_DeinitialiseBlocks(yaffs_Device *dev)
2054 {
2055         YFREE(dev->blockInfo);
2056         dev->blockInfo = NULL;
2057         YFREE(dev->chunkBits);
2058         dev->chunkBits = NULL;
2059 }
2060
2061
2062 static int yaffs_BlockNotDisqualifiedFromGC(yaffs_Device *dev, yaffs_BlockInfo *bi)
2063 {
2064         int i;
2065         __u32 seq;
2066         yaffs_BlockInfo *b;
2067         
2068         if(!dev->isYaffs2) return 1; // disqualification only applies to yaffs2.
2069         
2070         if(!bi->hasShrinkHeader) return 1; // can gc
2071
2072
2073         // Find the oldest dirty sequence number if we don't know it and save it
2074         // so we don't have to keep recomputing it.
2075         if(!dev->oldestDirtySequence)
2076         {
2077                 seq = dev->sequenceNumber;
2078
2079                 for(i = dev->internalStartBlock; i <= dev->internalEndBlock; i++)
2080                 {
2081                         b = yaffs_GetBlockInfo(dev,i);
2082                         if(b->blockState == YAFFS_BLOCK_STATE_FULL &&
2083                         (b->pagesInUse - b->softDeletions )< dev->nChunksPerBlock &&
2084                         b->sequenceNumber < seq)
2085                         {
2086                                 seq = b->sequenceNumber;
2087                         }
2088                 }
2089                 dev->oldestDirtySequence = seq;
2090         }
2091
2092
2093         // Can't do gc of this block if there are any blocks older than this one that have
2094         // discarded pages.
2095         return (bi->sequenceNumber <= dev->oldestDirtySequence);
2096         
2097         
2098         return 1;
2099
2100 }
2101
2102 // FindDiretiestBlock is used to select the dirtiest block (or close enough)
2103 // for garbage collection.
2104 //
2105
2106
2107
2108 static int yaffs_FindBlockForGarbageCollection(yaffs_Device *dev,int aggressive)
2109 {
2110
2111         int b = dev->currentDirtyChecker;
2112         
2113         int i;
2114         int iterations;
2115         int dirtiest = -1;
2116         int pagesInUse; 
2117         yaffs_BlockInfo *bi;
2118         static int  nonAggressiveSkip = 0;
2119
2120         // If we're doing aggressive GC then we are happy to take a less-dirty block, and
2121         // search harder.
2122         // else (we're doing a leasurely gc), then we only bother to do this if the
2123         // block has only a few pages in use.
2124         
2125
2126         nonAggressiveSkip--;
2127
2128         if(!aggressive &&(nonAggressiveSkip > 0))
2129         {
2130                 return -1;
2131         }
2132
2133         pagesInUse = (aggressive)? dev->nChunksPerBlock : YAFFS_PASSIVE_GC_CHUNKS + 1;
2134
2135         if(aggressive)
2136         {
2137                 iterations = dev->internalEndBlock - dev->internalStartBlock + 1;
2138         }
2139         else
2140         {
2141                 iterations = dev->internalEndBlock - dev->internalStartBlock + 1;
2142                 iterations = iterations / 16; 
2143                 if(iterations > 200)
2144                 {
2145                         iterations = 200;
2146                 }
2147         }
2148         
2149         for(i = 0; i <= iterations && pagesInUse > 0 ; i++)
2150         {
2151                 b++;
2152                 if ( b < dev->internalStartBlock || b > dev->internalEndBlock)
2153                 {
2154                         b =  dev->internalStartBlock;
2155                 }
2156
2157                 if(b < dev->internalStartBlock || b > dev->internalEndBlock)
2158                 {
2159                         T(YAFFS_TRACE_ERROR,(TSTR("**>> Block %d is not valid" TENDSTR),b));
2160                         YBUG();
2161                 }
2162                 
2163                 bi = yaffs_GetBlockInfo(dev,b);
2164                 
2165                 if(bi->blockState == YAFFS_BLOCK_STATE_FULL &&
2166                    (bi->pagesInUse - bi->softDeletions )< pagesInUse &&
2167                    yaffs_BlockNotDisqualifiedFromGC(dev,bi))
2168                 {
2169                         dirtiest = b;
2170                         pagesInUse = (bi->pagesInUse - bi->softDeletions);
2171                 }
2172         }
2173         
2174         dev->currentDirtyChecker = b;
2175         
2176         if(dirtiest > 0)
2177         {
2178                 T(YAFFS_TRACE_GC,(TSTR("GC Selected block %d with %d free" TENDSTR),dirtiest,dev->nChunksPerBlock - pagesInUse));
2179         }
2180         
2181         dev->oldestDirtySequence = 0; // clear this
2182         
2183         if(dirtiest > 0)
2184         {
2185                 nonAggressiveSkip = 4;
2186         }
2187
2188         return dirtiest;
2189 }
2190
2191
2192 static void yaffs_BlockBecameDirty(yaffs_Device *dev,int blockNo)
2193 {
2194         yaffs_BlockInfo *bi = yaffs_GetBlockInfo(dev,blockNo);
2195         
2196         int erasedOk = 0;
2197         
2198         // If the block is still healthy erase it and mark as clean.
2199         // If the block has had a data failure, then retire it.
2200         bi->blockState = YAFFS_BLOCK_STATE_DIRTY;
2201
2202         if(!bi->needsRetiring)
2203         {
2204                 erasedOk = yaffs_EraseBlockInNAND(dev,blockNo);
2205                 if(!erasedOk)
2206                 {
2207                         dev->nErasureFailures++;
2208                         T(YAFFS_TRACE_ERROR | YAFFS_TRACE_BAD_BLOCKS,(TSTR("**>> Erasure failed %d" TENDSTR),blockNo));
2209                 }
2210         }
2211
2212         if(erasedOk && (yaffs_traceMask & YAFFS_TRACE_ERASE))
2213         {
2214                         int i;
2215                         for(i = 0; i < dev->nChunksPerBlock; i++)
2216                         {
2217                                         if(!yaffs_CheckChunkErased(dev,blockNo * dev->nChunksPerBlock + i))
2218                                         {
2219                                                 T(YAFFS_TRACE_ERROR,(TSTR(">>Block %d erasure supposedly OK, but chunk %d not erased" TENDSTR),blockNo,i));
2220                                         }
2221                         }
2222         }
2223         
2224         if( erasedOk )
2225         {
2226                 // Clean it up...
2227                 bi->blockState = YAFFS_BLOCK_STATE_EMPTY;
2228                 dev->nErasedBlocks++;
2229                 bi->pagesInUse = 0;
2230                 bi->softDeletions = 0;
2231                 bi->hasShrinkHeader=0;
2232                 yaffs_ClearChunkBits(dev,blockNo);
2233         
2234                 T(YAFFS_TRACE_ERASE,(TSTR("Erased block %d" TENDSTR),blockNo));
2235         }
2236         else
2237         {
2238                 dev->nFreeChunks -= dev->nChunksPerBlock; // We lost a block of free space
2239                 
2240                 yaffs_RetireBlock(dev,blockNo);
2241                 T(YAFFS_TRACE_ERROR | YAFFS_TRACE_BAD_BLOCKS,(TSTR("**>> Block %d retired" TENDSTR),blockNo));
2242         }
2243 }
2244
2245 #if 0
2246 static void yaffs_DumpBlockStats(yaffs_Device *dev)
2247 {
2248         int i,j;
2249         yaffs_BlockInfo *bi;
2250         
2251         for(i= dev->internalStartBlock; i <=dev->internalEndBlock; i++)
2252         {
2253                 bi = yaffs_GetBlockInfo(dev,i);
2254                 T(YAFFS_TRACE_ALLOCATE,(TSTR("%3d state %d shrink %d inuse %d/%d seq %d pages"),i,
2255                 bi->blockState,bi->hasShrinkHeader,bi->pagesInUse,bi->softDeletions,bi->sequenceNumber));       
2256                 
2257                 for(j = 0; j < dev->nChunksPerBlock; j++)
2258                 {
2259                         if(yaffs_CheckChunkBit(dev,i,j))
2260                         {
2261                                 T(YAFFS_TRACE_ALLOCATE,(TSTR(" %d"),j));
2262
2263                         }
2264                 }
2265                 T(YAFFS_TRACE_ALLOCATE,(TSTR(" " TENDSTR)));
2266
2267         }
2268 }
2269 #endif
2270
2271
2272 static int yaffs_FindBlockForAllocation(yaffs_Device *dev)
2273 {
2274         int i;
2275         
2276         yaffs_BlockInfo *bi;
2277         
2278 #if 0
2279         static int j = 0;
2280         j++;
2281         if(j < 0 || j > 100)
2282         {
2283                 j = 0;
2284                 yaffs_DumpBlockStats(dev);
2285         }
2286         
2287 #endif
2288         
2289         if(dev->nErasedBlocks < 1)
2290         {
2291                 // Hoosterman we've got a problem.
2292                 // Can't get space to gc
2293                 T(YAFFS_TRACE_ERROR, (TSTR("yaffs tragedy: no more eraased blocks" TENDSTR)));
2294
2295                 return -1;
2296         }
2297         
2298         // Find an empty block.
2299         
2300         for(i = dev->internalStartBlock; i <= dev->internalEndBlock; i++)
2301         {
2302                 dev->allocationBlockFinder++;
2303                 if(dev->allocationBlockFinder < dev->internalStartBlock || dev->allocationBlockFinder> dev->internalEndBlock) 
2304                 {
2305                         dev->allocationBlockFinder = dev->internalStartBlock;
2306                 }
2307                 
2308                 bi = yaffs_GetBlockInfo(dev,dev->allocationBlockFinder);
2309
2310                 if(bi->blockState == YAFFS_BLOCK_STATE_EMPTY)
2311                 {
2312                         bi->blockState = YAFFS_BLOCK_STATE_ALLOCATING;
2313                         dev->sequenceNumber++;
2314                         bi->sequenceNumber = dev->sequenceNumber;
2315                         dev->nErasedBlocks--;           
2316                         T(YAFFS_TRACE_ALLOCATE,(TSTR("Allocated block %d, seq  %d, %d left" TENDSTR),dev->allocationBlockFinder,dev->sequenceNumber, dev->nErasedBlocks));      
2317                         return dev->allocationBlockFinder;
2318                 }
2319         }
2320         
2321         
2322         T(YAFFS_TRACE_ALWAYS, (TSTR("yaffs tragedy: no more eraased blocks, but there should have been %d" TENDSTR),dev->nErasedBlocks));
2323         
2324         
2325         
2326
2327         
2328         return -1;      
2329 }
2330
2331
2332 // To determine if we have enough space we just look at the 
2333 // number of erased blocks.
2334
2335 static int yaffs_CheckSpaceForAllocation(yaffs_Device *dev)
2336 {
2337         int reservedChunks = (dev->nReservedBlocks * dev->nChunksPerBlock);
2338         return (dev->nFreeChunks > reservedChunks);
2339 }
2340
2341
2342 static int yaffs_AllocateChunk(yaffs_Device *dev,int useReserve)
2343 {
2344         int retVal;
2345         yaffs_BlockInfo *bi;
2346         
2347         if(dev->allocationBlock < 0)
2348         {
2349                 // Get next block to allocate off
2350                 dev->allocationBlock = yaffs_FindBlockForAllocation(dev);
2351                 dev->allocationPage = 0;
2352         }
2353         
2354         if(!useReserve &&  !yaffs_CheckSpaceForAllocation(dev))
2355         {
2356                 // Not enough space to allocate unless we're allowed to use the reserve.
2357                 return -1;
2358         }
2359
2360         if(dev->nErasedBlocks < dev->nReservedBlocks && dev->allocationPage == 0)
2361         {
2362                 T(YAFFS_TRACE_ALLOCATE,(TSTR("Allocating reserve" TENDSTR)));   
2363         }
2364
2365         
2366         // Next page please....
2367         if(dev->allocationBlock >= 0)
2368         {
2369                 bi = yaffs_GetBlockInfo(dev,dev->allocationBlock);
2370                 
2371                 retVal = (dev->allocationBlock * dev->nChunksPerBlock) + 
2372                                   dev->allocationPage;
2373                 bi->pagesInUse++;
2374                 yaffs_SetChunkBit(dev,dev->allocationBlock,dev->allocationPage);
2375
2376                 dev->allocationPage++;
2377                 
2378                 dev->nFreeChunks--;
2379                 
2380                 // If the block is full set the state to full
2381                 if(dev->allocationPage >= dev->nChunksPerBlock)
2382                 {
2383                         bi->blockState = YAFFS_BLOCK_STATE_FULL;
2384                         dev->allocationBlock = -1;
2385                 }
2386
2387
2388                 return retVal;
2389                 
2390         }
2391         T(YAFFS_TRACE_ERROR,(TSTR("!!!!!!!!! Allocator out !!!!!!!!!!!!!!!!!" TENDSTR)));
2392
2393         return -1;      
2394 }
2395
2396
2397
2398
2399 static int yaffs_GetErasedChunks(yaffs_Device *dev)
2400 {
2401                 int n;
2402
2403                 n = dev->nErasedBlocks * dev->nChunksPerBlock;
2404
2405                 if(dev->allocationBlock> 0)
2406                 {
2407                         n += (dev->nChunksPerBlock - dev->allocationPage);
2408                 }
2409
2410                 return n;
2411
2412 }
2413
2414 static int  yaffs_GarbageCollectBlock(yaffs_Device *dev,int block)
2415 {
2416         int oldChunk;
2417         int newChunk;
2418         int chunkInBlock;
2419         int markNAND;
2420         int retVal = YAFFS_OK;
2421         int cleanups = 0;
2422         int i;
2423
2424         int chunksBefore = yaffs_GetErasedChunks(dev);
2425         int chunksAfter;
2426
2427         yaffs_ExtendedTags  tags;
2428         
2429         yaffs_BlockInfo *bi = yaffs_GetBlockInfo(dev,block);
2430         
2431         yaffs_Object *object;
2432         
2433         bi->blockState = YAFFS_BLOCK_STATE_COLLECTING;
2434
2435         T(YAFFS_TRACE_TRACING,(TSTR("Collecting block %d, in use %d, shrink %d, " TENDSTR),block,bi->pagesInUse,bi->hasShrinkHeader));
2436         //T(("Collecting block %d n %d bits %x\n",block, bi->pagesInUse, bi->pageBits));        
2437         
2438         //yaffs_VerifyFreeChunks(dev);
2439
2440         bi->hasShrinkHeader = 0; // clear the flag so that the block can erase
2441         
2442         dev->nFreeChunks -= bi->softDeletions;  // Take off the number of soft deleted entries because
2443                                                 // they're going to get really deleted during GC.
2444
2445         dev->isDoingGC = 1;
2446
2447         if(!yaffs_StillSomeChunkBits(dev,block))
2448         {
2449                 T(YAFFS_TRACE_TRACING,(TSTR("Collecting block %d that has no chunks in use" TENDSTR),block));
2450                 yaffs_BlockBecameDirty(dev,block);
2451         }
2452         else
2453         {
2454
2455         __u8  *buffer = yaffs_GetTempBuffer(dev,__LINE__);
2456
2457         for(chunkInBlock = 0,oldChunk = block * dev->nChunksPerBlock; 
2458             chunkInBlock < dev->nChunksPerBlock && yaffs_StillSomeChunkBits(dev,block);
2459             chunkInBlock++, oldChunk++ )
2460         {
2461                 if(yaffs_CheckChunkBit(dev,block,chunkInBlock))
2462                 {
2463                         
2464                         // This page is in use and might need to be copied off
2465                         
2466                         markNAND = 1;
2467                         
2468                         //T(("copying page %x from %d to %d\n",mask,oldChunk,newChunk));
2469                         
2470                         yaffs_InitialiseTags(&tags);
2471                         
2472                         yaffs_ReadChunkWithTagsFromNAND(dev,oldChunk,buffer, &tags);
2473
2474                         object = yaffs_FindObjectByNumber(dev,tags.objectId);
2475                         
2476                         T(YAFFS_TRACE_GC_DETAIL,(TSTR("Collecting page %d, %d %d %d " TENDSTR),chunkInBlock,tags.objectId,tags.chunkId,tags.byteCount));
2477                         
2478                         if(!object)
2479                         {
2480                                 T(YAFFS_TRACE_ERROR,(TSTR("page %d in gc has no object " TENDSTR),oldChunk));
2481                         }
2482                         
2483                         if(object && object->deleted && tags.chunkId != 0)
2484                         {
2485                                 // Data chunk in a deleted file, throw it away
2486                                 // It's a soft deleted data chunk,
2487                                 // No need to copy this, just forget about it and fix up the
2488                                 // object.
2489                                 
2490                                 //yaffs_PutChunkIntoFile(object, tags.chunkId, 0,0); 
2491                                 object->nDataChunks--;
2492                                 
2493                                 if(object->nDataChunks <= 0)
2494                                 {
2495                                         // remeber to clean up the object
2496                                         dev->gcCleanupList[cleanups] = tags.objectId;
2497                                         cleanups++;
2498                                 }
2499                                 markNAND = 0;
2500                         }
2501                         else if( 0 /* Todo object && object->deleted && object->nDataChunks == 0 */)
2502                         {
2503                                 // Deleted object header with no data chunks.
2504                                 // Can be discarded and the file deleted.
2505                                 object->chunkId = 0;
2506                                 yaffs_FreeTnode(object->myDev,object->variant.fileVariant.top);
2507                                 object->variant.fileVariant.top = NULL;
2508                                 yaffs_DoGenericObjectDeletion(object);
2509                                 
2510                         }
2511                         else if(object)
2512                         {
2513                                 // It's either a data chunk in a live file or
2514                                 // an ObjectHeader, so we're interested in it.
2515                                 // NB Need to keep the ObjectHeaders of deleted files
2516                                 // until the whole file has been deleted off
2517                                 tags.serialNumber++;
2518
2519                                 dev->nGCCopies++;
2520
2521                                 newChunk = yaffs_WriteNewChunkWithTagsToNAND(dev, buffer, &tags,1);
2522                         
2523                                 if(newChunk < 0)
2524                                 {
2525                                         retVal =  YAFFS_FAIL;
2526                                 }
2527                                 else
2528                                 {
2529                         
2530                                         // Ok, now fix up the Tnodes etc.
2531                         
2532                                         if(tags.chunkId == 0)
2533                                         {
2534                                                 // It's a header
2535                                                 object->chunkId = newChunk;
2536                                                 object->serial = tags.serialNumber;
2537                                         }
2538                                         else
2539                                         {
2540                                                 // It's a data chunk
2541                                                 yaffs_PutChunkIntoFile(object, tags.chunkId, newChunk,0);
2542                                         }
2543                                 }
2544                         }
2545                         
2546                         yaffs_DeleteChunk(dev,oldChunk,markNAND,__LINE__);                      
2547                         
2548                 }
2549         }
2550
2551         yaffs_ReleaseTempBuffer(dev,buffer,__LINE__);
2552
2553         //yaffs_VerifyFreeChunks(dev);
2554
2555         // Do any required cleanups
2556         for(i = 0; i < cleanups; i++)
2557         {                                               
2558                 // Time to delete the file too
2559                 object =  yaffs_FindObjectByNumber(dev,dev->gcCleanupList[i]);
2560                 if(object)
2561                 {
2562                         yaffs_FreeTnode(dev,object->variant.fileVariant.top);
2563                         object->variant.fileVariant.top = NULL;
2564                         T(YAFFS_TRACE_GC,(TSTR("yaffs: About to finally delete object %d" TENDSTR),object->objectId));
2565                         yaffs_DoGenericObjectDeletion(object);
2566                 }
2567
2568         }
2569
2570         }
2571
2572         if(chunksBefore >= (chunksAfter = yaffs_GetErasedChunks(dev)))
2573         {
2574                         T(YAFFS_TRACE_GC,(TSTR("gc did not increase free chunks before %d after %d" TENDSTR),chunksBefore,chunksAfter));
2575         }
2576         
2577         
2578         dev->isDoingGC = 0;
2579         
2580         //yaffs_VerifyFreeChunks(dev);
2581                         
2582         return YAFFS_OK;
2583 }
2584
2585 #if 0
2586 static yaffs_Object *yaffs_FindDeletedUnlinkedFile(yaffs_Device *dev)
2587 {
2588         // find a file to delete
2589         struct list_head *i;    
2590         yaffs_Object *l;
2591
2592
2593         //Scan the unlinked files looking for one to delete
2594         list_for_each(i,&dev->unlinkedDir->variant.directoryVariant.children)
2595         {
2596                 if(i)
2597                 {
2598                         l = list_entry(i, yaffs_Object,siblings);
2599                         if(l->deleted)
2600                         {
2601                                 return l;                       
2602                         }
2603                 }
2604         }       
2605         return NULL;
2606 }
2607
2608
2609 static void yaffs_DoUnlinkedFileDeletion(yaffs_Device *dev)
2610 {
2611         // This does background deletion on unlinked files.. only deleted ones.
2612         // If we don't have a file we're working on then find one
2613         if(!dev->unlinkedDeletion && dev->nDeletedFiles > 0)
2614         {
2615                 dev->unlinkedDeletion = yaffs_FindDeletedUnlinkedFile(dev);
2616         }
2617         
2618         // OK, we're working on a file...
2619         if(dev->unlinkedDeletion)
2620         {
2621                 yaffs_Object *obj = dev->unlinkedDeletion;
2622                 int delresult;
2623                 int limit; // Number of chunks to delete in a file.
2624                                    // NB this can be exceeded, but not by much.
2625                                    
2626                 limit = -1;
2627
2628                 delresult = yaffs_DeleteWorker(obj, obj->variant.fileVariant.top, obj->variant.fileVariant.topLevel, 0,&limit);
2629                 
2630                 if(obj->nDataChunks == 0)
2631                 {
2632                         // Done all the deleting of data chunks.
2633                         // Now dump the header and clean up
2634                         yaffs_FreeTnode(dev,obj->variant.fileVariant.top);
2635                         obj->variant.fileVariant.top = NULL;
2636                         yaffs_DoGenericObjectDeletion(obj);
2637                         dev->nDeletedFiles--;
2638                         dev->nUnlinkedFiles--;
2639                         dev->nBackgroundDeletions++;
2640                         dev->unlinkedDeletion = NULL;   
2641                 }
2642         }
2643 }
2644
2645 #endif
2646
2647
2648
2649 // New garbage collector
2650 // If we're very low on erased blocks then we do aggressive garbage collection
2651 // otherwise we do "leasurely" garbage collection.
2652 // Aggressive gc looks further (whole array) and will accept dirtier blocks.
2653 // Passive gc only inspects smaller areas and will only accept cleaner blocks.
2654 //
2655 // The idea is to help clear out space in a more spread-out manner.
2656 // Dunno if it really does anything useful.
2657 //
2658 static int yaffs_CheckGarbageCollection(yaffs_Device *dev)
2659 {
2660         int block;
2661         int aggressive; 
2662         int gcOk = YAFFS_OK;
2663         int maxTries = 0;
2664         
2665         //yaffs_VerifyFreeChunks(dev);
2666         
2667         if(dev->isDoingGC)
2668         {
2669                 // Bail out so we don't get recursive gc
2670                 return YAFFS_OK;
2671         }
2672
2673         // This loop should pass the first time.
2674         // We'll only see looping here if the erase of the collected block fails.
2675         
2676         do{
2677                 maxTries++;
2678                 if(dev->nErasedBlocks < dev->nReservedBlocks)
2679                 {
2680                         // We need a block soon...
2681                         aggressive = 1;
2682                 }
2683                 else 
2684                 {
2685                         // We're in no hurry
2686                         aggressive = 0;
2687                 }
2688         
2689                 block = yaffs_FindBlockForGarbageCollection(dev,aggressive);
2690         
2691                 if(block > 0)
2692                 {
2693                         dev->garbageCollections++;
2694                         if(!aggressive)
2695                         {
2696                                 dev->passiveGarbageCollections++;
2697                         }
2698
2699                         T(YAFFS_TRACE_GC,(TSTR("yaffs: GC erasedBlocks %d aggressive %d" TENDSTR),dev->nErasedBlocks,aggressive));
2700
2701                         gcOk =  yaffs_GarbageCollectBlock(dev,block);
2702                 }
2703
2704                 if(dev->nErasedBlocks < (dev->nReservedBlocks) && block > 0) 
2705                 {
2706                         T(YAFFS_TRACE_GC,(TSTR("yaffs: GC !!!no reclaim!!! erasedBlocks %d after try %d block %d" TENDSTR),dev->nErasedBlocks,maxTries,block));
2707                 }
2708         } while((dev->nErasedBlocks < dev->nReservedBlocks) && (block > 0) && (maxTries < 2));
2709
2710         return aggressive ? gcOk: YAFFS_OK;
2711 }
2712
2713
2714 //////////////////////////// TAGS ///////////////////////////////////////
2715
2716
2717
2718 #if 0
2719
2720 void yaffs_CalcTagsECC(yaffs_Tags *tags)
2721 {
2722         // Calculate an ecc
2723         
2724         unsigned char *b = ((yaffs_TagsUnion *)tags)->asBytes;
2725         unsigned  i,j;
2726         unsigned  ecc = 0;
2727         unsigned bit = 0;
2728
2729         tags->ecc = 0;
2730         
2731         for(i = 0; i < 8; i++)
2732         {
2733                 for(j = 1; j &0xff; j<<=1)
2734                 {
2735                         bit++;
2736                         if(b[i] & j)
2737                         {
2738                                 ecc ^= bit;
2739                         }
2740                 }
2741         }
2742         
2743         tags->ecc = ecc;
2744         
2745         
2746 }
2747
2748 int  yaffs_CheckECCOnTags(yaffs_Tags *tags)
2749 {
2750         unsigned ecc = tags->ecc;
2751         
2752         yaffs_CalcTagsECC(tags);
2753         
2754         ecc ^= tags->ecc;
2755         
2756         if(ecc && ecc <= 64)
2757         {
2758                 // TODO: Handle the failure better. Retire?
2759                 unsigned char *b = ((yaffs_TagsUnion *)tags)->asBytes;
2760
2761                 ecc--;
2762                                 
2763                 b[ecc / 8] ^= (1 << (ecc & 7));
2764                 
2765                 // Now recvalc the ecc
2766                 yaffs_CalcTagsECC(tags);
2767                 
2768                 return 1; // recovered error
2769         }
2770         else if(ecc)
2771         {
2772                 // Wierd ecc failure value
2773                 // TODO Need to do somethiong here
2774                 return -1; //unrecovered error
2775         }
2776         
2777         return 0;
2778 }
2779
2780 static void yaffs_LoadTagsIntoSpare(yaffs_Spare *sparePtr, yaffs_Tags *tagsPtr)
2781 {
2782         yaffs_TagsUnion *tu = (yaffs_TagsUnion *)tagsPtr;
2783         
2784         yaffs_CalcTagsECC(tagsPtr);
2785         
2786         sparePtr->tagByte0 = tu->asBytes[0];
2787         sparePtr->tagByte1 = tu->asBytes[1];
2788         sparePtr->tagByte2 = tu->asBytes[2];
2789         sparePtr->tagByte3 = tu->asBytes[3];
2790         sparePtr->tagByte4 = tu->asBytes[4];
2791         sparePtr->tagByte5 = tu->asBytes[5];
2792         sparePtr->tagByte6 = tu->asBytes[6];
2793         sparePtr->tagByte7 = tu->asBytes[7];
2794 }
2795
2796 static void yaffs_GetTagsFromSpare(yaffs_Device *dev, yaffs_Spare *sparePtr,yaffs_Tags *tagsPtr)
2797 {
2798         yaffs_TagsUnion *tu = (yaffs_TagsUnion *)tagsPtr;
2799         int result;
2800
2801         tu->asBytes[0]= sparePtr->tagByte0;
2802         tu->asBytes[1]= sparePtr->tagByte1;
2803         tu->asBytes[2]= sparePtr->tagByte2;
2804         tu->asBytes[3]= sparePtr->tagByte3;
2805         tu->asBytes[4]= sparePtr->tagByte4;
2806         tu->asBytes[5]= sparePtr->tagByte5;
2807         tu->asBytes[6]= sparePtr->tagByte6;
2808         tu->asBytes[7]= sparePtr->tagByte7;
2809         
2810         result =  yaffs_CheckECCOnTags(tagsPtr);
2811         if(result> 0)
2812         {
2813                 dev->tagsEccFixed++;
2814         }
2815         else if(result <0)
2816         {
2817                 dev->tagsEccUnfixed++;
2818         }
2819 }
2820
2821 static void yaffs_SpareInitialise(yaffs_Spare *spare)
2822 {
2823         memset(spare,0xFF,sizeof(yaffs_Spare));
2824 }
2825
2826 #endif
2827
2828 #if 0
2829 static int yaffs_WriteNewChunkWithTagsToNAND(yaffs_Device *dev, const __u8 *buffer, yaffs_ExtendedTags *tags, int useReserve)
2830 {
2831         // NB There must be tags, data is optional
2832         // If there is data, then an ECC is calculated on it.
2833         
2834         yaffs_Spare spare;
2835         
2836         if(!tags)
2837         {
2838                 return YAFFS_FAIL;
2839         }
2840         
2841         //yaffs_SpareInitialise(&spare);
2842         
2843         //if(!dev->useNANDECC && buffer)
2844         //{
2845         //      yaffs_CalcECC(buffer,&spare);
2846         //}
2847         
2848         //yaffs_LoadTagsIntoSpare(&spare,tags);
2849         
2850         return yaffs_WriteNewChunkToNAND(dev,buffer,&spare,useReserve);
2851         
2852 }
2853 #endif
2854
2855 static int yaffs_TagsMatch(const yaffs_ExtendedTags *tags, int objectId, int chunkInObject)
2856 {
2857         return  (  tags->chunkId == chunkInObject &&
2858                            tags->objectId == objectId &&
2859                            !tags->chunkDeleted) ? 1 : 0;
2860         
2861 }
2862
2863 /////////////////////////////////////////////////////////////////////////////////////////////////////////
2864
2865
2866 static int yaffs_FindChunkInFile(yaffs_Object *in,int chunkInInode,yaffs_ExtendedTags *tags)
2867 {
2868         //Get the Tnode, then get the level 0 offset chunk offset
2869     yaffs_Tnode *tn;     
2870     int theChunk = -1;
2871     yaffs_ExtendedTags localTags;
2872     int retVal = -1;
2873     
2874     yaffs_Device *dev = in->myDev;
2875     
2876     
2877     if(!tags)
2878     {
2879         // Passed a NULL, so use our own tags space
2880         tags = &localTags;
2881     }
2882     
2883     tn = yaffs_FindLevel0Tnode(dev,&in->variant.fileVariant, chunkInInode);
2884     
2885     if(tn)
2886     {
2887                 theChunk = tn->level0[chunkInInode & YAFFS_TNODES_LEVEL0_MASK] << dev->chunkGroupBits;
2888                 
2889                 retVal = yaffs_FindChunkInGroup(dev,theChunk,tags,in->objectId,chunkInInode);
2890     }
2891     return retVal;
2892 }
2893
2894 static int yaffs_FindAndDeleteChunkInFile(yaffs_Object *in,int chunkInInode,yaffs_ExtendedTags *tags)
2895 {
2896         //Get the Tnode, then get the level 0 offset chunk offset
2897     yaffs_Tnode *tn;     
2898     int theChunk = -1;
2899     yaffs_ExtendedTags localTags;
2900
2901     yaffs_Device *dev = in->myDev;
2902     int retVal = -1;
2903     
2904     if(!tags)
2905     {
2906         // Passed a NULL, so use our own tags space
2907         tags = &localTags;
2908     }
2909     
2910     tn = yaffs_FindLevel0Tnode(dev,&in->variant.fileVariant, chunkInInode);
2911     
2912     if(tn)
2913     {
2914     
2915                 theChunk = tn->level0[chunkInInode & YAFFS_TNODES_LEVEL0_MASK] << dev->chunkGroupBits;
2916                 
2917                 retVal = yaffs_FindChunkInGroup(dev,theChunk,tags,in->objectId,chunkInInode);
2918     
2919                 // Delete the entry in the filestructure (if found)
2920                 if(retVal != -1)
2921                 {
2922                         tn->level0[chunkInInode & YAFFS_TNODES_LEVEL0_MASK] = 0;
2923                 }
2924     }
2925     else
2926     {
2927         //T(("No level 0 found for %d\n", chunkInInode));
2928     }
2929     
2930     if(retVal == -1)
2931     {
2932         //T(("Could not find %d to delete\n",chunkInInode));
2933     }
2934     return retVal;
2935 }
2936
2937
2938 #ifdef YAFFS_PARANOID
2939
2940 static int yaffs_CheckFileSanity(yaffs_Object *in)
2941 {
2942         int chunk;
2943         int nChunks;
2944         int fSize;
2945         int failed = 0;
2946         int objId;
2947         yaffs_Tnode *tn;
2948     yaffs_Tags localTags;
2949     yaffs_Tags *tags = &localTags;
2950     int theChunk;
2951     int chunkDeleted;
2952     
2953         
2954         if(in->variantType != YAFFS_OBJECT_TYPE_FILE)
2955         {
2956                 //T(("Object not a file\n"));
2957                 return YAFFS_FAIL;
2958         }
2959         
2960         objId = in->objectId;
2961         fSize  = in->variant.fileVariant.fileSize;
2962         nChunks = (fSize + in->myDev->nBytesPerChunk -1)/in->myDev->nBytesPerChunk;
2963         
2964         for(chunk = 1; chunk <= nChunks; chunk++)
2965         {
2966                 tn = yaffs_FindLevel0Tnode(in->myDev,&in->variant.fileVariant, chunk);
2967     
2968                 if(tn)
2969                 {
2970     
2971                         theChunk = tn->level0[chunk & YAFFS_TNODES_LEVEL0_MASK] << in->myDev->chunkGroupBits;
2972                         
2973                 if(yaffs_CheckChunkBits(dev,theChunk/dev->nChunksPerBlock,theChunk%dev->nChunksPerBlock))
2974                         {
2975
2976
2977                                 yaffs_ReadChunkTagsFromNAND(in->myDev,theChunk,tags,&chunkDeleted);
2978                                 if(yaffs_TagsMatch(tags,in->objectId,chunk,chunkDeleted))
2979                                 {
2980                                         // found it;
2981                                 
2982                                 }
2983                         }
2984                         else
2985                         {
2986                                 //T(("File problem file [%d,%d] NAND %d  tags[%d,%d]\n",
2987                                 //              objId,chunk,theChunk,tags->chunkId,tags->objectId);
2988                                                 
2989                                 failed = 1;
2990                                                         
2991                         }
2992     
2993                 }
2994                 else
2995                 {
2996                         //T(("No level 0 found for %d\n", chunk));
2997                 }
2998         }
2999         
3000         return failed ? YAFFS_FAIL : YAFFS_OK;
3001 }
3002
3003 #endif
3004
3005 static int yaffs_PutChunkIntoFile(yaffs_Object *in,int chunkInInode, int chunkInNAND, int inScan)
3006 {
3007         // NB inScan is zero unless scanning. For forward scanning, inScan is > 0; for backward scanning inScan is < 0
3008         yaffs_Tnode *tn;
3009         yaffs_Device *dev = in->myDev;
3010         int existingChunk;
3011         yaffs_ExtendedTags existingTags;
3012         yaffs_ExtendedTags newTags;
3013         unsigned existingSerial, newSerial;
3014         
3015         if(in->variantType != YAFFS_OBJECT_TYPE_FILE)
3016         {
3017                 // Just ignore an attempt at putting a chunk into a non-file during scanning
3018                 // If it is not during Scanning then something went wrong!
3019                 if(!inScan)
3020                 {
3021                         T(YAFFS_TRACE_ERROR, (TSTR("yaffs tragedy:attempt to put data chunk into a non-file" TENDSTR)));
3022                         YBUG();
3023                 }
3024                 
3025                 yaffs_DeleteChunk(dev,chunkInNAND,1,__LINE__);
3026                 return YAFFS_OK;
3027         }
3028                 
3029         tn = yaffs_AddOrFindLevel0Tnode(dev,&in->variant.fileVariant, chunkInInode);
3030         if(!tn)
3031         {
3032                 return YAFFS_FAIL;
3033         }
3034
3035         existingChunk = tn->level0[chunkInInode & YAFFS_TNODES_LEVEL0_MASK];            
3036         
3037         if(inScan != 0)
3038         {
3039                 // If we're scanning then we need to test for duplicates
3040                 // NB This does not need to be efficient since it should only ever 
3041                 // happen when the power fails during a write, then only one
3042                 // chunk should ever be affected.
3043                 //
3044                 // Correction for YAFFS2: This could happen quite a lot and we need to think about efficiency! TODO
3045                 // Update: For backward scanning we don't need to re-read tags so this is quite cheap.
3046                 
3047         
3048                 
3049                 if(existingChunk != 0)
3050                 {
3051                         // NB Right now existing chunk will not be real chunkId if the device >= 32MB
3052                         //    thus we have to do a FindChunkInFile to get the real chunk id.
3053                         //
3054                         // We have a duplicate now we need to decide which one to use:
3055                         //
3056                         // Backwards scanning YAFFS2: The old one is what we use, dump the new one.
3057                         // Forward scanning YAFFS2: The new one is what we use, dump the old one.
3058                         // YAFFS1: Get both sets of tags and compare serial numbers.
3059                         //
3060                         //
3061                         
3062                         if(inScan > 0)
3063                         {
3064                                 // Only do this for forward scanning
3065                                 yaffs_ReadChunkWithTagsFromNAND(dev,chunkInNAND, NULL,&newTags);
3066                         
3067                         
3068                                 // Do a proper find
3069                                 existingChunk = yaffs_FindChunkInFile(in,chunkInInode, &existingTags);
3070                         }
3071
3072                         if(existingChunk <=0)
3073                         {
3074                                 //Hoosterman - how did this happen?
3075                                 
3076                                 T(YAFFS_TRACE_ERROR, (TSTR("yaffs tragedy: existing chunk < 0 in scan" TENDSTR)));
3077
3078                         }
3079
3080                         
3081                         // NB The deleted flags should be false, otherwise the chunks will 
3082                         // not be loaded during a scan
3083                         
3084                         newSerial = newTags.serialNumber;
3085                         existingSerial = existingTags.serialNumber;
3086                         
3087                         if( (inScan > 0) &&
3088                             ( in->myDev->isYaffs2  ||
3089                               existingChunk <= 0 ||
3090                              ((existingSerial+1) & 3) == newSerial))
3091                         {
3092                                 // Forward scanning.                            
3093                                 // Use new
3094                                 // Delete the old one and drop through to update the tnode
3095                                 yaffs_DeleteChunk(dev,existingChunk,1,__LINE__);
3096                         }
3097                         else
3098                         {
3099                                 // Backward scanning or we want to use the existing one
3100                                 // Use existing.
3101                                 // Delete the new one and return early so that the tnode isn't changed
3102                                 yaffs_DeleteChunk(dev,chunkInNAND,1,__LINE__);
3103                                 return YAFFS_OK;
3104                         }
3105                 }
3106
3107         }
3108                 
3109         if(existingChunk == 0)
3110         {
3111                 in->nDataChunks++;
3112         }
3113         
3114         tn->level0[chunkInInode & YAFFS_TNODES_LEVEL0_MASK] = (chunkInNAND >> dev->chunkGroupBits);
3115         
3116         return YAFFS_OK;
3117 }
3118
3119
3120
3121 static int yaffs_ReadChunkDataFromObject(yaffs_Object *in,int chunkInInode, __u8 *buffer)
3122 {
3123     int chunkInNAND = yaffs_FindChunkInFile(in,chunkInInode,NULL);
3124     
3125     if(chunkInNAND >= 0)
3126     {
3127                 return yaffs_ReadChunkWithTagsFromNAND(in->myDev,chunkInNAND,buffer,NULL);
3128         }
3129         else
3130         {
3131                 T(YAFFS_TRACE_NANDACCESS,(TSTR("Chunk %d not found zero instead" TENDSTR),chunkInNAND));
3132
3133                 memset(buffer,0,in->myDev->nBytesPerChunk); // get sane data if you read a hole
3134                 return 0;
3135         }
3136
3137 }
3138
3139
3140 void yaffs_DeleteChunk(yaffs_Device *dev,int chunkId,int markNAND,int lyn)
3141 {
3142         int block;
3143         int page;
3144         yaffs_ExtendedTags tags;
3145         yaffs_BlockInfo *bi;
3146         
3147         if(chunkId <= 0) return;        
3148         
3149         dev->nDeletions++;
3150         block = chunkId / dev->nChunksPerBlock;
3151         page = chunkId % dev->nChunksPerBlock;
3152         
3153         bi = yaffs_GetBlockInfo(dev,block);
3154         
3155         T(YAFFS_TRACE_DELETION,(TSTR("line %d delete of chunk %d" TENDSTR),lyn,chunkId));
3156         
3157         if(markNAND && 
3158           bi->blockState != YAFFS_BLOCK_STATE_COLLECTING &&
3159           !dev->isYaffs2)
3160         {
3161 //              yaffs_SpareInitialise(&spare);
3162
3163 #ifdef CONFIG_MTD_NAND_VERIFY_WRITE
3164
3165                 //read data before write, to ensure correct ecc 
3166                 //if we're using MTD verification under Linux
3167                 yaffs_ReadChunkFromNAND(dev,chunkId,NULL,&spare,0);
3168 #endif
3169
3170                 yaffs_InitialiseTags(&tags);
3171
3172                 tags.chunkDeleted = 1;
3173
3174         
3175                 yaffs_WriteChunkWithTagsToNAND(dev,chunkId,NULL,&tags);
3176                 yaffs_HandleUpdateChunk(dev,chunkId,&tags);
3177         }
3178         else
3179         {
3180                         dev->nUnmarkedDeletions++;
3181         }       
3182         
3183         
3184         // Pull out of the management area.
3185         // If the whole block became dirty, this will kick off an erasure.
3186         if(     bi->blockState == YAFFS_BLOCK_STATE_ALLOCATING ||
3187             bi->blockState == YAFFS_BLOCK_STATE_FULL ||     
3188             bi->blockState == YAFFS_BLOCK_STATE_NEEDS_SCANNING ||
3189             bi->blockState == YAFFS_BLOCK_STATE_COLLECTING)
3190         {
3191                 dev->nFreeChunks++;
3192
3193                 yaffs_ClearChunkBit(dev,block,page);
3194                 
3195                 bi->pagesInUse--;
3196                 
3197                 if(bi->pagesInUse == 0 &&
3198                    !bi->hasShrinkHeader &&
3199                bi->blockState != YAFFS_BLOCK_STATE_ALLOCATING &&
3200                bi->blockState != YAFFS_BLOCK_STATE_NEEDS_SCANNING)
3201             {
3202                 yaffs_BlockBecameDirty(dev,block);
3203             }
3204
3205         }
3206         else
3207         {
3208                 // T(("Bad news deleting chunk %d\n",chunkId));
3209         }
3210         
3211 }
3212
3213
3214
3215
3216 static int yaffs_WriteChunkDataToObject(yaffs_Object *in,int chunkInInode, const __u8 *buffer,int nBytes,int useReserve)
3217 {
3218         // Find old chunk Need to do this to get serial number
3219         // Write new one and patch into tree.
3220         // Invalidate old tags.
3221
3222     int prevChunkId;
3223     yaffs_ExtendedTags prevTags;
3224     
3225     int newChunkId;
3226     yaffs_ExtendedTags newTags;
3227
3228     yaffs_Device *dev = in->myDev;    
3229
3230         yaffs_CheckGarbageCollection(dev);
3231
3232         // Get the previous chunk at this location in the file if it exists
3233     prevChunkId  = yaffs_FindChunkInFile(in,chunkInInode,&prevTags);
3234     
3235     // Set up new tags
3236     yaffs_InitialiseTags(&newTags);
3237     
3238         newTags.chunkId = chunkInInode;
3239         newTags.objectId = in->objectId;
3240         newTags.serialNumber = (prevChunkId >= 0) ? prevTags.serialNumber + 1 : 1;
3241         newTags.byteCount = nBytes;
3242                 
3243 //      yaffs_CalcTagsECC(&newTags);
3244
3245         newChunkId = yaffs_WriteNewChunkWithTagsToNAND(dev,buffer,&newTags,useReserve);
3246         
3247         if(newChunkId >= 0)
3248         {
3249                 yaffs_PutChunkIntoFile(in,chunkInInode,newChunkId,0);
3250                 
3251                 
3252                 if(prevChunkId >= 0)
3253                 {
3254                         yaffs_DeleteChunk(dev,prevChunkId,1,__LINE__);
3255         
3256                 }
3257                 
3258                 yaffs_CheckFileSanity(in);
3259         }
3260         return newChunkId;
3261
3262
3263
3264
3265
3266 }
3267
3268
3269 // UpdateObjectHeader updates the header on NAND for an object.
3270 // If name is not NULL, then that new name is used.
3271 //
3272 int yaffs_UpdateObjectHeader(yaffs_Object *in,const YCHAR *name, int force,int isShrink,int shadows)
3273 {
3274
3275         yaffs_BlockInfo *bi;
3276         
3277         yaffs_Device *dev = in->myDev;
3278         
3279     int prevChunkId;
3280     int retVal = 0;
3281     
3282     int newChunkId;
3283     yaffs_ExtendedTags newTags;
3284     
3285     __u8 *buffer = NULL;
3286     YCHAR oldName[YAFFS_MAX_NAME_LENGTH+1];
3287     
3288    // __u8 bufferOld[YAFFS_BYTES_PER_CHUNK];
3289     
3290     yaffs_ObjectHeader *oh = NULL;
3291     // yaffs_ObjectHeader *ohOld = (yaffs_ObjectHeader *)bufferOld;
3292
3293     
3294     if(!in->fake || force)
3295     {
3296   
3297                 yaffs_CheckGarbageCollection(dev);              
3298     
3299             buffer = yaffs_GetTempBuffer(in->myDev,__LINE__);
3300             oh  = (yaffs_ObjectHeader *)buffer;
3301     
3302                 prevChunkId = in->chunkId;
3303     
3304                 if(prevChunkId >= 0)
3305                 {
3306                         yaffs_ReadChunkWithTagsFromNAND(dev,prevChunkId,buffer,NULL);
3307                         memcpy(oldName,oh->name,sizeof(oh->name));      
3308                 }
3309
3310                 memset(buffer,0xFF,dev->nBytesPerChunk);
3311
3312                 // Header data
3313                 oh->type = in->variantType;
3314                 
3315                 oh->yst_mode = in->yst_mode;
3316                 
3317                 // shadowing
3318                 oh->shadowsObject = shadows;
3319
3320 #ifdef CONFIG_YAFFS_WINCE
3321                 oh->win_atime[0] = in->win_atime[0];
3322                 oh->win_ctime[0] = in->win_ctime[0];
3323                 oh->win_mtime[0] = in->win_mtime[0];
3324                 oh->win_atime[1] = in->win_atime[1];
3325                 oh->win_ctime[1] = in->win_ctime[1];
3326                 oh->win_mtime[1] = in->win_mtime[1];
3327 #else
3328                 oh->yst_uid = in->yst_uid;
3329                 oh->yst_gid = in->yst_gid;
3330                 oh->yst_atime = in->yst_atime;
3331                 oh->yst_mtime = in->yst_mtime;
3332                 oh->yst_ctime = in->yst_ctime;
3333                 oh->yst_rdev = in->yst_rdev;
3334 #endif  
3335                 if(in->parent)
3336                 {
3337                         oh->parentObjectId = in->parent->objectId;
3338                 }
3339                 else
3340                 {
3341                         oh->parentObjectId = 0;
3342                 }
3343                 
3344                 //oh->sum = in->sum;
3345                 if(name && *name)
3346                 {
3347                         memset(oh->name,0,sizeof(oh->name));
3348                         yaffs_strncpy(oh->name,name,YAFFS_MAX_NAME_LENGTH);
3349                 }
3350                 else if(prevChunkId)
3351                 {       
3352                         memcpy(oh->name, oldName,sizeof(oh->name));
3353                 }
3354                 else
3355                 {
3356                         memset(oh->name,0,sizeof(oh->name));    
3357                 }
3358                 
3359                 oh->isShrink = isShrink;
3360         
3361                 switch(in->variantType)
3362                 {
3363                         case YAFFS_OBJECT_TYPE_UNKNOWN:         
3364                                 // Should not happen
3365                                 break;
3366                         case YAFFS_OBJECT_TYPE_FILE:
3367                                 oh->fileSize = (oh->parentObjectId == YAFFS_OBJECTID_DELETED ||
3368                                                 oh->parentObjectId == YAFFS_OBJECTID_UNLINKED) ? 0 : in->variant.fileVariant.fileSize;
3369                                 break;
3370                         case YAFFS_OBJECT_TYPE_HARDLINK:
3371                                 oh->equivalentObjectId = in->variant.hardLinkVariant.equivalentObjectId;
3372                                 break;
3373                         case YAFFS_OBJECT_TYPE_SPECIAL: 
3374                                 // Do nothing
3375                                 break;
3376                         case YAFFS_OBJECT_TYPE_DIRECTORY:       
3377                                 // Do nothing
3378                                 break;
3379                         case YAFFS_OBJECT_TYPE_SYMLINK:
3380                                 yaffs_strncpy(oh->alias,in->variant.symLinkVariant.alias,YAFFS_MAX_ALIAS_LENGTH);
3381                                 oh->alias[YAFFS_MAX_ALIAS_LENGTH] = 0;
3382                                 break;
3383                 }
3384
3385                 // Tags
3386                 yaffs_InitialiseTags(&newTags);
3387                 in->serial++;
3388                 newTags.chunkId = 0;
3389                 newTags.objectId = in->objectId;
3390                 newTags.serialNumber = in->serial;
3391                 
3392                 // Add extra info for file header
3393                 
3394                 newTags.extraHeaderInfoAvailable = 1;
3395                 newTags.extraParentObjectId = oh->parentObjectId;
3396                 newTags.extraFileLength = oh->fileSize;
3397                 newTags.extraIsShrinkHeader = oh->isShrink;
3398                 newTags.extraEquivalentObjectId = oh->equivalentObjectId;
3399                 newTags.extraShadows = (oh->shadowsObject > 0) ? 1 : 0;
3400                 newTags.extraObjectType  = in->variantType;
3401                 
3402                 // Create new chunk in NAND
3403                 newChunkId = yaffs_WriteNewChunkWithTagsToNAND(dev,buffer,&newTags, (prevChunkId >= 0) ? 1 : 0 );
3404     
3405                 if(newChunkId >= 0)
3406                 {
3407                 
3408                         in->chunkId = newChunkId;       
3409                 
3410                         if(prevChunkId >= 0)
3411                         {
3412                                 yaffs_DeleteChunk(dev,prevChunkId,1,__LINE__);
3413                         }
3414                 
3415                         in->dirty = 0;
3416                         
3417                         // If this was a shrink, then mark the block that the chunk lives on
3418                         if(isShrink)
3419                         {
3420                                 bi = yaffs_GetBlockInfo(in->myDev,newChunkId / in->myDev->nChunksPerBlock);
3421                                 bi->hasShrinkHeader = 1;
3422                         }
3423                         
3424                 }
3425                 
3426                 retVal =  newChunkId;
3427
3428     }
3429     
3430         if(buffer) 
3431                 yaffs_ReleaseTempBuffer(dev,buffer,__LINE__);
3432         
3433     return retVal;
3434 }
3435
3436
3437 /////////////////////// Short Operations Cache ////////////////////////////////
3438 //      In many siturations where there is no high level buffering (eg WinCE) a lot of
3439 //      reads might be short sequential reads, and a lot of writes may be short 
3440 //  sequential writes. eg. scanning/writing a jpeg file.
3441 //      In these cases, a short read/write cache can provide a huge perfomance benefit 
3442 //  with dumb-as-a-rock code.
3443 //  There are a limited number (~10) of cache chunks per device so that we don't
3444 //  need a very intelligent search.
3445
3446
3447
3448
3449
3450 static void yaffs_FlushFilesChunkCache(yaffs_Object *obj)
3451 {
3452         yaffs_Device *dev = obj->myDev;
3453         int lowest = -99; // Stop compiler whining.
3454         int i;
3455         yaffs_ChunkCache *cache;