board/karo/common/fdt.c

   1 /*
   2  * (C) Copyright 2012 Lothar Waßmann <LW@KARO-electronics.de>
   3  *
   4  * See file CREDITS for list of people who contributed to this
   5  * project.
   6  *
   7  * This program is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License
   9  * version 2 as published by the Free Software Foundation.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16 */
  17
  18 #include <common.h>
  19 #include <errno.h>
  20 #include <libfdt.h>
  21 #include <fdt_support.h>
  22 #include <nand.h>
  23 #include <linux/list.h>
  24 #include <linux/fb.h>
  25 #include <jffs2/load_kernel.h>
  26
  27 #include "karo.h"
  28
  29 #ifdef CONFIG_MAX_DTB_SIZE
  30 #define MAX_DTB_SIZE    CONFIG_MAX_DTB_SIZE
  31 #else
  32 #define MAX_DTB_SIZE    SZ_64K
  33 #endif
  34
  35 DECLARE_GLOBAL_DATA_PTR;
  36
  37 static void karo_set_fdtsize(void *fdt)
  38 {
  39         char fdt_size[9];
  40         size_t fdtsize = getenv_ulong("fdtsize", 16, 0);
  41
  42         if (fdtsize == fdt_totalsize(fdt)) {
  43                 return;
  44         }
  45         debug("FDT size changed from %u to %u\n",
  46                 fdtsize, fdt_totalsize(fdt));
  47
  48         snprintf(fdt_size, sizeof(fdt_size), "%08x", fdt_totalsize(fdt));
  49         setenv("fdtsize", fdt_size);
  50 }
  51
  52 void karo_fdt_move_fdt(void)
  53 {
  54         void *fdt;
  55         unsigned long fdt_addr = getenv_ulong("fdtaddr", 16, 0);
  56
  57         if (working_fdt) {
  58                 debug("DTB already loaded\n");
  59                 return;
  60         }
  61
  62         if (!fdt_addr) {
  63                 fdt_addr = CONFIG_SYS_FDT_ADDR;
  64                 printf("fdtaddr is not set; using default: %08lx\n",
  65                         fdt_addr);
  66         }
  67
  68         fdt = karo_fdt_load_dtb();
  69         if (fdt == NULL) {
  70                 fdt = (void *)gd->fdt_blob;
  71                 if (fdt == NULL) {
  72                         printf("Compiled in FDT not found\n");
  73                         return;
  74                 }
  75                 debug("Checking FDT header @ %p\n", fdt);
  76                 if (fdt_check_header(fdt)) {
  77                         printf("ERROR: No valid DTB found at %p\n", fdt);
  78                         return;
  79                 }
  80                 printf("No DTB in flash; using default DTB\n");
  81                 debug("Moving FDT from %p..%p to %08lx..%08lx\n",
  82                         fdt, fdt + fdt_totalsize(fdt) - 1,
  83                         fdt_addr, fdt_addr + fdt_totalsize(fdt) - 1);
  84                 memmove((void *)fdt_addr, fdt, fdt_totalsize(fdt));
  85         }
  86         set_working_fdt_addr((void *)fdt_addr);
  87         gd->fdt_blob = fdt;
  88         karo_set_fdtsize(fdt);
  89 }
  90
  91 void karo_fdt_remove_node(void *blob, const char *node)
  92 {
  93         int off = fdt_path_offset(blob, node);
  94         int ret;
  95
  96         debug("Removing node '%s' from DT\n", node);
  97
  98         if (off < 0) {
  99                 printf("Could not find node '%s': %d\n", node, off);
 100         } else {
 101                 ret = fdt_del_node(blob, off);
 102                 if (ret)
 103                         printf("Failed to remove node '%s': %d\n",
 104                                 node, ret);
 105         }
 106         karo_set_fdtsize(blob);
 107 }
 108
 109 void karo_fdt_enable_node(void *blob, const char *node, int enable)
 110 {
 111         int off = fdt_path_offset(blob, node);
 112
 113         debug("%sabling node '%s'\n", enable ? "En" : "Dis", node);
 114         if (off < 0) {
 115                 printf("Could not find node '%s': %d\n", node, off);
 116                 return;
 117         }
 118         fdt_set_node_status(blob, off,
 119                         enable ? FDT_STATUS_OKAY : FDT_STATUS_DISABLED, 0);
 120
 121         karo_set_fdtsize(blob);
 122 }
 123
 124 static const char *karo_touchpanels[] = {
 125         "ti,tsc2007",
 126         "edt,edt-ft5x06",
 127         "fsl,imx28-lradc",
 128 };
 129
 130 static void fdt_del_tp_node(void *blob, const char *name)
 131 {
 132         int offs = fdt_node_offset_by_compatible(blob, -1, name);
 133
 134         if (offs < 0) {
 135                 debug("node '%s' not found: %d\n", name, offs);
 136                 return;
 137         }
 138
 139         debug("Removing node '%s' from DT\n", name);
 140         fdt_del_node(blob, offs);
 141 }
 142
 143 void karo_fdt_fixup_touchpanel(void *blob)
 144 {
 145         int i;
 146         const char *model = getenv("touchpanel");
 147
 148         for (i = 0; i < ARRAY_SIZE(karo_touchpanels); i++) {
 149                 const char *tp = karo_touchpanels[i];
 150
 151                 if (model != NULL && strcmp(model, tp) == 0)
 152                         continue;
 153
 154                 if (model != NULL) {
 155                         if (strcmp(model, tp) == 0)
 156                                 continue;
 157                         tp = strchr(tp, ',');
 158                         if (tp != NULL && *tp != '\0' && strcmp(model, tp + 1) == 0)
 159                                 continue;
 160                 }
 161                 fdt_del_tp_node(blob, karo_touchpanels[i]);
 162                 karo_set_fdtsize(blob);
 163         }
 164 }
 165
 166 void karo_fdt_fixup_usb_otg(void *blob, const char *node, const char *phy)
 167 {
 168         const char *otg_mode = getenv("otg_mode");
 169         int off;
 170         int ret;
 171         const uint32_t *ph;
 172
 173         debug("OTG mode is '%s'\n", otg_mode ? otg_mode : "<UNSET>");
 174
 175         off = fdt_path_offset(blob, node);
 176         if (off < 0) {
 177                 printf("Failed to find node %s\n", node);
 178                 return;
 179         }
 180
 181         if (otg_mode && (strcmp(otg_mode, "device") == 0 ||
 182                                 strcmp(otg_mode, "gadget") == 0)) {
 183                 ret = fdt_setprop_string(blob, off, "dr_mode", "peripheral");
 184                 phy = NULL;
 185         } else if (otg_mode && strcmp(otg_mode, "host") == 0) {
 186                 ret = fdt_setprop_string(blob, off, "dr_mode", "host");
 187                 phy = NULL;
 188         } else {
 189                 if (otg_mode && strcmp(otg_mode, "none") != 0)
 190                         printf("Invalid 'otg_mode' setting '%s'; disabling usbotg port\n",
 191                                 otg_mode);
 192                 ret = fdt_setprop_string(blob, off, "status", "disabled");
 193         }
 194         if (ret)
 195                 goto out;
 196
 197         if (phy == NULL)
 198                 goto out;
 199
 200         ph = fdt_getprop(blob, off, phy, NULL);
 201         if (ph == NULL) {
 202                 printf("Failed to find '%s' phandle in node '%s'\n", phy,
 203                         fdt_get_name(blob, off, NULL));
 204                 goto out;
 205         }
 206
 207         off = fdt_node_offset_by_phandle(blob, fdt32_to_cpu(*ph));
 208         if (off <= 0) {
 209                 printf("Failed to find '%s' node via phandle %04x\n",
 210                         phy, fdt32_to_cpu(*ph));
 211                 goto out;
 212         }
 213         ret = fdt_setprop_string(blob, off, "status", "disabled");
 214
 215 out:
 216         if (ret)
 217                 printf("Failed to update usbotg: %d\n", ret);
 218         printf("node '%s' updated\n", node);
 219         karo_set_fdtsize(blob);
 220 }
 221
 222 void karo_fdt_del_prop(void *blob, const char *compat, phys_addr_t offs,
 223                         const char *prop)
 224 {
 225         int ret;
 226         int offset;
 227         const uint32_t *phandle;
 228         uint32_t ph = 0;
 229
 230         offset = fdt_node_offset_by_compat_reg(blob, compat, offs);
 231         if (offset <= 0)
 232                 return;
 233
 234         phandle = fdt_getprop(blob, offset, prop, NULL);
 235         if (phandle) {
 236                 ph = fdt32_to_cpu(*phandle);
 237         }
 238
 239         debug("Removing property '%s' from node %s@%08lx\n", prop, compat, offs);
 240         ret = fdt_delprop(blob, offset, prop);
 241         if (ret == 0)
 242                 karo_set_fdtsize(blob);
 243
 244         if (!ph)
 245                 return;
 246
 247         offset = fdt_node_offset_by_phandle(blob, ph);
 248         if (offset <= 0)
 249                 return;
 250
 251         debug("Removing node @ %08x\n", offset);
 252         fdt_del_node(blob, offset);
 253         karo_set_fdtsize(blob);
 254 }
 255
 256 static int fdt_init_fb_mode(const void *blob, int off, struct fb_videomode *fb_mode)
 257 {
 258         const uint32_t *prop;
 259
 260         memset(fb_mode, 0, sizeof(*fb_mode));
 261
 262         prop = fdt_getprop(blob, off, "clock-frequency", NULL);
 263         if (prop)
 264                 fb_mode->pixclock = KHZ2PICOS(fdt32_to_cpu(*prop) / 1000);
 265
 266         prop = fdt_getprop(blob, off, "hactive", NULL);
 267         if (prop)
 268                 fb_mode->xres = fdt32_to_cpu(*prop);
 269
 270         prop = fdt_getprop(blob, off, "vactive", NULL);
 271         if (prop)
 272                 fb_mode->yres = fdt32_to_cpu(*prop);
 273
 274         prop = fdt_getprop(blob, off, "hback-porch", NULL);
 275         if (prop)
 276                 fb_mode->left_margin = fdt32_to_cpu(*prop);
 277
 278         prop = fdt_getprop(blob, off, "hsync-len", NULL);
 279         if (prop)
 280                 fb_mode->hsync_len = fdt32_to_cpu(*prop);
 281
 282         prop = fdt_getprop(blob, off, "hfront-porch", NULL);
 283         if (prop)
 284                 fb_mode->right_margin = fdt32_to_cpu(*prop);
 285
 286         prop = fdt_getprop(blob, off, "vback-porch", NULL);
 287         if (prop)
 288                 fb_mode->upper_margin = fdt32_to_cpu(*prop);
 289
 290         prop = fdt_getprop(blob, off, "vsync-len", NULL);
 291         if (prop)
 292                 fb_mode->vsync_len = fdt32_to_cpu(*prop);
 293
 294         prop = fdt_getprop(blob, off, "vfront-porch", NULL);
 295         if (prop)
 296                 fb_mode->lower_margin = fdt32_to_cpu(*prop);
 297
 298         prop = fdt_getprop(blob, off, "hsync-active", NULL);
 299         if (prop)
 300                 fb_mode->sync |= *prop ? FB_SYNC_VERT_HIGH_ACT : 0;
 301
 302         prop = fdt_getprop(blob, off, "vsync-active", NULL);
 303         if (prop)
 304                 fb_mode->sync |= *prop ? FB_SYNC_VERT_HIGH_ACT : 0;
 305 #if 0
 306         prop = fdt_getprop(blob, off, "de-active", NULL);
 307         if (prop)
 308                 fb_mode->sync |= *prop ? FB_SYNC_DATA_ENABLE_HIGH_ACT : 0;
 309
 310         prop = fdt_getprop(blob, off, "pixelclk-active", NULL);
 311         if (prop)
 312                 fb_mode->sync |= *prop ? FB_SYNC_DOTCLK_FALLING_ACT : 0;
 313 #endif
 314         return 0;
 315 }
 316
 317 static int fdt_update_native_fb_mode(void *blob, int off)
 318 {
 319         int ret;
 320         uint32_t ph;
 321         int i;
 322
 323         for (i = 1; i < 16; i++) {
 324                 fdt_set_totalsize(blob, fdt_totalsize(blob) + 8 * 4);
 325                 karo_set_fdtsize(blob);
 326                 ph = fdt_create_phandle(blob, off);
 327                 if (ph)
 328                         break;
 329         }
 330         if (ph == 0) {
 331                 printf("Failed to create phandle for video timing\n");
 332                 return -ENOMEM;
 333         }
 334
 335         debug("phandle of %s @ %06x=%04x\n", fdt_get_name(blob, off, NULL),
 336                 off, ph);
 337         off = fdt_parent_offset(blob, off);
 338         if (off < 0)
 339                 return off;
 340         debug("parent offset=%06x\n", off);
 341         ret = fdt_setprop_cell(blob, off, "native-mode", ph);
 342         return ret;
 343 }
 344
 345 static int karo_fdt_find_video_timings(void *blob)
 346 {
 347         int off = fdt_path_offset(blob, "display");
 348         const char *subnode = "display-timings";
 349
 350         if (off < 0) {
 351                 printf("Could not find node 'display' in FDT: %d\n", off);
 352                 return off;
 353         }
 354
 355         off = fdt_subnode_offset(blob, off, subnode);
 356         if (off < 0) {
 357                 printf("Could not find node '%s' in FDT: %d\n", subnode, off);
 358         }
 359         return off;
 360 }
 361
 362 int karo_fdt_get_fb_mode(void *blob, const char *name, struct fb_videomode *fb_mode)
 363 {
 364         int off = karo_fdt_find_video_timings(blob);
 365
 366         if (off < 0)
 367                 return off;
 368         do {
 369                 const char *n;
 370                 int d = 1;
 371
 372                 off = fdt_next_node(blob, off, &d);
 373                 if (d > 2) {
 374                         printf("Skipping node @ %04x %s depth %d\n", off, fdt_get_name(blob, off, NULL), d);
 375                         continue;
 376                 }
 377                 debug("parsing subnode @ %04x %s depth %d\n", off, fdt_get_name(blob, off, NULL), d);
 378                 if (off < 0 || d < 1)
 379                         break;
 380
 381                 n = fdt_getprop(blob, off, "panel-name", NULL);
 382                 if (!n) {
 383                         printf("Missing 'panel-name' property in node '%s'\n",
 384                                 fdt_get_name(blob, off, NULL));
 385                         continue;
 386                 }
 387                 debug("Checking panel-name '%s'\n", n);
 388                 if (strcasecmp(n, name) == 0) {
 389                         fdt_init_fb_mode(blob, off, fb_mode);
 390                         return fdt_update_native_fb_mode(blob, off);
 391
 392                 }
 393         } while (off > 0);
 394         return -EINVAL;
 395 }
 396
 397 int karo_fdt_update_fb_mode(void *blob, const char *name)
 398 {
 399         int off = fdt_path_offset(blob, "display");
 400         const char *subnode = "display-timings";
 401
 402         if (off < 0)
 403                 return off;
 404
 405         if (name == NULL) {
 406                 int parent = fdt_parent_offset(blob, off);
 407                 int ret;
 408
 409                 if (parent < 0) {
 410                         printf("Failed to find parent of node '%s'\n",
 411                                 fdt_get_name(blob, off, NULL));
 412                         return parent;
 413                 }
 414                 debug("parent offset=%06x\n", parent);
 415                 ret = fdt_setprop_string(blob, parent, "status", "disabled");
 416                 return ret;
 417         }
 418
 419         off = fdt_subnode_offset(blob, off, subnode);
 420         if (off < 0) {
 421                 printf("Could not find node '%s' in FDT: %d\n", subnode, off);
 422         }
 423         do {
 424                 const char *n;
 425                 int d = 1;
 426                 int node = fdt_next_node(blob, off, &d);
 427
 428                 if (d > 2) {
 429                         printf("Skipping node @ %04x %s depth %d\n", node, fdt_get_name(blob, node, NULL), d);
 430                         continue;
 431                 }
 432                 debug("parsing subnode @ %04x %s depth %d\n", node, fdt_get_name(blob, node, NULL), d);
 433                 if (node < 0 || d < 1)
 434                         break;
 435
 436                 n = fdt_getprop(blob, node, "panel-name", NULL);
 437                 if (!n) {
 438                         printf("Missing 'panel-name' property in node '%s'\n",
 439                                 fdt_get_name(blob, node, NULL));
 440                         continue;
 441                 }
 442                 debug("Checking panel-name '%s'\n", n);
 443                 if (strcasecmp(n, name) == 0) {
 444                         debug("Keeping node %s @ %04x\n",
 445                                 fdt_get_name(blob, node, NULL), node);
 446                         off = node;
 447                         continue;
 448                 }
 449                 debug("Deleting node %s @ %04x\n",
 450                         fdt_get_name(blob, node, NULL), node);
 451                 fdt_del_node(blob, node);
 452
 453         } while (off > 0);
 454
 455         return 0;
 456 }
 457
 458 static int karo_load_part(const char *part, void *addr, size_t len)
 459 {
 460         int ret;
 461         struct mtd_device *dev;
 462         struct part_info *part_info;
 463         u8 part_num;
 464
 465         debug("Initializing mtd_parts\n");
 466         ret = mtdparts_init();
 467         if (ret)
 468                 return ret;
 469
 470         debug("Trying to find NAND partition '%s'\n", part);
 471         ret = find_dev_and_part(part, &dev, &part_num,
 472                                 &part_info);
 473         if (ret) {
 474                 printf("Failed to find flash partition '%s': %d\n",
 475                         part, ret);
 476
 477                 return ret;
 478         }
 479         debug("Found partition '%s': offset=%08x size=%08x\n",
 480                 part, part_info->offset, part_info->size);
 481         if (part_info->size < len) {
 482                 printf("Warning: partition '%s' smaller than requested size: %u; truncating data to %u byte\n",
 483                         part, len, part_info->size);
 484                 len = part_info->size;
 485         }
 486         debug("Reading NAND partition '%s' to %p\n", part, addr);
 487         ret = nand_read_skip_bad(&nand_info[0], part_info->offset, &len, addr);
 488         if (ret) {
 489                 printf("Failed to load partition '%s' to %p\n", part, addr);
 490                 return ret;
 491         }
 492         debug("Read %u byte from partition '%s' @ offset %08x\n",
 493                 len, part, part_info->offset);
 494         return 0;
 495 }
 496
 497 void *karo_fdt_load_dtb(void)
 498 {
 499         int ret;
 500         void *fdt = (void *)getenv_ulong("fdtaddr", 16, CONFIG_SYS_FDT_ADDR);
 501
 502         if (tstc()) {
 503                 debug("aborting DTB load\n");
 504                 return NULL;
 505         }
 506
 507         /* clear FDT header in memory */
 508         memset(fdt, 0, 4);
 509
 510         ret = karo_load_part("dtb", fdt, MAX_DTB_SIZE);
 511         if (ret) {
 512                 printf("Failed to load dtb from flash: %d\n", ret);
 513                 return NULL;
 514         }
 515
 516         if (fdt_check_header(fdt)) {
 517                 debug("No valid DTB in flash\n");
 518                 return NULL;
 519         }
 520         debug("Using DTB from flash\n");
 521         karo_set_fdtsize(fdt);
 522         return fdt;
 523 }