board/cray/L1/L1.c - platform/external/u-boot - Gitiles

 /*
  * (C) Copyright 2000
  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
  *
  * See file CREDITS for list of people who contributed to this
  * project.
  *
  * This program is free software; you can redistribute it and/or
  * modify it under the terms of the GNU General Public License as
  * published by the Free Software Foundation; either version 2 of
  * the License, or (at your option) any later version.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  * MA 02111-1307 USA
  */

 #include <common.h>
 #include <asm/processor.h>
 #include <asm/ppc4xx-i2c.h>
 #include <command.h>
 #include <rtc.h>
 #include <post.h>
 #include <net.h>
 #include <malloc.h>

 #define L1_MEMSIZE (32*1024*1024)

 /* the std. DHCP stufff */
 #define DHCP_ROUTER       3
 #define DHCP_NETMASK      1
 #define DHCP_BOOTFILE     67
 #define DHCP_ROOTPATH     17
 #define DHCP_HOSTNAME     12

 /* some extras used by CRAY
  *
  * on the server this looks like:
  *
  * option L1-initrd-image code 224 = string;
  * option L1-initrd-image "/opt/craysv2/craymcu/l1/flash/initrd.image"
  */
 #define DHCP_L1_INITRD  224

 /* new, [better?] way via official vendor-extensions, defining an option
  * space.
  * on the server this looks like:
  *
  * option space CRAYL1;
  * option CRAYL1.initrd     code 3 = string;
  * ..etc...
  */
 #define DHCP_VENDOR_SPECX   43
 #define DHCP_VX_INITRD       3
 #define DHCP_VX_BOOTCMD      4
 #define DHCP_VX_BOOTARGS     5
 #define DHCP_VX_ROOTDEV      6
 #define DHCP_VX_FROMFLASH    7
 #define DHCP_VX_BOOTSCRIPT   8
 #define DHCP_VX_RCFILE	     9
 #define DHCP_VX_MAGIC        10

 /* Things DHCP server can tellme about.  If there's no flash address, then
  * they dont participate in 'update' to flash, and we force their values
  * back to '0' every boot to be sure to get them fresh from DHCP.  Yes, I
  * know this is a pain...
  *
  * If I get no bootfile, boot from flash.  If rootpath, use that.  If no
  * rootpath use initrd in flash.
  */
 typedef struct dhcp_item_s {
 	u8 dhcp_option;
 	u8 dhcp_vendor_option;
 	char *dhcpvalue;
 	char *envname;
 } dhcp_item_t;
 static dhcp_item_t Things[] = {
 	{DHCP_ROUTER, 0, NULL, "gateway"},
 	{DHCP_NETMASK, 0, NULL, "netmask"},
 	{DHCP_BOOTFILE, 0, NULL, "bootfile"},
 	{DHCP_ROOTPATH, 0, NULL, "rootpath"},
 	{DHCP_HOSTNAME, 0, NULL, "hostname"},
 	{DHCP_L1_INITRD, 0, NULL, "initrd"},
 /* and the other way.. */
 	{DHCP_VENDOR_SPECX, DHCP_VX_INITRD, NULL, "initrd"},
 	{DHCP_VENDOR_SPECX, DHCP_VX_BOOTCMD, NULL, "bootcmd"},
 	{DHCP_VENDOR_SPECX, DHCP_VX_FROMFLASH, NULL, "fromflash"},
 	{DHCP_VENDOR_SPECX, DHCP_VX_BOOTSCRIPT, NULL, "bootscript"},
 	{DHCP_VENDOR_SPECX, DHCP_VX_RCFILE, NULL, "rcfile"},
 	{DHCP_VENDOR_SPECX, DHCP_VX_BOOTARGS, NULL, "xbootargs"},
 	{DHCP_VENDOR_SPECX, DHCP_VX_ROOTDEV, NULL, NULL},
 	{DHCP_VENDOR_SPECX, DHCP_VX_MAGIC, NULL, NULL}
 };

 #define N_THINGS ((sizeof(Things))/(sizeof(dhcp_item_t)))

 extern char bootscript[];

 /* Here is the boot logic as HUSH script. Overridden by any TFP provided
  * bootscript file.
  */

 static void init_sdram (void);

 /* ------------------------------------------------------------------------- */
 int board_early_init_f (void)
 {
 	/* Running from ROM: global data is still READONLY */
 	init_sdram ();
 	mtdcr (UIC0SR, 0xFFFFFFFF);	/* clear all ints */
 	mtdcr (UIC0ER, 0x00000000);	/* disable all ints */
 	mtdcr (UIC0CR, 0x00000020);	/* set all but FPGA SMI to be non-critical */
 	mtdcr (UIC0PR, 0xFFFFFFE0);	/* set int polarities */
 	mtdcr (UIC0TR, 0x10000000);	/* set int trigger levels */
 	mtdcr (UIC0VCR, 0x00000001);	/* set vect base=0,INT0 highest priority */
 	mtdcr (UIC0SR, 0xFFFFFFFF);	/* clear all ints */
 	return 0;
 }

 /* ------------------------------------------------------------------------- */
 int checkboard (void)
 {
 	return (0);
 }
 /* ------------------------------------------------------------------------- */

 /* ------------------------------------------------------------------------- */
 int misc_init_r (void)
 {
 	char *s, *e;
 	image_header_t *hdr;
 	time_t timestamp;
 	struct rtc_time tm;
 	char bootcmd[32];

 	hdr = (image_header_t *) (CONFIG_SYS_MONITOR_BASE - image_get_header_size ());
 #if defined(CONFIG_FIT)
 	if (genimg_get_format ((void *)hdr) != IMAGE_FORMAT_LEGACY) {
 		puts ("Non legacy image format not supported\n");
 		return -1;
 	}
 #endif

 	timestamp = (time_t)image_get_time (hdr);
 	to_tm (timestamp, &tm);
 	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);

 #define FACTORY_SETTINGS 0xFFFC0000
 	if ((s = getenv ("ethaddr")) == NULL) {
 		e = (char *) (FACTORY_SETTINGS);
 		if (*(e + 0) != '0'
 			|| *(e + 1) != '0'
 			|| *(e + 2) != ':'
 			|| *(e + 3) != '4' || *(e + 4) != '0' || *(e + 17) != '\0') {
 			printf ("No valid MAC address in flash location 0x3C0000!\n");
 		} else {
 			printf ("Factory MAC: %s\n", e);
 			setenv ("ethaddr", e);
 		}
 	}
 	sprintf (bootcmd,"source %X",(unsigned)bootscript);
 	setenv ("bootcmd", bootcmd);
 	return (0);
 }

 /* ------------------------------------------------------------------------- */
 phys_size_t initdram (int board_type)
 {
 	return (L1_MEMSIZE);
 }

 /* ------------------------------------------------------------------------- */
 /* stubs so we can print dates w/o any nvram RTC.*/
 int rtc_get (struct rtc_time *tmp)
 {
 	return 0;
 }
 int rtc_set (struct rtc_time *tmp)
 {
 	return 0;
 }
 void rtc_reset (void)
 {
 	return;
 }

 /* ------------------------------------------------------------------------- */
 /*  Do sdram bank init in C so I can read it..no console to print to yet!
  */
 static void init_sdram (void)
 {
  unsigned long tmp;

 	/* write SDRAM bank 0 register */
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_B0CR);
 	mtdcr (SDRAM0_CFGDATA, 0x00062001);

 /* Set the SDRAM Timing reg, SDTR1 and the refresh timer reg, RTR.	*/
 /* To set the appropriate timings, we need to know the SDRAM speed.	*/
 /* We can use the PLB speed since the SDRAM speed is the same as	*/
 /* the PLB speed. The PLB speed is the FBK divider times the		*/
 /* 405GP reference clock, which on the L1 is 25MHz.			*/
 /* Thus, if FBK div is 2, SDRAM is 50MHz; if FBK div is 3, SDRAM is	*/
 /* 150MHz; if FBK is 3, SDRAM is 150MHz.				*/

 	/* divisor = ((mfdcr(strap)>> 28) & 0x3); */

 /* write SDRAM timing for 100MHz. */
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_TR);
 	mtdcr (SDRAM0_CFGDATA, 0x0086400D);

 /* write SDRAM refresh interval register */
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_RTR);
 	mtdcr (SDRAM0_CFGDATA, 0x05F00000);
 	udelay (200);

 /* sdram controller.*/
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_CFG);
 	mtdcr (SDRAM0_CFGDATA, 0x90800000);
 	udelay (200);

 /* initially, disable ECC on all banks */
 	udelay (200);
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_ECCCFG);
 	tmp = mfdcr (SDRAM0_CFGDATA);
 	tmp &= 0xff0fffff;
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_ECCCFG);
 	mtdcr (SDRAM0_CFGDATA, tmp);

 	return;
 }

 extern int memory_post_test (int flags);

 int testdram (void)
 {
  unsigned long tmp;
 	uint *pstart = (uint *) 0x00000000;
 	uint *pend = (uint *) L1_MEMSIZE;
 	uint *p;

 	if (getenv_f("booted",NULL,0) <= 0)
 	{
 		printf ("testdram..");
 	/*AA*/
 		for (p = pstart; p < pend; p++)
 			*p = 0xaaaaaaaa;
 		for (p = pstart; p < pend; p++) {
 			if (*p != 0xaaaaaaaa) {
 				printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
 						(uint) p, *p, 0xaaaaaaaa);
 				return 1;
 			}
 		}
 	/*55*/
 		for (p = pstart; p < pend; p++)
 			*p = 0x55555555;
 		for (p = pstart; p < pend; p++) {
 			if (*p != 0x55555555) {
 				printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
 						(uint) p, *p, 0x55555555);
 				return 1;
 			}
 		}
 	/*addr*/
 		for (p = pstart; p < pend; p++)
 			*p = (unsigned)p;
 		for (p = pstart; p < pend; p++) {
 			if (*p != (unsigned)p) {
 				printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
 						(uint) p, *p, (uint)p);
 				return 1;
 			}
 		}
 		printf ("Success. ");
 	}
 	printf ("Enable ECC..");

 	mtdcr (SDRAM0_CFGADDR, SDRAM0_CFG);
 	tmp = (mfdcr (SDRAM0_CFGDATA) & ~0xFFE00000) | 0x90800000;
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_CFG);
 	mtdcr (SDRAM0_CFGDATA, tmp);
 	udelay (600);
 	for (p = (unsigned long) 0; ((unsigned long) p < L1_MEMSIZE); *p++ = 0L)
 		;
 	udelay (400);
 	mtdcr (SDRAM0_CFGADDR, SDRAM0_ECCCFG);
 	tmp = mfdcr (SDRAM0_CFGDATA);
 	tmp |= 0x00800000;
 	mtdcr (SDRAM0_CFGDATA, tmp);
 	udelay (400);
 	printf ("enabled.\n");
 	return (0);
 }

 /* ------------------------------------------------------------------------- */
 static u8 *dhcp_env_update (u8 thing, u8 * pop)
 {
 	u8 i, oplen;

 	oplen = *(pop + 1);

 	if ((Things[thing].dhcpvalue = malloc (oplen)) == NULL) {
 		printf ("Whoops! failed to malloc space for DHCP thing %s\n",
 				Things[thing].envname);
 		return NULL;
 	}
 	for (i = 0; (i < oplen); i++)
 		if ((*(Things[thing].dhcpvalue + i) = *(pop + 2 + i)) == ' ')
 			break;
 	*(Things[thing].dhcpvalue + i) = '\0';

 /* set env. */
 	if (Things[thing].envname)
 	{
 		setenv (Things[thing].envname, Things[thing].dhcpvalue);
 	}
 	return ((u8 *)(Things[thing].dhcpvalue));
 }

 /* ------------------------------------------------------------------------- */
 u8 *dhcp_vendorex_prep (u8 * e)
 {
 	u8 thing;

 /* ask for the things I want. */
 	*e++ = 55;					/* Parameter Request List */
 	*e++ = N_THINGS;
 	for (thing = 0; thing < N_THINGS; thing++)
 		*e++ = Things[thing].dhcp_option;
 	*e++ = 255;

 	return e;
 }

 /* ------------------------------------------------------------------------- */
 /* .. return NULL means it wasnt mine, non-null means I got it..*/
 u8 *dhcp_vendorex_proc (u8 * pop)
 {
 	u8 oplen, *sub_op, sub_oplen, *retval;
 	u8 thing = 0;

 	retval = NULL;
 	oplen = *(pop + 1);
 /* if pop is vender spec indicator, there are sub-options. */
 	if (*pop == DHCP_VENDOR_SPECX) {
 		for (sub_op = pop + 2;
 		     oplen && (sub_oplen = *(sub_op + 1));
 		     oplen -= sub_oplen, sub_op += (sub_oplen + 2)) {
 			for (thing = 0; thing < N_THINGS; thing++) {
 			    if (*sub_op == Things[thing].dhcp_vendor_option) {
 					if (!(retval = dhcp_env_update (thing, sub_op))) {
 						return NULL;
 					}
 			    }
 			}
 		}
 	} else {
 		for (thing = 0; thing < N_THINGS; thing++) {
 			if (*pop == Things[thing].dhcp_option)
 				if (!(retval = dhcp_env_update (thing, pop)))
 					return NULL;
 		}
 	}
 	return (pop);
 }
	/*
	* (C) Copyright 2000
	* Wolfgang Denk, DENX Software Engineering, wd@denx.de.
	*
	* See file CREDITS for list of people who contributed to this
	* project.
	*
	* This program is free software; you can redistribute it and/or
	* modify it under the terms of the GNU General Public License as
	* published by the Free Software Foundation; either version 2 of
	* the License, or (at your option) any later version.
	*
	* This program is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	* GNU General Public License for more details.
	*
	* You should have received a copy of the GNU General Public License
	* along with this program; if not, write to the Free Software
	* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
	* MA 02111-1307 USA
	*/

	#include <common.h>
	#include <asm/processor.h>
	#include <asm/ppc4xx-i2c.h>
	#include <command.h>
	#include <rtc.h>
	#include <post.h>
	#include <net.h>
	#include <malloc.h>

	#define L1_MEMSIZE (3210241024)

	/* the std. DHCP stufff */
	#define DHCP_ROUTER 3
	#define DHCP_NETMASK 1
	#define DHCP_BOOTFILE 67
	#define DHCP_ROOTPATH 17
	#define DHCP_HOSTNAME 12

	/* some extras used by CRAY
	*
	* on the server this looks like:
	*
	* option L1-initrd-image code 224 = string;
	* option L1-initrd-image "/opt/craysv2/craymcu/l1/flash/initrd.image"
	*/
	#define DHCP_L1_INITRD 224

	/* new, [better?] way via official vendor-extensions, defining an option
	* space.
	* on the server this looks like:
	*
	* option space CRAYL1;
	* option CRAYL1.initrd code 3 = string;
	* ..etc...
	*/
	#define DHCP_VENDOR_SPECX 43
	#define DHCP_VX_INITRD 3
	#define DHCP_VX_BOOTCMD 4
	#define DHCP_VX_BOOTARGS 5
	#define DHCP_VX_ROOTDEV 6
	#define DHCP_VX_FROMFLASH 7
	#define DHCP_VX_BOOTSCRIPT 8
	#define DHCP_VX_RCFILE 9
	#define DHCP_VX_MAGIC 10

	/* Things DHCP server can tellme about. If there's no flash address, then
	* they dont participate in 'update' to flash, and we force their values
	* back to '0' every boot to be sure to get them fresh from DHCP. Yes, I
	* know this is a pain...
	*
	* If I get no bootfile, boot from flash. If rootpath, use that. If no
	* rootpath use initrd in flash.
	*/
	typedef struct dhcp_item_s {
	u8 dhcp_option;
	u8 dhcp_vendor_option;
	char *dhcpvalue;
	char *envname;
	} dhcp_item_t;
	static dhcp_item_t Things[] = {
	{DHCP_ROUTER, 0, NULL, "gateway"},
	{DHCP_NETMASK, 0, NULL, "netmask"},
	{DHCP_BOOTFILE, 0, NULL, "bootfile"},
	{DHCP_ROOTPATH, 0, NULL, "rootpath"},
	{DHCP_HOSTNAME, 0, NULL, "hostname"},
	{DHCP_L1_INITRD, 0, NULL, "initrd"},
	/* and the other way.. */
	{DHCP_VENDOR_SPECX, DHCP_VX_INITRD, NULL, "initrd"},
	{DHCP_VENDOR_SPECX, DHCP_VX_BOOTCMD, NULL, "bootcmd"},
	{DHCP_VENDOR_SPECX, DHCP_VX_FROMFLASH, NULL, "fromflash"},
	{DHCP_VENDOR_SPECX, DHCP_VX_BOOTSCRIPT, NULL, "bootscript"},
	{DHCP_VENDOR_SPECX, DHCP_VX_RCFILE, NULL, "rcfile"},
	{DHCP_VENDOR_SPECX, DHCP_VX_BOOTARGS, NULL, "xbootargs"},
	{DHCP_VENDOR_SPECX, DHCP_VX_ROOTDEV, NULL, NULL},
	{DHCP_VENDOR_SPECX, DHCP_VX_MAGIC, NULL, NULL}
	};

	#define N_THINGS ((sizeof(Things))/(sizeof(dhcp_item_t)))

	extern char bootscript[];

	/* Here is the boot logic as HUSH script. Overridden by any TFP provided
	* bootscript file.
	*/

	static void init_sdram (void);

	/* ------------------------------------------------------------------------- */
	int board_early_init_f (void)
	{
	/* Running from ROM: global data is still READONLY */
	init_sdram ();
	mtdcr (UIC0SR, 0xFFFFFFFF); /* clear all ints */
	mtdcr (UIC0ER, 0x00000000); /* disable all ints */
	mtdcr (UIC0CR, 0x00000020); /* set all but FPGA SMI to be non-critical */
	mtdcr (UIC0PR, 0xFFFFFFE0); /* set int polarities */
	mtdcr (UIC0TR, 0x10000000); /* set int trigger levels */
	mtdcr (UIC0VCR, 0x00000001); /* set vect base=0,INT0 highest priority */
	mtdcr (UIC0SR, 0xFFFFFFFF); /* clear all ints */
	return 0;
	}

	/* ------------------------------------------------------------------------- */
	int checkboard (void)
	{
	return (0);
	}
	/* ------------------------------------------------------------------------- */

	/* ------------------------------------------------------------------------- */
	int misc_init_r (void)
	{
	char s, e;
	image_header_t *hdr;
	time_t timestamp;
	struct rtc_time tm;
	char bootcmd[32];

	hdr = (image_header_t *) (CONFIG_SYS_MONITOR_BASE - image_get_header_size ());
	#if defined(CONFIG_FIT)
	if (genimg_get_format ((void *)hdr) != IMAGE_FORMAT_LEGACY) {
	puts ("Non legacy image format not supported\n");
	return -1;
	}
	#endif

	timestamp = (time_t)image_get_time (hdr);
	to_tm (timestamp, &tm);
	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);

	#define FACTORY_SETTINGS 0xFFFC0000
	if ((s = getenv ("ethaddr")) == NULL) {
	e = (char *) (FACTORY_SETTINGS);
	if (*(e + 0) != '0'
	\|\| *(e + 1) != '0'
	\|\| *(e + 2) != ':'
	\|\| (e + 3) != '4' \|\| (e + 4) != '0' \|\| *(e + 17) != '\0') {
	printf ("No valid MAC address in flash location 0x3C0000!\n");
	} else {
	printf ("Factory MAC: %s\n", e);
	setenv ("ethaddr", e);
	}
	}
	sprintf (bootcmd,"source %X",(unsigned)bootscript);
	setenv ("bootcmd", bootcmd);
	return (0);
	}

	/* ------------------------------------------------------------------------- */
	phys_size_t initdram (int board_type)
	{
	return (L1_MEMSIZE);
	}

	/* ------------------------------------------------------------------------- */
	/* stubs so we can print dates w/o any nvram RTC.*/
	int rtc_get (struct rtc_time *tmp)
	{
	return 0;
	}
	int rtc_set (struct rtc_time *tmp)
	{
	return 0;
	}
	void rtc_reset (void)
	{
	return;
	}

	/* ------------------------------------------------------------------------- */
	/* Do sdram bank init in C so I can read it..no console to print to yet!
	*/
	static void init_sdram (void)
	{
	unsigned long tmp;

	/* write SDRAM bank 0 register */
	mtdcr (SDRAM0_CFGADDR, SDRAM0_B0CR);
	mtdcr (SDRAM0_CFGDATA, 0x00062001);

	/* Set the SDRAM Timing reg, SDTR1 and the refresh timer reg, RTR. */
	/* To set the appropriate timings, we need to know the SDRAM speed. */
	/* We can use the PLB speed since the SDRAM speed is the same as */
	/* the PLB speed. The PLB speed is the FBK divider times the */
	/* 405GP reference clock, which on the L1 is 25MHz. */
	/* Thus, if FBK div is 2, SDRAM is 50MHz; if FBK div is 3, SDRAM is */
	/* 150MHz; if FBK is 3, SDRAM is 150MHz. */

	/* divisor = ((mfdcr(strap)>> 28) & 0x3); */

	/* write SDRAM timing for 100MHz. */
	mtdcr (SDRAM0_CFGADDR, SDRAM0_TR);
	mtdcr (SDRAM0_CFGDATA, 0x0086400D);

	/* write SDRAM refresh interval register */
	mtdcr (SDRAM0_CFGADDR, SDRAM0_RTR);
	mtdcr (SDRAM0_CFGDATA, 0x05F00000);
	udelay (200);

	/* sdram controller.*/
	mtdcr (SDRAM0_CFGADDR, SDRAM0_CFG);
	mtdcr (SDRAM0_CFGDATA, 0x90800000);
	udelay (200);

	/* initially, disable ECC on all banks */
	udelay (200);
	mtdcr (SDRAM0_CFGADDR, SDRAM0_ECCCFG);
	tmp = mfdcr (SDRAM0_CFGDATA);
	tmp &= 0xff0fffff;
	mtdcr (SDRAM0_CFGADDR, SDRAM0_ECCCFG);
	mtdcr (SDRAM0_CFGDATA, tmp);

	return;
	}

	extern int memory_post_test (int flags);

	int testdram (void)
	{
	unsigned long tmp;
	uint pstart = (uint ) 0x00000000;
	uint pend = (uint ) L1_MEMSIZE;
	uint *p;

	if (getenv_f("booted",NULL,0) <= 0)
	{
	printf ("testdram..");
	/AA/
	for (p = pstart; p < pend; p++)
	*p = 0xaaaaaaaa;
	for (p = pstart; p < pend; p++) {
	if (*p != 0xaaaaaaaa) {
	printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
	(uint) p, *p, 0xaaaaaaaa);
	return 1;
	}
	}
	/55/
	for (p = pstart; p < pend; p++)
	*p = 0x55555555;
	for (p = pstart; p < pend; p++) {
	if (*p != 0x55555555) {
	printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
	(uint) p, *p, 0x55555555);
	return 1;
	}
	}
	/addr/
	for (p = pstart; p < pend; p++)
	*p = (unsigned)p;
	for (p = pstart; p < pend; p++) {
	if (*p != (unsigned)p) {
	printf ("SDRAM test fails at: %08x, was %08x expected %08x\n",
	(uint) p, *p, (uint)p);
	return 1;
	}
	}
	printf ("Success. ");
	}
	printf ("Enable ECC..");

	mtdcr (SDRAM0_CFGADDR, SDRAM0_CFG);
	tmp = (mfdcr (SDRAM0_CFGDATA) & ~0xFFE00000) \| 0x90800000;
	mtdcr (SDRAM0_CFGADDR, SDRAM0_CFG);
	mtdcr (SDRAM0_CFGDATA, tmp);
	udelay (600);
	for (p = (unsigned long) 0; ((unsigned long) p < L1_MEMSIZE); *p++ = 0L)
	;
	udelay (400);
	mtdcr (SDRAM0_CFGADDR, SDRAM0_ECCCFG);
	tmp = mfdcr (SDRAM0_CFGDATA);
	tmp \|= 0x00800000;
	mtdcr (SDRAM0_CFGDATA, tmp);
	udelay (400);
	printf ("enabled.\n");
	return (0);
	}

	/* ------------------------------------------------------------------------- */
	static u8 dhcp_env_update (u8 thing, u8 pop)
	{
	u8 i, oplen;

	oplen = *(pop + 1);

	if ((Things[thing].dhcpvalue = malloc (oplen)) == NULL) {
	printf ("Whoops! failed to malloc space for DHCP thing %s\n",
	Things[thing].envname);
	return NULL;
	}
	for (i = 0; (i < oplen); i++)
	if (((Things[thing].dhcpvalue + i) = (pop + 2 + i)) == ' ')
	break;
	*(Things[thing].dhcpvalue + i) = '\0';

	/* set env. */
	if (Things[thing].envname)
	{
	setenv (Things[thing].envname, Things[thing].dhcpvalue);
	}
	return ((u8 *)(Things[thing].dhcpvalue));
	}

	/* ------------------------------------------------------------------------- */
	u8 dhcp_vendorex_prep (u8 e)
	{
	u8 thing;

	/* ask for the things I want. */
	e++ = 55; / Parameter Request List */
	*e++ = N_THINGS;
	for (thing = 0; thing < N_THINGS; thing++)
	*e++ = Things[thing].dhcp_option;
	*e++ = 255;

	return e;
	}

	/* ------------------------------------------------------------------------- */
	/* .. return NULL means it wasnt mine, non-null means I got it..*/
	u8 dhcp_vendorex_proc (u8 pop)
	{
	u8 oplen, sub_op, sub_oplen, retval;
	u8 thing = 0;

	retval = NULL;
	oplen = *(pop + 1);
	/* if pop is vender spec indicator, there are sub-options. */
	if (*pop == DHCP_VENDOR_SPECX) {
	for (sub_op = pop + 2;
	oplen && (sub_oplen = *(sub_op + 1));
	oplen -= sub_oplen, sub_op += (sub_oplen + 2)) {
	for (thing = 0; thing < N_THINGS; thing++) {
	if (*sub_op == Things[thing].dhcp_vendor_option) {
	if (!(retval = dhcp_env_update (thing, sub_op))) {
	return NULL;
	}
	}
	}
	}
	} else {
	for (thing = 0; thing < N_THINGS; thing++) {
	if (*pop == Things[thing].dhcp_option)
	if (!(retval = dhcp_env_update (thing, pop)))
	return NULL;
	}
	}
	return (pop);
	}