source: SVN/laguna/u-boot-2008.10/board/cray/L1/L1.c @ 57

Last change on this file since 57 was 57, checked in by Tim Harvey, 2 years ago

Laguna: move prebuilt images and bootloader

svn directory cleanup

File size: 10.1 KB
Line 
1/*
2 * (C) Copyright 2000
3 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
4 *
5 * See file CREDITS for list of people who contributed to this
6 * project.
7 *
8 * This program is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU General Public License as
10 * published by the Free Software Foundation; either version 2 of
11 * the License, or (at your option) any later version.
12 *
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 * GNU General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
21 * MA 02111-1307 USA
22 */
23
24#include <common.h>
25#include <asm/processor.h>
26#include <4xx_i2c.h>
27#include <command.h>
28#include <rtc.h>
29#include <post.h>
30#include <net.h>
31#include <malloc.h>
32
33#define L1_MEMSIZE (32*1024*1024)
34
35/* the std. DHCP stufff */
36#define DHCP_ROUTER       3
37#define DHCP_NETMASK      1
38#define DHCP_BOOTFILE     67
39#define DHCP_ROOTPATH     17
40#define DHCP_HOSTNAME     12
41
42/* some extras used by CRAY
43 *
44 * on the server this looks like:
45 *
46 * option L1-initrd-image code 224 = string;
47 * option L1-initrd-image "/opt/craysv2/craymcu/l1/flash/initrd.image"
48 */
49#define DHCP_L1_INITRD  224
50
51/* new, [better?] way via official vendor-extensions, defining an option
52 * space.
53 * on the server this looks like:
54 *
55 * option space CRAYL1;
56 * option CRAYL1.initrd     code 3 = string;
57 * ..etc...
58 */
59#define DHCP_VENDOR_SPECX   43
60#define DHCP_VX_INITRD       3
61#define DHCP_VX_BOOTCMD      4
62#define DHCP_VX_BOOTARGS     5
63#define DHCP_VX_ROOTDEV      6
64#define DHCP_VX_FROMFLASH    7
65#define DHCP_VX_BOOTSCRIPT   8
66#define DHCP_VX_RCFILE       9
67#define DHCP_VX_MAGIC        10
68
69/* Things DHCP server can tellme about.  If there's no flash address, then
70 * they dont participate in 'update' to flash, and we force their values
71 * back to '0' every boot to be sure to get them fresh from DHCP.  Yes, I
72 * know this is a pain...
73 *
74 * If I get no bootfile, boot from flash.  If rootpath, use that.  If no
75 * rootpath use initrd in flash.
76 */
77typedef struct dhcp_item_s {
78        u8 dhcp_option;
79        u8 dhcp_vendor_option;
80        char *dhcpvalue;
81        char *envname;
82} dhcp_item_t;
83static dhcp_item_t Things[] = {
84        {DHCP_ROUTER, 0, NULL, "gateway"},
85        {DHCP_NETMASK, 0, NULL, "netmask"},
86        {DHCP_BOOTFILE, 0, NULL, "bootfile"},
87        {DHCP_ROOTPATH, 0, NULL, "rootpath"},
88        {DHCP_HOSTNAME, 0, NULL, "hostname"},
89        {DHCP_L1_INITRD, 0, NULL, "initrd"},
90/* and the other way.. */
91        {DHCP_VENDOR_SPECX, DHCP_VX_INITRD, NULL, "initrd"},
92        {DHCP_VENDOR_SPECX, DHCP_VX_BOOTCMD, NULL, "bootcmd"},
93        {DHCP_VENDOR_SPECX, DHCP_VX_FROMFLASH, NULL, "fromflash"},
94        {DHCP_VENDOR_SPECX, DHCP_VX_BOOTSCRIPT, NULL, "bootscript"},
95        {DHCP_VENDOR_SPECX, DHCP_VX_RCFILE, NULL, "rcfile"},
96        {DHCP_VENDOR_SPECX, DHCP_VX_BOOTARGS, NULL, "xbootargs"},
97        {DHCP_VENDOR_SPECX, DHCP_VX_ROOTDEV, NULL, NULL},
98        {DHCP_VENDOR_SPECX, DHCP_VX_MAGIC, NULL, NULL}
99};
100
101#define N_THINGS ((sizeof(Things))/(sizeof(dhcp_item_t)))
102
103extern char bootscript[];
104
105/* Here is the boot logic as HUSH script. Overridden by any TFP provided
106 * bootscript file.
107 */
108
109static void init_sdram (void);
110
111/* ------------------------------------------------------------------------- */
112int board_early_init_f (void)
113{
114        /* Running from ROM: global data is still READONLY */
115        init_sdram ();
116        mtdcr (uicsr, 0xFFFFFFFF);      /* clear all ints */
117        mtdcr (uicer, 0x00000000);      /* disable all ints */
118        mtdcr (uiccr, 0x00000020);      /* set all but FPGA SMI to be non-critical */
119        mtdcr (uicpr, 0xFFFFFFE0);      /* set int polarities */
120        mtdcr (uictr, 0x10000000);      /* set int trigger levels */
121        mtdcr (uicvcr, 0x00000001);     /* set vect base=0,INT0 highest priority */
122        mtdcr (uicsr, 0xFFFFFFFF);      /* clear all ints */
123        return 0;
124}
125
126/* ------------------------------------------------------------------------- */
127int checkboard (void)
128{
129        return (0);
130}
131/* ------------------------------------------------------------------------- */
132
133/* ------------------------------------------------------------------------- */
134int misc_init_r (void)
135{
136        char *s, *e;
137        image_header_t *hdr;
138        time_t timestamp;
139        struct rtc_time tm;
140        char bootcmd[32];
141
142        hdr = (image_header_t *) (CFG_MONITOR_BASE - image_get_header_size ());
143#if defined(CONFIG_FIT)
144        if (genimg_get_format ((void *)hdr) != IMAGE_FORMAT_LEGACY) {
145                puts ("Non legacy image format not supported\n");
146                return -1;
147        }
148#endif
149
150        timestamp = (time_t)image_get_time (hdr);
151        to_tm (timestamp, &tm);
152        printf ("Welcome to U-Boot on Cray L1. Compiled %4d-%02d-%02d  %2d:%02d:%02d (UTC)\n", tm.tm_year, tm.tm_mon, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec);
153
154#define FACTORY_SETTINGS 0xFFFC0000
155        if ((s = getenv ("ethaddr")) == NULL) {
156                e = (char *) (FACTORY_SETTINGS);
157                if (*(e + 0) != '0'
158                        || *(e + 1) != '0'
159                        || *(e + 2) != ':'
160                        || *(e + 3) != '4' || *(e + 4) != '0' || *(e + 17) != '\0') {
161                        printf ("No valid MAC address in flash location 0x3C0000!\n");
162                } else {
163                        printf ("Factory MAC: %s\n", e);
164                        setenv ("ethaddr", e);
165                }
166        }
167        sprintf (bootcmd,"autoscript %X",(unsigned)bootscript);
168        setenv ("bootcmd", bootcmd);
169        return (0);
170}
171
172/* ------------------------------------------------------------------------- */
173phys_size_t initdram (int board_type)
174{
175        return (L1_MEMSIZE);
176}
177
178/* ------------------------------------------------------------------------- */
179/* stubs so we can print dates w/o any nvram RTC.*/
180int rtc_get (struct rtc_time *tmp)
181{
182        return 0;
183}
184int rtc_set (struct rtc_time *tmp)
185{
186        return 0;
187}
188void rtc_reset (void)
189{
190        return;
191}
192
193/* ------------------------------------------------------------------------- */
194/*  Do sdram bank init in C so I can read it..no console to print to yet!
195 */
196static void init_sdram (void)
197{
198 unsigned long tmp;
199
200        /* write SDRAM bank 0 register */
201        mtdcr (memcfga, mem_mb0cf);
202        mtdcr (memcfgd, 0x00062001);
203
204/* Set the SDRAM Timing reg, SDTR1 and the refresh timer reg, RTR.      */
205/* To set the appropriate timings, we need to know the SDRAM speed.     */
206/* We can use the PLB speed since the SDRAM speed is the same as        */
207/* the PLB speed. The PLB speed is the FBK divider times the            */
208/* 405GP reference clock, which on the L1 is 25Mhz.                     */
209/* Thus, if FBK div is 2, SDRAM is 50Mhz; if FBK div is 3, SDRAM is     */
210/* 150Mhz; if FBK is 3, SDRAM is 150Mhz.                                */
211
212        /* divisor = ((mfdcr(strap)>> 28) & 0x3); */
213
214/* write SDRAM timing for 100Mhz. */
215        mtdcr (memcfga, mem_sdtr1);
216        mtdcr (memcfgd, 0x0086400D);
217
218/* write SDRAM refresh interval register */
219        mtdcr (memcfga, mem_rtr);
220        mtdcr (memcfgd, 0x05F00000);
221        udelay (200);
222
223/* sdram controller.*/
224        mtdcr (memcfga, mem_mcopt1);
225        mtdcr (memcfgd, 0x90800000);
226        udelay (200);
227
228/* initially, disable ECC on all banks */
229        udelay (200);
230        mtdcr (memcfga, mem_ecccf);
231        tmp = mfdcr (memcfgd);
232        tmp &= 0xff0fffff;
233        mtdcr (memcfga, mem_ecccf);
234        mtdcr (memcfgd, tmp);
235
236        return;
237}
238
239extern int memory_post_test (int flags);
240
241int testdram (void)
242{
243 unsigned long tmp;
244        uint *pstart = (uint *) 0x00000000;
245        uint *pend = (uint *) L1_MEMSIZE;
246        uint *p;
247
248        if (getenv_r("booted",NULL,0) <= 0)
249        {
250                printf ("testdram..");
251        /*AA*/
252                for (p = pstart; p < pend; p++)
253                        *p = 0xaaaaaaaa;
254                for (p = pstart; p < pend; p++) {
255                        if (*p != 0xaaaaaaaa) {
256                                printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
257                                                (uint) p, *p, 0xaaaaaaaa);
258                                return 1;
259                        }
260                }
261        /*55*/
262                for (p = pstart; p < pend; p++)
263                        *p = 0x55555555;
264                for (p = pstart; p < pend; p++) {
265                        if (*p != 0x55555555) {
266                                printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
267                                                (uint) p, *p, 0x55555555);
268                                return 1;
269                        }
270                }
271        /*addr*/
272                for (p = pstart; p < pend; p++)
273                        *p = (unsigned)p;
274                for (p = pstart; p < pend; p++) {
275                        if (*p != (unsigned)p) {
276                                printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
277                                                (uint) p, *p, (uint)p);
278                                return 1;
279                        }
280                }
281                printf ("Success. ");
282        }
283        printf ("Enable ECC..");
284
285        mtdcr (memcfga, mem_mcopt1);
286        tmp = (mfdcr (memcfgd) & ~0xFFE00000) | 0x90800000;
287        mtdcr (memcfga, mem_mcopt1);
288        mtdcr (memcfgd, tmp);
289        udelay (600);
290        for (p = (unsigned long) 0; ((unsigned long) p < L1_MEMSIZE); *p++ = 0L)
291                ;
292        udelay (400);
293        mtdcr (memcfga, mem_ecccf);
294        tmp = mfdcr (memcfgd);
295        tmp |= 0x00800000;
296        mtdcr (memcfgd, tmp);
297        udelay (400);
298        printf ("enabled.\n");
299        return (0);
300}
301
302/* ------------------------------------------------------------------------- */
303static u8 *dhcp_env_update (u8 thing, u8 * pop)
304{
305        u8 i, oplen;
306
307        oplen = *(pop + 1);
308
309        if ((Things[thing].dhcpvalue = malloc (oplen)) == NULL) {
310                printf ("Whoops! failed to malloc space for DHCP thing %s\n",
311                                Things[thing].envname);
312                return NULL;
313        }
314        for (i = 0; (i < oplen); i++)
315                if ((*(Things[thing].dhcpvalue + i) = *(pop + 2 + i)) == ' ')
316                        break;
317        *(Things[thing].dhcpvalue + i) = '\0';
318
319/* set env. */
320        if (Things[thing].envname)
321        {
322                setenv (Things[thing].envname, Things[thing].dhcpvalue);
323        }
324        return ((u8 *)(Things[thing].dhcpvalue));
325}
326
327/* ------------------------------------------------------------------------- */
328u8 *dhcp_vendorex_prep (u8 * e)
329{
330        u8 thing;
331
332/* ask for the things I want. */
333        *e++ = 55;                                      /* Parameter Request List */
334        *e++ = N_THINGS;
335        for (thing = 0; thing < N_THINGS; thing++)
336                *e++ = Things[thing].dhcp_option;
337        *e++ = 255;
338
339        return e;
340}
341
342/* ------------------------------------------------------------------------- */
343/* .. return NULL means it wasnt mine, non-null means I got it..*/
344u8 *dhcp_vendorex_proc (u8 * pop)
345{
346        u8 oplen, *sub_op, sub_oplen, *retval;
347        u8 thing = 0;
348
349        retval = NULL;
350        oplen = *(pop + 1);
351/* if pop is vender spec indicator, there are sub-options. */
352        if (*pop == DHCP_VENDOR_SPECX) {
353                for (sub_op = pop + 2;
354                     oplen && (sub_oplen = *(sub_op + 1));
355                     oplen -= sub_oplen, sub_op += (sub_oplen + 2)) {
356                        for (thing = 0; thing < N_THINGS; thing++) {
357                            if (*sub_op == Things[thing].dhcp_vendor_option) {
358                                        if (!(retval = dhcp_env_update (thing, sub_op))) {
359                                                return NULL;
360                                        }
361                            }
362                        }
363                }
364        } else {
365                for (thing = 0; thing < N_THINGS; thing++) {
366                        if (*pop == Things[thing].dhcp_option)
367                                if (!(retval = dhcp_env_update (thing, pop)))
368                                        return NULL;
369                }
370        }
371        return (pop);
372}
Note: See TracBrowser for help on using the repository browser.