serial: punt unused serial_addr()
[karo-tx-uboot.git] / board / barco / barco.c
1 /********************************************************************
2  *
3  * Unless otherwise specified, Copyright (C) 2004-2005 Barco Control Rooms
4  *
5  * $Source: /home/services/cvs/firmware/ppc/u-boot-1.1.2/board/barco/barco.c,v $
6  * $Revision: 1.4 $
7  * $Author: mleeman $
8  * $Date: 2005/03/02 16:40:20 $
9  *
10  * Last ChangeLog Entry
11  * $Log: barco.c,v $
12  * Revision 1.4  2005/03/02 16:40:20  mleeman
13  * remove empty labels (3.4 complains)
14  *
15  * Revision 1.3  2005/02/21 12:48:58  mleeman
16  * update of copyright years (feedback wd)
17  *
18  * Revision 1.2  2005/02/21 10:10:53  mleeman
19  * - split up switch statement to a function call (Linux kernel coding guidelines)
20  *   ( feedback wd)
21  *
22  * Revision 1.1  2005/02/14 09:31:07  mleeman
23  * renaming of files
24  *
25  * Revision 1.1  2005/02/14 09:23:46  mleeman
26  * - moved 'barcohydra' directory to a more generic barco; since we will be
27  *   supporting and adding multiple boards
28  *
29  * Revision 1.3  2005/02/10 13:57:32  mleeman
30  * fixed flash corruption: I should exit from the moment I find the correct value
31  *
32  * Revision 1.2  2005/02/09 12:56:23  mleeman
33  * add generic header to track changes in sources
34  *
35  *
36  *******************************************************************/
37
38 /*
39  * (C) Copyright 2004
40  * Marc Leeman <marc.leeman@barco.com>
41  *
42  * This program is free software; you can redistribute it and/or
43  * modify it under the terms of the GNU General Public License as
44  * published by the Free Software Foundation; either version 2 of
45  * the License, or (at your option) any later version.
46  *
47  * This program is distributed in the hope that it will be useful,
48  * but WITHOUT ANY WARRANTY; without even the implied warranty of
49  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
50  * GNU General Public License for more details.
51  *
52  * You should have received a copy of the GNU General Public License
53  * along with this program; if not, write to the Free Software
54  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
55  * MA 02111-1307 USA
56  */
57
58 #include <common.h>
59 #include <mpc824x.h>
60 #include <pci.h>
61 #include <malloc.h>
62 #include <command.h>
63
64 #include "config.h"
65 #include "barco_svc.h"
66
67 #define TRY_WORKING  (3)
68 #define BOOT_DEFAULT (2)
69 #define BOOT_WORKING (1)
70
71 int checkboard (void)
72 {
73         /*TODO: Check processor type */
74
75         puts (  "Board: Streaming Video Card for Hydra systems "
76 #ifdef CONFIG_MPC8240
77                 "8240"
78 #endif
79 #ifdef CONFIG_MPC8245
80                 "8245"
81 #endif
82                 " Unity ##Test not implemented yet##\n");
83         return 0;
84 }
85
86 phys_size_t initdram (int board_type)
87 {
88         long size;
89         long new_bank0_end;
90         long mear1;
91         long emear1;
92
93         size = get_ram_size (CONFIG_SYS_SDRAM_BASE, CONFIG_SYS_MAX_RAM_SIZE);
94
95         new_bank0_end = size - 1;
96         mear1 = mpc824x_mpc107_getreg (MEAR1);
97         emear1 = mpc824x_mpc107_getreg (EMEAR1);
98         mear1 = (mear1  & 0xFFFFFF00) |
99                 ((new_bank0_end & MICR_ADDR_MASK) >> MICR_ADDR_SHIFT);
100         emear1 = (emear1 & 0xFFFFFF00) |
101                 ((new_bank0_end & MICR_ADDR_MASK) >> MICR_EADDR_SHIFT);
102         mpc824x_mpc107_setreg (MEAR1, mear1);
103         mpc824x_mpc107_setreg (EMEAR1, emear1);
104
105         return (size);
106 }
107
108 /*
109  * Initialize PCI Devices, report devices found.
110  */
111 #ifndef CONFIG_PCI_PNP
112 static struct pci_config_table pci_barcohydra_config_table[] = {
113         { PCI_ANY_ID, PCI_ANY_ID, PCI_ANY_ID, PCI_ANY_ID, 0x0f, PCI_ANY_ID,
114           pci_cfgfunc_config_device, { PCI_ENET0_IOADDR,
115                                        PCI_ENET0_MEMADDR,
116                                        PCI_COMMAND_MEMORY | PCI_COMMAND_MASTER } },
117         { PCI_ANY_ID, PCI_ANY_ID, PCI_ANY_ID, PCI_ANY_ID, 0x10, PCI_ANY_ID,
118           pci_cfgfunc_config_device, { PCI_ENET1_IOADDR,
119                                        PCI_ENET1_MEMADDR,
120                                        PCI_COMMAND_MEMORY | PCI_COMMAND_MASTER } },
121         { }
122 };
123 #endif
124
125 struct pci_controller hose = {
126 #ifndef CONFIG_PCI_PNP
127         config_table: pci_barcohydra_config_table,
128 #endif
129 };
130
131 void pci_init_board (void)
132 {
133         pci_mpc824x_init (&hose);
134 }
135
136 int write_flash (char *addr, char value)
137 {
138         char *adr = (char *)0xFF800000;
139         int cnt = 0;
140         char status,oldstatus;
141
142         *(adr+0x55) = 0xAA; udelay (1);
143         *(adr+0xAA) = 0x55; udelay (1);
144         *(adr+0x55) = 0xA0; udelay (1);
145         *addr = value;
146
147         status = *addr;
148         do {
149                 oldstatus = status;
150                 status = *addr;
151
152                 if ((oldstatus & 0x40) == (status & 0x40)) {
153                         return 4;
154                 }
155                 cnt++;
156                 if (cnt > 10000) {
157                         return 2;
158                 }
159         } while ( (status & 0x20) == 0 );
160
161         oldstatus = *addr;
162         status = *addr;
163
164         if ((oldstatus & 0x40) == (status & 0x40)) {
165                 return 0;
166         } else {
167                 *(adr+0x55) = 0xF0;
168                 return 1;
169         }
170 }
171
172 unsigned update_flash (unsigned char *buf)
173 {
174         switch ((*buf) & 0x3) {
175         case TRY_WORKING:
176                 printf ("found 3 and converted it to 2\n");
177                 write_flash ((char *)buf, (*buf) & 0xFE);
178                 *((unsigned char *)0xFF800000) = 0xF0;
179                 udelay (100);
180                 printf ("buf [%#010x] %#010x\n", (unsigned)buf, (*buf));
181                 /* XXX - fall through??? */
182         case BOOT_WORKING :
183                 return BOOT_WORKING;
184         }
185         return BOOT_DEFAULT;
186 }
187
188 unsigned scan_flash (void)
189 {
190         char section[] =  "kernel";
191         int cfgFileLen  =  (CONFIG_SYS_FLASH_ERASE_SECTOR_LENGTH >> 1);
192         int sectionPtr  = 0;
193         int foundItem   = 0; /* 0: None, 1: section found, 2: "=" found */
194         int bufPtr;
195         unsigned char *buf;
196
197         buf = (unsigned char*)(CONFIG_SYS_FLASH_RANGE_BASE + CONFIG_SYS_FLASH_RANGE_SIZE \
198                         - CONFIG_SYS_FLASH_ERASE_SECTOR_LENGTH);
199         for (bufPtr = 0; bufPtr < cfgFileLen; ++bufPtr) {
200                 if ((buf[bufPtr]==0xFF) && (*(int*)(buf+bufPtr)==0xFFFFFFFF)) {
201                         return BOOT_DEFAULT;
202                 }
203                 /* This is the scanning loop, we try to find a particular
204                  * quoted value
205                  */
206                 switch (foundItem) {
207                 case 0:
208                         if ((section[sectionPtr] == 0)) {
209                                 ++foundItem;
210                         } else if (buf[bufPtr] == section[sectionPtr]) {
211                                 ++sectionPtr;
212                         } else {
213                                 sectionPtr = 0;
214                         }
215                         break;
216                 case 1:
217                         ++foundItem;
218                         break;
219                 case 2:
220                         ++foundItem;
221                         break;
222                 case 3:
223                 default:
224                         return update_flash (&buf[bufPtr - 1]);
225                 }
226         }
227
228         printf ("Failed to read %s\n",section);
229         return BOOT_DEFAULT;
230 }
231
232 TSBootInfo* find_boot_info (void)
233 {
234         unsigned bootimage = scan_flash ();
235         TSBootInfo* info = (TSBootInfo*)malloc (sizeof(TSBootInfo));
236
237         switch (bootimage) {
238         case TRY_WORKING:
239                 info->address = CONFIG_SYS_WORKING_KERNEL_ADDRESS;
240                 break;
241         case BOOT_WORKING :
242                 info->address = CONFIG_SYS_WORKING_KERNEL_ADDRESS;
243                 break;
244         case BOOT_DEFAULT:
245         default:
246                 info->address= CONFIG_SYS_DEFAULT_KERNEL_ADDRESS;
247
248         }
249         info->size = *((unsigned int *)(info->address ));
250
251         return info;
252 }
253
254 void barcobcd_boot (void)
255 {
256         TSBootInfo* start;
257         char *bootm_args[2];
258         char *buf;
259         int cnt;
260         extern int do_bootm (cmd_tbl_t *, int, int, char *[]);
261
262         buf = (char *)(0x00800000);
263         /* make certain there are enough chars to print the command line here!
264          */
265         bootm_args[0] = (char *)malloc (16*sizeof(char));
266         bootm_args[1] = (char *)malloc (16*sizeof(char));
267
268         start = find_boot_info ();
269
270         printf ("Booting kernel at address %#10x with size %#10x\n",
271                         start->address, start->size);
272
273         /* give length of the kernel image to bootm */
274         sprintf (bootm_args[0],"%x",start->size);
275         /* give address of the kernel image to bootm */
276         sprintf (bootm_args[1],"%x",(unsigned)buf);
277
278         printf ("flash address: %#10x\n",start->address+8);
279         printf ("buf address: %#10x\n",(unsigned)buf);
280
281         /* aha, we reserve 8 bytes here... */
282         for (cnt = 0; cnt < start->size ; cnt++) {
283                 buf[cnt] = ((char *)start->address)[cnt+8];
284         }
285
286         /* initialise RAM memory */
287         *((unsigned int *)0xFEC00000) = 0x00141A98;
288         do_bootm (NULL,0,2,bootm_args);
289 }
290
291 int barcobcd_boot_image (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
292 {
293 #if 0
294         if (argc > 1) {
295                 cmd_usage(cmdtp);
296                 return 1;
297         }
298 #endif
299         barcobcd_boot ();
300
301         return 0;
302 }
303
304 /* Currently, boot_working and boot_default are the same command. This is
305  * left in here to see what we'll do in the future */
306
307 U_BOOT_CMD (
308                 try_working, 1, 1, barcobcd_boot_image,
309                 "check flash value and boot the appropriate image",
310                 ""
311           );
312
313 U_BOOT_CMD (
314                 boot_working, 1, 1, barcobcd_boot_image,
315                 "check flash value and boot the appropriate image",
316                 ""
317           );
318
319 U_BOOT_CMD (
320                 boot_default, 1, 1, barcobcd_boot_image,
321                 "check flash value and boot the appropriate image",
322                 ""
323           );
324 /*
325  * We are not using serial communication, so just provide empty functions
326  */
327 int serial_init (void)
328 {
329         return 0;
330 }
331 void serial_setbrg (void)
332 {
333         return;
334 }
335 void serial_putc (const char c)
336 {
337         return;
338 }
339 void serial_puts (const char *c)
340 {
341         return;
342 }
343 int serial_getc (void)
344 {
345         return 0;
346 }
347 int serial_tstc (void)
348 {
349         return 0;
350 }
351
352 unsigned long post_word_load (void)
353 {
354         return 0l;
355 }
356 void post_word_store (unsigned long val)
357 {
358         return;
359 }