[people/ms/u-boot.git] / common / cmd_elf.c

/*
 * Copyright (c) 2001 William L. Pitts
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are freely
 * permitted provided that the above copyright notice and this
 * paragraph and the following disclaimer are duplicated in all
 * such forms.
 *
 * This software is provided "AS IS" and without any express or
 * implied warranties, including, without limitation, the implied
 * warranties of merchantability and fitness for a particular
 * purpose.
 */

#include <common.h>
#include <bootm.h>
#include <command.h>
#include <linux/ctype.h>
#include <net.h>
#include <elf.h>
#include <vxworks.h>

#if defined(CONFIG_WALNUT) || defined(CONFIG_SYS_VXWORKS_MAC_PTR)
DECLARE_GLOBAL_DATA_PTR;
#endif

static unsigned long load_elf_image_phdr(unsigned long addr);
static unsigned long load_elf_image_shdr(unsigned long addr);

/* Allow ports to override the default behavior */
static unsigned long do_bootelf_exec(ulong (*entry)(int, char * const[]),
			       int argc, char * const argv[])
{
	unsigned long ret;

	/*
	 * QNX images require the data cache is disabled.
	 * Data cache is already flushed, so just turn it off.
	 */
	int dcache = dcache_status();
	if (dcache)
		dcache_disable();

	/*
	 * pass address parameter as argv[0] (aka command name),
	 * and all remaining args
	 */
	ret = entry(argc, argv);

	if (dcache)
		dcache_enable();

	return ret;
}

/* ======================================================================
 * Determine if a valid ELF image exists at the given memory location.
 * First looks at the ELF header magic field, the makes sure that it is
 * executable and makes sure that it is for a PowerPC.
 * ====================================================================== */
int valid_elf_image(unsigned long addr)
{
	Elf32_Ehdr *ehdr;		/* Elf header structure pointer */

	/* -------------------------------------------------- */

	ehdr = (Elf32_Ehdr *) addr;

	if (!IS_ELF(*ehdr)) {
		printf("## No elf image at address 0x%08lx\n", addr);
		return 0;
	}

	if (ehdr->e_type != ET_EXEC) {
		printf("## Not a 32-bit elf image at address 0x%08lx\n", addr);
		return 0;
	}

#if 0
	if (ehdr->e_machine != EM_PPC) {
		printf("## Not a PowerPC elf image at address 0x%08lx\n", addr);
		return 0;
	}
#endif

	return 1;
}

/* ======================================================================
 * Interpreter command to boot an arbitrary ELF image from memory.
 * ====================================================================== */
int do_bootelf(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[])
{
	unsigned long addr;		/* Address of the ELF image     */
	unsigned long rc;		/* Return value from user code  */
	char *sload, *saddr;
	const char *ep = getenv("autostart");

	/* -------------------------------------------------- */
	int rcode = 0;

	sload = saddr = NULL;
	if (argc == 3) {
		sload = argv[1];
		saddr = argv[2];
	} else if (argc == 2) {
		if (argv[1][0] == '-')
			sload = argv[1];
		else
			saddr = argv[1];
	}

	if (saddr)
		addr = simple_strtoul(saddr, NULL, 16);
	else
		addr = load_addr;

	if (!valid_elf_image(addr))
		return 1;

	if (sload && sload[1] == 'p')
		addr = load_elf_image_phdr(addr);
	else
		addr = load_elf_image_shdr(addr);

	if (ep && !strcmp(ep, "no"))
		return rcode;

	printf("## Starting application at 0x%08lx ...\n", addr);

	/*
	 * pass address parameter as argv[0] (aka command name),
	 * and all remaining args
	 */
	rc = do_bootelf_exec((void *)addr, argc - 1, argv + 1);
	if (rc != 0)
		rcode = 1;

	printf("## Application terminated, rc = 0x%lx\n", rc);
	return rcode;
}

/* ======================================================================
 * Interpreter command to boot VxWorks from a memory image.  The image can
 * be either an ELF image or a raw binary.  Will attempt to setup the
 * bootline and other parameters correctly.
 * ====================================================================== */
int do_bootvx(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[])
{
	unsigned long addr;		/* Address of image            */
	unsigned long bootaddr;	/* Address to put the bootline */
	char *bootline;			/* Text of the bootline        */
	char *tmp;			/* Temporary char pointer      */
	char build_buf[128];		/* Buffer for building the bootline */

	/* ---------------------------------------------------
	 *
	 * Check the loadaddr variable.
	 * If we don't know where the image is then we're done.
	 */

	if (argc < 2)
		addr = load_addr;
	else
		addr = simple_strtoul(argv[1], NULL, 16);

#if defined(CONFIG_CMD_NET)
	/*
	 * Check to see if we need to tftp the image ourselves before starting
	 */
	if ((argc == 2) && (strcmp(argv[1], "tftp") == 0)) {
		if (NetLoop(TFTPGET) <= 0)
			return 1;
		printf("Automatic boot of VxWorks image at address 0x%08lx ...\n",
			addr);
	}
#endif

	/* This should equate
	 * to NV_RAM_ADRS + NV_BOOT_OFFSET + NV_ENET_OFFSET
	 * from the VxWorks BSP header files.
	 * This will vary from board to board
	 */

#if defined(CONFIG_WALNUT)
	tmp = (char *) CONFIG_SYS_NVRAM_BASE_ADDR + 0x500;
	eth_getenv_enetaddr("ethaddr", (uchar *)build_buf);
	memcpy(tmp, &build_buf[3], 3);
#elif defined(CONFIG_SYS_VXWORKS_MAC_PTR)
	tmp = (char *) CONFIG_SYS_VXWORKS_MAC_PTR;
	eth_getenv_enetaddr("ethaddr", (uchar *)build_buf);
	memcpy(tmp, build_buf, 6);
#else
	puts("## Ethernet MAC address not copied to NV RAM\n");
#endif

	/*
	 * Use bootaddr to find the location in memory that VxWorks
	 * will look for the bootline string. The default value for
	 * PowerPC is LOCAL_MEM_LOCAL_ADRS + BOOT_LINE_OFFSET which
	 * defaults to 0x4200
	 */
	tmp = getenv("bootaddr");
	if (!tmp)
		bootaddr = CONFIG_SYS_VXWORKS_BOOT_ADDR;
	else
		bootaddr = simple_strtoul(tmp, NULL, 16);

	/*
	 * Check to see if the bootline is defined in the 'bootargs'
	 * parameter. If it is not defined, we may be able to
	 * construct the info
	 */
	bootline = getenv("bootargs");
	if (bootline) {
		memcpy((void *)bootaddr, bootline,
		       max(strlen(bootline), (size_t)255));
		flush_cache(bootaddr, max(strlen(bootline), (size_t)255));
	} else {
		sprintf(build_buf, CONFIG_SYS_VXWORKS_BOOT_DEVICE);
		tmp = getenv("bootfile");
		if (tmp)
			sprintf(&build_buf[strlen(build_buf)],
				 "%s:%s ", CONFIG_SYS_VXWORKS_SERVERNAME, tmp);
		else
			sprintf(&build_buf[strlen(build_buf)],
				 "%s:file ", CONFIG_SYS_VXWORKS_SERVERNAME);

		tmp = getenv("ipaddr");
		if (tmp)
			sprintf(&build_buf[strlen(build_buf)], "e=%s ", tmp);

		tmp = getenv("serverip");
		if (tmp)
			sprintf(&build_buf[strlen(build_buf)], "h=%s ", tmp);

		tmp = getenv("hostname");
		if (tmp)
			sprintf(&build_buf[strlen(build_buf)], "tn=%s ", tmp);

#ifdef CONFIG_SYS_VXWORKS_ADD_PARAMS
		sprintf(&build_buf[strlen(build_buf)],
			 CONFIG_SYS_VXWORKS_ADD_PARAMS);
#endif

		memcpy((void *)bootaddr, build_buf,
		       max(strlen(build_buf), (size_t)255));
		flush_cache(bootaddr, max(strlen(build_buf), (size_t)255));
	}

	/*
	 * If the data at the load address is an elf image, then
	 * treat it like an elf image. Otherwise, assume that it is a
	 * binary image
	 */

	if (valid_elf_image(addr)) {
		addr = load_elf_image_shdr(addr);
	} else {
		puts("## Not an ELF image, assuming binary\n");
		/* leave addr as load_addr */
	}

	printf("## Using bootline (@ 0x%lx): %s\n", bootaddr,
			(char *) bootaddr);
	printf("## Starting vxWorks at 0x%08lx ...\n", addr);

	dcache_disable();
	((void (*)(int)) addr) (0);

	puts("## vxWorks terminated\n");
	return 1;
}

/* ======================================================================
 * A very simple elf loader, assumes the image is valid, returns the
 * entry point address.
 * ====================================================================== */
static unsigned long load_elf_image_phdr(unsigned long addr)
{
	Elf32_Ehdr *ehdr;		/* Elf header structure pointer     */
	Elf32_Phdr *phdr;		/* Program header structure pointer */
	int i;

	ehdr = (Elf32_Ehdr *) addr;
	phdr = (Elf32_Phdr *) (addr + ehdr->e_phoff);

	/* Load each program header */
	for (i = 0; i < ehdr->e_phnum; ++i) {
		void *dst = (void *)(uintptr_t) phdr->p_paddr;
		void *src = (void *) addr + phdr->p_offset;
		debug("Loading phdr %i to 0x%p (%i bytes)\n",
			i, dst, phdr->p_filesz);
		if (phdr->p_filesz)
			memcpy(dst, src, phdr->p_filesz);
		if (phdr->p_filesz != phdr->p_memsz)
			memset(dst + phdr->p_filesz, 0x00,
				phdr->p_memsz - phdr->p_filesz);
		flush_cache((unsigned long)dst, phdr->p_filesz);
		++phdr;
	}

	return ehdr->e_entry;
}

static unsigned long load_elf_image_shdr(unsigned long addr)
{
	Elf32_Ehdr *ehdr;		/* Elf header structure pointer     */
	Elf32_Shdr *shdr;		/* Section header structure pointer */
	unsigned char *strtab = 0;	/* String table pointer             */
	unsigned char *image;		/* Binary image pointer             */
	int i;				/* Loop counter                     */

	/* -------------------------------------------------- */

	ehdr = (Elf32_Ehdr *) addr;

	/* Find the section header string table for output info */
	shdr = (Elf32_Shdr *) (addr + ehdr->e_shoff +
			       (ehdr->e_shstrndx * sizeof(Elf32_Shdr)));

	if (shdr->sh_type == SHT_STRTAB)
		strtab = (unsigned char *) (addr + shdr->sh_offset);

	/* Load each appropriate section */
	for (i = 0; i < ehdr->e_shnum; ++i) {
		shdr = (Elf32_Shdr *) (addr + ehdr->e_shoff +
				       (i * sizeof(Elf32_Shdr)));

		if (!(shdr->sh_flags & SHF_ALLOC)
		   || shdr->sh_addr == 0 || shdr->sh_size == 0) {
			continue;
		}

		if (strtab) {
			debug("%sing %s @ 0x%08lx (%ld bytes)\n",
				(shdr->sh_type == SHT_NOBITS) ?
					"Clear" : "Load",
				&strtab[shdr->sh_name],
				(unsigned long) shdr->sh_addr,
				(long) shdr->sh_size);
		}

		if (shdr->sh_type == SHT_NOBITS) {
			memset((void *)(uintptr_t) shdr->sh_addr, 0,
				shdr->sh_size);
		} else {
			image = (unsigned char *) addr + shdr->sh_offset;
			memcpy((void *)(uintptr_t) shdr->sh_addr,
				(const void *) image,
				shdr->sh_size);
		}
		flush_cache(shdr->sh_addr, shdr->sh_size);
	}

	return ehdr->e_entry;
}

/* ====================================================================== */
U_BOOT_CMD(
	bootelf,      3,      0,      do_bootelf,
	"Boot from an ELF image in memory",
	"[-p|-s] [address]\n"
	"\t- load ELF image at [address] via program headers (-p)\n"
	"\t  or via section headers (-s)"
);

U_BOOT_CMD(
	bootvx,      2,      0,      do_bootvx,
	"Boot vxWorks from an ELF image",
	" [address] - load address of vxWorks ELF image."
);
Commit	Line	Data
458ded34 WD	1	/*
	2	* Copyright (c) 2001 William L. Pitts
	3	* All rights reserved.
	4	*
	5	* Redistribution and use in source and binary forms are freely
	6	* permitted provided that the above copyright notice and this
	7	* paragraph and the following disclaimer are duplicated in all
	8	* such forms.
	9	*
	10	* This software is provided "AS IS" and without any express or
	11	* implied warranties, including, without limitation, the implied
	12	* warranties of merchantability and fitness for a particular
	13	* purpose.
	14	*/
	15
	16	#include <common.h>
73063c04	17	#include <bootm.h>
458ded34 WD	18	#include <command.h>
	19	#include <linux/ctype.h>
	20	#include <net.h>
458ded34	21	#include <elf.h>
29a4c24d	22	#include <vxworks.h>
458ded34	23
6d0f6bcf	24	#if defined(CONFIG_WALNUT) \|\| defined(CONFIG_SYS_VXWORKS_MAC_PTR)
d87080b7 WD	25	DECLARE_GLOBAL_DATA_PTR;
d87080b7 WD	26	#endif
458ded34	27
f44a928e MF	28	static unsigned long load_elf_image_phdr(unsigned long addr);
f44a928e MF	29	static unsigned long load_elf_image_shdr(unsigned long addr);
017e9b79 MF	30
017e9b79 MF	31	/* Allow ports to override the default behavior */
553d8c3a	32	static unsigned long do_bootelf_exec(ulong (entry)(int, char const[]),
54841ab5	33	int argc, char * const argv[])
1f1d88dd	34	{
017e9b79 MF	35	unsigned long ret;
017e9b79 MF	36
1f1d88dd MF	37	/*
	38	* QNX images require the data cache is disabled.
	39	* Data cache is already flushed, so just turn it off.
	40	*/
62e03d33	41	int dcache = dcache_status();
017e9b79	42	if (dcache)
62e03d33	43	dcache_disable();
1f1d88dd	44
017e9b79 MF	45	/*
	46	* pass address parameter as argv[0] (aka command name),
	47	* and all remaining args
	48	*/
62e03d33	49	ret = entry(argc, argv);
1f1d88dd	50
017e9b79	51	if (dcache)
62e03d33	52	dcache_enable();
017e9b79 MF	53
	54	return ret;
	55	}
458ded34	56
62e03d33 DS	57	/* ======================================================================
	58	* Determine if a valid ELF image exists at the given memory location.
	59	* First looks at the ELF header magic field, the makes sure that it is
	60	* executable and makes sure that it is for a PowerPC.
	61	* ====================================================================== */
	62	int valid_elf_image(unsigned long addr)
	63	{
	64	Elf32_Ehdr ehdr; / Elf header structure pointer */
	65
	66	/* -------------------------------------------------- */
	67
	68	ehdr = (Elf32_Ehdr *) addr;
	69
	70	if (!IS_ELF(*ehdr)) {
	71	printf("## No elf image at address 0x%08lx\n", addr);
	72	return 0;
	73	}
	74
	75	if (ehdr->e_type != ET_EXEC) {
	76	printf("## Not a 32-bit elf image at address 0x%08lx\n", addr);
	77	return 0;
	78	}
	79
	80	#if 0
	81	if (ehdr->e_machine != EM_PPC) {
	82	printf("## Not a PowerPC elf image at address 0x%08lx\n", addr);
	83	return 0;
	84	}
	85	#endif
	86
	87	return 1;
	88	}
	89
458ded34 WD	90	/* ======================================================================
	91	* Interpreter command to boot an arbitrary ELF image from memory.
	92	* ====================================================================== */
62e03d33	93	int do_bootelf(cmd_tbl_t cmdtp, int flag, int argc, char const argv[])
458ded34 WD	94	{
	95	unsigned long addr; /* Address of the ELF image */
	96	unsigned long rc; /* Return value from user code */
f44a928e	97	char sload, saddr;
44c8fd3a	98	const char *ep = getenv("autostart");
458ded34 WD	99
	100	/* -------------------------------------------------- */
	101	int rcode = 0;
	102
f44a928e MF	103	sload = saddr = NULL;
	104	if (argc == 3) {
	105	sload = argv[1];
	106	saddr = argv[2];
	107	} else if (argc == 2) {
	108	if (argv[1][0] == '-')
	109	sload = argv[1];
	110	else
	111	saddr = argv[1];
	112	}
	113
	114	if (saddr)
	115	addr = simple_strtoul(saddr, NULL, 16);
458ded34	116	else
f44a928e	117	addr = load_addr;
458ded34	118
62e03d33	119	if (!valid_elf_image(addr))
458ded34 WD	120	return 1;
458ded34 WD	121
f44a928e MF	122	if (sload && sload[1] == 'p')
	123	addr = load_elf_image_phdr(addr);
	124	else
	125	addr = load_elf_image_shdr(addr);
458ded34	126
44c8fd3a SDPP	127	if (ep && !strcmp(ep, "no"))
	128	return rcode;
	129
62e03d33	130	printf("## Starting application at 0x%08lx ...\n", addr);
458ded34	131
458ded34 WD	132	/*
	133	* pass address parameter as argv[0] (aka command name),
	134	* and all remaining args
	135	*/
62e03d33	136	rc = do_bootelf_exec((void *)addr, argc - 1, argv + 1);
458ded34 WD	137	if (rc != 0)
	138	rcode = 1;
	139
62e03d33	140	printf("## Application terminated, rc = 0x%lx\n", rc);
458ded34 WD	141	return rcode;
	142	}
	143
	144	/* ======================================================================
	145	* Interpreter command to boot VxWorks from a memory image. The image can
	146	* be either an ELF image or a raw binary. Will attempt to setup the
	147	* bootline and other parameters correctly.
	148	* ====================================================================== */
62e03d33	149	int do_bootvx(cmd_tbl_t cmdtp, int flag, int argc, char const argv[])
458ded34	150	{
458ded34	151	unsigned long addr; /* Address of image */
62e03d33	152	unsigned long bootaddr; /* Address to put the bootline */
458ded34 WD	153	char bootline; / Text of the bootline */
458ded34 WD	154	char tmp; / Temporary char pointer */
29a4c24d	155	char build_buf[128]; /* Buffer for building the bootline */
458ded34	156
29a4c24d NG	157	/* ---------------------------------------------------
29a4c24d NG	158	*
458ded34 WD	159	* Check the loadaddr variable.
	160	* If we don't know where the image is then we're done.
	161	*/
	162
07a1a0c9	163	if (argc < 2)
1bdd4683 SR	164	addr = load_addr;
1bdd4683 SR	165	else
07a1a0c9	166	addr = simple_strtoul(argv[1], NULL, 16);
458ded34	167
baa26db4	168	#if defined(CONFIG_CMD_NET)
62e03d33 DS	169	/*
	170	* Check to see if we need to tftp the image ourselves before starting
	171	*/
07a1a0c9	172	if ((argc == 2) && (strcmp(argv[1], "tftp") == 0)) {
e4bf0c5c	173	if (NetLoop(TFTPGET) <= 0)
458ded34	174	return 1;
62e03d33 DS	175	printf("Automatic boot of VxWorks image at address 0x%08lx ...\n",
62e03d33 DS	176	addr);
458ded34 WD	177	}
	178	#endif
	179
	180	/* This should equate
	181	* to NV_RAM_ADRS + NV_BOOT_OFFSET + NV_ENET_OFFSET
	182	* from the VxWorks BSP header files.
	183	* This will vary from board to board
	184	*/
	185
c157d8e2	186	#if defined(CONFIG_WALNUT)
6d0f6bcf	187	tmp = (char *) CONFIG_SYS_NVRAM_BASE_ADDR + 0x500;
76756e41	188	eth_getenv_enetaddr("ethaddr", (uchar *)build_buf);
62c93d92	189	memcpy(tmp, &build_buf[3], 3);
6d0f6bcf JCPV	190	#elif defined(CONFIG_SYS_VXWORKS_MAC_PTR)
6d0f6bcf JCPV	191	tmp = (char *) CONFIG_SYS_VXWORKS_MAC_PTR;
76756e41	192	eth_getenv_enetaddr("ethaddr", (uchar *)build_buf);
62c93d92	193	memcpy(tmp, build_buf, 6);
458ded34	194	#else
62e03d33	195	puts("## Ethernet MAC address not copied to NV RAM\n");
458ded34 WD	196	#endif
458ded34 WD	197
8bde7f77 WD	198	/*
	199	* Use bootaddr to find the location in memory that VxWorks
	200	* will look for the bootline string. The default value for
	201	* PowerPC is LOCAL_MEM_LOCAL_ADRS + BOOT_LINE_OFFSET which
	202	* defaults to 0x4200
458ded34	203	*/
62e03d33	204	tmp = getenv("bootaddr");
1b3e0b19	205	if (!tmp)
29a4c24d	206	bootaddr = CONFIG_SYS_VXWORKS_BOOT_ADDR;
458ded34	207	else
62e03d33	208	bootaddr = simple_strtoul(tmp, NULL, 16);
458ded34	209
8bde7f77 WD	210	/*
	211	* Check to see if the bootline is defined in the 'bootargs'
	212	* parameter. If it is not defined, we may be able to
	213	* construct the info
458ded34	214	*/
62e03d33 DS	215	bootline = getenv("bootargs");
62e03d33 DS	216	if (bootline) {
b4141195 MY	217	memcpy((void *)bootaddr, bootline,
	218	max(strlen(bootline), (size_t)255));
	219	flush_cache(bootaddr, max(strlen(bootline), (size_t)255));
458ded34	220	} else {
62e03d33 DS	221	sprintf(build_buf, CONFIG_SYS_VXWORKS_BOOT_DEVICE);
	222	tmp = getenv("bootfile");
	223	if (tmp)
	224	sprintf(&build_buf[strlen(build_buf)],
29a4c24d	225	"%s:%s ", CONFIG_SYS_VXWORKS_SERVERNAME, tmp);
62e03d33 DS	226	else
62e03d33 DS	227	sprintf(&build_buf[strlen(build_buf)],
29a4c24d	228	"%s:file ", CONFIG_SYS_VXWORKS_SERVERNAME);
458ded34	229
62e03d33 DS	230	tmp = getenv("ipaddr");
	231	if (tmp)
	232	sprintf(&build_buf[strlen(build_buf)], "e=%s ", tmp);
458ded34	233
62e03d33 DS	234	tmp = getenv("serverip");
	235	if (tmp)
	236	sprintf(&build_buf[strlen(build_buf)], "h=%s ", tmp);
	237
	238	tmp = getenv("hostname");
	239	if (tmp)
	240	sprintf(&build_buf[strlen(build_buf)], "tn=%s ", tmp);
458ded34	241
29a4c24d	242	#ifdef CONFIG_SYS_VXWORKS_ADD_PARAMS
62e03d33	243	sprintf(&build_buf[strlen(build_buf)],
29a4c24d	244	CONFIG_SYS_VXWORKS_ADD_PARAMS);
458ded34	245	#endif
29a4c24d	246
b4141195 MY	247	memcpy((void *)bootaddr, build_buf,
	248	max(strlen(build_buf), (size_t)255));
	249	flush_cache(bootaddr, max(strlen(build_buf), (size_t)255));
458ded34 WD	250	}
458ded34 WD	251
8bde7f77 WD	252	/*
	253	* If the data at the load address is an elf image, then
	254	* treat it like an elf image. Otherwise, assume that it is a
	255	* binary image
458ded34 WD	256	*/
458ded34 WD	257
62e03d33 DS	258	if (valid_elf_image(addr)) {
62e03d33 DS	259	addr = load_elf_image_shdr(addr);
458ded34	260	} else {
62e03d33	261	puts("## Not an ELF image, assuming binary\n");
458ded34 WD	262	/* leave addr as load_addr */
	263	}
	264
62e03d33	265	printf("## Using bootline (@ 0x%lx): %s\n", bootaddr,
458ded34	266	(char *) bootaddr);
62e03d33	267	printf("## Starting vxWorks at 0x%08lx ...\n", addr);
458ded34	268
6eee21da RA	269	dcache_disable();
6eee21da RA	270	((void (*)(int)) addr) (0);
458ded34	271
62e03d33	272	puts("## vxWorks terminated\n");
458ded34 WD	273	return 1;
	274	}
	275
458ded34 WD	276	/* ======================================================================
	277	* A very simple elf loader, assumes the image is valid, returns the
	278	* entry point address.
	279	* ====================================================================== */
f44a928e MF	280	static unsigned long load_elf_image_phdr(unsigned long addr)
	281	{
	282	Elf32_Ehdr ehdr; / Elf header structure pointer */
	283	Elf32_Phdr phdr; / Program header structure pointer */
	284	int i;
	285
	286	ehdr = (Elf32_Ehdr *) addr;
	287	phdr = (Elf32_Phdr *) (addr + ehdr->e_phoff);
	288
	289	/* Load each program header */
	290	for (i = 0; i < ehdr->e_phnum; ++i) {
b0d60a98	291	void dst = (void )(uintptr_t) phdr->p_paddr;
f44a928e MF	292	void src = (void ) addr + phdr->p_offset;
	293	debug("Loading phdr %i to 0x%p (%i bytes)\n",
	294	i, dst, phdr->p_filesz);
	295	if (phdr->p_filesz)
	296	memcpy(dst, src, phdr->p_filesz);
	297	if (phdr->p_filesz != phdr->p_memsz)
62e03d33 DS	298	memset(dst + phdr->p_filesz, 0x00,
62e03d33 DS	299	phdr->p_memsz - phdr->p_filesz);
f44a928e MF	300	flush_cache((unsigned long)dst, phdr->p_filesz);
	301	++phdr;
	302	}
	303
	304	return ehdr->e_entry;
	305	}
	306
	307	static unsigned long load_elf_image_shdr(unsigned long addr)
458ded34 WD	308	{
	309	Elf32_Ehdr ehdr; / Elf header structure pointer */
	310	Elf32_Shdr shdr; / Section header structure pointer */
	311	unsigned char strtab = 0; / String table pointer */
	312	unsigned char image; / Binary image pointer */
	313	int i; /* Loop counter */
	314
	315	/* -------------------------------------------------- */
	316
	317	ehdr = (Elf32_Ehdr *) addr;
	318
	319	/* Find the section header string table for output info */
	320	shdr = (Elf32_Shdr *) (addr + ehdr->e_shoff +
62e03d33	321	(ehdr->e_shstrndx * sizeof(Elf32_Shdr)));
458ded34 WD	322
	323	if (shdr->sh_type == SHT_STRTAB)
	324	strtab = (unsigned char *) (addr + shdr->sh_offset);
	325
	326	/* Load each appropriate section */
	327	for (i = 0; i < ehdr->e_shnum; ++i) {
	328	shdr = (Elf32_Shdr *) (addr + ehdr->e_shoff +
62e03d33	329	(i * sizeof(Elf32_Shdr)));
458ded34 WD	330
	331	if (!(shdr->sh_flags & SHF_ALLOC)
	332	\|\| shdr->sh_addr == 0 \|\| shdr->sh_size == 0) {
	333	continue;
	334	}
	335
	336	if (strtab) {
3c972849	337	debug("%sing %s @ 0x%08lx (%ld bytes)\n",
458ded34 WD	338	(shdr->sh_type == SHT_NOBITS) ?
	339	"Clear" : "Load",
	340	&strtab[shdr->sh_name],
	341	(unsigned long) shdr->sh_addr,
	342	(long) shdr->sh_size);
	343	}
	344
	345	if (shdr->sh_type == SHT_NOBITS) {
b0d60a98 DS	346	memset((void *)(uintptr_t) shdr->sh_addr, 0,
b0d60a98 DS	347	shdr->sh_size);
458ded34 WD	348	} else {
458ded34 WD	349	image = (unsigned char *) addr + shdr->sh_offset;
b0d60a98	350	memcpy((void *)(uintptr_t) shdr->sh_addr,
458ded34 WD	351	(const void *) image,
	352	shdr->sh_size);
	353	}
62e03d33	354	flush_cache(shdr->sh_addr, shdr->sh_size);
458ded34 WD	355	}
	356
	357	return ehdr->e_entry;
	358	}
	359
	360	/* ====================================================================== */
0d498393	361	U_BOOT_CMD(
f44a928e	362	bootelf, 3, 0, do_bootelf,
2fb2604d	363	"Boot from an ELF image in memory",
f44a928e MF	364	"[-p\|-s] [address]\n"
	365	"\t- load ELF image at [address] via program headers (-p)\n"
	366	"\t or via section headers (-s)"
8bde7f77 WD	367	);
8bde7f77 WD	368
0d498393 WD	369	U_BOOT_CMD(
0d498393 WD	370	bootvx, 2, 0, do_bootvx,
2fb2604d	371	"Boot vxWorks from an ELF image",
a89c33db	372	" [address] - load address of vxWorks ELF image."
8bde7f77	373	);