tools/pblimage.c

   1 // SPDX-License-Identifier: GPL-2.0+
   2 /*
   3  * Copyright 2012-2014 Freescale Semiconductor, Inc.
   4  */
   5 #include "imagetool.h"
   6 #include <image.h>
   7 #include "pblimage.h"
   8 #include "pbl_crc32.h"
   9
  10 #define roundup(x, y)           ((((x) + ((y) - 1)) / (y)) * (y))
  11 #define PBL_ACS_CONT_CMD        0x81000000
  12 #define PBL_ADDR_24BIT_MASK     0x00ffffff
  13
  14 /*
  15  * Initialize to an invalid value.
  16  */
  17 static uint32_t next_pbl_cmd = 0x82000000;
  18 /*
  19  * need to store all bytes in memory for calculating crc32, then write the
  20  * bytes to image file for PBL boot.
  21  */
  22 static unsigned char mem_buf[1000000];
  23 static unsigned char *pmem_buf = mem_buf;
  24 static int pbl_size;
  25 static char *fname = "Unknown";
  26 static int lineno = -1;
  27 static struct pbl_header pblimage_header;
  28 static int uboot_size;
  29 static int arch_flag;
  30
  31 static uint32_t pbl_cmd_initaddr;
  32 static uint32_t pbi_crc_cmd1;
  33 static uint32_t pbi_crc_cmd2;
  34 static uint32_t pbl_end_cmd[4];
  35
  36 static union
  37 {
  38         char c[4];
  39         unsigned char l;
  40 } endian_test = { {'l', '?', '?', 'b'} };
  41
  42 #define ENDIANNESS ((char)endian_test.l)
  43
  44 /*
  45  * The PBL can load up to 64 bytes at a time, so we split the U-Boot
  46  * image into 64 byte chunks. PBL needs a command for each piece, of
  47  * the form "81xxxxxx", where "xxxxxx" is the offset. Calculate the
  48  * start offset by subtracting the size of the u-boot image from the
  49  * top of the allowable 24-bit range.
  50  */
  51 static void generate_pbl_cmd(void)
  52 {
  53         uint32_t val = next_pbl_cmd;
  54         next_pbl_cmd += 0x40;
  55         int i;
  56
  57         for (i = 3; i >= 0; i--) {
  58                 *pmem_buf++ = (val >> (i * 8)) & 0xff;
  59                 pbl_size++;
  60         }
  61 }
  62
  63 static void pbl_fget(size_t size, FILE *stream)
  64 {
  65         unsigned char c = 0xff;
  66         int c_temp;
  67
  68         while (size) {
  69                 c_temp = fgetc(stream);
  70                 if (c_temp != EOF)
  71                         c = (unsigned char)c_temp;
  72                 else if ((c_temp == EOF) && (arch_flag == IH_ARCH_ARM))
  73                         c = 0xff;
  74                 *pmem_buf++ = c;
  75                 pbl_size++;
  76                 size--;
  77         }
  78 }
  79
  80 /* load split u-boot with PBI command 81xxxxxx. */
  81 static void load_uboot(FILE *fp_uboot)
  82 {
  83         next_pbl_cmd = pbl_cmd_initaddr - uboot_size;
  84         while (next_pbl_cmd < pbl_cmd_initaddr) {
  85                 generate_pbl_cmd();
  86                 pbl_fget(64, fp_uboot);
  87         }
  88 }
  89
  90 static void check_get_hexval(char *token)
  91 {
  92         uint32_t hexval;
  93         int i;
  94
  95         if (!sscanf(token, "%x", &hexval)) {
  96                 printf("Error:%s[%d] - Invalid hex data(%s)\n", fname,
  97                         lineno, token);
  98                 exit(EXIT_FAILURE);
  99         }
 100         for (i = 3; i >= 0; i--) {
 101                 *pmem_buf++ = (hexval >> (i * 8)) & 0xff;
 102                 pbl_size++;
 103         }
 104 }
 105
 106 static void pbl_parser(char *name)
 107 {
 108         FILE *fd = NULL;
 109         char *line = NULL;
 110         char *token, *saveptr1, *saveptr2;
 111         size_t len = 0;
 112
 113         fname = name;
 114         fd = fopen(name, "r");
 115         if (fd == NULL) {
 116                 printf("Error:%s - Can't open\n", fname);
 117                 exit(EXIT_FAILURE);
 118         }
 119
 120         while ((getline(&line, &len, fd)) > 0) {
 121                 lineno++;
 122                 token = strtok_r(line, "\r\n", &saveptr1);
 123                 /* drop all lines with zero tokens (= empty lines) */
 124                 if (token == NULL)
 125                         continue;
 126                 for (line = token;; line = NULL) {
 127                         token = strtok_r(line, " \t", &saveptr2);
 128                         if (token == NULL)
 129                                 break;
 130                         /* Drop all text starting with '#' as comments */
 131                         if (token[0] == '#')
 132                                 break;
 133                         check_get_hexval(token);
 134                 }
 135         }
 136         if (line)
 137                 free(line);
 138         fclose(fd);
 139 }
 140
 141 static uint32_t reverse_byte(uint32_t val)
 142 {
 143         uint32_t temp;
 144         unsigned char *p1;
 145         int j;
 146
 147         temp = val;
 148         p1 = (unsigned char *)&temp;
 149         for (j = 3; j >= 0; j--)
 150                 *p1++ = (val >> (j * 8)) & 0xff;
 151         return temp;
 152 }
 153
 154 /* write end command and crc command to memory. */
 155 static void add_end_cmd(void)
 156 {
 157         uint32_t crc32_pbl;
 158         int i;
 159         unsigned char *p = (unsigned char *)&pbl_end_cmd;
 160
 161         if (ENDIANNESS == 'l') {
 162                 for (i = 0; i < 4; i++)
 163                         pbl_end_cmd[i] = reverse_byte(pbl_end_cmd[i]);
 164         }
 165
 166         for (i = 0; i < 16; i++) {
 167                 *pmem_buf++ = *p++;
 168                 pbl_size++;
 169         }
 170
 171         /* Add PBI CRC command. */
 172         *pmem_buf++ = 0x08;
 173         *pmem_buf++ = pbi_crc_cmd1;
 174         *pmem_buf++ = pbi_crc_cmd2;
 175         *pmem_buf++ = 0x40;
 176         pbl_size += 4;
 177
 178         /* calculated CRC32 and write it to memory. */
 179         crc32_pbl = pbl_crc32(0, (const char *)mem_buf, pbl_size);
 180         *pmem_buf++ = (crc32_pbl >> 24) & 0xff;
 181         *pmem_buf++ = (crc32_pbl >> 16) & 0xff;
 182         *pmem_buf++ = (crc32_pbl >> 8) & 0xff;
 183         *pmem_buf++ = (crc32_pbl) & 0xff;
 184         pbl_size += 4;
 185 }
 186
 187 void pbl_load_uboot(int ifd, struct image_tool_params *params)
 188 {
 189         FILE *fp_uboot;
 190         int size;
 191
 192         /* parse the rcw.cfg file. */
 193         pbl_parser(params->imagename);
 194
 195         /* parse the pbi.cfg file. */
 196         if (params->imagename2[0] != '\0')
 197                 pbl_parser(params->imagename2);
 198
 199         if (params->datafile) {
 200                 fp_uboot = fopen(params->datafile, "r");
 201                 if (fp_uboot == NULL) {
 202                         printf("Error: %s open failed\n", params->datafile);
 203                         exit(EXIT_FAILURE);
 204                 }
 205
 206                 load_uboot(fp_uboot);
 207                 fclose(fp_uboot);
 208         }
 209         add_end_cmd();
 210         lseek(ifd, 0, SEEK_SET);
 211
 212         size = pbl_size;
 213         if (write(ifd, (const void *)&mem_buf, size) != size) {
 214                 fprintf(stderr, "Write error on %s: %s\n",
 215                         params->imagefile, strerror(errno));
 216                 exit(EXIT_FAILURE);
 217         }
 218 }
 219
 220 static int pblimage_check_image_types(uint8_t type)
 221 {
 222         if (type == IH_TYPE_PBLIMAGE)
 223                 return EXIT_SUCCESS;
 224         else
 225                 return EXIT_FAILURE;
 226 }
 227
 228 static int pblimage_verify_header(unsigned char *ptr, int image_size,
 229                         struct image_tool_params *params)
 230 {
 231         struct pbl_header *pbl_hdr = (struct pbl_header *) ptr;
 232
 233         /* Only a few checks can be done: search for magic numbers */
 234         if (ENDIANNESS == 'l') {
 235                 if (pbl_hdr->preamble != reverse_byte(RCW_PREAMBLE))
 236                         return -FDT_ERR_BADSTRUCTURE;
 237
 238                 if (pbl_hdr->rcwheader != reverse_byte(RCW_HEADER))
 239                         return -FDT_ERR_BADSTRUCTURE;
 240         } else {
 241                 if (pbl_hdr->preamble != RCW_PREAMBLE)
 242                         return -FDT_ERR_BADSTRUCTURE;
 243
 244                 if (pbl_hdr->rcwheader != RCW_HEADER)
 245                         return -FDT_ERR_BADSTRUCTURE;
 246         }
 247         return 0;
 248 }
 249
 250 static void pblimage_print_header(const void *ptr)
 251 {
 252         printf("Image Type:   Freescale PBL Boot Image\n");
 253 }
 254
 255 static void pblimage_set_header(void *ptr, struct stat *sbuf, int ifd,
 256                                 struct image_tool_params *params)
 257 {
 258         /*nothing need to do, pbl_load_uboot takes care of whole file. */
 259 }
 260
 261 int pblimage_check_params(struct image_tool_params *params)
 262 {
 263         FILE *fp_uboot;
 264         int fd;
 265         struct stat st;
 266
 267         if (!params)
 268                 return EXIT_FAILURE;
 269
 270         if (params->datafile) {
 271                 fp_uboot = fopen(params->datafile, "r");
 272                 if (fp_uboot == NULL) {
 273                         printf("Error: %s open failed\n", params->datafile);
 274                         exit(EXIT_FAILURE);
 275                 }
 276                 fd = fileno(fp_uboot);
 277
 278                 if (fstat(fd, &st) == -1) {
 279                         printf("Error: Could not determine u-boot image size. %s\n",
 280                                strerror(errno));
 281                         exit(EXIT_FAILURE);
 282                 }
 283
 284                 /* For the variable size, pad it to 64 byte boundary */
 285                 uboot_size = roundup(st.st_size, 64);
 286                 fclose(fp_uboot);
 287         }
 288
 289         if (params->arch == IH_ARCH_ARM) {
 290                 arch_flag = IH_ARCH_ARM;
 291                 pbi_crc_cmd1 = 0x61;
 292                 pbi_crc_cmd2 = 0;
 293                 pbl_cmd_initaddr = params->addr & PBL_ADDR_24BIT_MASK;
 294                 pbl_cmd_initaddr |= PBL_ACS_CONT_CMD;
 295                 pbl_cmd_initaddr += uboot_size;
 296                 pbl_end_cmd[0] = 0x09610000;
 297                 pbl_end_cmd[1] = 0x00000000;
 298                 pbl_end_cmd[2] = 0x096100c0;
 299                 pbl_end_cmd[3] = 0x00000000;
 300         } else if (params->arch == IH_ARCH_PPC) {
 301                 arch_flag = IH_ARCH_PPC;
 302                 pbi_crc_cmd1 = 0x13;
 303                 pbi_crc_cmd2 = 0x80;
 304                 pbl_cmd_initaddr = 0x82000000;
 305                 pbl_end_cmd[0] = 0x091380c0;
 306                 pbl_end_cmd[1] = 0x00000000;
 307                 pbl_end_cmd[2] = 0x091380c0;
 308                 pbl_end_cmd[3] = 0x00000000;
 309         }
 310
 311         next_pbl_cmd = pbl_cmd_initaddr;
 312         return 0;
 313 };
 314
 315 /* pblimage parameters */
 316 U_BOOT_IMAGE_TYPE(
 317         pblimage,
 318         "Freescale PBL Boot Image support",
 319         sizeof(struct pbl_header),
 320         (void *)&pblimage_header,
 321         pblimage_check_params,
 322         pblimage_verify_header,
 323         pblimage_print_header,
 324         pblimage_set_header,
 325         NULL,
 326         pblimage_check_image_types,
 327         NULL,
 328         NULL
 329 );