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 #ifdef CONFIG_MX28
 128         "fsl,imx28-lradc",
 129 #endif
 130 };
 131
 132 static void fdt_disable_tp_node(void *blob, const char *name)
 133 {
 134         int offs = fdt_node_offset_by_compatible(blob, -1, name);
 135
 136         if (offs < 0) {
 137                 debug("node '%s' not found: %d\n", name, offs);
 138                 return;
 139         }
 140
 141         debug("Disabling node '%s'\n", name);
 142         fdt_set_node_status(blob, offs, FDT_STATUS_DISABLED, 0);
 143 }
 144
 145 void karo_fdt_fixup_touchpanel(void *blob)
 146 {
 147         int i;
 148         const char *model = getenv("touchpanel");
 149
 150         for (i = 0; i < ARRAY_SIZE(karo_touchpanels); i++) {
 151                 const char *tp = karo_touchpanels[i];
 152
 153                 if (model != NULL && strcmp(model, tp) == 0)
 154                         continue;
 155
 156                 if (model != NULL) {
 157                         if (strcmp(model, tp) == 0)
 158                                 continue;
 159                         tp = strchr(tp, ',');
 160                         if (tp != NULL && *tp != '\0' && strcmp(model, tp + 1) == 0)
 161                                 continue;
 162                 }
 163                 fdt_disable_tp_node(blob, karo_touchpanels[i]);
 164                 karo_set_fdtsize(blob);
 165         }
 166 }
 167
 168 void karo_fdt_fixup_usb_otg(void *blob, const char *node, const char *phy)
 169 {
 170         const char *otg_mode = getenv("otg_mode");
 171         int off;
 172         int ret;
 173         const uint32_t *ph;
 174         int disable_otg = 0;
 175         int disable_phy_pins = 1;
 176
 177         debug("OTG mode is '%s'\n", otg_mode ? otg_mode : "<UNSET>");
 178
 179         off = fdt_path_offset(blob, node);
 180         if (off < 0) {
 181                 debug("Failed to find node %s\n", node);
 182                 return;
 183         }
 184
 185         if (otg_mode && (strcmp(otg_mode, "device") == 0 ||
 186                                 strcmp(otg_mode, "gadget") == 0)) {
 187                 debug("Setting dr_mode to 'peripheral'\n");
 188                 ret = fdt_setprop_string(blob, off, "dr_mode", "peripheral");
 189         } else if (otg_mode && strcmp(otg_mode, "host") == 0) {
 190                 debug("Setting dr_mode to 'host'\n");
 191                 ret = fdt_setprop_string(blob, off, "dr_mode", "host");
 192                 disable_phy_pins = 0;
 193         } else if (otg_mode && strcmp(otg_mode, "otg") == 0) {
 194                 debug("Setting dr_mode to 'host'\n");
 195                 ret = fdt_setprop_string(blob, off, "dr_mode", "otg");
 196         } else {
 197                 if (otg_mode && strcmp(otg_mode, "none") != 0)
 198                         printf("Invalid 'otg_mode' setting '%s'; disabling usbotg port\n",
 199                                 otg_mode);
 200                 disable_otg = 1;
 201                 ret = 0;
 202         }
 203
 204         if ((!disable_phy_pins && !disable_otg) || ret)
 205                 goto out;
 206
 207         if (disable_otg) {
 208                 ret = fdt_set_node_status(blob, off, FDT_STATUS_DISABLED, 0);
 209                 if (ret)
 210                         goto out;
 211         }
 212
 213         ph = fdt_getprop(blob, off, phy, NULL);
 214         if (ph == NULL) {
 215                 printf("Failed to find '%s' phandle in node '%s'\n", phy,
 216                         fdt_get_name(blob, off, NULL));
 217                 goto out;
 218         }
 219
 220         off = fdt_node_offset_by_phandle(blob, fdt32_to_cpu(*ph));
 221         if (off <= 0) {
 222                 printf("Failed to find '%s' node via phandle %04x\n",
 223                         phy, fdt32_to_cpu(*ph));
 224                 goto out;
 225         }
 226
 227         if (disable_otg) {
 228                 debug("Disabling usbphy\n");
 229                 ret = fdt_set_node_status(blob, off, FDT_STATUS_DISABLED, 0);
 230         }
 231 out:
 232         if (ret)
 233                 printf("Failed to update usbotg: %d\n", ret);
 234         else
 235                 debug("node '%s' updated\n", node);
 236         karo_set_fdtsize(blob);
 237 }
 238
 239 void karo_fdt_del_prop(void *blob, const char *compat, phys_addr_t offs,
 240                         const char *prop)
 241 {
 242         int ret;
 243         int offset;
 244         const uint32_t *phandle;
 245         uint32_t ph = 0;
 246
 247         offset = fdt_node_offset_by_compat_reg(blob, compat, offs);
 248         if (offset <= 0)
 249                 return;
 250
 251         phandle = fdt_getprop(blob, offset, prop, NULL);
 252         if (phandle) {
 253                 ph = fdt32_to_cpu(*phandle);
 254         }
 255
 256         debug("Removing property '%s' from node %s@%08lx\n", prop, compat, offs);
 257         ret = fdt_delprop(blob, offset, prop);
 258         if (ret == 0)
 259                 karo_set_fdtsize(blob);
 260
 261         if (!ph)
 262                 return;
 263
 264         offset = fdt_node_offset_by_phandle(blob, ph);
 265         if (offset <= 0)
 266                 return;
 267
 268         debug("Removing node @ %08x\n", offset);
 269         fdt_del_node(blob, offset);
 270         karo_set_fdtsize(blob);
 271 }
 272
 273 static int fdt_init_fb_mode(const void *blob, int off, struct fb_videomode *fb_mode)
 274 {
 275         const uint32_t *prop;
 276
 277         memset(fb_mode, 0, sizeof(*fb_mode));
 278
 279         prop = fdt_getprop(blob, off, "clock-frequency", NULL);
 280         if (prop)
 281                 fb_mode->pixclock = KHZ2PICOS(fdt32_to_cpu(*prop) / 1000);
 282
 283         prop = fdt_getprop(blob, off, "hactive", NULL);
 284         if (prop)
 285                 fb_mode->xres = fdt32_to_cpu(*prop);
 286
 287         prop = fdt_getprop(blob, off, "vactive", NULL);
 288         if (prop)
 289                 fb_mode->yres = fdt32_to_cpu(*prop);
 290
 291         prop = fdt_getprop(blob, off, "hback-porch", NULL);
 292         if (prop)
 293                 fb_mode->left_margin = fdt32_to_cpu(*prop);
 294
 295         prop = fdt_getprop(blob, off, "hsync-len", NULL);
 296         if (prop)
 297                 fb_mode->hsync_len = fdt32_to_cpu(*prop);
 298
 299         prop = fdt_getprop(blob, off, "hfront-porch", NULL);
 300         if (prop)
 301                 fb_mode->right_margin = fdt32_to_cpu(*prop);
 302
 303         prop = fdt_getprop(blob, off, "vback-porch", NULL);
 304         if (prop)
 305                 fb_mode->upper_margin = fdt32_to_cpu(*prop);
 306
 307         prop = fdt_getprop(blob, off, "vsync-len", NULL);
 308         if (prop)
 309                 fb_mode->vsync_len = fdt32_to_cpu(*prop);
 310
 311         prop = fdt_getprop(blob, off, "vfront-porch", NULL);
 312         if (prop)
 313                 fb_mode->lower_margin = fdt32_to_cpu(*prop);
 314
 315         prop = fdt_getprop(blob, off, "hsync-active", NULL);
 316         if (prop)
 317                 fb_mode->sync |= *prop ? FB_SYNC_VERT_HIGH_ACT : 0;
 318
 319         prop = fdt_getprop(blob, off, "vsync-active", NULL);
 320         if (prop)
 321                 fb_mode->sync |= *prop ? FB_SYNC_VERT_HIGH_ACT : 0;
 322 #if 0
 323         prop = fdt_getprop(blob, off, "de-active", NULL);
 324         if (prop)
 325                 fb_mode->sync |= *prop ? FB_SYNC_DATA_ENABLE_HIGH_ACT : 0;
 326
 327         prop = fdt_getprop(blob, off, "pixelclk-active", NULL);
 328         if (prop)
 329                 fb_mode->sync |= *prop ? FB_SYNC_DOTCLK_FALLING_ACT : 0;
 330 #endif
 331         return 0;
 332 }
 333
 334 static int fdt_update_native_fb_mode(void *blob, int off)
 335 {
 336         int ret;
 337         uint32_t ph;
 338         int i;
 339
 340         for (i = 1; i < 16; i++) {
 341                 fdt_set_totalsize(blob, fdt_totalsize(blob) + 8 * 4);
 342                 karo_set_fdtsize(blob);
 343                 ph = fdt_create_phandle(blob, off);
 344                 if (ph)
 345                         break;
 346         }
 347         if (ph == 0) {
 348                 printf("Failed to create phandle for video timing\n");
 349                 return -ENOMEM;
 350         }
 351
 352         debug("phandle of %s @ %06x=%04x\n", fdt_get_name(blob, off, NULL),
 353                 off, ph);
 354         off = fdt_parent_offset(blob, off);
 355         if (off < 0)
 356                 return off;
 357         debug("parent offset=%06x\n", off);
 358         ret = fdt_setprop_cell(blob, off, "native-mode", ph);
 359         return ret;
 360 }
 361
 362 static int karo_fdt_find_video_timings(void *blob)
 363 {
 364         int off = fdt_path_offset(blob, "display");
 365         const char *subnode = "display-timings";
 366
 367         if (off < 0) {
 368                 debug("Could not find node 'display' in FDT: %d\n", off);
 369                 return off;
 370         }
 371
 372         off = fdt_subnode_offset(blob, off, subnode);
 373         if (off < 0) {
 374                 debug("Could not find node '%s' in FDT: %d\n", subnode, off);
 375         }
 376         return off;
 377 }
 378
 379 int karo_fdt_get_fb_mode(void *blob, const char *name, struct fb_videomode *fb_mode)
 380 {
 381         int off = karo_fdt_find_video_timings(blob);
 382
 383         if (off < 0)
 384                 return off;
 385         do {
 386                 const char *n, *endp;
 387                 int len, d = 1;
 388
 389                 off = fdt_next_node(blob, off, &d);
 390                 if (d > 2) {
 391                         debug("Skipping node @ %04x %s depth %d\n", off, fdt_get_name(blob, off, NULL), d);
 392                         continue;
 393                 }
 394                 debug("parsing subnode @ %04x %s depth %d\n", off, fdt_get_name(blob, off, NULL), d);
 395                 if (off < 0 || d < 1)
 396                         break;
 397
 398                 n = fdt_getprop(blob, off, "panel-name", &len);
 399                 if (!n) {
 400                         printf("Missing 'panel-name' property in node '%s'\n",
 401                                 fdt_get_name(blob, off, NULL));
 402                         continue;
 403                 }
 404                 for (endp = n + len; n < endp; n += strlen(n) + 1) {
 405                         debug("Checking panel-name '%s'\n", n);
 406                         if (strcasecmp(n, name) == 0) {
 407                                 fdt_init_fb_mode(blob, off, fb_mode);
 408                                 return fdt_update_native_fb_mode(blob, off);
 409                         }
 410                 }
 411         } while (off > 0);
 412         return -EINVAL;
 413 }
 414
 415 #define SET_FB_PROP(n, v) ({                                            \
 416         int ret;                                                        \
 417         ret = fdt_setprop_u32(blob, off, n, v);                         \
 418         if (ret) {                                                      \
 419                 printf("Failed to set property %s: %d\n", name, ret);   \
 420         }                                                               \
 421         ret;                                                            \
 422 })
 423
 424
 425 int karo_fdt_create_fb_mode(void *blob, const char *name,
 426                         struct fb_videomode *fb_mode)
 427 {
 428         int off = fdt_path_offset(blob, "display");
 429         int ret;
 430         const char *subnode = "display-timings";
 431
 432         if (off < 0) {
 433                 printf("'display' node not found in FDT\n");
 434                 return off;
 435         }
 436
 437         ret = fdt_increase_size(blob, 512);
 438         if (ret) {
 439                 printf("Failed to increase FDT size: %d\n", ret);
 440                 return ret;
 441         }
 442
 443         printf("node '%s' offset=%d\n", "display", off);
 444         ret = fdt_subnode_offset(blob, off, subnode);
 445         if (ret < 0) {
 446                 debug("Could not find node '%s' in FDT: %d\n", subnode, ret);
 447                 ret = fdt_add_subnode(blob, off, subnode);
 448                 if (ret < 0) {
 449                         printf("Failed to add %s subnode: %d\n", subnode, ret);
 450                         return ret;
 451                 }
 452         }
 453
 454         printf("node '%s' offset=%d\n", subnode, ret);
 455         ret = fdt_add_subnode(blob, ret, name);
 456         if (ret < 0) {
 457                 printf("Failed to add %s subnode: %d\n", name, ret);
 458                 return ret;
 459         }
 460         off = ret;
 461
 462         ret = SET_FB_PROP("clock-frequency",
 463                         PICOS2KHZ(fb_mode->pixclock) * 1000);
 464         if (ret)
 465                 goto out;
 466         ret = SET_FB_PROP("hactive", fb_mode->xres);
 467         if (ret)
 468                 goto out;
 469         ret = SET_FB_PROP("vactive", fb_mode->yres);
 470         if (ret)
 471                 goto out;
 472         ret = SET_FB_PROP("hback-porch", fb_mode->left_margin);
 473         if (ret)
 474                 goto out;
 475         ret = SET_FB_PROP("hsync-len", fb_mode->hsync_len);
 476         if (ret)
 477                 goto out;
 478         ret = SET_FB_PROP("hfront-porch", fb_mode->right_margin);
 479         if (ret)
 480                 goto out;
 481         ret = SET_FB_PROP("vback-porch", fb_mode->upper_margin);
 482         if (ret)
 483                 goto out;
 484         ret = SET_FB_PROP("vsync-len", fb_mode->vsync_len);
 485         if (ret)
 486                 goto out;
 487         ret = SET_FB_PROP("vfront-porch", fb_mode->lower_margin);
 488         if (ret)
 489                 goto out;
 490         ret = SET_FB_PROP("hsync-active",
 491                         fb_mode->sync & FB_SYNC_VERT_HIGH_ACT ? 1 : 0);
 492         if (ret)
 493                 goto out;
 494         ret = SET_FB_PROP("vsync-active",
 495                         fb_mode->sync & FB_SYNC_VERT_HIGH_ACT ? 1 : 0);
 496         if (ret)
 497                 goto out;
 498
 499         /* TOTO: make these configurable */
 500         ret = SET_FB_PROP("de-active", 1);
 501         if (ret)
 502                 goto out;
 503         ret = SET_FB_PROP("pixelclk-active", 1);
 504         if (ret)
 505                 goto out;
 506
 507         return fdt_update_native_fb_mode(blob, off);
 508
 509 out:
 510         karo_set_fdtsize(blob);
 511         return ret;
 512 }
 513
 514 int karo_fdt_update_fb_mode(void *blob, const char *name)
 515 {
 516         int off = fdt_path_offset(blob, "display");
 517         const char *subnode = "display-timings";
 518
 519         if (off < 0)
 520                 return off;
 521
 522         if (name == NULL) {
 523                 int parent = fdt_parent_offset(blob, off);
 524                 int ret;
 525
 526                 if (parent < 0) {
 527                         printf("Failed to find parent of node '%s'\n",
 528                                 fdt_get_name(blob, off, NULL));
 529                         return parent;
 530                 }
 531                 debug("parent offset=%06x\n", parent);
 532                 ret = fdt_set_node_status(blob, parent, FDT_STATUS_DISABLED, 0);
 533                 return ret;
 534         }
 535
 536         off = fdt_subnode_offset(blob, off, subnode);
 537         if (off < 0) {
 538                 debug("Could not find node '%s' in FDT: %d\n", subnode, off);
 539         }
 540         do {
 541                 const char *n, *endp;
 542                 int len, d = 1;
 543                 int node = fdt_next_node(blob, off, &d);
 544                 int do_del;
 545
 546                 if (d > 2) {
 547                         debug("Skipping node @ %04x %s depth %d\n", node, fdt_get_name(blob, node, NULL), d);
 548                         continue;
 549                 }
 550                 debug("parsing subnode @ %04x %s depth %d\n", node, fdt_get_name(blob, node, NULL), d);
 551                 if (node < 0 || d < 1)
 552                         break;
 553
 554                 n = fdt_getprop(blob, node, "panel-name", &len);
 555                 if (!n) {
 556                         printf("Missing 'panel-name' property in node '%s'\n",
 557                                 fdt_get_name(blob, node, NULL));
 558                         continue;
 559                 }
 560                 do_del = 1;
 561                 for (endp = n + len; n < endp; n += strlen(n) + 1) {
 562                         debug("Checking panel-name '%s'\n", n);
 563                         if (strcasecmp(n, name) == 0) {
 564                                 debug("Keeping node %s @ %04x\n",
 565                                         fdt_get_name(blob, node, NULL), node);
 566                                 off = node;
 567                                 do_del = 0;
 568                                 break;
 569                         }
 570                 }
 571                 if (do_del) {
 572                         debug("Deleting node %s @ %04x\n",
 573                                 fdt_get_name(blob, node, NULL), node);
 574                         fdt_del_node(blob, node);
 575                 }
 576
 577         } while (off > 0);
 578
 579         return 0;
 580 }
 581
 582 static int karo_load_part(const char *part, void *addr, size_t len)
 583 {
 584         int ret;
 585         struct mtd_device *dev;
 586         struct part_info *part_info;
 587         u8 part_num;
 588         size_t actual;
 589
 590         debug("Initializing mtd_parts\n");
 591         ret = mtdparts_init();
 592         if (ret)
 593                 return ret;
 594
 595         debug("Trying to find NAND partition '%s'\n", part);
 596         ret = find_dev_and_part(part, &dev, &part_num,
 597                                 &part_info);
 598         if (ret) {
 599                 printf("Failed to find flash partition '%s': %d\n",
 600                         part, ret);
 601
 602                 return ret;
 603         }
 604         debug("Found partition '%s': offset=%08x size=%08x\n",
 605                 part, part_info->offset, part_info->size);
 606         if (part_info->size < len) {
 607                 printf("Warning: partition '%s' smaller than requested size: %u; truncating data to %u byte\n",
 608                         part, len, part_info->size);
 609                 len = part_info->size;
 610         }
 611         debug("Reading NAND partition '%s' to %p\n", part, addr);
 612         ret = nand_read_skip_bad(&nand_info[0], part_info->offset, &len,
 613                                 &actual, len, addr);
 614         if (ret) {
 615                 printf("Failed to load partition '%s' to %p\n", part, addr);
 616                 return ret;
 617         }
 618         if (actual < len)
 619                 printf("Read only %u of %u bytes due to bad blocks\n",
 620                         actual, len);
 621
 622         debug("Read %u byte from partition '%s' @ offset %08x\n",
 623                 len, part, part_info->offset);
 624         return 0;
 625 }
 626
 627 void *karo_fdt_load_dtb(void)
 628 {
 629         int ret;
 630         void *fdt = (void *)getenv_ulong("fdtaddr", 16, CONFIG_SYS_FDT_ADDR);
 631
 632         if (tstc()) {
 633                 debug("aborting DTB load\n");
 634                 return NULL;
 635         }
 636
 637         /* clear FDT header in memory */
 638         memset(fdt, 0, 4);
 639
 640         ret = karo_load_part("dtb", fdt, MAX_DTB_SIZE);
 641         if (ret) {
 642                 printf("Failed to load dtb from flash: %d\n", ret);
 643                 return NULL;
 644         }
 645
 646         if (fdt_check_header(fdt)) {
 647                 debug("No valid DTB in flash\n");
 648                 return NULL;
 649         }
 650         debug("Using DTB from flash\n");
 651         karo_set_fdtsize(fdt);
 652         return fdt;
 653 }