mirror of
https://github.com/AsahiLinux/u-boot
synced 2024-11-16 17:58:23 +00:00
95b602bab5
The latest PPC4xx register cleanup patch missed some SDRAM defines. This patch now changes lower case UIC defines to upper case. Also some names are changed to match the naming in the IBM/AMCC users manuals (e.g. mem_mcopt1 -> SDRAM0_CFG). Signed-off-by: Stefan Roese <sr@denx.de>
372 lines
10 KiB
C
372 lines
10 KiB
C
/*
|
|
* (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 <4xx_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_r("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);
|
|
}
|