Add qemu 2.4.0
[kvmfornfv.git] / qemu / roms / u-boot / board / amcc / taihu / flash.c
1 /*
2  * (C) Copyright 2000
3  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
4  *
5  * SPDX-License-Identifier:     GPL-2.0+
6  */
7
8 /*
9  * Modified 4/5/2001
10  * Wait for completion of each sector erase command issued
11  * 4/5/2001
12  * Chris Hallinan - DS4.COM, Inc. - clh@net1plus.com
13  */
14
15 #include <common.h>
16 #include <asm/ppc4xx.h>
17 #include <asm/processor.h>
18
19 flash_info_t flash_info[CONFIG_SYS_MAX_FLASH_BANKS];    /* info for FLASH chips        */
20
21 #undef DEBUG
22 #ifdef DEBUG
23 #define DEBUGF(x...) printf(x)
24 #else
25 #define DEBUGF(x...)
26 #endif                          /* DEBUG */
27
28 #define CONFIG_SYS_FLASH_CHAR_SIZE unsigned char
29 #define CONFIG_SYS_FLASH_CHAR_ADDR0 (0x0aaa)
30 #define CONFIG_SYS_FLASH_CHAR_ADDR1 (0x0555)
31 /*-----------------------------------------------------------------------
32  * Functions
33  */
34 static ulong flash_get_size(vu_long * addr, flash_info_t * info);
35 static void flash_get_offsets(ulong base, flash_info_t * info);
36 static int write_word(flash_info_t * info, ulong dest, ulong data);
37 #ifdef FLASH_BASE1_PRELIM
38 static int write_word_1(flash_info_t * info, ulong dest, ulong data);
39 static int write_word_2(flash_info_t * info, ulong dest, ulong data);
40 static int flash_erase_1(flash_info_t * info, int s_first, int s_last);
41 static int flash_erase_2(flash_info_t * info, int s_first, int s_last);
42 static ulong flash_get_size_1(vu_long * addr, flash_info_t * info);
43 static ulong flash_get_size_2(vu_long * addr, flash_info_t * info);
44 #endif
45
46 unsigned long flash_init(void)
47 {
48         unsigned long size_b0, size_b1=0;
49         int i;
50
51         /* Init: no FLASHes known */
52         for (i = 0; i < CONFIG_SYS_MAX_FLASH_BANKS; ++i) {
53                 flash_info[i].flash_id = FLASH_UNKNOWN;
54         }
55
56         /* Static FLASH Bank configuration here - FIXME XXX */
57
58         size_b0 =
59             flash_get_size((vu_long *) FLASH_BASE0_PRELIM, &flash_info[0]);
60
61         if (flash_info[0].flash_id == FLASH_UNKNOWN) {
62                 printf("## Unknown FLASH on Bank 0 - Size = 0x%08lx = %ld MB\n",
63                        size_b0, size_b0 << 20);
64         }
65
66         if (size_b0) {
67                 /* Setup offsets */
68                 flash_get_offsets(FLASH_BASE0_PRELIM, &flash_info[0]);
69                 /* Monitor protection ON by default */
70                 (void)flash_protect(FLAG_PROTECT_SET,
71                                     CONFIG_SYS_MONITOR_BASE,
72                                     CONFIG_SYS_MONITOR_BASE + CONFIG_SYS_MONITOR_LEN - 1,
73                                     &flash_info[0]);
74 #ifdef CONFIG_ENV_IS_IN_FLASH
75                 (void)flash_protect(FLAG_PROTECT_SET, CONFIG_ENV_ADDR,
76                                     CONFIG_ENV_ADDR + CONFIG_ENV_SECT_SIZE - 1,
77                                     &flash_info[0]);
78                 (void)flash_protect(FLAG_PROTECT_SET, CONFIG_ENV_ADDR_REDUND,
79                                     CONFIG_ENV_ADDR_REDUND + CONFIG_ENV_SECT_SIZE - 1,
80                                     &flash_info[0]);
81 #endif
82                 /* Also protect sector containing initial power-up instruction */
83                 /* (flash_protect() checks address range - other call ignored) */
84                 (void)flash_protect(FLAG_PROTECT_SET,
85                                     0xFFFFFFFC, 0xFFFFFFFF, &flash_info[0]);
86
87                 flash_info[0].size = size_b0;
88         }
89 #ifdef FLASH_BASE1_PRELIM
90         size_b1 =
91             flash_get_size((vu_long *) FLASH_BASE1_PRELIM, &flash_info[1])*2;
92
93         if (flash_info[1].flash_id == FLASH_UNKNOWN) {
94                 printf("## Unknown FLASH on Bank 1 - Size = 0x%08lx = %ld MB\n",
95                        size_b1, size_b1 << 20);
96         }
97
98         if (size_b1) {
99                 /* Setup offsets */
100                 flash_get_offsets(FLASH_BASE1_PRELIM, &flash_info[1]);
101                 flash_info[1].size = size_b1;
102         }
103 #endif
104         return (size_b0 + size_b1);
105 }
106
107 static void flash_get_offsets(ulong base, flash_info_t * info)
108 {
109         int i;
110
111         /* set up sector start address table */
112         if (((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_SST) ||
113             (info->flash_id == FLASH_AM040)) {
114                 for (i = 0; i < info->sector_count; i++)
115                         info->start[i] = base + (i * 0x00010000);
116         } else if ((info->flash_id & FLASH_TYPEMASK) == FLASH_AMLV128U) {
117                 for (i = 0; i < info->sector_count; i++) {
118                         info->start[i] = base + (i * 0x00010000*2);
119                 }
120         } else if ((info->flash_id & FLASH_TYPEMASK) == FLASH_S29GL128N ) {
121                 for (i = 0; i < info->sector_count; i++) {
122                         info->start[i] = base + (i * 0x00020000*2);
123                 }
124         } else {
125                 if (info->flash_id & FLASH_BTYPE) {
126                         /* set sector offsets for bottom boot block type        */
127                         info->start[0] = base + 0x00000000;
128                         info->start[1] = base + 0x00004000;
129                         info->start[2] = base + 0x00006000;
130                         info->start[3] = base + 0x00008000;
131                         for (i = 4; i < info->sector_count; i++) {
132                                 info->start[i] =
133                                     base + (i * 0x00010000) - 0x00030000;
134                         }
135                 } else {
136                         /* set sector offsets for top boot block type           */
137                         i = info->sector_count - 1;
138                         info->start[i--] = base + info->size - 0x00004000;
139                         info->start[i--] = base + info->size - 0x00006000;
140                         info->start[i--] = base + info->size - 0x00008000;
141                         for (; i >= 0; i--) {
142                                 info->start[i] = base + i * 0x00010000;
143                         }
144                 }
145         }
146 }
147
148
149 void flash_print_info(flash_info_t * info)
150 {
151         int i;
152         int k;
153         int size;
154         int erased;
155         volatile unsigned long *flash;
156
157         if (info->flash_id == FLASH_UNKNOWN) {
158                 printf("missing or unknown FLASH type\n");
159                 return;
160         }
161
162         switch (info->flash_id & FLASH_VENDMASK) {
163         case FLASH_MAN_AMD:
164                 printf("AMD ");
165                 break;
166         case FLASH_MAN_STM:
167                 printf("STM ");
168                 break;
169         case FLASH_MAN_FUJ:
170                 printf("FUJITSU ");
171                 break;
172         case FLASH_MAN_SST:
173                 printf("SST ");
174                 break;
175         default:
176                 printf("Unknown Vendor ");
177                 break;
178         }
179
180         switch (info->flash_id & FLASH_TYPEMASK) {
181         case FLASH_AM040:
182                 printf("AM29F040 (512 Kbit, uniform sector size)\n");
183                 break;
184         case FLASH_AM400B:
185                 printf("AM29LV400B (4 Mbit, bottom boot sect)\n");
186                 break;
187         case FLASH_AM400T:
188                 printf("AM29LV400T (4 Mbit, top boot sector)\n");
189                 break;
190         case FLASH_AM800B:
191                 printf("AM29LV800B (8 Mbit, bottom boot sect)\n");
192                 break;
193         case FLASH_AM800T:
194                 printf("AM29LV800T (8 Mbit, top boot sector)\n");
195                 break;
196         case FLASH_AMD016:
197                 printf("AM29F016D (16 Mbit, uniform sector size)\n");
198                 break;
199         case FLASH_AM160B:
200                 printf("AM29LV160B (16 Mbit, bottom boot sect)\n");
201                 break;
202         case FLASH_AM160T:
203                 printf("AM29LV160T (16 Mbit, top boot sector)\n");
204                 break;
205         case FLASH_AM320B:
206                 printf("AM29LV320B (32 Mbit, bottom boot sect)\n");
207                 break;
208         case FLASH_AM320T:
209                 printf("AM29LV320T (32 Mbit, top boot sector)\n");
210                 break;
211         case FLASH_AM033C:
212                 printf("AM29LV033C (32 Mbit, top boot sector)\n");
213                 break;
214         case FLASH_AMLV128U:
215                 printf("AM29LV128U (128 Mbit * 2, top boot sector)\n");
216                 break;
217         case FLASH_SST800A:
218                 printf("SST39LF/VF800 (8 Mbit, uniform sector size)\n");
219                 break;
220         case FLASH_SST160A:
221                 printf("SST39LF/VF160 (16 Mbit, uniform sector size)\n");
222                 break;
223         case FLASH_STMW320DT:
224                 printf ("M29W320DT (32 M, top sector)\n");
225                 break;
226         case FLASH_S29GL128N:
227                 printf ("S29GL128N (256 Mbit, uniform sector size)\n");
228                 break;
229         default:
230                 printf("Unknown Chip Type\n");
231                 break;
232         }
233
234         printf("  Size: %ld KB in %d Sectors\n",
235                info->size >> 10, info->sector_count);
236
237         printf("  Sector Start Addresses:");
238         for (i = 0; i < info->sector_count; ++i) {
239                 /*
240                  * Check if whole sector is erased
241                  */
242                 if (i != (info->sector_count - 1))
243                         size = info->start[i + 1] - info->start[i];
244                 else
245                         size = info->start[0] + info->size - info->start[i];
246                 erased = 1;
247                 flash = (volatile unsigned long *)info->start[i];
248                 size = size >> 2;       /* divide by 4 for longword access */
249                 for (k = 0; k < size; k++) {
250                         if (*flash++ != 0xffffffff) {
251                                 erased = 0;
252                                 break;
253                         }
254                 }
255
256                 if ((i % 5) == 0)
257                         printf("\n   ");
258                 printf(" %08lX%s%s",
259                        info->start[i],
260                        erased ? " E" : "  ", info->protect[i] ? "RO " : "   ");
261         }
262         printf("\n");
263         return;
264 }
265
266
267 /*
268  * The following code cannot be run from FLASH!
269  */
270 #ifdef FLASH_BASE1_PRELIM
271 static ulong flash_get_size(vu_long * addr, flash_info_t * info)
272 {
273         if ((ulong)addr == FLASH_BASE1_PRELIM) {
274                 return flash_get_size_2(addr, info);
275         } else {
276                 return flash_get_size_1(addr, info);
277         }
278 }
279
280 static ulong flash_get_size_1(vu_long * addr, flash_info_t * info)
281 #else
282 static ulong flash_get_size(vu_long * addr, flash_info_t * info)
283 #endif
284 {
285         short i;
286         CONFIG_SYS_FLASH_WORD_SIZE value;
287         ulong base = (ulong) addr;
288         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr2 = (CONFIG_SYS_FLASH_WORD_SIZE *) addr;
289
290         DEBUGF("FLASH ADDR: %08x\n", (unsigned)addr);
291
292         /* Write auto select command: read Manufacturer ID */
293         addr2[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00AA00AA;
294         addr2[CONFIG_SYS_FLASH_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00550055;
295         addr2[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00900090;
296         udelay(1000);
297
298         value = addr2[0];
299         DEBUGF("FLASH MANUFACT: %x\n", value);
300
301         switch (value) {
302         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_MANUFACT:
303                 info->flash_id = FLASH_MAN_AMD;
304                 break;
305         case (CONFIG_SYS_FLASH_WORD_SIZE) FUJ_MANUFACT:
306                 info->flash_id = FLASH_MAN_FUJ;
307                 break;
308         case (CONFIG_SYS_FLASH_WORD_SIZE) SST_MANUFACT:
309                 info->flash_id = FLASH_MAN_SST;
310                 break;
311         case (CONFIG_SYS_FLASH_WORD_SIZE) STM_MANUFACT:
312                 info->flash_id = FLASH_MAN_STM;
313                 break;
314         default:
315                 info->flash_id = FLASH_UNKNOWN;
316                 info->sector_count = 0;
317                 info->size = 0;
318                 return 0;       /* no or unknown flash  */
319         }
320
321         value = addr2[1];       /* device ID            */
322         DEBUGF("\nFLASH DEVICEID: %x\n", value);
323
324         switch (value) {
325         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV040B:
326                 info->flash_id += FLASH_AM040;
327                 info->sector_count = 8;
328                 info->size = 0x0080000; /* => 512 ko */
329                 break;
330
331         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_F040B:
332                 info->flash_id += FLASH_AM040;
333                 info->sector_count = 8;
334                 info->size = 0x0080000; /* => 512 ko */
335                 break;
336
337         case (CONFIG_SYS_FLASH_WORD_SIZE) STM_ID_M29W040B:
338                 info->flash_id += FLASH_AM040;
339                 info->sector_count = 8;
340                 info->size = 0x0080000; /* => 512 ko */
341                 break;
342
343         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_F016D:
344                 info->flash_id += FLASH_AMD016;
345                 info->sector_count = 32;
346                 info->size = 0x00200000;
347                 break;          /* => 2 MB              */
348
349         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV033C:
350                 info->flash_id += FLASH_AMDLV033C;
351                 info->sector_count = 64;
352                 info->size = 0x00400000;
353                 break;          /* => 4 MB              */
354
355         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV400T:
356                 info->flash_id += FLASH_AM400T;
357                 info->sector_count = 11;
358                 info->size = 0x00080000;
359                 break;          /* => 0.5 MB            */
360
361         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV400B:
362                 info->flash_id += FLASH_AM400B;
363                 info->sector_count = 11;
364                 info->size = 0x00080000;
365                 break;          /* => 0.5 MB            */
366
367         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV800T:
368                 info->flash_id += FLASH_AM800T;
369                 info->sector_count = 19;
370                 info->size = 0x00100000;
371                 break;          /* => 1 MB              */
372
373         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV800B:
374                 info->flash_id += FLASH_AM800B;
375                 info->sector_count = 19;
376                 info->size = 0x00100000;
377                 break;          /* => 1 MB              */
378
379         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV160T:
380                 info->flash_id += FLASH_AM160T;
381                 info->sector_count = 35;
382                 info->size = 0x00200000;
383                 break;          /* => 2 MB              */
384
385         case (CONFIG_SYS_FLASH_WORD_SIZE) AMD_ID_LV160B:
386                 info->flash_id += FLASH_AM160B;
387                 info->sector_count = 35;
388                 info->size = 0x00200000;
389                 break;          /* => 2 MB              */
390         default:
391                 info->flash_id = FLASH_UNKNOWN;
392                 return 0;       /* => no or unknown flash */
393         }
394
395         /* set up sector start address table */
396         if (((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_SST) ||
397             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AM040) ||
398             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AMD016)) {
399                 for (i = 0; i < info->sector_count; i++)
400                         info->start[i] = base + (i * 0x00010000);
401         }
402         else if ((info->flash_id & FLASH_TYPEMASK) == FLASH_AMLV128U) {
403                 for (i = 0; i < info->sector_count; i++)
404                         info->start[i] = base + (i * 0x00010000 * 2);
405         } else {
406                 if (info->flash_id & FLASH_BTYPE) {
407                         /* set sector offsets for bottom boot block type        */
408                         info->start[0] = base + 0x00000000;
409                         info->start[1] = base + 0x00004000;
410                         info->start[2] = base + 0x00006000;
411                         info->start[3] = base + 0x00008000;
412                         for (i = 4; i < info->sector_count; i++) {
413                                 info->start[i] =
414                                     base + (i * 0x00010000) - 0x00030000;
415                         }
416                 } else {
417                         /* set sector offsets for top boot block type           */
418                         i = info->sector_count - 1;
419                         info->start[i--] = base + info->size - 0x00004000;
420                         info->start[i--] = base + info->size - 0x00006000;
421                         info->start[i--] = base + info->size - 0x00008000;
422                         for (; i >= 0; i--) {
423                                 info->start[i] = base + i * 0x00010000;
424                         }
425                 }
426         }
427
428         /* check for protected sectors */
429         for (i = 0; i < info->sector_count; i++) {
430                 /* read sector protection at sector address, (A7 .. A0) = 0x02 */
431                 /* D0 = 1 if protected */
432                 addr2 = (volatile CONFIG_SYS_FLASH_WORD_SIZE *)(info->start[i]);
433
434                 /* For AMD29033C flash we need to resend the command of *
435                  * reading flash protection for upper 8 Mb of flash     */
436                 if (i == 32) {
437                         addr2[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
438                         addr2[CONFIG_SYS_FLASH_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
439                         addr2[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x90909090;
440                 }
441
442                 if ((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_SST)
443                         info->protect[i] = 0;
444                 else
445                         info->protect[i] = addr2[2] & 1;
446         }
447
448         /* issue bank reset to return to read mode */
449         addr2[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00F000F0;
450
451         return info->size;
452 }
453
454 static int wait_for_DQ7_1(flash_info_t * info, int sect)
455 {
456         ulong start, now, last;
457         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr =
458             (CONFIG_SYS_FLASH_WORD_SIZE *) (info->start[sect]);
459
460         start = get_timer(0);
461         last = start;
462         while ((addr[0] & (CONFIG_SYS_FLASH_WORD_SIZE) 0x00800080) !=
463                (CONFIG_SYS_FLASH_WORD_SIZE) 0x00800080) {
464                 if ((now = get_timer(start)) > CONFIG_SYS_FLASH_ERASE_TOUT) {
465                         printf("Timeout\n");
466                         return -1;
467                 }
468                 /* show that we're waiting */
469                 if ((now - last) > 1000) {      /* every second */
470                         putc('.');
471                         last = now;
472                 }
473         }
474         return 0;
475 }
476
477 #ifdef FLASH_BASE1_PRELIM
478 int flash_erase(flash_info_t * info, int s_first, int s_last)
479 {
480         if (((info->flash_id & FLASH_TYPEMASK) == FLASH_AM320B) ||
481             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AM320T) ||
482             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AMLV128U) ||
483             ((info->flash_id & FLASH_TYPEMASK) == FLASH_S29GL128N) ||
484             ((info->flash_id & FLASH_TYPEMASK) == FLASH_STMW320DT)) {
485                 return flash_erase_2(info, s_first, s_last);
486         } else {
487                 return flash_erase_1(info, s_first, s_last);
488         }
489 }
490
491 static int flash_erase_1(flash_info_t * info, int s_first, int s_last)
492 #else
493 int flash_erase(flash_info_t * info, int s_first, int s_last)
494 #endif
495 {
496         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr = (CONFIG_SYS_FLASH_WORD_SIZE *) (info->start[0]);
497         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr2;
498         int flag, prot, sect;
499         int i;
500
501         if ((s_first < 0) || (s_first > s_last)) {
502                 if (info->flash_id == FLASH_UNKNOWN) {
503                         printf("- missing\n");
504                 } else {
505                         printf("- no sectors to erase\n");
506                 }
507                 return 1;
508         }
509
510         if (info->flash_id == FLASH_UNKNOWN) {
511                 printf("Can't erase unknown flash type - aborted\n");
512                 return 1;
513         }
514
515         prot = 0;
516         for (sect = s_first; sect <= s_last; ++sect) {
517                 if (info->protect[sect]) {
518                         prot++;
519                 }
520         }
521
522         if (prot) {
523                 printf("- Warning: %d protected sectors will not be erased!\n",
524                        prot);
525         } else {
526                 printf("\n");
527         }
528
529         /* Disable interrupts which might cause a timeout here */
530         flag = disable_interrupts();
531
532         /* Start erase on unprotected sectors */
533         for (sect = s_first; sect <= s_last; sect++) {
534                 if (info->protect[sect] == 0) { /* not protected */
535                         addr2 = (CONFIG_SYS_FLASH_WORD_SIZE *) (info->start[sect]);
536
537                         if ((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_SST) {
538                                 addr[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00AA00AA;
539                                 addr[CONFIG_SYS_FLASH_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00550055;
540                                 addr[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00800080;
541                                 addr[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00AA00AA;
542                                 addr[CONFIG_SYS_FLASH_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00550055;
543                                 addr2[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00500050;     /* block erase */
544                                 for (i = 0; i < 50; i++)
545                                         udelay(1000);   /* wait 1 ms */
546                         } else {
547                                 addr[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00AA00AA;
548                                 addr[CONFIG_SYS_FLASH_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00550055;
549                                 addr[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00800080;
550                                 addr[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00AA00AA;
551                                 addr[CONFIG_SYS_FLASH_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00550055;
552                                 addr2[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00300030;     /* sector erase */
553                         }
554                         /*
555                          * Wait for each sector to complete, it's more
556                          * reliable.  According to AMD Spec, you must
557                          * issue all erase commands within a specified
558                          * timeout.  This has been seen to fail, especially
559                          * if printf()s are included (for debug)!!
560                          */
561                         wait_for_DQ7_1(info, sect);
562                 }
563         }
564
565         /* re-enable interrupts if necessary */
566         if (flag)
567                 enable_interrupts();
568
569         /* wait at least 80us - let's wait 1 ms */
570         udelay(1000);
571
572         /* reset to read mode */
573         addr = (CONFIG_SYS_FLASH_WORD_SIZE *) info->start[0];
574         addr[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00F000F0;      /* reset bank */
575
576         printf(" done\n");
577         return 0;
578 }
579
580 /*-----------------------------------------------------------------------
581  * Copy memory to flash, returns:
582  * 0 - OK
583  * 1 - write timeout
584  * 2 - Flash not erased
585  */
586 int write_buff(flash_info_t * info, uchar * src, ulong addr, ulong cnt)
587 {
588         ulong cp, wp, data;
589         int i, l, rc;
590
591         wp = (addr & ~3);       /* get lower word aligned address */
592
593         /*
594          * handle unaligned start bytes
595          */
596         if ((l = addr - wp) != 0) {
597                 data = 0;
598                 for (i = 0, cp = wp; i < l; ++i, ++cp) {
599                         data = (data << 8) | (*(uchar *) cp);
600                 }
601                 for (; i < 4 && cnt > 0; ++i) {
602                         data = (data << 8) | *src++;
603                         --cnt;
604                         ++cp;
605                 }
606                 for (; cnt == 0 && i < 4; ++i, ++cp) {
607                         data = (data << 8) | (*(uchar *) cp);
608                 }
609
610                 if ((rc = write_word(info, wp, data)) != 0) {
611                         return rc;
612                 }
613                 wp += 4;
614         }
615
616         /*
617          * handle word aligned part
618          */
619         while (cnt >= 4) {
620                 data = 0;
621                 for (i = 0; i < 4; ++i) {
622                         data = (data << 8) | *src++;
623                 }
624                 if ((rc = write_word(info, wp, data)) != 0) {
625                         return rc;
626                 }
627                 wp += 4;
628                 cnt -= 4;
629         }
630
631         if (cnt == 0) {
632                 return 0;
633         }
634
635         /*
636          * handle unaligned tail bytes
637          */
638         data = 0;
639         for (i = 0, cp = wp; i < 4 && cnt > 0; ++i, ++cp) {
640                 data = (data << 8) | *src++;
641                 --cnt;
642         }
643         for (; i < 4; ++i, ++cp) {
644                 data = (data << 8) | (*(uchar *) cp);
645         }
646
647         return (write_word(info, wp, data));
648 }
649
650 /*-----------------------------------------------------------------------
651  * Copy memory to flash, returns:
652  * 0 - OK
653  * 1 - write timeout
654  * 2 - Flash not erased
655  */
656 #ifdef FLASH_BASE1_PRELIM
657 static int write_word(flash_info_t * info, ulong dest, ulong data)
658 {
659         if (((info->flash_id & FLASH_TYPEMASK) == FLASH_AM320B) ||
660             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AM320T) ||
661             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AMLV128U) ||
662             ((info->flash_id & FLASH_TYPEMASK) == FLASH_S29GL128N) ||
663             ((info->flash_id & FLASH_TYPEMASK) == FLASH_STMW320DT)) {
664                 return write_word_2(info, dest, data);
665         } else {
666                 return write_word_1(info, dest, data);
667         }
668 }
669
670 static int write_word_1(flash_info_t * info, ulong dest, ulong data)
671 #else
672 static int write_word(flash_info_t * info, ulong dest, ulong data)
673 #endif
674 {
675         ulong *data_ptr = &data;
676         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr2 = (CONFIG_SYS_FLASH_WORD_SIZE *)(info->start[0]);
677         volatile CONFIG_SYS_FLASH_WORD_SIZE *dest2 = (CONFIG_SYS_FLASH_WORD_SIZE *)dest;
678         volatile CONFIG_SYS_FLASH_WORD_SIZE *data2 = (CONFIG_SYS_FLASH_WORD_SIZE *)data_ptr;
679         ulong start;
680         int i;
681
682         /* Check if Flash is (sufficiently) erased */
683         if ((*((vu_long *)dest) & data) != data) {
684                 return 2;
685         }
686
687         for (i = 0; i < 4 / sizeof(CONFIG_SYS_FLASH_WORD_SIZE); i++) {
688                 int flag;
689
690                 /* Disable interrupts which might cause a timeout here */
691                 flag = disable_interrupts();
692
693                 addr2[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00AA00AA;
694                 addr2[CONFIG_SYS_FLASH_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00550055;
695                 addr2[CONFIG_SYS_FLASH_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x00A000A0;
696
697                 dest2[i] = data2[i];
698
699                 /* re-enable interrupts if necessary */
700                 if (flag)
701                         enable_interrupts();
702
703                 /* data polling for D7 */
704                 start = get_timer(0);
705                 while ((dest2[i] & (CONFIG_SYS_FLASH_WORD_SIZE) 0x00800080) !=
706                        (data2[i] & (CONFIG_SYS_FLASH_WORD_SIZE) 0x00800080)) {
707
708                         if (get_timer(start) > CONFIG_SYS_FLASH_WRITE_TOUT) {
709                                 return 1;
710                         }
711                 }
712         }
713
714         return 0;
715 }
716
717 #ifdef FLASH_BASE1_PRELIM
718
719 /*
720  * The following code cannot be run from FLASH!
721  */
722 static ulong flash_get_size_2(vu_long * addr, flash_info_t * info)
723 {
724         short i;
725         CONFIG_SYS_FLASH_CHAR_SIZE value;
726         ulong base = (ulong) addr;
727         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr2 = (CONFIG_SYS_FLASH_WORD_SIZE *) addr;
728
729         DEBUGF("FLASH ADDR: %08x\n", (unsigned)addr);
730
731         /* Write auto select command: read Manufacturer ID */
732         addr2[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
733         addr2[CONFIG_SYS_FLASH_CHAR_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
734         addr2[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x90909090;
735         udelay(1000);
736
737         value = (CONFIG_SYS_FLASH_CHAR_SIZE)addr2[0];
738         DEBUGF("FLASH MANUFACT: %x\n", value);
739
740         switch (value) {
741         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_MANUFACT:
742                 info->flash_id = FLASH_MAN_AMD;
743                 break;
744         case (CONFIG_SYS_FLASH_CHAR_SIZE) FUJ_MANUFACT:
745                 info->flash_id = FLASH_MAN_FUJ;
746                 break;
747         case (CONFIG_SYS_FLASH_CHAR_SIZE) SST_MANUFACT:
748                 info->flash_id = FLASH_MAN_SST;
749                 break;
750         case (CONFIG_SYS_FLASH_CHAR_SIZE) STM_MANUFACT:
751                 info->flash_id = FLASH_MAN_STM;
752                 break;
753         default:
754                 info->flash_id = FLASH_UNKNOWN;
755                 info->sector_count = 0;
756                 info->size = 0;
757                 return 0;               /* no or unknown flash */
758         }
759
760         value = (CONFIG_SYS_FLASH_CHAR_SIZE)addr2[2];   /* device ID */
761         DEBUGF("\nFLASH DEVICEID: %x\n", value);
762
763         switch (value) {
764         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV040B:
765                 info->flash_id += FLASH_AM040;
766                 info->sector_count = 8;
767                 info->size = 0x0080000; /* => 512 ko */
768                 break;
769
770         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_F040B:
771                 info->flash_id += FLASH_AM040;
772                 info->sector_count = 8;
773                 info->size = 0x0080000; /* => 512 ko */
774                 break;
775
776         case (CONFIG_SYS_FLASH_CHAR_SIZE) STM_ID_M29W040B:
777                 info->flash_id += FLASH_AM040;
778                 info->sector_count = 8;
779                 info->size = 0x0080000; /* => 512 ko */
780                 break;
781
782         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_F016D:
783                 info->flash_id += FLASH_AMD016;
784                 info->sector_count = 32;
785                 info->size = 0x00200000;
786                 break;                  /* => 2 MB */
787
788         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV033C:
789                 info->flash_id += FLASH_AMDLV033C;
790                 info->sector_count = 64;
791                 info->size = 0x00400000;
792                 break;                  /* => 4 MB */
793
794         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV400T:
795                 info->flash_id += FLASH_AM400T;
796                 info->sector_count = 11;
797                 info->size = 0x00080000;
798                 break;                  /* => 0.5 MB */
799
800         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV400B:
801                 info->flash_id += FLASH_AM400B;
802                 info->sector_count = 11;
803                 info->size = 0x00080000;
804                 break;                  /* => 0.5 MB */
805
806         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV800T:
807                 info->flash_id += FLASH_AM800T;
808                 info->sector_count = 19;
809                 info->size = 0x00100000;
810                 break;                  /* => 1 MB */
811
812         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV800B:
813                 info->flash_id += FLASH_AM800B;
814                 info->sector_count = 19;
815                 info->size = 0x00100000;
816                 break;                  /* => 1 MB */
817
818         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV160T:
819                 info->flash_id += FLASH_AM160T;
820                 info->sector_count = 35;
821                 info->size = 0x00200000;
822                 break;                  /* => 2 MB */
823
824         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_LV160B:
825                 info->flash_id += FLASH_AM160B;
826                 info->sector_count = 35;
827                 info->size = 0x00200000;
828                 break;                  /* => 2 MB */
829         case (CONFIG_SYS_FLASH_CHAR_SIZE) AMD_ID_MIRROR:
830                 if ((CONFIG_SYS_FLASH_CHAR_SIZE)addr2[0x1c] == (CONFIG_SYS_FLASH_CHAR_SIZE)AMD_ID_LV128U_2
831                                 && (CONFIG_SYS_FLASH_CHAR_SIZE)addr2[0x1e] ==  (CONFIG_SYS_FLASH_CHAR_SIZE)AMD_ID_LV128U_3) {
832                         info->flash_id += FLASH_AMLV128U;
833                         info->sector_count = 256;
834                         info->size = 0x01000000;
835                 } else if ((CONFIG_SYS_FLASH_CHAR_SIZE)addr2[0x1c] == (CONFIG_SYS_FLASH_CHAR_SIZE)AMD_ID_GL128N_2
836                                 && (CONFIG_SYS_FLASH_CHAR_SIZE)addr2[0x1e] ==  (CONFIG_SYS_FLASH_CHAR_SIZE)AMD_ID_GL128N_3 ) {
837                         info->flash_id += FLASH_S29GL128N;
838                         info->sector_count = 128;
839                         info->size = 0x01000000;
840                 }
841                 else
842                         info->flash_id = FLASH_UNKNOWN;
843                 break;                  /* => 2 MB */
844
845         default:
846                 info->flash_id = FLASH_UNKNOWN;
847                 return 0;               /* => no or unknown flash */
848         }
849
850         /* set up sector start address table */
851         if (((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_SST) ||
852             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AM040) ||
853             ((info->flash_id & FLASH_TYPEMASK) == FLASH_AMD016)) {
854                 for (i = 0; i < info->sector_count; i++)
855                         info->start[i] = base + (i * 0x00010000);
856         } else if ((info->flash_id & FLASH_TYPEMASK) == FLASH_AMLV128U) {
857                 for (i = 0; i < info->sector_count; i++)
858                         info->start[i] = base + (i * 0x00010000);
859         } else if ((info->flash_id & FLASH_TYPEMASK) == FLASH_S29GL128N ) {
860                 for (i = 0; i < info->sector_count; i++)
861                         info->start[i] = base + (i * 0x00020000);
862         } else {
863                 if (info->flash_id & FLASH_BTYPE) {
864                         /* set sector offsets for bottom boot block type */
865                         info->start[0] = base + 0x00000000;
866                         info->start[1] = base + 0x00004000;
867                         info->start[2] = base + 0x00006000;
868                         info->start[3] = base + 0x00008000;
869                         for (i = 4; i < info->sector_count; i++) {
870                                 info->start[i] =
871                                     base + (i * 0x00010000) - 0x00030000;
872                         }
873                 } else {
874                         /* set sector offsets for top boot block type */
875                         i = info->sector_count - 1;
876                         info->start[i--] = base + info->size - 0x00004000;
877                         info->start[i--] = base + info->size - 0x00006000;
878                         info->start[i--] = base + info->size - 0x00008000;
879                         for (; i >= 0; i--) {
880                                 info->start[i] = base + i * 0x00010000;
881                         }
882                 }
883         }
884
885         /* check for protected sectors */
886         for (i = 0; i < info->sector_count; i++) {
887                 /* read sector protection at sector address, (A7 .. A0) = 0x02 */
888                 /* D0 = 1 if protected */
889                 addr2 = (volatile CONFIG_SYS_FLASH_WORD_SIZE *)(info->start[i]);
890
891                 /* For AMD29033C flash we need to resend the command of *
892                  * reading flash protection for upper 8 Mb of flash     */
893                 if (i == 32) {
894                         addr2[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
895                         addr2[CONFIG_SYS_FLASH_CHAR_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
896                         addr2[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x90909090;
897                 }
898
899                 if ((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_SST)
900                         info->protect[i] = 0;
901                 else
902                         info->protect[i] = (CONFIG_SYS_FLASH_CHAR_SIZE)addr2[4] & 1;
903         }
904
905         /* issue bank reset to return to read mode */
906         addr2[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xF0F0F0F0;
907         return info->size;
908 }
909
910 static int wait_for_DQ7_2(flash_info_t * info, int sect)
911 {
912         ulong start, now, last;
913         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr =
914             (CONFIG_SYS_FLASH_WORD_SIZE *) (info->start[sect]);
915
916         start = get_timer(0);
917         last = start;
918         while (((CONFIG_SYS_FLASH_WORD_SIZE)addr[0] & (CONFIG_SYS_FLASH_WORD_SIZE) 0x80808080) !=
919                (CONFIG_SYS_FLASH_WORD_SIZE) 0x80808080) {
920                 if ((now = get_timer(start)) > CONFIG_SYS_FLASH_ERASE_TOUT) {
921                         printf("Timeout\n");
922                         return -1;
923                 }
924                 /* show that we're waiting */
925                 if ((now - last) > 1000) { /* every second */
926                         putc('.');
927                         last = now;
928                 }
929         }
930         return 0;
931 }
932
933 static int flash_erase_2(flash_info_t * info, int s_first, int s_last)
934 {
935         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr = (CONFIG_SYS_FLASH_WORD_SIZE *) (info->start[0]);
936         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr2;
937         int flag, prot, sect;
938         int i;
939
940         if ((s_first < 0) || (s_first > s_last)) {
941                 if (info->flash_id == FLASH_UNKNOWN) {
942                         printf("- missing\n");
943                 } else {
944                         printf("- no sectors to erase\n");
945                 }
946                 return 1;
947         }
948
949         if (info->flash_id == FLASH_UNKNOWN) {
950                 printf("Can't erase unknown flash type - aborted\n");
951                 return 1;
952         }
953
954         prot = 0;
955         for (sect = s_first; sect <= s_last; ++sect) {
956                 if (info->protect[sect]) {
957                         prot++;
958                 }
959         }
960
961         if (prot) {
962                 printf("- Warning: %d protected sectors will not be erased!\n",
963                        prot);
964         } else {
965                 printf("\n");
966         }
967
968         /* Disable interrupts which might cause a timeout here */
969         flag = disable_interrupts();
970
971         /* Start erase on unprotected sectors */
972         for (sect = s_first; sect <= s_last; sect++) {
973                 if (info->protect[sect] == 0) { /* not protected */
974                         addr2 = (CONFIG_SYS_FLASH_WORD_SIZE *) (info->start[sect]);
975
976                         if ((info->flash_id & FLASH_VENDMASK) == FLASH_MAN_SST) {
977                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
978                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
979                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x80808080;
980                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
981                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
982                                 addr2[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x50505050;     /* block erase */
983                                 for (i = 0; i < 50; i++)
984                                         udelay(1000);   /* wait 1 ms */
985                         } else {
986                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
987                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
988                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x80808080;
989                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
990                                 addr[CONFIG_SYS_FLASH_CHAR_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
991                                 addr2[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x30303030;     /* sector erase */
992                         }
993                         /*
994                          * Wait for each sector to complete, it's more
995                          * reliable.  According to AMD Spec, you must
996                          * issue all erase commands within a specified
997                          * timeout.  This has been seen to fail, especially
998                          * if printf()s are included (for debug)!!
999                          */
1000                         wait_for_DQ7_2(info, sect);
1001                 }
1002         }
1003
1004         /* re-enable interrupts if necessary */
1005         if (flag)
1006                 enable_interrupts();
1007
1008         /* wait at least 80us - let's wait 1 ms */
1009         udelay(1000);
1010
1011         /* reset to read mode */
1012         addr = (CONFIG_SYS_FLASH_WORD_SIZE *) info->start[0];
1013         addr[0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xF0F0F0F0; /* reset bank */
1014
1015         printf(" done\n");
1016         return 0;
1017 }
1018
1019 static int write_word_2(flash_info_t * info, ulong dest, ulong data)
1020 {
1021         ulong *data_ptr = &data;
1022         volatile CONFIG_SYS_FLASH_WORD_SIZE *addr2 = (CONFIG_SYS_FLASH_WORD_SIZE *)(info->start[0]);
1023         volatile CONFIG_SYS_FLASH_WORD_SIZE *dest2 = (CONFIG_SYS_FLASH_WORD_SIZE *)dest;
1024         volatile CONFIG_SYS_FLASH_WORD_SIZE *data2 = (CONFIG_SYS_FLASH_WORD_SIZE *)data_ptr;
1025         ulong start;
1026         int i;
1027
1028         /* Check if Flash is (sufficiently) erased */
1029         if ((*((vu_long *)dest) & data) != data) {
1030                 return 2;
1031         }
1032
1033         for (i = 0; i < 4 / sizeof(CONFIG_SYS_FLASH_WORD_SIZE); i++) {
1034                 int flag;
1035
1036                 /* Disable interrupts which might cause a timeout here */
1037                 flag = disable_interrupts();
1038
1039                 addr2[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xAAAAAAAA;
1040                 addr2[CONFIG_SYS_FLASH_CHAR_ADDR1] = (CONFIG_SYS_FLASH_WORD_SIZE) 0x55555555;
1041                 addr2[CONFIG_SYS_FLASH_CHAR_ADDR0] = (CONFIG_SYS_FLASH_WORD_SIZE) 0xA0A0A0A0;
1042
1043                 dest2[i] = data2[i];
1044
1045                 /* re-enable interrupts if necessary */
1046                 if (flag)
1047                         enable_interrupts();
1048
1049                 /* data polling for D7 */
1050                 start = get_timer(0);
1051                 while ((dest2[i] & (CONFIG_SYS_FLASH_WORD_SIZE) 0x80808080) !=
1052                        (data2[i] & (CONFIG_SYS_FLASH_WORD_SIZE) 0x80808080)) {
1053
1054                         if (get_timer(start) > CONFIG_SYS_FLASH_WRITE_TOUT) {
1055                                 return 1;
1056                         }
1057                 }
1058         }
1059
1060         return 0;
1061 }
1062
1063 #endif /* FLASH_BASE1_PRELIM */