[new uImage] Move kernel data find code to get_kernel() routine
[oweals/u-boot.git] / common / cmd_bootm.c
index e61a30456abb6778efd55fb7b1f669369b08d6db..2ddb191033c4a16198d5b27a737c958bee988f74 100644 (file)
 #include <environment.h>
 #include <asm/byteorder.h>
 
-#if defined(CONFIG_OF_LIBFDT)
-#include <fdt.h>
-#include <libfdt.h>
-#include <fdt_support.h>
-#endif
-#if defined(CONFIG_OF_FLAT_TREE)
-#include <ft_build.h>
-#endif
-
-DECLARE_GLOBAL_DATA_PTR;
-
-/*cmd_boot.c*/
-extern int do_reset (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
-
 #if defined(CONFIG_TIMESTAMP) || defined(CONFIG_CMD_DATE)
 #include <rtc.h>
 #endif
@@ -62,17 +48,16 @@ extern int do_reset (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
 #include <dataflash.h>
 #endif
 
-/*
- * Some systems (for example LWMON) have very short watchdog periods;
- * we must make sure to split long operations like memmove() or
- * crc32() into reasonable chunks.
- */
-#define CHUNKSZ (64 * 1024)
+DECLARE_GLOBAL_DATA_PTR;
 
-int  gunzip (void *, int, unsigned char *, unsigned long *);
+extern int gunzip (void *dst, int dstlen, unsigned char *src, unsigned long *lenp);
+#ifndef CFG_BOOTM_LEN
+#define CFG_BOOTM_LEN  0x800000        /* use 8MByte as default max gunzip size */
+#endif
 
-static void *zalloc(void *, unsigned, unsigned);
-static void zfree(void *, void *, unsigned);
+#ifdef CONFIG_BZIP2
+extern void bz_internal_error(int);
+#endif
 
 #if defined(CONFIG_CMD_IMI)
 static int image_info (unsigned long addr);
@@ -84,12 +69,16 @@ extern flash_info_t flash_info[]; /* info for FLASH chips */
 static int do_imls (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
 #endif
 
-static void print_type (image_header_t *hdr);
-
-#ifdef __I386__
-image_header_t *fake_header(image_header_t *hdr, void *ptr, int size);
+#ifdef CONFIG_SILENT_CONSOLE
+static void fixup_silent_linux (void);
 #endif
 
+static void print_type (image_header_t *hdr);
+static image_header_t *get_kernel (cmd_tbl_t *cmdtp, int flag,
+               int argc, char *argv[], int verify,
+               ulong *os_data, ulong *os_len);
+extern int do_reset (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
+
 /*
  *  Continue booting an OS image; caller already has:
  *  - copied image header to global variable `header'
@@ -98,155 +87,54 @@ image_header_t *fake_header(image_header_t *hdr, void *ptr, int size);
  *  - loaded (first part of) image to header load address,
  *  - disabled interrupts.
  */
-typedef void boot_os_Fcn (cmd_tbl_t *cmdtp, int flag,
-                         int   argc, char *argv[],
-                         ulong addr,           /* of image to boot */
-                         ulong *len_ptr,       /* multi-file image length table */
-                         int   verify);        /* getenv("verify")[0] != 'n' */
-
-extern boot_os_Fcn do_bootm_linux;
-
-#ifdef CONFIG_SILENT_CONSOLE
-static void fixup_silent_linux (void);
-#endif
-static boot_os_Fcn do_bootm_netbsd;
-static boot_os_Fcn do_bootm_rtems;
+typedef void boot_os_fn (cmd_tbl_t *cmdtp, int flag,
+                       int argc, char *argv[],
+                       image_header_t *hdr,    /* of image to boot */
+                       int verify);            /* getenv("verify")[0] != 'n' */
+
+extern boot_os_fn do_bootm_linux;
+static boot_os_fn do_bootm_netbsd;
+#if defined(CONFIG_LYNXKDI)
+static boot_os_fn do_bootm_lynxkdi;
+extern void lynxkdi_boot (image_header_t *);
+#endif
+static boot_os_fn do_bootm_rtems;
 #if defined(CONFIG_CMD_ELF)
-static boot_os_Fcn do_bootm_vxworks;
-static boot_os_Fcn do_bootm_qnxelf;
-int do_bootvx ( cmd_tbl_t *cmdtp, int flag, int argc, char *argv[] );
-int do_bootelf (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[] );
+static boot_os_fn do_bootm_vxworks;
+static boot_os_fn do_bootm_qnxelf;
+int do_bootvx (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
+int do_bootelf (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
 #endif
 #if defined(CONFIG_ARTOS) && defined(CONFIG_PPC)
-static boot_os_Fcn do_bootm_artos;
-#endif
-#ifdef CONFIG_LYNXKDI
-static boot_os_Fcn do_bootm_lynxkdi;
-extern void lynxkdi_boot( image_header_t * );
-#endif
-
-#ifndef CFG_BOOTM_LEN
-#define CFG_BOOTM_LEN  0x800000        /* use 8MByte as default max gunzip size */
+extern uchar (*env_get_char)(int); /* Returns a character from the environment */
+static boot_os_fn do_bootm_artos;
 #endif
 
-image_header_t header;
+ulong load_addr = CFG_LOAD_ADDR;       /* Default Load Address */
 
-ulong load_addr = CFG_LOAD_ADDR;               /* Default Load Address */
 
+/*******************************************************************/
+/* bootm - boot application image from image in memory */
+/*******************************************************************/
 int do_bootm (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 {
-       ulong   iflag;
-       ulong   addr;
-       ulong   data, len;
-       ulong  *len_ptr;
-       uint    unc_len = CFG_BOOTM_LEN;
-       int     i, verify;
-       char    *name, *s;
-       int     (*appl)(int, char *[]);
-       image_header_t *hdr = &header;
-
-       verify = getenv_verify ();
-
-       if (argc < 2) {
-               addr = load_addr;
-       } else {
-               addr = simple_strtoul(argv[1], NULL, 16);
-       }
-
-       show_boot_progress (1);
-       printf ("## Booting image at %08lx ...\n", addr);
-
-       /* Copy header so we can blank CRC field for re-calculation */
-#ifdef CONFIG_HAS_DATAFLASH
-       if (addr_dataflash(addr)){
-               read_dataflash (addr, image_get_header_size (), (char *)&header);
-       } else
-#endif
-       memmove (&header, (char *)addr, image_get_header_size ());
-
-       if (!image_check_magic (hdr)) {
-#ifdef __I386__        /* correct image format not implemented yet - fake it */
-               if (fake_header(hdr, (void*)addr, -1) != NULL) {
-                       /* to compensate for the addition below */
-                       addr -= image_get_header_size ();
-                       /* turnof verify,
-                        * fake_header() does not fake the data crc
-                        */
-                       verify = 0;
-               } else
-#endif /* __I386__ */
-           {
-               puts ("Bad Magic Number\n");
-               show_boot_progress (-1);
-               return 1;
-           }
-       }
-       show_boot_progress (2);
-
-       if (!image_check_hcrc (hdr)) {
-               puts ("Bad Header Checksum\n");
-               show_boot_progress (-2);
-               return 1;
-       }
-       show_boot_progress (3);
-
-#ifdef CONFIG_HAS_DATAFLASH
-       if (addr_dataflash(addr)){
-               len  = image_get_image_size (hdr);
-               read_dataflash(addr, len, (char *)CFG_LOAD_ADDR);
-               addr = CFG_LOAD_ADDR;
-       }
-#endif
-
-
-       /* for multi-file images we need the data part, too */
-       print_image_hdr ((image_header_t *)addr);
+       ulong           iflag;
+       const char      *type_name;
+       uint            unc_len = CFG_BOOTM_LEN;
+       int             verify = getenv_verify();
 
-       len = image_get_data_size (hdr);
-       data = addr + image_get_header_size ();
-       len_ptr = (ulong *)data;
+       image_header_t  *hdr;
+       ulong           os_data, os_len;
 
-       if (verify) {
-               puts ("   Verifying Checksum ... ");
-               if (!image_check_dcrc ((image_header_t *)addr)) {
-                       printf ("Bad Data CRC\n");
-                       show_boot_progress (-3);
-                       return 1;
-               }
-               puts ("OK\n");
-       }
-       show_boot_progress (4);
+       ulong           image_start, image_end;
+       ulong           load_start, load_end;
 
-       if (!image_check_target_arch (hdr)) {
-               printf ("Unsupported Architecture 0x%x\n", image_get_arch (hdr));
-               show_boot_progress (-4);
+       /* get kernel image header, start address and length */
+       hdr = get_kernel (cmdtp, flag, argc, argv, verify,
+                       &os_data, &os_len);
+       if (hdr == NULL)
                return 1;
-       }
-       show_boot_progress (5);
 
-       switch (image_get_type (hdr)) {
-       case IH_TYPE_STANDALONE:
-               name = "Standalone Application";
-               /* A second argument overwrites the load address */
-               if (argc > 2) {
-                       image_set_load (hdr, simple_strtoul (argv[2], NULL, 16));
-               }
-               break;
-       case IH_TYPE_KERNEL:
-               name = "Kernel Image";
-               break;
-       case IH_TYPE_MULTI:
-               name = "Multi-File Image";
-               len  = image_to_cpu (len_ptr[0]);
-               /* OS kernel is always the first image */
-               data += 8; /* kernel_len + terminator */
-               for (i=1; len_ptr[i]; ++i)
-                       data += 4;
-               break;
-       default: printf ("Wrong Image Type for %s command\n", cmdtp->name);
-               show_boot_progress (-5);
-               return 1;
-       }
        show_boot_progress (6);
 
        /*
@@ -254,7 +142,6 @@ int do_bootm (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
         * overwrite all exception vector code, so we cannot easily
         * recover from any failures any more...
         */
-
        iflag = disable_interrupts();
 
 #ifdef CONFIG_AMIGAONEG3SE
@@ -268,56 +155,56 @@ int do_bootm (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
        dcache_disable();
 #endif
 
+       type_name = image_get_type_name (image_get_type (hdr));
+
+       image_start = (ulong)hdr;
+       image_end = image_get_image_end (hdr);
+       load_start = image_get_load (hdr);
+       load_end = 0;
+
        switch (image_get_comp (hdr)) {
        case IH_COMP_NONE:
-               if (image_get_load (hdr) == addr) {
-                       printf ("   XIP %s ... ", name);
+               if (image_get_load (hdr) == (ulong)hdr) {
+                       printf ("   XIP %s ... ", type_name);
                } else {
-#if defined(CONFIG_HW_WATCHDOG) || defined(CONFIG_WATCHDOG)
-                       size_t l = len;
-                       void *to = (void *)image_get_load (hdr);
-                       void *from = (void *)data;
-
-                       printf ("   Loading %s ... ", name);
-
-                       while (l > 0) {
-                               size_t tail = (l > CHUNKSZ) ? CHUNKSZ : l;
-                               WATCHDOG_RESET();
-                               memmove (to, from, tail);
-                               to += tail;
-                               from += tail;
-                               l -= tail;
-                       }
-#else  /* !(CONFIG_HW_WATCHDOG || CONFIG_WATCHDOG) */
-                       memmove ((void *)image_get_load (hdr), (uchar *)data, len);
-#endif /* CONFIG_HW_WATCHDOG || CONFIG_WATCHDOG */
+                       printf ("   Loading %s ... ", type_name);
+
+                       memmove_wd ((void *)image_get_load (hdr),
+                                  (void *)os_data, os_len, CHUNKSZ);
+
+                       load_end = load_start + os_len;
+                       puts("OK\n");
                }
                break;
        case IH_COMP_GZIP:
-               printf ("   Uncompressing %s ... ", name);
+               printf ("   Uncompressing %s ... ", type_name);
                if (gunzip ((void *)image_get_load (hdr), unc_len,
-                           (uchar *)data, &len) != 0) {
+                                       (uchar *)os_data, &os_len) != 0) {
                        puts ("GUNZIP ERROR - must RESET board to recover\n");
                        show_boot_progress (-6);
                        do_reset (cmdtp, flag, argc, argv);
                }
+
+               load_end = load_start + os_len;
                break;
 #ifdef CONFIG_BZIP2
        case IH_COMP_BZIP2:
-               printf ("   Uncompressing %s ... ", name);
+               printf ("   Uncompressing %s ... ", type_name);
                /*
                 * If we've got less than 4 MB of malloc() space,
                 * use slower decompression algorithm which requires
                 * at most 2300 KB of memory.
                 */
-               i = BZ2_bzBuffToBuffDecompress ((char*)image_get_load (hdr),
-                                               &unc_len, (char *)data, len,
-                                               CFG_MALLOC_LEN < (4096 * 1024), 0);
+               int i = BZ2_bzBuffToBuffDecompress ((char*)image_get_load (hdr),
+                                       &unc_len, (char *)os_data, os_len,
+                                       CFG_MALLOC_LEN < (4096 * 1024), 0);
                if (i != BZ_OK) {
                        printf ("BUNZIP2 ERROR %d - must RESET board to recover\n", i);
                        show_boot_progress (-6);
                        do_reset (cmdtp, flag, argc, argv);
                }
+
+               load_end = load_start + unc_len;
                break;
 #endif /* CONFIG_BZIP2 */
        default:
@@ -328,36 +215,17 @@ int do_bootm (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
                return 1;
        }
        puts ("OK\n");
+       debug ("   kernel loaded at 0x%08lx, end = 0x%08lx\n", load_start, load_end);
        show_boot_progress (7);
 
-       switch (image_get_type (hdr)) {
-       case IH_TYPE_STANDALONE:
-               if (iflag)
-                       enable_interrupts();
+       if ((load_start < image_end) && (load_end > image_start)) {
+               debug ("image_start = 0x%lX, image_end = 0x%lx\n", image_start, image_end);
+               debug ("load_start = 0x%lx, load_end = 0x%lx\n", load_start, load_end);
 
-               /* load (and uncompress), but don't start if "autostart"
-                * is set to "no"
-                */
-               if (((s = getenv("autostart")) != NULL) && (strcmp(s,"no") == 0)) {
-                       char buf[32];
-                       sprintf(buf, "%lX", len);
-                       setenv("filesize", buf);
-                       return 0;
-               }
-               appl = (int (*)(int, char *[]))image_get_ep (hdr);
-               (*appl)(argc-1, &argv[1]);
-               return 0;
-       case IH_TYPE_KERNEL:
-       case IH_TYPE_MULTI:
-               /* handled below */
-               break;
-       default:
-               if (iflag)
-                       enable_interrupts();
-               printf ("Can't boot image type %d\n", image_get_type (hdr));
-               show_boot_progress (-8);
-               return 1;
+               puts ("ERROR: image overwritten - must RESET the board to recover.\n");
+               do_reset (cmdtp, flag, argc, argv);
        }
+
        show_boot_progress (8);
 
        switch (image_get_os (hdr)) {
@@ -366,40 +234,36 @@ int do_bootm (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 #ifdef CONFIG_SILENT_CONSOLE
            fixup_silent_linux();
 #endif
-           do_bootm_linux  (cmdtp, flag, argc, argv,
-                            addr, len_ptr, verify);
+           do_bootm_linux (cmdtp, flag, argc, argv, hdr, verify);
            break;
+
        case IH_OS_NETBSD:
-           do_bootm_netbsd (cmdtp, flag, argc, argv,
-                            addr, len_ptr, verify);
+           do_bootm_netbsd (cmdtp, flag, argc, argv, hdr, verify);
            break;
 
 #ifdef CONFIG_LYNXKDI
        case IH_OS_LYNXOS:
-           do_bootm_lynxkdi (cmdtp, flag, argc, argv,
-                            addr, len_ptr, verify);
+           do_bootm_lynxkdi (cmdtp, flag, argc, argv, hdr, verify);
            break;
 #endif
 
        case IH_OS_RTEMS:
-           do_bootm_rtems (cmdtp, flag, argc, argv,
-                            addr, len_ptr, verify);
+           do_bootm_rtems (cmdtp, flag, argc, argv, hdr, verify);
            break;
 
 #if defined(CONFIG_CMD_ELF)
        case IH_OS_VXWORKS:
-           do_bootm_vxworks (cmdtp, flag, argc, argv,
-                             addr, len_ptr, verify);
+           do_bootm_vxworks (cmdtp, flag, argc, argv, hdr, verify);
            break;
+
        case IH_OS_QNX:
-           do_bootm_qnxelf (cmdtp, flag, argc, argv,
-                             addr, len_ptr, verify);
+           do_bootm_qnxelf (cmdtp, flag, argc, argv, hdr, verify);
            break;
 #endif
+
 #ifdef CONFIG_ARTOS
        case IH_OS_ARTOS:
-           do_bootm_artos  (cmdtp, flag, argc, argv,
-                            addr, len_ptr, verify);
+           do_bootm_artos (cmdtp, flag, argc, argv, hdr, verify);
            break;
 #endif
        }
@@ -412,266 +276,171 @@ int do_bootm (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
        return 1;
 }
 
-U_BOOT_CMD(
-       bootm,  CFG_MAXARGS,    1,      do_bootm,
-       "bootm   - boot application image from memory\n",
-       "[addr [arg ...]]\n    - boot application image stored in memory\n"
-       "\tpassing arguments 'arg ...'; when booting a Linux kernel,\n"
-       "\t'arg' can be the address of an initrd image\n"
-#if defined(CONFIG_OF_FLAT_TREE) || defined(CONFIG_OF_LIBFDT)
-       "\tWhen booting a Linux kernel which requires a flat device-tree\n"
-       "\ta third argument is required which is the address of the\n"
-       "\tdevice-tree blob. To boot that kernel without an initrd image,\n"
-       "\tuse a '-' for the second argument. If you do not pass a third\n"
-       "\ta bd_info struct will be passed instead\n"
-#endif
-);
-
-#ifdef CONFIG_SILENT_CONSOLE
-static void
-fixup_silent_linux ()
+/**
+ * get_kernel - find kernel image
+ * @os_data: pointer to a ulong variable, will hold os data start address
+ * @os_len: pointer to a ulong variable, will hold os data length
+ *
+ * get_kernel() tries to find a kernel image, verifies its integrity
+ * and locates kernel data.
+ *
+ * returns:
+ *     pointer to image header if valid image was found, plus kernel start
+ *     address and length, otherwise NULL
+ */
+static image_header_t *get_kernel (cmd_tbl_t *cmdtp, int flag,
+               int argc, char *argv[], int verify,
+               ulong *os_data, ulong *os_len)
 {
-       char buf[256], *start, *end;
-       char *cmdline = getenv ("bootargs");
-
-       /* Only fix cmdline when requested */
-       if (!(gd->flags & GD_FLG_SILENT))
-               return;
+       image_header_t  *hdr;
+       ulong           img_addr;
 
-       debug ("before silent fix-up: %s\n", cmdline);
-       if (cmdline) {
-               if ((start = strstr (cmdline, "console=")) != NULL) {
-                       end = strchr (start, ' ');
-                       strncpy (buf, cmdline, (start - cmdline + 8));
-                       if (end)
-                               strcpy (buf + (start - cmdline + 8), end);
-                       else
-                               buf[start - cmdline + 8] = '\0';
-               } else {
-                       strcpy (buf, cmdline);
-                       strcat (buf, " console=");
-               }
+       if (argc < 2) {
+               img_addr = load_addr;
        } else {
-               strcpy (buf, "console=");
+               img_addr = simple_strtoul(argv[1], NULL, 16);
        }
 
-       setenv ("bootargs", buf);
-       debug ("after silent fix-up: %s\n", buf);
-}
-#endif /* CONFIG_SILENT_CONSOLE */
-
-static void
-do_bootm_netbsd (cmd_tbl_t *cmdtp, int flag,
-               int     argc, char *argv[],
-               ulong   addr,
-               ulong   *len_ptr,
-               int     verify)
-{
-       image_header_t *hdr = &header;
-
-       void    (*loader)(bd_t *, image_header_t *, char *, char *);
-       image_header_t *img_addr;
-       char     *consdev;
-       char     *cmdline;
-
-
-       /*
-        * Booting a (NetBSD) kernel image
-        *
-        * This process is pretty similar to a standalone application:
-        * The (first part of an multi-) image must be a stage-2 loader,
-        * which in turn is responsible for loading & invoking the actual
-        * kernel.  The only differences are the parameters being passed:
-        * besides the board info strucure, the loader expects a command
-        * line, the name of the console device, and (optionally) the
-        * address of the original image header.
-        */
-
-       img_addr = 0;
-       if ((image_check_type (hdr, IH_TYPE_MULTI)) && (len_ptr[1]))
-               img_addr = (image_header_t *) addr;
-
+       show_boot_progress (1);
+       printf ("## Booting image at %08lx ...\n", img_addr);
 
-       consdev = "";
-#if   defined (CONFIG_8xx_CONS_SMC1)
-       consdev = "smc1";
-#elif defined (CONFIG_8xx_CONS_SMC2)
-       consdev = "smc2";
-#elif defined (CONFIG_8xx_CONS_SCC2)
-       consdev = "scc2";
-#elif defined (CONFIG_8xx_CONS_SCC3)
-       consdev = "scc3";
+#ifdef CONFIG_HAS_DATAFLASH
+       if (addr_dataflash (img_addr)){
+               hdr = (image_header_t *)CFG_LOAD_ADDR;
+               read_dataflash (img_addr, image_get_header_size (), (char *)hdr);
+       } else
 #endif
+       hdr = (image_header_t *)img_addr;
 
-       if (argc > 2) {
-               ulong len;
-               int   i;
-
-               for (i=2, len=0 ; i<argc ; i+=1)
-                       len += strlen (argv[i]) + 1;
-               cmdline = malloc (len);
-
-               for (i=2, len=0 ; i<argc ; i+=1) {
-                       if (i > 2)
-                               cmdline[len++] = ' ';
-                       strcpy (&cmdline[len], argv[i]);
-                       len += strlen (argv[i]);
-               }
-       } else if ((cmdline = getenv("bootargs")) == NULL) {
-               cmdline = "";
+       if (!image_check_magic(hdr)) {
+               puts ("Bad Magic Number\n");
+               show_boot_progress (-1);
+               return NULL;
        }
+       show_boot_progress (2);
 
-       loader = (void (*)(bd_t *, image_header_t *, char *, char *))image_get_ep (hdr);
-
-       printf ("## Transferring control to NetBSD stage-2 loader (at address %08lx) ...\n",
-               (ulong)loader);
-
-       show_boot_progress (15);
-
-       /*
-        * NetBSD Stage-2 Loader Parameters:
-        *   r3: ptr to board info data
-        *   r4: image address
-        *   r5: console device
-        *   r6: boot args string
-        */
-       (*loader) (gd->bd, img_addr, consdev, cmdline);
-}
-
-#if defined(CONFIG_ARTOS) && defined(CONFIG_PPC)
-
-/* Function that returns a character from the environment */
-extern uchar (*env_get_char)(int);
-
-static void
-do_bootm_artos (cmd_tbl_t *cmdtp, int flag,
-               int     argc, char *argv[],
-               ulong   addr,
-               ulong   *len_ptr,
-               int     verify)
-{
-       ulong top;
-       char *s, *cmdline;
-       char **fwenv, **ss;
-       int i, j, nxt, len, envno, envsz;
-       bd_t *kbd;
-       void (*entry)(bd_t *bd, char *cmdline, char **fwenv, ulong top);
-       image_header_t *hdr = &header;
-
-       /*
-        * Booting an ARTOS kernel image + application
-        */
+       if (!image_check_hcrc (hdr)) {
+               puts ("Bad Header Checksum\n");
+               show_boot_progress (-2);
+               return NULL;
+       }
+       show_boot_progress (3);
 
-       /* this used to be the top of memory, but was wrong... */
-#ifdef CONFIG_PPC
-       /* get stack pointer */
-       asm volatile ("mr %0,1" : "=r"(top) );
+#ifdef CONFIG_HAS_DATAFLASH
+       if (addr_dataflash (img_addr))
+               read_dataflash (img_addr + image_get_header_size (),
+                               image_get_data_size (hdr),
+                               (char *)image_get_data (hdr));
 #endif
-       debug ("## Current stack ends at 0x%08lX ", top);
-
-       top -= 2048;            /* just to be sure */
-       if (top > CFG_BOOTMAPSZ)
-               top = CFG_BOOTMAPSZ;
-       top &= ~0xF;
-
-       debug ("=> set upper limit to 0x%08lX\n", top);
-
-       /* first check the artos specific boot args, then the linux args*/
-       if ((s = getenv("abootargs")) == NULL && (s = getenv("bootargs")) == NULL)
-               s = "";
-
-       /* get length of cmdline, and place it */
-       len = strlen(s);
-       top = (top - (len + 1)) & ~0xF;
-       cmdline = (char *)top;
-       debug ("## cmdline at 0x%08lX ", top);
-       strcpy(cmdline, s);
 
-       /* copy bdinfo */
-       top = (top - sizeof(bd_t)) & ~0xF;
-       debug ("## bd at 0x%08lX ", top);
-       kbd = (bd_t *)top;
-       memcpy(kbd, gd->bd, sizeof(bd_t));
+       /* uImage is in a system RAM, pointed to by hdr */
+       print_image_hdr (hdr);
 
-       /* first find number of env entries, and their size */
-       envno = 0;
-       envsz = 0;
-       for (i = 0; env_get_char(i) != '\0'; i = nxt + 1) {
-               for (nxt = i; env_get_char(nxt) != '\0'; ++nxt)
-                       ;
-               envno++;
-               envsz += (nxt - i) + 1; /* plus trailing zero */
+       if (verify) {
+               puts ("   Verifying Checksum ... ");
+               if (!image_check_dcrc (hdr)) {
+                       printf ("Bad Data CRC\n");
+                       show_boot_progress (-3);
+                       return NULL;
+               }
+               puts ("OK\n");
        }
-       envno++;        /* plus the terminating zero */
-       debug ("## %u envvars total size %u ", envno, envsz);
-
-       top = (top - sizeof(char **)*envno) & ~0xF;
-       fwenv = (char **)top;
-       debug ("## fwenv at 0x%08lX ", top);
+       show_boot_progress (4);
 
-       top = (top - envsz) & ~0xF;
-       s = (char *)top;
-       ss = fwenv;
+       if (!image_check_target_arch (hdr)) {
+               printf ("Unsupported Architecture 0x%x\n", image_get_arch (hdr));
+               show_boot_progress (-4);
+               return NULL;
+       }
+       show_boot_progress (5);
 
-       /* now copy them */
-       for (i = 0; env_get_char(i) != '\0'; i = nxt + 1) {
-               for (nxt = i; env_get_char(nxt) != '\0'; ++nxt)
-                       ;
-               *ss++ = s;
-               for (j = i; j < nxt; ++j)
-                       *s++ = env_get_char(j);
-               *s++ = '\0';
+       switch (image_get_type (hdr)) {
+       case IH_TYPE_KERNEL:
+               *os_data = image_get_data (hdr);
+               *os_len = image_get_data_size (hdr);
+               break;
+       case IH_TYPE_MULTI:
+               image_multi_getimg (hdr, 0, os_data, os_len);
+               break;
+       default:
+               printf ("Wrong Image Type for %s command\n", cmdtp->name);
+               show_boot_progress (-5);
+               return NULL;
        }
-       *ss++ = NULL;   /* terminate */
+       debug ("   kernel data at 0x%08lx, end = 0x%08lx\n",
+                       *os_data, *os_data + *os_len);
 
-       entry = (void (*)(bd_t *, char *, char **, ulong))image_get_ep (hdr);
-       (*entry)(kbd, cmdline, fwenv, top);
+       return hdr;
 }
-#endif
 
+U_BOOT_CMD(
+       bootm,  CFG_MAXARGS,    1,      do_bootm,
+       "bootm   - boot application image from memory\n",
+       "[addr [arg ...]]\n    - boot application image stored in memory\n"
+       "\tpassing arguments 'arg ...'; when booting a Linux kernel,\n"
+       "\t'arg' can be the address of an initrd image\n"
+#if defined(CONFIG_OF_LIBFDT)
+       "\tWhen booting a Linux kernel which requires a flat device-tree\n"
+       "\ta third argument is required which is the address of the\n"
+       "\tdevice-tree blob. To boot that kernel without an initrd image,\n"
+       "\tuse a '-' for the second argument. If you do not pass a third\n"
+       "\ta bd_info struct will be passed instead\n"
+#endif
+);
 
+/*******************************************************************/
+/* bootd - boot default image */
+/*******************************************************************/
 #if defined(CONFIG_CMD_BOOTD)
 int do_bootd (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 {
        int rcode = 0;
+
 #ifndef CFG_HUSH_PARSER
-       if (run_command (getenv ("bootcmd"), flag) < 0) rcode = 1;
+       if (run_command (getenv ("bootcmd"), flag) < 0)
+               rcode = 1;
 #else
-       if (parse_string_outer(getenv("bootcmd"),
-               FLAG_PARSE_SEMICOLON | FLAG_EXIT_FROM_LOOP) != 0 ) rcode = 1;
+       if (parse_string_outer (getenv ("bootcmd"),
+                       FLAG_PARSE_SEMICOLON | FLAG_EXIT_FROM_LOOP) != 0)
+               rcode = 1;
 #endif
        return rcode;
 }
 
 U_BOOT_CMD(
-       boot,   1,      1,      do_bootd,
-       "boot    - boot default, i.e., run 'bootcmd'\n",
+       boot,   1,      1,      do_bootd,
+       "boot    - boot default, i.e., run 'bootcmd'\n",
        NULL
 );
 
 /* keep old command name "bootd" for backward compatibility */
 U_BOOT_CMD(
-       bootd, 1,       1,      do_bootd,
-       "bootd   - boot default, i.e., run 'bootcmd'\n",
+       bootd, 1,       1,      do_bootd,
+       "bootd   - boot default, i.e., run 'bootcmd'\n",
        NULL
 );
 
 #endif
 
+
+/*******************************************************************/
+/* iminfo - print header info for a requested image */
+/*******************************************************************/
 #if defined(CONFIG_CMD_IMI)
-int do_iminfo ( cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
+int do_iminfo (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 {
        int     arg;
        ulong   addr;
-       int     rcode=0;
+       int     rcode = 0;
 
        if (argc < 2) {
                return image_info (load_addr);
        }
 
-       for (arg=1; arg <argc; ++arg) {
-               addr = simple_strtoul(argv[arg], NULL, 16);
-               if (image_info (addr) != 0) rcode = 1;
+       for (arg = 1; arg < argc; ++arg) {
+               addr = simple_strtoul (argv[arg], NULL, 16);
+               if (image_info (addr) != 0)
+                       rcode = 1;
        }
        return rcode;
 }
@@ -711,23 +480,25 @@ U_BOOT_CMD(
        "      address 'addr' in memory; this includes verification of the\n"
        "      image contents (magic number, header and payload checksums)\n"
 );
-
 #endif
 
+
+/*******************************************************************/
+/* imls - list all images found in flash */
+/*******************************************************************/
 #if defined(CONFIG_CMD_IMLS)
-/*-----------------------------------------------------------------------
- * List all images found in flash.
- */
 int do_imls (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 {
        flash_info_t *info;
        int i, j;
        image_header_t *hdr;
 
-       for (i=0, info=&flash_info[0]; i<CFG_MAX_FLASH_BANKS; ++i, ++info) {
+       for (i = 0, info = &flash_info[0];
+               i < CFG_MAX_FLASH_BANKS; ++i, ++info) {
+
                if (info->flash_id == FLASH_UNKNOWN)
                        goto next_bank;
-               for (j=0; j<info->sector_count; ++j) {
+               for (j = 0; j < info->sector_count; ++j) {
 
                        hdr = (image_header_t *)info->start[j];
 
@@ -763,8 +534,10 @@ U_BOOT_CMD(
 );
 #endif
 
-void
-print_image_hdr (image_header_t *hdr)
+/*******************************************************************/
+/* helper routines */
+/*******************************************************************/
+void print_image_hdr (image_header_t *hdr)
 {
 #if defined(CONFIG_TIMESTAMP) || defined(CONFIG_CMD_DATE)
        time_t timestamp = (time_t)image_get_time (hdr);
@@ -772,13 +545,16 @@ print_image_hdr (image_header_t *hdr)
 #endif
 
        printf ("   Image Name:   %.*s\n", IH_NMLEN, image_get_name (hdr));
+
 #if defined(CONFIG_TIMESTAMP) || defined(CONFIG_CMD_DATE)
        to_tm (timestamp, &tm);
        printf ("   Created:      %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);
 #endif
-       puts ("   Image Type:   "); print_type(hdr);
+       puts ("   Image Type:   ");
+       print_type (hdr);
+
        printf ("\n   Data Size:    %d Bytes = ", image_get_data_size (hdr));
        print_size (image_get_data_size (hdr), "\n");
        printf ("   Load Address: %08x\n"
@@ -787,179 +563,156 @@ print_image_hdr (image_header_t *hdr)
 
        if (image_check_type (hdr, IH_TYPE_MULTI)) {
                int i;
-               ulong len;
-               ulong *len_ptr = (ulong *)((ulong)hdr + image_get_header_size ());
+               ulong data, len;
+               ulong count = image_multi_count (hdr);
 
                puts ("   Contents:\n");
-               for (i=0; (len = image_to_cpu (*len_ptr)); ++i, ++len_ptr) {
+               for (i = 0; i < count; i++) {
+                       image_multi_getimg (hdr, i, &data, &len);
                        printf ("   Image %d: %8ld Bytes = ", i, len);
                        print_size (len, "\n");
                }
        }
 }
 
-
-static void
-print_type (image_header_t *hdr)
+static void print_type (image_header_t *hdr)
 {
-       char *os, *arch, *type, *comp;
+       const char *os, *arch, *type, *comp;
 
-       switch (image_get_os (hdr)) {
-       case IH_OS_INVALID:     os = "Invalid OS";              break;
-       case IH_OS_NETBSD:      os = "NetBSD";                  break;
-       case IH_OS_LINUX:       os = "Linux";                   break;
-       case IH_OS_VXWORKS:     os = "VxWorks";                 break;
-       case IH_OS_QNX:         os = "QNX";                     break;
-       case IH_OS_U_BOOT:      os = "U-Boot";                  break;
-       case IH_OS_RTEMS:       os = "RTEMS";                   break;
-#ifdef CONFIG_ARTOS
-       case IH_OS_ARTOS:       os = "ARTOS";                   break;
-#endif
-#ifdef CONFIG_LYNXKDI
-       case IH_OS_LYNXOS:      os = "LynxOS";                  break;
-#endif
-       default:                os = "Unknown OS";              break;
-       }
+       os = image_get_os_name (image_get_os (hdr));
+       arch = image_get_arch_name (image_get_arch (hdr));
+       type = image_get_type_name (image_get_type (hdr));
+       comp = image_get_comp_name (image_get_comp (hdr));
 
-       switch (image_get_arch (hdr)) {
-       case IH_ARCH_INVALID:   arch = "Invalid CPU";           break;
-       case IH_ARCH_ALPHA:     arch = "Alpha";                 break;
-       case IH_ARCH_ARM:       arch = "ARM";                   break;
-       case IH_ARCH_AVR32:     arch = "AVR32";                 break;
-       case IH_ARCH_BLACKFIN:  arch = "Blackfin";              break;
-       case IH_ARCH_I386:      arch = "Intel x86";             break;
-       case IH_ARCH_IA64:      arch = "IA64";                  break;
-       case IH_ARCH_M68K:      arch = "M68K";                  break;
-       case IH_ARCH_MICROBLAZE:arch = "Microblaze";            break;
-       case IH_ARCH_MIPS64:    arch = "MIPS 64 Bit";           break;
-       case IH_ARCH_MIPS:      arch = "MIPS";                  break;
-       case IH_ARCH_NIOS2:     arch = "Nios-II";               break;
-       case IH_ARCH_NIOS:      arch = "Nios";                  break;
-       case IH_ARCH_PPC:       arch = "PowerPC";               break;
-       case IH_ARCH_S390:      arch = "IBM S390";              break;
-       case IH_ARCH_SH:        arch = "SuperH";                break;
-       case IH_ARCH_SPARC64:   arch = "SPARC 64 Bit";          break;
-       case IH_ARCH_SPARC:     arch = "SPARC";                 break;
-       default:                arch = "Unknown Architecture";  break;
-       }
+       printf ("%s %s %s (%s)", arch, os, type, comp);
+}
 
-       switch (image_get_type (hdr)) {
-       case IH_TYPE_INVALID:   type = "Invalid Image";         break;
-       case IH_TYPE_STANDALONE:type = "Standalone Program";    break;
-       case IH_TYPE_KERNEL:    type = "Kernel Image";          break;
-       case IH_TYPE_RAMDISK:   type = "RAMDisk Image";         break;
-       case IH_TYPE_MULTI:     type = "Multi-File Image";      break;
-       case IH_TYPE_FIRMWARE:  type = "Firmware";              break;
-       case IH_TYPE_SCRIPT:    type = "Script";                break;
-       case IH_TYPE_FLATDT:    type = "Flat Device Tree";      break;
-       default:                type = "Unknown Image";         break;
-       }
+#ifdef CONFIG_SILENT_CONSOLE
+static void fixup_silent_linux ()
+{
+       char buf[256], *start, *end;
+       char *cmdline = getenv ("bootargs");
 
-       switch (image_get_comp (hdr)) {
-       case IH_COMP_NONE:      comp = "uncompressed";          break;
-       case IH_COMP_GZIP:      comp = "gzip compressed";       break;
-       case IH_COMP_BZIP2:     comp = "bzip2 compressed";      break;
-       default:                comp = "unknown compression";   break;
+       /* Only fix cmdline when requested */
+       if (!(gd->flags & GD_FLG_SILENT))
+               return;
+
+       debug ("before silent fix-up: %s\n", cmdline);
+       if (cmdline) {
+               if ((start = strstr (cmdline, "console=")) != NULL) {
+                       end = strchr (start, ' ');
+                       strncpy (buf, cmdline, (start - cmdline + 8));
+                       if (end)
+                               strcpy (buf + (start - cmdline + 8), end);
+                       else
+                               buf[start - cmdline + 8] = '\0';
+               } else {
+                       strcpy (buf, cmdline);
+                       strcat (buf, " console=");
+               }
+       } else {
+               strcpy (buf, "console=");
        }
 
-       printf ("%s %s %s (%s)", arch, os, type, comp);
+       setenv ("bootargs", buf);
+       debug ("after silent fix-up: %s\n", buf);
 }
+#endif /* CONFIG_SILENT_CONSOLE */
 
-#define        ZALLOC_ALIGNMENT        16
 
-static void *zalloc(void *x, unsigned items, unsigned size)
-{
-       void *p;
+/*******************************************************************/
+/* OS booting routines */
+/*******************************************************************/
 
-       size *= items;
-       size = (size + ZALLOC_ALIGNMENT - 1) & ~(ZALLOC_ALIGNMENT - 1);
+static void do_bootm_netbsd (cmd_tbl_t *cmdtp, int flag,
+                           int argc, char *argv[],
+                           image_header_t *hdr, int verify)
+{
+       void (*loader)(bd_t *, image_header_t *, char *, char *);
+       image_header_t *img_addr;
+       ulong kernel_data, kernel_len;
+       char *consdev;
+       char *cmdline;
 
-       p = malloc (size);
+       /*
+        * Booting a (NetBSD) kernel image
+        *
+        * This process is pretty similar to a standalone application:
+        * The (first part of an multi-) image must be a stage-2 loader,
+        * which in turn is responsible for loading & invoking the actual
+        * kernel.  The only differences are the parameters being passed:
+        * besides the board info strucure, the loader expects a command
+        * line, the name of the console device, and (optionally) the
+        * address of the original image header.
+        */
 
-       return (p);
-}
+       img_addr = 0;
+       if (image_check_type (hdr, IH_TYPE_MULTI)) {
+               image_multi_getimg (hdr, 1, &kernel_data, &kernel_len);
+               if (kernel_len)
+                       img_addr = hdr;
+       }
 
-static void zfree(void *x, void *addr, unsigned nb)
-{
-       free (addr);
-}
+       consdev = "";
+#if   defined (CONFIG_8xx_CONS_SMC1)
+       consdev = "smc1";
+#elif defined (CONFIG_8xx_CONS_SMC2)
+       consdev = "smc2";
+#elif defined (CONFIG_8xx_CONS_SCC2)
+       consdev = "scc2";
+#elif defined (CONFIG_8xx_CONS_SCC3)
+       consdev = "scc3";
+#endif
 
-#define HEAD_CRC       2
-#define EXTRA_FIELD    4
-#define ORIG_NAME      8
-#define COMMENT                0x10
-#define RESERVED       0xe0
+       if (argc > 2) {
+               ulong len;
+               int   i;
 
-#define DEFLATED       8
+               for (i = 2, len = 0; i < argc; i += 1)
+                       len += strlen (argv[i]) + 1;
+               cmdline = malloc (len);
 
-int gunzip(void *dst, int dstlen, unsigned char *src, unsigned long *lenp)
-{
-       z_stream s;
-       int r, i, flags;
-
-       /* skip header */
-       i = 10;
-       flags = src[3];
-       if (src[2] != DEFLATED || (flags & RESERVED) != 0) {
-               puts ("Error: Bad gzipped data\n");
-               return (-1);
-       }
-       if ((flags & EXTRA_FIELD) != 0)
-               i = 12 + src[10] + (src[11] << 8);
-       if ((flags & ORIG_NAME) != 0)
-               while (src[i++] != 0)
-                       ;
-       if ((flags & COMMENT) != 0)
-               while (src[i++] != 0)
-                       ;
-       if ((flags & HEAD_CRC) != 0)
-               i += 2;
-       if (i >= *lenp) {
-               puts ("Error: gunzip out of data in header\n");
-               return (-1);
+               for (i = 2, len = 0; i < argc; i += 1) {
+                       if (i > 2)
+                               cmdline[len++] = ' ';
+                       strcpy (&cmdline[len], argv[i]);
+                       len += strlen (argv[i]);
+               }
+       } else if ((cmdline = getenv ("bootargs")) == NULL) {
+               cmdline = "";
        }
 
-       s.zalloc = zalloc;
-       s.zfree = zfree;
-#if defined(CONFIG_HW_WATCHDOG) || defined(CONFIG_WATCHDOG)
-       s.outcb = (cb_func)WATCHDOG_RESET;
-#else
-       s.outcb = Z_NULL;
-#endif /* CONFIG_HW_WATCHDOG */
+       loader = (void (*)(bd_t *, image_header_t *, char *, char *))image_get_ep (hdr);
 
-       r = inflateInit2(&s, -MAX_WBITS);
-       if (r != Z_OK) {
-               printf ("Error: inflateInit2() returned %d\n", r);
-               return (-1);
-       }
-       s.next_in = src + i;
-       s.avail_in = *lenp - i;
-       s.next_out = dst;
-       s.avail_out = dstlen;
-       r = inflate(&s, Z_FINISH);
-       if (r != Z_OK && r != Z_STREAM_END) {
-               printf ("Error: inflate() returned %d\n", r);
-               return (-1);
-       }
-       *lenp = s.next_out - (unsigned char *) dst;
-       inflateEnd(&s);
+       printf ("## Transferring control to NetBSD stage-2 loader (at address %08lx) ...\n",
+               (ulong)loader);
 
-       return (0);
+       show_boot_progress (15);
+
+       /*
+        * NetBSD Stage-2 Loader Parameters:
+        *   r3: ptr to board info data
+        *   r4: image address
+        *   r5: console device
+        *   r6: boot args string
+        */
+       (*loader) (gd->bd, img_addr, consdev, cmdline);
 }
 
-#ifdef CONFIG_BZIP2
-void bz_internal_error(int errcode)
+#ifdef CONFIG_LYNXKDI
+static void do_bootm_lynxkdi (cmd_tbl_t *cmdtp, int flag,
+                            int argc, char *argv[],
+                            image_header_t *hdr, int verify)
 {
-       printf ("BZIP2 internal error %d\n", errcode);
+       lynxkdi_boot (hdr);
 }
-#endif /* CONFIG_BZIP2 */
+#endif /* CONFIG_LYNXKDI */
 
-static void
-do_bootm_rtems (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[],
-               ulong addr, ulong *len_ptr, int verify)
+static void do_bootm_rtems (cmd_tbl_t *cmdtp, int flag,
+                          int argc, char *argv[],
+                          image_header_t *hdr, int verify)
 {
-       image_header_t *hdr = &header;
-       void    (*entry_point)(bd_t *);
+       void (*entry_point)(bd_t *);
 
        entry_point = (void (*)(bd_t *))image_get_ep (hdr);
 
@@ -972,16 +725,14 @@ do_bootm_rtems (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[],
         * RTEMS Parameters:
         *   r3: ptr to board info data
         */
-
-       (*entry_point ) ( gd->bd );
+       (*entry_point)(gd->bd);
 }
 
 #if defined(CONFIG_CMD_ELF)
-static void
-do_bootm_vxworks (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[],
-                 ulong addr, ulong *len_ptr, int verify)
+static void do_bootm_vxworks (cmd_tbl_t *cmdtp, int flag,
+                            int argc, char *argv[],
+                            image_header_t *hdr, int verify)
 {
-       image_header_t *hdr = &header;
        char str[80];
 
        sprintf(str, "%x", image_get_ep (hdr)); /* write entry-point into string */
@@ -989,11 +740,10 @@ do_bootm_vxworks (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[],
        do_bootvx(cmdtp, 0, 0, NULL);
 }
 
-static void
-do_bootm_qnxelf (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[],
-                ulong addr, ulong *len_ptr, int verify)
+static void do_bootm_qnxelf(cmd_tbl_t *cmdtp, int flag,
+                           int argc, char *argv[],
+                           image_header_t *hdr, int verify)
 {
-       image_header_t *hdr = &header;
        char *local_args[2];
        char str[16];
 
@@ -1004,15 +754,85 @@ do_bootm_qnxelf (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[],
 }
 #endif
 
-#ifdef CONFIG_LYNXKDI
-static void
-do_bootm_lynxkdi (cmd_tbl_t *cmdtp, int flag,
-                int    argc, char *argv[],
-                ulong  addr,
-                ulong  *len_ptr,
-                int    verify)
+#if defined(CONFIG_ARTOS) && defined(CONFIG_PPC)
+static void do_bootm_artos (cmd_tbl_t *cmdtp, int flag,
+                          int argc, char *argv[],
+                          image_header_t *hdr, int verify)
 {
-       lynxkdi_boot( &header );
-}
+       ulong top;
+       char *s, *cmdline;
+       char **fwenv, **ss;
+       int i, j, nxt, len, envno, envsz;
+       bd_t *kbd;
+       void (*entry)(bd_t *bd, char *cmdline, char **fwenv, ulong top);
 
-#endif /* CONFIG_LYNXKDI */
+       /*
+        * Booting an ARTOS kernel image + application
+        */
+
+       /* this used to be the top of memory, but was wrong... */
+#ifdef CONFIG_PPC
+       /* get stack pointer */
+       asm volatile ("mr %0,1" : "=r"(top) );
+#endif
+       debug ("## Current stack ends at 0x%08lX ", top);
+
+       top -= 2048;            /* just to be sure */
+       if (top > CFG_BOOTMAPSZ)
+               top = CFG_BOOTMAPSZ;
+       top &= ~0xF;
+
+       debug ("=> set upper limit to 0x%08lX\n", top);
+
+       /* first check the artos specific boot args, then the linux args*/
+       if ((s = getenv( "abootargs")) == NULL && (s = getenv ("bootargs")) == NULL)
+               s = "";
+
+       /* get length of cmdline, and place it */
+       len = strlen (s);
+       top = (top - (len + 1)) & ~0xF;
+       cmdline = (char *)top;
+       debug ("## cmdline at 0x%08lX ", top);
+       strcpy (cmdline, s);
+
+       /* copy bdinfo */
+       top = (top - sizeof (bd_t)) & ~0xF;
+       debug ("## bd at 0x%08lX ", top);
+       kbd = (bd_t *)top;
+       memcpy (kbd, gd->bd, sizeof (bd_t));
+
+       /* first find number of env entries, and their size */
+       envno = 0;
+       envsz = 0;
+       for (i = 0; env_get_char (i) != '\0'; i = nxt + 1) {
+               for (nxt = i; env_get_char (nxt) != '\0'; ++nxt)
+                       ;
+               envno++;
+               envsz += (nxt - i) + 1; /* plus trailing zero */
+       }
+       envno++;        /* plus the terminating zero */
+       debug ("## %u envvars total size %u ", envno, envsz);
+
+       top = (top - sizeof (char **) * envno) & ~0xF;
+       fwenv = (char **)top;
+       debug ("## fwenv at 0x%08lX ", top);
+
+       top = (top - envsz) & ~0xF;
+       s = (char *)top;
+       ss = fwenv;
+
+       /* now copy them */
+       for (i = 0; env_get_char (i) != '\0'; i = nxt + 1) {
+               for (nxt = i; env_get_char (nxt) != '\0'; ++nxt)
+                       ;
+               *ss++ = s;
+               for (j = i; j < nxt; ++j)
+                       *s++ = env_get_char (j);
+               *s++ = '\0';
+       }
+       *ss++ = NULL;   /* terminate */
+
+       entry = (void (*)(bd_t *, char *, char **, ulong))image_get_ep (hdr);
+       (*entry) (kbd, cmdline, fwenv, top);
+}
+#endif