common/image.c

   1 /*
   2  * (C) Copyright 2008 Semihalf
   3  *
   4  * (C) Copyright 2000-2006
   5  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
   6  *
   7  * See file CREDITS for list of people who contributed to this
   8  * project.
   9  *
  10  * This program is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU General Public License as
  12  * published by the Free Software Foundation; either version 2 of
  13  * the License, or (at your option) any later version.
  14  *
  15  * This program is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18  * GNU General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU General Public License
  21  * along with this program; if not, write to the Free Software
  22  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  23  * MA 02111-1307 USA
  24  */
  25
  26 #define DEBUG
  27
  28 #ifndef USE_HOSTCC
  29 #include <common.h>
  30 #include <watchdog.h>
  31
  32 #ifdef CONFIG_SHOW_BOOT_PROGRESS
  33 #include <status_led.h>
  34 #endif
  35
  36 #ifdef CONFIG_HAS_DATAFLASH
  37 #include <dataflash.h>
  38 #endif
  39
  40 #ifdef CONFIG_LOGBUFFER
  41 #include <logbuff.h>
  42 #endif
  43
  44 #if defined(CONFIG_TIMESTAMP) || defined(CONFIG_CMD_DATE)
  45 #include <rtc.h>
  46 #endif
  47
  48 #if defined(CONFIG_FIT)
  49 #include <fdt.h>
  50 #include <libfdt.h>
  51 #include <fdt_support.h>
  52 #endif
  53
  54 #ifdef CONFIG_CMD_BDI
  55 extern int do_bdinfo(cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
  56 #endif
  57
  58 DECLARE_GLOBAL_DATA_PTR;
  59
  60 static image_header_t* image_get_ramdisk (cmd_tbl_t *cmdtp, int flag,
  61                 int argc, char *argv[],
  62                 ulong rd_addr, uint8_t arch, int verify);
  63 #else
  64 #include "mkimage.h"
  65 #endif /* USE_HOSTCC*/
  66
  67 #include <image.h>
  68
  69 unsigned long crc32 (unsigned long, const unsigned char *, unsigned int);
  70
  71 /*****************************************************************************/
  72 /* Legacy format routines */
  73 /*****************************************************************************/
  74 int image_check_hcrc (image_header_t *hdr)
  75 {
  76         ulong hcrc;
  77         ulong len = image_get_header_size ();
  78         image_header_t header;
  79
  80         /* Copy header so we can blank CRC field for re-calculation */
  81         memmove (&header, (char *)hdr, image_get_header_size ());
  82         image_set_hcrc (&header, 0);
  83
  84         hcrc = crc32 (0, (unsigned char *)&header, len);
  85
  86         return (hcrc == image_get_hcrc (hdr));
  87 }
  88
  89 int image_check_dcrc (image_header_t *hdr)
  90 {
  91         ulong data = image_get_data (hdr);
  92         ulong len = image_get_data_size (hdr);
  93         ulong dcrc = crc32 (0, (unsigned char *)data, len);
  94
  95         return (dcrc == image_get_dcrc (hdr));
  96 }
  97
  98 #ifndef USE_HOSTCC
  99 int image_check_dcrc_wd (image_header_t *hdr, ulong chunksz)
 100 {
 101         ulong dcrc = 0;
 102         ulong len = image_get_data_size (hdr);
 103         ulong data = image_get_data (hdr);
 104
 105 #if defined(CONFIG_HW_WATCHDOG) || defined(CONFIG_WATCHDOG)
 106         ulong cdata = data;
 107         ulong edata = cdata + len;
 108
 109         while (cdata < edata) {
 110                 ulong chunk = edata - cdata;
 111
 112                 if (chunk > chunksz)
 113                         chunk = chunksz;
 114                 dcrc = crc32 (dcrc, (unsigned char *)cdata, chunk);
 115                 cdata += chunk;
 116
 117                 WATCHDOG_RESET ();
 118         }
 119 #else
 120         dcrc = crc32 (0, (unsigned char *)data, len);
 121 #endif
 122
 123         return (dcrc == image_get_dcrc (hdr));
 124 }
 125
 126 /**
 127  * image_multi_count - get component (sub-image) count
 128  * @hdr: pointer to the header of the multi component image
 129  *
 130  * image_multi_count() returns number of components in a multi
 131  * component image.
 132  *
 133  * Note: no checking of the image type is done, caller must pass
 134  * a valid multi component image.
 135  *
 136  * returns:
 137  *     number of components
 138  */
 139 ulong image_multi_count (image_header_t *hdr)
 140 {
 141         ulong i, count = 0;
 142         ulong *size;
 143
 144         /* get start of the image payload, which in case of multi
 145          * component images that points to a table of component sizes */
 146         size = (ulong *)image_get_data (hdr);
 147
 148         /* count non empty slots */
 149         for (i = 0; size[i]; ++i)
 150                 count++;
 151
 152         return count;
 153 }
 154
 155 /**
 156  * image_multi_getimg - get component data address and size
 157  * @hdr: pointer to the header of the multi component image
 158  * @idx: index of the requested component
 159  * @data: pointer to a ulong variable, will hold component data address
 160  * @len: pointer to a ulong variable, will hold component size
 161  *
 162  * image_multi_getimg() returns size and data address for the requested
 163  * component in a multi component image.
 164  *
 165  * Note: no checking of the image type is done, caller must pass
 166  * a valid multi component image.
 167  *
 168  * returns:
 169  *     data address and size of the component, if idx is valid
 170  *     0 in data and len, if idx is out of range
 171  */
 172 void image_multi_getimg (image_header_t *hdr, ulong idx,
 173                         ulong *data, ulong *len)
 174 {
 175         int i;
 176         ulong *size;
 177         ulong offset, tail, count, img_data;
 178
 179         /* get number of component */
 180         count = image_multi_count (hdr);
 181
 182         /* get start of the image payload, which in case of multi
 183          * component images that points to a table of component sizes */
 184         size = (ulong *)image_get_data (hdr);
 185
 186         /* get address of the proper component data start, which means
 187          * skipping sizes table (add 1 for last, null entry) */
 188         img_data = image_get_data (hdr) + (count + 1) * sizeof (ulong);
 189
 190         if (idx < count) {
 191                 *len = size[idx];
 192                 offset = 0;
 193                 tail = 0;
 194
 195                 /* go over all indices preceding requested component idx */
 196                 for (i = 0; i < idx; i++) {
 197                         /* add up i-th component size */
 198                         offset += size[i];
 199
 200                         /* add up alignment for i-th component */
 201                         tail += (4 - size[i] % 4);
 202                 }
 203
 204                 /* calculate idx-th component data address */
 205                 *data = img_data + offset + tail;
 206         } else {
 207                 *len = 0;
 208                 *data = 0;
 209         }
 210 }
 211
 212 #ifndef USE_HOSTCC
 213 static void image_print_type (image_header_t *hdr)
 214 {
 215         const char *os, *arch, *type, *comp;
 216
 217         os = genimg_get_os_name (image_get_os (hdr));
 218         arch = genimg_get_arch_name (image_get_arch (hdr));
 219         type = genimg_get_type_name (image_get_type (hdr));
 220         comp = genimg_get_comp_name (image_get_comp (hdr));
 221
 222         printf ("%s %s %s (%s)", arch, os, type, comp);
 223 }
 224
 225 void image_print_contents (image_header_t *hdr)
 226 {
 227 #if defined(CONFIG_TIMESTAMP) || defined(CONFIG_CMD_DATE)
 228         time_t timestamp = (time_t)image_get_time (hdr);
 229         struct rtc_time tm;
 230 #endif
 231
 232         printf ("   Image Name:   %.*s\n", IH_NMLEN, image_get_name (hdr));
 233
 234 #if defined(CONFIG_TIMESTAMP) || defined(CONFIG_CMD_DATE)
 235         to_tm (timestamp, &tm);
 236         printf ("   Created:      %4d-%02d-%02d  %2d:%02d:%02d UTC\n",
 237                 tm.tm_year, tm.tm_mon, tm.tm_mday,
 238                 tm.tm_hour, tm.tm_min, tm.tm_sec);
 239 #endif
 240         puts ("   Image Type:   ");
 241         image_print_type (hdr);
 242
 243         printf ("\n   Data Size:    %d Bytes = ", image_get_data_size (hdr));
 244         print_size (image_get_data_size (hdr), "\n");
 245         printf ("   Load Address: %08x\n"
 246                 "   Entry Point:  %08x\n",
 247                  image_get_load (hdr), image_get_ep (hdr));
 248
 249         if (image_check_type (hdr, IH_TYPE_MULTI)) {
 250                 int i;
 251                 ulong data, len;
 252                 ulong count = image_multi_count (hdr);
 253
 254                 puts ("   Contents:\n");
 255                 for (i = 0; i < count; i++) {
 256                         image_multi_getimg (hdr, i, &data, &len);
 257                         printf ("   Image %d: %8ld Bytes = ", i, len);
 258                         print_size (len, "\n");
 259                 }
 260         }
 261 }
 262
 263 /**
 264  * image_get_ramdisk - get and verify ramdisk image
 265  * @cmdtp: command table pointer
 266  * @flag: command flag
 267  * @argc: command argument count
 268  * @argv: command argument list
 269  * @rd_addr: ramdisk image start address
 270  * @arch: expected ramdisk architecture
 271  * @verify: checksum verification flag
 272  *
 273  * image_get_ramdisk() returns a pointer to the verified ramdisk image
 274  * header. Routine receives image start address and expected architecture
 275  * flag. Verification done covers data and header integrity and os/type/arch
 276  * fields checking.
 277  *
 278  * If dataflash support is enabled routine checks for dataflash addresses
 279  * and handles required dataflash reads.
 280  *
 281  * returns:
 282  *     pointer to a ramdisk image header, if image was found and valid
 283  *     otherwise, return NULL
 284  */
 285 static image_header_t* image_get_ramdisk (cmd_tbl_t *cmdtp, int flag,
 286                 int argc, char *argv[],
 287                 ulong rd_addr, uint8_t arch, int verify)
 288 {
 289         image_header_t *rd_hdr;
 290
 291         show_boot_progress (9);
 292         rd_hdr = (image_header_t *)rd_addr;
 293
 294         if (!image_check_magic (rd_hdr)) {
 295                 puts ("Bad Magic Number\n");
 296                 show_boot_progress (-10);
 297                 return NULL;
 298         }
 299
 300         if (!image_check_hcrc (rd_hdr)) {
 301                 puts ("Bad Header Checksum\n");
 302                 show_boot_progress (-11);
 303                 return NULL;
 304         }
 305
 306         show_boot_progress (10);
 307         image_print_contents (rd_hdr);
 308
 309         if (verify) {
 310                 puts("   Verifying Checksum ... ");
 311                 if (!image_check_dcrc_wd (rd_hdr, CHUNKSZ)) {
 312                         puts ("Bad Data CRC\n");
 313                         show_boot_progress (-12);
 314                         return NULL;
 315                 }
 316                 puts("OK\n");
 317         }
 318
 319         show_boot_progress (11);
 320
 321         if (!image_check_os (rd_hdr, IH_OS_LINUX) ||
 322             !image_check_arch (rd_hdr, arch) ||
 323             !image_check_type (rd_hdr, IH_TYPE_RAMDISK)) {
 324                 printf ("No Linux %s Ramdisk Image\n",
 325                                 genimg_get_arch_name(arch));
 326                 show_boot_progress (-13);
 327                 return NULL;
 328         }
 329
 330         return rd_hdr;
 331 }
 332
 333 /*****************************************************************************/
 334 /* Shared dual-format routines */
 335 /*****************************************************************************/
 336 int getenv_verify (void)
 337 {
 338         char *s = getenv ("verify");
 339         return (s && (*s == 'n')) ? 0 : 1;
 340 }
 341
 342 int getenv_autostart (void)
 343 {
 344         char *s = getenv ("autostart");
 345         return (s && (*s == 'n')) ? 0 : 1;
 346 }
 347
 348 ulong getenv_bootm_low(void)
 349 {
 350         char *s = getenv ("bootm_low");
 351         if (s) {
 352                 ulong tmp = simple_strtoul (s, NULL, 16);
 353                 return tmp;
 354         }
 355
 356 #ifdef CFG_SDRAM_BASE
 357         return CFG_SDRAM_BASE;
 358 #else
 359         return 0;
 360 #endif
 361 }
 362
 363 ulong getenv_bootm_size(void)
 364 {
 365         char *s = getenv ("bootm_size");
 366         if (s) {
 367                 ulong tmp = simple_strtoul (s, NULL, 16);
 368                 return tmp;
 369         }
 370
 371         return gd->bd->bi_memsize;
 372 }
 373
 374 void memmove_wd (void *to, void *from, size_t len, ulong chunksz)
 375 {
 376 #if defined(CONFIG_HW_WATCHDOG) || defined(CONFIG_WATCHDOG)
 377         while (len > 0) {
 378                 size_t tail = (len > chunksz) ? chunksz : len;
 379                 WATCHDOG_RESET ();
 380                 memmove (to, from, tail);
 381                 to += tail;
 382                 from += tail;
 383                 len -= tail;
 384         }
 385 #else   /* !(CONFIG_HW_WATCHDOG || CONFIG_WATCHDOG) */
 386         memmove (to, from, len);
 387 #endif  /* CONFIG_HW_WATCHDOG || CONFIG_WATCHDOG */
 388 }
 389 #endif /* USE_HOSTCC */
 390
 391 const char* genimg_get_os_name (uint8_t os)
 392 {
 393         const char *name;
 394
 395         switch (os) {
 396         case IH_OS_INVALID:     name = "Invalid OS";            break;
 397         case IH_OS_NETBSD:      name = "NetBSD";                break;
 398         case IH_OS_LINUX:       name = "Linux";                 break;
 399         case IH_OS_VXWORKS:     name = "VxWorks";               break;
 400         case IH_OS_QNX:         name = "QNX";                   break;
 401         case IH_OS_U_BOOT:      name = "U-Boot";                break;
 402         case IH_OS_RTEMS:       name = "RTEMS";                 break;
 403 #ifdef CONFIG_ARTOS
 404         case IH_OS_ARTOS:       name = "ARTOS";                 break;
 405 #endif
 406 #ifdef CONFIG_LYNXKDI
 407         case IH_OS_LYNXOS:      name = "LynxOS";                break;
 408 #endif
 409         default:                name = "Unknown OS";            break;
 410         }
 411
 412         return name;
 413 }
 414
 415 const char* genimg_get_arch_name (uint8_t arch)
 416 {
 417         const char *name;
 418
 419         switch (arch) {
 420         case IH_ARCH_INVALID:   name = "Invalid Architecture";  break;
 421         case IH_ARCH_ALPHA:     name = "Alpha";                 break;
 422         case IH_ARCH_ARM:       name = "ARM";                   break;
 423         case IH_ARCH_AVR32:     name = "AVR32";                 break;
 424         case IH_ARCH_BLACKFIN:  name = "Blackfin";              break;
 425         case IH_ARCH_I386:      name = "Intel x86";             break;
 426         case IH_ARCH_IA64:      name = "IA64";                  break;
 427         case IH_ARCH_M68K:      name = "M68K";                  break;
 428         case IH_ARCH_MICROBLAZE:name = "Microblaze";            break;
 429         case IH_ARCH_MIPS64:    name = "MIPS 64 Bit";           break;
 430         case IH_ARCH_MIPS:      name = "MIPS";                  break;
 431         case IH_ARCH_NIOS2:     name = "Nios-II";               break;
 432         case IH_ARCH_NIOS:      name = "Nios";                  break;
 433         case IH_ARCH_PPC:       name = "PowerPC";               break;
 434         case IH_ARCH_S390:      name = "IBM S390";              break;
 435         case IH_ARCH_SH:        name = "SuperH";                break;
 436         case IH_ARCH_SPARC64:   name = "SPARC 64 Bit";          break;
 437         case IH_ARCH_SPARC:     name = "SPARC";                 break;
 438         default:                name = "Unknown Architecture";  break;
 439         }
 440
 441         return name;
 442 }
 443
 444 const char* genimg_get_type_name (uint8_t type)
 445 {
 446         const char *name;
 447
 448         switch (type) {
 449         case IH_TYPE_INVALID:   name = "Invalid Image";         break;
 450         case IH_TYPE_STANDALONE:name = "Standalone Program";    break;
 451         case IH_TYPE_KERNEL:    name = "Kernel Image";          break;
 452         case IH_TYPE_RAMDISK:   name = "RAMDisk Image";         break;
 453         case IH_TYPE_MULTI:     name = "Multi-File Image";      break;
 454         case IH_TYPE_FIRMWARE:  name = "Firmware";              break;
 455         case IH_TYPE_SCRIPT:    name = "Script";                break;
 456         case IH_TYPE_FLATDT:    name = "Flat Device Tree";      break;
 457         default:                name = "Unknown Image";         break;
 458         }
 459
 460         return name;
 461 }
 462
 463 const char* genimg_get_comp_name (uint8_t comp)
 464 {
 465         const char *name;
 466
 467         switch (comp) {
 468         case IH_COMP_NONE:      name = "uncompressed";          break;
 469         case IH_COMP_GZIP:      name = "gzip compressed";       break;
 470         case IH_COMP_BZIP2:     name = "bzip2 compressed";      break;
 471         default:                name = "unknown compression";   break;
 472         }
 473
 474         return name;
 475 }
 476
 477 /**
 478  * genimg_get_format - get image format type
 479  * @img_addr: image start address
 480  *
 481  * genimg_get_format() checks whether provided address points to a valid
 482  * legacy or FIT image.
 483  *
 484  * New uImage format and FDT blob are based on a libfdt. FDT blob
 485  * may be passed directly or embedded in a FIT image. In both situations
 486  * genimg_get_format() must be able to dectect libfdt header.
 487  *
 488  * returns:
 489  *     image format type or IMAGE_FORMAT_INVALID if no image is present
 490  */
 491 int genimg_get_format (void *img_addr)
 492 {
 493         ulong           format = IMAGE_FORMAT_INVALID;
 494         image_header_t  *hdr;
 495 #if defined(CONFIG_FIT) || defined(CONFIG_OF_LIBFDT)
 496         char            *fit_hdr;
 497 #endif
 498
 499         hdr = (image_header_t *)img_addr;
 500         if (image_check_magic(hdr))
 501                 format = IMAGE_FORMAT_LEGACY;
 502 #if defined(CONFIG_FIT) || defined(CONFIG_OF_LIBFDT)
 503         else {
 504                 fit_hdr = (char *)img_addr;
 505                 if (fdt_check_header (fit_hdr) == 0)
 506                         format = IMAGE_FORMAT_FIT;
 507         }
 508 #endif
 509
 510         return format;
 511 }
 512
 513 /**
 514  * genimg_get_image - get image from special storage (if necessary)
 515  * @img_addr: image start address
 516  *
 517  * genimg_get_image() checks if provided image start adddress is located
 518  * in a dataflash storage. If so, image is moved to a system RAM memory.
 519  *
 520  * returns:
 521  *     image start address after possible relocation from special storage
 522  */
 523 ulong genimg_get_image (ulong img_addr)
 524 {
 525         ulong ram_addr = img_addr;
 526
 527 #ifdef CONFIG_HAS_DATAFLASH
 528         ulong h_size, d_size;
 529
 530         if (addr_dataflash (img_addr)){
 531                 /* ger RAM address */
 532                 ram_addr = CFG_LOAD_ADDR;
 533
 534                 /* get header size */
 535                 h_size = image_get_header_size ();
 536 #if defined(CONFIG_FIT)
 537                 if (sizeof(struct fdt_header) > h_size)
 538                         h_size = sizeof(struct fdt_header);
 539 #endif
 540
 541                 /* read in header */
 542                 debug ("   Reading image header from dataflash address "
 543                         "%08lx to RAM address %08lx\n", img_addr, ram_addr);
 544
 545                 read_dataflash (img_addr, h_size, (char *)ram_addr);
 546
 547                 /* get data size */
 548                 switch (genimg_get_format ((void *)ram_addr)) {
 549                 case IMAGE_FORMAT_LEGACY:
 550                         d_size = image_get_data_size ((image_header_t *)ram_addr);
 551                         debug ("   Legacy format image found at 0x%08lx, size 0x%08lx\n",
 552                                         ram_addr, d_size);
 553                         break;
 554 #if defined(CONFIG_FIT)
 555                 case IMAGE_FORMAT_FIT:
 556                         d_size = fdt_totalsize((void *)ram_addr) - h_size;
 557                         debug ("   FIT/FDT format image found at 0x%08lx, size 0x%08lx\n",
 558                                         ram_addr, d_size);
 559                         break;
 560 #endif
 561                 default:
 562                         printf ("   No valid image found at 0x%08lx\n", img_addr);
 563                         return ram_addr;
 564                 }
 565
 566                 /* read in image data */
 567                 debug ("   Reading image remaining data from dataflash address "
 568                         "%08lx to RAM address %08lx\n", img_addr + h_size,
 569                         ram_addr + h_size);
 570
 571                 read_dataflash (img_addr + h_size, d_size,
 572                                 (char *)(ram_addr + h_size));
 573
 574         }
 575 #endif /* CONFIG_HAS_DATAFLASH */
 576
 577         return ram_addr;
 578 }
 579
 580 /**
 581  * boot_get_ramdisk - main ramdisk handling routine
 582  * @cmdtp: command table pointer
 583  * @flag: command flag
 584  * @argc: command argument count
 585  * @argv: command argument list
 586  * @images: pointer to the bootm images structure
 587  * @arch: expected ramdisk architecture
 588  * @rd_start: pointer to a ulong variable, will hold ramdisk start address
 589  * @rd_end: pointer to a ulong variable, will hold ramdisk end
 590  *
 591  * boot_get_ramdisk() is responsible for finding a valid ramdisk image.
 592  * Curently supported are the following ramdisk sources:
 593  *      - multicomponent kernel/ramdisk image,
 594  *      - commandline provided address of decicated ramdisk image.
 595  *
 596  * returns:
 597  *     rd_start and rd_end are set to ramdisk start/end addresses if
 598  *     ramdisk image is found and valid
 599  *     rd_start and rd_end are set to 0 if no ramdisk exists
 600  *     return 1 if ramdisk image is found but corrupted
 601  */
 602 int boot_get_ramdisk (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[],
 603                 bootm_headers_t *images, uint8_t arch,
 604                 ulong *rd_start, ulong *rd_end)
 605 {
 606         ulong rd_addr, rd_load;
 607         ulong rd_data, rd_len;
 608         image_header_t *rd_hdr;
 609 #if defined(CONFIG_FIT)
 610         void            *fit_hdr;
 611         const char      *fit_uname_config = NULL;
 612         const char      *fit_uname_ramdisk = NULL;
 613         ulong           default_addr;
 614 #endif
 615
 616         /*
 617          * Look for a '-' which indicates to ignore the
 618          * ramdisk argument
 619          */
 620         if ((argc >= 3) && (strcmp(argv[2], "-") ==  0)) {
 621                 debug ("## Skipping init Ramdisk\n");
 622                 rd_len = rd_data = 0;
 623         } else if (argc >= 3) {
 624 #if defined(CONFIG_FIT)
 625                 /*
 626                  * If the init ramdisk comes from the FIT image and the FIT image
 627                  * address is omitted in the command line argument, try to use
 628                  * os FIT image address or default load address.
 629                  */
 630                 if (images->fit_uname_os)
 631                         default_addr = (ulong)images->fit_hdr_os;
 632                 else
 633                         default_addr = load_addr;
 634
 635                 if (fit_parse_conf (argv[2], default_addr,
 636                                         &rd_addr, &fit_uname_config)) {
 637                         debug ("*  ramdisk: config '%s' from image at 0x%08lx\n",
 638                                         fit_uname_config, rd_addr);
 639                 } else if (fit_parse_subimage (argv[2], default_addr,
 640                                         &rd_addr, &fit_uname_ramdisk)) {
 641                         debug ("*  ramdisk: subimage '%s' from image at 0x%08lx\n",
 642                                         fit_uname_ramdisk, rd_addr);
 643                 } else
 644 #endif
 645                 {
 646                         rd_addr = simple_strtoul(argv[2], NULL, 16);
 647                         debug ("*  ramdisk: cmdline image address = 0x%08lx\n",
 648                                         rd_addr);
 649                 }
 650
 651                 /* copy from dataflash if needed */
 652                 printf ("## Loading init Ramdisk Image at %08lx ...\n",
 653                                 rd_addr);
 654                 rd_addr = genimg_get_image (rd_addr);
 655
 656                 /*
 657                  * Check if there is an initrd image at the
 658                  * address provided in the second bootm argument
 659                  * check image type, for FIT images get FIT node.
 660                  */
 661                 switch (genimg_get_format ((void *)rd_addr)) {
 662                 case IMAGE_FORMAT_LEGACY:
 663
 664                         debug ("*  ramdisk: legacy format image\n");
 665
 666                         rd_hdr = image_get_ramdisk (cmdtp, flag, argc, argv,
 667                                                 rd_addr, arch, images->verify);
 668
 669                         if (rd_hdr == NULL) {
 670                                 *rd_start = 0;
 671                                 *rd_end = 0;
 672                                 return 1;
 673                         }
 674
 675                         rd_data = image_get_data (rd_hdr);
 676                         rd_len = image_get_data_size (rd_hdr);
 677                         rd_load = image_get_load (rd_hdr);
 678                         break;
 679 #if defined(CONFIG_FIT)
 680                 case IMAGE_FORMAT_FIT:
 681                         fit_hdr = (void *)rd_addr;
 682                         debug ("*  ramdisk: FIT format image\n");
 683                         fit_unsupported_reset ("ramdisk");
 684                         return 1;
 685 #endif
 686                 default:
 687                         printf ("Wrong Image Format for %s command\n",
 688                                         cmdtp->name);
 689                         rd_data = rd_len = 0;
 690                 }
 691
 692 #if defined(CONFIG_B2) || defined(CONFIG_EVB4510) || defined(CONFIG_ARMADILLO)
 693                 /*
 694                  * We need to copy the ramdisk to SRAM to let Linux boot
 695                  */
 696                 if (rd_data) {
 697                         memmove ((void *)rd_load, (uchar *)rd_data, rd_len);
 698                         rd_data = rd_load;
 699                 }
 700 #endif /* CONFIG_B2 || CONFIG_EVB4510 || CONFIG_ARMADILLO */
 701
 702         } else if (images->legacy_hdr_valid &&
 703                         image_check_type (images->legacy_hdr_os, IH_TYPE_MULTI)) {
 704                 /*
 705                  * Now check if we have a legacy mult-component image,
 706                  * get second entry data start address and len.
 707                  */
 708                 show_boot_progress (13);
 709                 printf ("## Loading init Ramdisk from multi component "
 710                                 "Image at %08lx ...\n",
 711                                 (ulong)images->legacy_hdr_os);
 712
 713                 image_multi_getimg (images->legacy_hdr_os, 1, &rd_data, &rd_len);
 714         } else {
 715                 /*
 716                  * no initrd image
 717                  */
 718                 show_boot_progress (14);
 719                 rd_len = rd_data = 0;
 720         }
 721
 722         if (!rd_data) {
 723                 debug ("## No init Ramdisk\n");
 724                 *rd_start = 0;
 725                 *rd_end = 0;
 726         } else {
 727                 *rd_start = rd_data;
 728                 *rd_end = rd_data + rd_len;
 729         }
 730         debug ("   ramdisk start = 0x%08lx, ramdisk end = 0x%08lx\n",
 731                         *rd_start, *rd_end);
 732
 733         return 0;
 734 }
 735
 736 #if defined(CONFIG_PPC) || defined(CONFIG_M68K)
 737 /**
 738  * boot_ramdisk_high - relocate init ramdisk
 739  * @lmb: pointer to lmb handle, will be used for memory mgmt
 740  * @rd_data: ramdisk data start address
 741  * @rd_len: ramdisk data length
 742  * @initrd_start: pointer to a ulong variable, will hold final init ramdisk
 743  *      start address (after possible relocation)
 744  * @initrd_end: pointer to a ulong variable, will hold final init ramdisk
 745  *      end address (after possible relocation)
 746  *
 747  * boot_ramdisk_high() takes a relocation hint from "initrd_high" environement
 748  * variable and if requested ramdisk data is moved to a specified location.
 749  *
 750  * Initrd_start and initrd_end are set to final (after relocation) ramdisk
 751  * start/end addresses if ramdisk image start and len were provided,
 752  * otherwise set initrd_start and initrd_end set to zeros.
 753  *
 754  * returns:
 755  *      0 - success
 756  *     -1 - failure
 757  */
 758 int boot_ramdisk_high (struct lmb *lmb, ulong rd_data, ulong rd_len,
 759                   ulong *initrd_start, ulong *initrd_end)
 760 {
 761         char    *s;
 762         ulong   initrd_high;
 763         int     initrd_copy_to_ram = 1;
 764
 765         if ((s = getenv ("initrd_high")) != NULL) {
 766                 /* a value of "no" or a similar string will act like 0,
 767                  * turning the "load high" feature off. This is intentional.
 768                  */
 769                 initrd_high = simple_strtoul (s, NULL, 16);
 770                 if (initrd_high == ~0)
 771                         initrd_copy_to_ram = 0;
 772         } else {
 773                 /* not set, no restrictions to load high */
 774                 initrd_high = ~0;
 775         }
 776
 777         debug ("## initrd_high = 0x%08lx, copy_to_ram = %d\n",
 778                         initrd_high, initrd_copy_to_ram);
 779
 780         if (rd_data) {
 781                 if (!initrd_copy_to_ram) {      /* zero-copy ramdisk support */
 782                         debug ("   in-place initrd\n");
 783                         *initrd_start = rd_data;
 784                         *initrd_end = rd_data + rd_len;
 785                         lmb_reserve(lmb, rd_data, rd_len);
 786                 } else {
 787                         if (initrd_high)
 788                                 *initrd_start = lmb_alloc_base (lmb, rd_len, 0x1000, initrd_high);
 789                         else
 790                                 *initrd_start = lmb_alloc (lmb, rd_len, 0x1000);
 791
 792                         if (*initrd_start == 0) {
 793                                 puts ("ramdisk - allocation error\n");
 794                                 goto error;
 795                         }
 796                         show_boot_progress (12);
 797
 798                         *initrd_end = *initrd_start + rd_len;
 799                         printf ("   Loading Ramdisk to %08lx, end %08lx ... ",
 800                                         *initrd_start, *initrd_end);
 801
 802                         memmove_wd ((void *)*initrd_start,
 803                                         (void *)rd_data, rd_len, CHUNKSZ);
 804
 805                         puts ("OK\n");
 806                 }
 807         } else {
 808                 *initrd_start = 0;
 809                 *initrd_end = 0;
 810         }
 811         debug ("   ramdisk load start = 0x%08lx, ramdisk load end = 0x%08lx\n",
 812                         *initrd_start, *initrd_end);
 813
 814         return 0;
 815
 816 error:
 817         return -1;
 818 }
 819
 820 /**
 821  * boot_get_cmdline - allocate and initialize kernel cmdline
 822  * @lmb: pointer to lmb handle, will be used for memory mgmt
 823  * @cmd_start: pointer to a ulong variable, will hold cmdline start
 824  * @cmd_end: pointer to a ulong variable, will hold cmdline end
 825  * @bootmap_base: ulong variable, holds offset in physical memory to
 826  * base of bootmap
 827  *
 828  * boot_get_cmdline() allocates space for kernel command line below
 829  * BOOTMAPSZ + bootmap_base address. If "bootargs" U-boot environemnt
 830  * variable is present its contents is copied to allocated kernel
 831  * command line.
 832  *
 833  * returns:
 834  *      0 - success
 835  *     -1 - failure
 836  */
 837 int boot_get_cmdline (struct lmb *lmb, ulong *cmd_start, ulong *cmd_end,
 838                         ulong bootmap_base)
 839 {
 840         char *cmdline;
 841         char *s;
 842
 843         cmdline = (char *)lmb_alloc_base(lmb, CFG_BARGSIZE, 0xf,
 844                                          CFG_BOOTMAPSZ + bootmap_base);
 845
 846         if (cmdline == NULL)
 847                 return -1;
 848
 849         if ((s = getenv("bootargs")) == NULL)
 850                 s = "";
 851
 852         strcpy(cmdline, s);
 853
 854         *cmd_start = (ulong) & cmdline[0];
 855         *cmd_end = *cmd_start + strlen(cmdline);
 856
 857         debug ("## cmdline at 0x%08lx ... 0x%08lx\n", *cmd_start, *cmd_end);
 858
 859         return 0;
 860 }
 861
 862 /**
 863  * boot_get_kbd - allocate and initialize kernel copy of board info
 864  * @lmb: pointer to lmb handle, will be used for memory mgmt
 865  * @kbd: double pointer to board info data
 866  * @bootmap_base: ulong variable, holds offset in physical memory to
 867  * base of bootmap
 868  *
 869  * boot_get_kbd() allocates space for kernel copy of board info data below
 870  * BOOTMAPSZ + bootmap_base address and kernel board info is initialized with
 871  * the current u-boot board info data.
 872  *
 873  * returns:
 874  *      0 - success
 875  *     -1 - failure
 876  */
 877 int boot_get_kbd (struct lmb *lmb, bd_t **kbd, ulong bootmap_base)
 878 {
 879         *kbd = (bd_t *)lmb_alloc_base(lmb, sizeof(bd_t), 0xf,
 880                                       CFG_BOOTMAPSZ + bootmap_base);
 881         if (*kbd == NULL)
 882                 return -1;
 883
 884         **kbd = *(gd->bd);
 885
 886         debug ("## kernel board info at 0x%08lx\n", (ulong)*kbd);
 887
 888 #if defined(DEBUG) && defined(CONFIG_CMD_BDI)
 889         do_bdinfo(NULL, 0, 0, NULL);
 890 #endif
 891
 892         return 0;
 893 }
 894 #endif /* CONFIG_PPC || CONFIG_M68K */
 895
 896 #if defined(CONFIG_FIT)
 897 /*****************************************************************************/
 898 /* New uImage format routines */
 899 /*****************************************************************************/
 900 static int fit_parse_spec (const char *spec, char sepc, ulong addr_curr,
 901                 ulong *addr, const char **name)
 902 {
 903         const char *sep;
 904
 905         *addr = addr_curr;
 906         *name = NULL;
 907
 908         sep = strchr (spec, sepc);
 909         if (sep) {
 910                 if (sep - spec > 0)
 911                         *addr = simple_strtoul (spec, NULL, 16);
 912
 913                 *name = sep + 1;
 914                 return 1;
 915         }
 916
 917         return 0;
 918 }
 919
 920 /**
 921  * fit_parse_conf - parse FIT configuration spec
 922  * @spec: input string, containing configuration spec
 923  * @add_curr: current image address (to be used as a possible default)
 924  * @addr: pointer to a ulong variable, will hold FIT image address of a given
 925  * configuration
 926  * @conf_name double pointer to a char, will hold pointer to a configuration
 927  * unit name
 928  *
 929  * fit_parse_conf() expects configuration spec in the for of [<addr>]#<conf>,
 930  * where <addr> is a FIT image address that contains configuration
 931  * with a <conf> unit name.
 932  *
 933  * Address part is optional, and if omitted default add_curr will
 934  * be used instead.
 935  *
 936  * returns:
 937  *     1 if spec is a valid configuration string,
 938  *     addr and conf_name are set accordingly
 939  *     0 otherwise
 940  */
 941 inline int fit_parse_conf (const char *spec, ulong addr_curr,
 942                 ulong *addr, const char **conf_name)
 943 {
 944         return fit_parse_spec (spec, '#', addr_curr, addr, conf_name);
 945 }
 946
 947 /**
 948  * fit_parse_subimage - parse FIT subimage spec
 949  * @spec: input string, containing subimage spec
 950  * @add_curr: current image address (to be used as a possible default)
 951  * @addr: pointer to a ulong variable, will hold FIT image address of a given
 952  * subimage
 953  * @image_name: double pointer to a char, will hold pointer to a subimage name
 954  *
 955  * fit_parse_subimage() expects subimage spec in the for of
 956  * [<addr>]:<subimage>, where <addr> is a FIT image address that contains
 957  * subimage with a <subimg> unit name.
 958  *
 959  * Address part is optional, and if omitted default add_curr will
 960  * be used instead.
 961  *
 962  * returns:
 963  *     1 if spec is a valid subimage string,
 964  *     addr and image_name are set accordingly
 965  *     0 otherwise
 966  */
 967 inline int fit_parse_subimage (const char *spec, ulong addr_curr,
 968                 ulong *addr, const char **image_name)
 969 {
 970         return fit_parse_spec (spec, ':', addr_curr, addr, image_name);
 971 }
 972
 973 #endif /* CONFIG_FIT */
 974
 975 #endif /* USE_HOSTCC */