]>
git.ipfire.org Git - people/ms/u-boot.git/blob - board/cray/L1/L1.c
3 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
5 * See file CREDITS for list of people who contributed to this
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.
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.
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,
25 #include <asm/processor.h>
33 #define L1_MEMSIZE (32*1024*1024)
35 /* the std. DHCP stufff */
37 #define DHCP_NETMASK 1
38 #define DHCP_BOOTFILE 67
39 #define DHCP_ROOTPATH 17
40 #define DHCP_HOSTNAME 12
42 /* some extras used by CRAY
44 * on the server this looks like:
46 * option L1-initrd-image code 224 = string;
47 * option L1-initrd-image "/opt/craysv2/craymcu/l1/flash/initrd.image"
49 #define DHCP_L1_INITRD 224
51 /* new, [better?] way via official vendor-extensions, defining an option
53 * on the server this looks like:
55 * option space CRAYL1;
56 * option CRAYL1.initrd code 3 = string;
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
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...
74 * If I get no bootfile, boot from flash. If rootpath, use that. If no
75 * rootpath use initrd in flash.
77 typedef struct dhcp_item_s
{
79 u8 dhcp_vendor_option
;
83 static 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
}
101 #define N_THINGS ((sizeof(Things))/(sizeof(dhcp_item_t)))
103 extern char bootscript
[];
105 /* Here is the boot logic as HUSH script. Overridden by any TFP provided
109 static void init_sdram (void);
111 /* ------------------------------------------------------------------------- */
112 int board_early_init_f (void)
114 /* Running from ROM: global data is still READONLY */
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 */
126 /* ------------------------------------------------------------------------- */
127 int checkboard (void)
131 /* ------------------------------------------------------------------------- */
133 /* ------------------------------------------------------------------------- */
134 int misc_init_r (void)
142 hdr
= (image_header_t
*) (CFG_MONITOR_BASE
- image_get_header_size ());
143 #if defined(CONFIG_FIT)
144 if (gen_image_get_format ((void *)hdr
) != IMAGE_FORMAT_LEGACY
) {
145 puts ("Non legacy image format not supported\n");
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
);
154 #define FACTORY_SETTINGS 0xFFFC0000
155 if ((s
= getenv ("ethaddr")) == NULL
) {
156 e
= (char *) (FACTORY_SETTINGS
);
160 || *(e
+ 3) != '4' || *(e
+ 4) != '0' || *(e
+ 17) != '\0') {
161 printf ("No valid MAC address in flash location 0x3C0000!\n");
163 printf ("Factory MAC: %s\n", e
);
164 setenv ("ethaddr", e
);
167 sprintf (bootcmd
,"autoscript %X",(unsigned)bootscript
);
168 setenv ("bootcmd", bootcmd
);
172 /* ------------------------------------------------------------------------- */
173 long int initdram (int board_type
)
178 /* ------------------------------------------------------------------------- */
179 /* stubs so we can print dates w/o any nvram RTC.*/
180 void rtc_get (struct rtc_time
*tmp
)
184 void rtc_set (struct rtc_time
*tmp
)
188 void rtc_reset (void)
193 /* ------------------------------------------------------------------------- */
194 /* Do sdram bank init in C so I can read it..no console to print to yet!
196 static void init_sdram (void)
200 /* write SDRAM bank 0 register */
201 mtdcr (memcfga
, mem_mb0cf
);
202 mtdcr (memcfgd
, 0x00062001);
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. */
212 /* divisor = ((mfdcr(strap)>> 28) & 0x3); */
214 /* write SDRAM timing for 100Mhz. */
215 mtdcr (memcfga
, mem_sdtr1
);
216 mtdcr (memcfgd
, 0x0086400D);
218 /* write SDRAM refresh interval register */
219 mtdcr (memcfga
, mem_rtr
);
220 mtdcr (memcfgd
, 0x05F00000);
223 /* sdram controller.*/
224 mtdcr (memcfga
, mem_mcopt1
);
225 mtdcr (memcfgd
, 0x90800000);
228 /* initially, disable ECC on all banks */
230 mtdcr (memcfga
, mem_ecccf
);
231 tmp
= mfdcr (memcfgd
);
233 mtdcr (memcfga
, mem_ecccf
);
234 mtdcr (memcfgd
, tmp
);
239 extern int memory_post_test (int flags
);
244 uint
*pstart
= (uint
*) 0x00000000;
245 uint
*pend
= (uint
*) L1_MEMSIZE
;
248 if (getenv_r("booted",NULL
,0) <= 0)
250 printf ("testdram..");
252 for (p
= pstart
; p
< pend
; p
++)
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);
262 for (p
= pstart
; p
< pend
; p
++)
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);
272 for (p
= pstart
; p
< pend
; 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
);
281 printf ("Success. ");
283 printf ("Enable ECC..");
285 mtdcr (memcfga
, mem_mcopt1
);
286 tmp
= (mfdcr (memcfgd
) & ~0xFFE00000) | 0x90800000;
287 mtdcr (memcfga
, mem_mcopt1
);
288 mtdcr (memcfgd
, tmp
);
290 for (p
= (unsigned long) 0; ((unsigned long) p
< L1_MEMSIZE
); *p
++ = 0L)
293 mtdcr (memcfga
, mem_ecccf
);
294 tmp
= mfdcr (memcfgd
);
296 mtdcr (memcfgd
, tmp
);
298 printf ("enabled.\n");
302 /* ------------------------------------------------------------------------- */
303 static u8
*dhcp_env_update (u8 thing
, u8
* pop
)
309 if ((Things
[thing
].dhcpvalue
= malloc (oplen
)) == NULL
) {
310 printf ("Whoops! failed to malloc space for DHCP thing %s\n",
311 Things
[thing
].envname
);
314 for (i
= 0; (i
< oplen
); i
++)
315 if ((*(Things
[thing
].dhcpvalue
+ i
) = *(pop
+ 2 + i
)) == ' ')
317 *(Things
[thing
].dhcpvalue
+ i
) = '\0';
320 if (Things
[thing
].envname
)
322 setenv (Things
[thing
].envname
, Things
[thing
].dhcpvalue
);
324 return ((u8
*)(Things
[thing
].dhcpvalue
));
327 /* ------------------------------------------------------------------------- */
328 u8
*dhcp_vendorex_prep (u8
* e
)
332 /* ask for the things I want. */
333 *e
++ = 55; /* Parameter Request List */
335 for (thing
= 0; thing
< N_THINGS
; thing
++)
336 *e
++ = Things
[thing
].dhcp_option
;
342 /* ------------------------------------------------------------------------- */
343 /* .. return NULL means it wasnt mine, non-null means I got it..*/
344 u8
*dhcp_vendorex_proc (u8
* pop
)
346 u8 oplen
, *sub_op
, sub_oplen
, *retval
;
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
))) {
365 for (thing
= 0; thing
< N_THINGS
; thing
++) {
366 if (*pop
== Things
[thing
].dhcp_option
)
367 if (!(retval
= dhcp_env_update (thing
, pop
)))