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_del_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("Removing node '%s' from DT\n", name);
 142         fdt_del_node(blob, offs);
 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_del_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_setprop_string(blob, off, "status", "disabled");
 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_setprop_string(blob, off, "status", "disabled");
 230         } else {
 231                 debug("Removing host pins from usbphy\n");
 232                 ret = fdt_delprop(blob, off, "pinctrl-0");
 233         }
 234 out:
 235         if (ret)
 236                 printf("Failed to update usbotg: %d\n", ret);
 237         else
 238                 debug("node '%s' updated\n", node);
 239         karo_set_fdtsize(blob);
 240 }
 241
 242 void karo_fdt_del_prop(void *blob, const char *compat, phys_addr_t offs,
 243                         const char *prop)
 244 {
 245         int ret;
 246         int offset;
 247         const uint32_t *phandle;
 248         uint32_t ph = 0;
 249
 250         offset = fdt_node_offset_by_compat_reg(blob, compat, offs);
 251         if (offset <= 0)
 252                 return;
 253
 254         phandle = fdt_getprop(blob, offset, prop, NULL);
 255         if (phandle) {
 256                 ph = fdt32_to_cpu(*phandle);
 257         }
 258
 259         debug("Removing property '%s' from node %s@%08lx\n", prop, compat, offs);
 260         ret = fdt_delprop(blob, offset, prop);
 261         if (ret == 0)
 262                 karo_set_fdtsize(blob);
 263
 264         if (!ph)
 265                 return;
 266
 267         offset = fdt_node_offset_by_phandle(blob, ph);
 268         if (offset <= 0)
 269                 return;
 270
 271         debug("Removing node @ %08x\n", offset);
 272         fdt_del_node(blob, offset);
 273         karo_set_fdtsize(blob);
 274 }
 275
 276 static int fdt_init_fb_mode(const void *blob, int off, struct fb_videomode *fb_mode)
 277 {
 278         const uint32_t *prop;
 279
 280         memset(fb_mode, 0, sizeof(*fb_mode));
 281
 282         prop = fdt_getprop(blob, off, "clock-frequency", NULL);
 283         if (prop)
 284                 fb_mode->pixclock = KHZ2PICOS(fdt32_to_cpu(*prop) / 1000);
 285
 286         prop = fdt_getprop(blob, off, "hactive", NULL);
 287         if (prop)
 288                 fb_mode->xres = fdt32_to_cpu(*prop);
 289
 290         prop = fdt_getprop(blob, off, "vactive", NULL);
 291         if (prop)
 292                 fb_mode->yres = fdt32_to_cpu(*prop);
 293
 294         prop = fdt_getprop(blob, off, "hback-porch", NULL);
 295         if (prop)
 296                 fb_mode->left_margin = fdt32_to_cpu(*prop);
 297
 298         prop = fdt_getprop(blob, off, "hsync-len", NULL);
 299         if (prop)
 300                 fb_mode->hsync_len = fdt32_to_cpu(*prop);
 301
 302         prop = fdt_getprop(blob, off, "hfront-porch", NULL);
 303         if (prop)
 304                 fb_mode->right_margin = fdt32_to_cpu(*prop);
 305
 306         prop = fdt_getprop(blob, off, "vback-porch", NULL);
 307         if (prop)
 308                 fb_mode->upper_margin = fdt32_to_cpu(*prop);
 309
 310         prop = fdt_getprop(blob, off, "vsync-len", NULL);
 311         if (prop)
 312                 fb_mode->vsync_len = fdt32_to_cpu(*prop);
 313
 314         prop = fdt_getprop(blob, off, "vfront-porch", NULL);
 315         if (prop)
 316                 fb_mode->lower_margin = fdt32_to_cpu(*prop);
 317
 318         prop = fdt_getprop(blob, off, "hsync-active", NULL);
 319         if (prop)
 320                 fb_mode->sync |= *prop ? FB_SYNC_VERT_HIGH_ACT : 0;
 321
 322         prop = fdt_getprop(blob, off, "vsync-active", NULL);
 323         if (prop)
 324                 fb_mode->sync |= *prop ? FB_SYNC_VERT_HIGH_ACT : 0;
 325 #if 0
 326         prop = fdt_getprop(blob, off, "de-active", NULL);
 327         if (prop)
 328                 fb_mode->sync |= *prop ? FB_SYNC_DATA_ENABLE_HIGH_ACT : 0;
 329
 330         prop = fdt_getprop(blob, off, "pixelclk-active", NULL);
 331         if (prop)
 332                 fb_mode->sync |= *prop ? FB_SYNC_DOTCLK_FALLING_ACT : 0;
 333 #endif
 334         return 0;
 335 }
 336
 337 static int fdt_update_native_fb_mode(void *blob, int off)
 338 {
 339         int ret;
 340         uint32_t ph;
 341         int i;
 342
 343         for (i = 1; i < 16; i++) {
 344                 fdt_set_totalsize(blob, fdt_totalsize(blob) + 8 * 4);
 345                 karo_set_fdtsize(blob);
 346                 ph = fdt_create_phandle(blob, off);
 347                 if (ph)
 348                         break;
 349         }
 350         if (ph == 0) {
 351                 printf("Failed to create phandle for video timing\n");
 352                 return -ENOMEM;
 353         }
 354
 355         debug("phandle of %s @ %06x=%04x\n", fdt_get_name(blob, off, NULL),
 356                 off, ph);
 357         off = fdt_parent_offset(blob, off);
 358         if (off < 0)
 359                 return off;
 360         debug("parent offset=%06x\n", off);
 361         ret = fdt_setprop_cell(blob, off, "native-mode", ph);
 362         return ret;
 363 }
 364
 365 static int karo_fdt_find_video_timings(void *blob)
 366 {
 367         int off = fdt_path_offset(blob, "display");
 368         const char *subnode = "display-timings";
 369
 370         if (off < 0) {
 371                 printf("Could not find node 'display' in FDT: %d\n", off);
 372                 return off;
 373         }
 374
 375         off = fdt_subnode_offset(blob, off, subnode);
 376         if (off < 0) {
 377                 printf("Could not find node '%s' in FDT: %d\n", subnode, off);
 378         }
 379         return off;
 380 }
 381
 382 int karo_fdt_get_fb_mode(void *blob, const char *name, struct fb_videomode *fb_mode)
 383 {
 384         int off = karo_fdt_find_video_timings(blob);
 385
 386         if (off < 0)
 387                 return off;
 388         do {
 389                 const char *n, *endp;
 390                 int len, d = 1;
 391
 392                 off = fdt_next_node(blob, off, &d);
 393                 if (d > 2) {
 394                         printf("Skipping node @ %04x %s depth %d\n", off, fdt_get_name(blob, off, NULL), d);
 395                         continue;
 396                 }
 397                 debug("parsing subnode @ %04x %s depth %d\n", off, fdt_get_name(blob, off, NULL), d);
 398                 if (off < 0 || d < 1)
 399                         break;
 400
 401                 n = fdt_getprop(blob, off, "panel-name", &len);
 402                 if (!n) {
 403                         printf("Missing 'panel-name' property in node '%s'\n",
 404                                 fdt_get_name(blob, off, NULL));
 405                         continue;
 406                 }
 407                 for (endp = n + len; n < endp; n += strlen(n) + 1) {
 408                         debug("Checking panel-name '%s'\n", n);
 409                         if (strcasecmp(n, name) == 0) {
 410                                 fdt_init_fb_mode(blob, off, fb_mode);
 411                                 return fdt_update_native_fb_mode(blob, off);
 412                         }
 413                 }
 414         } while (off > 0);
 415         return -EINVAL;
 416 }
 417
 418 int karo_fdt_update_fb_mode(void *blob, const char *name)
 419 {
 420         int off = fdt_path_offset(blob, "display");
 421         const char *subnode = "display-timings";
 422
 423         if (off < 0)
 424                 return off;
 425
 426         if (name == NULL) {
 427                 int parent = fdt_parent_offset(blob, off);
 428                 int ret;
 429
 430                 if (parent < 0) {
 431                         printf("Failed to find parent of node '%s'\n",
 432                                 fdt_get_name(blob, off, NULL));
 433                         return parent;
 434                 }
 435                 debug("parent offset=%06x\n", parent);
 436                 ret = fdt_setprop_string(blob, parent, "status", "disabled");
 437                 return ret;
 438         }
 439
 440         off = fdt_subnode_offset(blob, off, subnode);
 441         if (off < 0) {
 442                 printf("Could not find node '%s' in FDT: %d\n", subnode, off);
 443         }
 444         do {
 445                 const char *n, *endp;
 446                 int len, d = 1;
 447                 int node = fdt_next_node(blob, off, &d);
 448                 int do_del;
 449
 450                 if (d > 2) {
 451                         printf("Skipping node @ %04x %s depth %d\n", node, fdt_get_name(blob, node, NULL), d);
 452                         continue;
 453                 }
 454                 debug("parsing subnode @ %04x %s depth %d\n", node, fdt_get_name(blob, node, NULL), d);
 455                 if (node < 0 || d < 1)
 456                         break;
 457
 458                 n = fdt_getprop(blob, node, "panel-name", &len);
 459                 if (!n) {
 460                         printf("Missing 'panel-name' property in node '%s'\n",
 461                                 fdt_get_name(blob, node, NULL));
 462                         continue;
 463                 }
 464                 do_del = 1;
 465                 for (endp = n + len; n < endp; n += strlen(n) + 1) {
 466                         debug("Checking panel-name '%s'\n", n);
 467                         if (strcasecmp(n, name) == 0) {
 468                                 debug("Keeping node %s @ %04x\n",
 469                                         fdt_get_name(blob, node, NULL), node);
 470                                 off = node;
 471                                 do_del = 0;
 472                                 break;
 473                         }
 474                 }
 475                 if (do_del) {
 476                         debug("Deleting node %s @ %04x\n",
 477                                 fdt_get_name(blob, node, NULL), node);
 478                         fdt_del_node(blob, node);
 479                 }
 480
 481         } while (off > 0);
 482
 483         return 0;
 484 }
 485
 486 static int karo_load_part(const char *part, void *addr, size_t len)
 487 {
 488         int ret;
 489         struct mtd_device *dev;
 490         struct part_info *part_info;
 491         u8 part_num;
 492
 493         debug("Initializing mtd_parts\n");
 494         ret = mtdparts_init();
 495         if (ret)
 496                 return ret;
 497
 498         debug("Trying to find NAND partition '%s'\n", part);
 499         ret = find_dev_and_part(part, &dev, &part_num,
 500                                 &part_info);
 501         if (ret) {
 502                 printf("Failed to find flash partition '%s': %d\n",
 503                         part, ret);
 504
 505                 return ret;
 506         }
 507         debug("Found partition '%s': offset=%08x size=%08x\n",
 508                 part, part_info->offset, part_info->size);
 509         if (part_info->size < len) {
 510                 printf("Warning: partition '%s' smaller than requested size: %u; truncating data to %u byte\n",
 511                         part, len, part_info->size);
 512                 len = part_info->size;
 513         }
 514         debug("Reading NAND partition '%s' to %p\n", part, addr);
 515         ret = nand_read_skip_bad(&nand_info[0], part_info->offset, &len, addr);
 516         if (ret) {
 517                 printf("Failed to load partition '%s' to %p\n", part, addr);
 518                 return ret;
 519         }
 520         debug("Read %u byte from partition '%s' @ offset %08x\n",
 521                 len, part, part_info->offset);
 522         return 0;
 523 }
 524
 525 void *karo_fdt_load_dtb(void)
 526 {
 527         int ret;
 528         void *fdt = (void *)getenv_ulong("fdtaddr", 16, CONFIG_SYS_FDT_ADDR);
 529
 530         if (tstc()) {
 531                 debug("aborting DTB load\n");
 532                 return NULL;
 533         }
 534
 535         /* clear FDT header in memory */
 536         memset(fdt, 0, 4);
 537
 538         ret = karo_load_part("dtb", fdt, MAX_DTB_SIZE);
 539         if (ret) {
 540                 printf("Failed to load dtb from flash: %d\n", ret);
 541                 return NULL;
 542         }
 543
 544         if (fdt_check_header(fdt)) {
 545                 debug("No valid DTB in flash\n");
 546                 return NULL;
 547         }
 548         debug("Using DTB from flash\n");
 549         karo_set_fdtsize(fdt);
 550         return fdt;
 551 }