board/CZ.NIC/turris_mox/turris_mox.c

   1 // SPDX-License-Identifier: GPL-2.0+
   2 /*
   3  * Copyright (C) 2018 Marek Behun <marek.behun@nic.cz>
   4  */
   5
   6 #include <common.h>
   7 #include <asm/arch/cpu.h>
   8 #include <asm/arch/soc.h>
   9 #include <net.h>
  10 #include <asm/global_data.h>
  11 #include <asm/io.h>
  12 #include <asm/gpio.h>
  13 #include <button.h>
  14 #include <clk.h>
  15 #include <dm.h>
  16 #include <env.h>
  17 #include <fdt_support.h>
  18 #include <init.h>
  19 #include <led.h>
  20 #include <linux/delay.h>
  21 #include <linux/libfdt.h>
  22 #include <linux/string.h>
  23 #include <miiphy.h>
  24 #include <mvebu/comphy.h>
  25 #include <spi.h>
  26
  27 #include "mox_sp.h"
  28
  29 #define MAX_MOX_MODULES         10
  30
  31 #define MOX_MODULE_SFP          0x1
  32 #define MOX_MODULE_PCI          0x2
  33 #define MOX_MODULE_TOPAZ        0x3
  34 #define MOX_MODULE_PERIDOT      0x4
  35 #define MOX_MODULE_USB3         0x5
  36 #define MOX_MODULE_PASSPCI      0x6
  37
  38 #define ARMADA_37XX_NB_GPIO_SEL (MVEBU_REGISTER(0x13830))
  39 #define ARMADA_37XX_SPI_CTRL    (MVEBU_REGISTER(0x10600))
  40 #define ARMADA_37XX_SPI_CFG     (MVEBU_REGISTER(0x10604))
  41 #define ARMADA_37XX_SPI_DOUT    (MVEBU_REGISTER(0x10608))
  42 #define ARMADA_37XX_SPI_DIN     (MVEBU_REGISTER(0x1060c))
  43
  44 #define ETH1_PATH       "/soc/internal-regs@d0000000/ethernet@40000"
  45 #define MDIO_PATH       "/soc/internal-regs@d0000000/mdio@32004"
  46 #define SFP_GPIO_PATH   "/soc/internal-regs@d0000000/spi@10600/moxtet@1/gpio@0"
  47 #define PCIE_PATH       "/soc/pcie@d0070000"
  48 #define SFP_PATH        "/sfp"
  49 #define LED_PATH        "/leds/led"
  50 #define BUTTON_PATH     "/gpio-keys/reset"
  51
  52 DECLARE_GLOBAL_DATA_PTR;
  53
  54 #if defined(CONFIG_OF_BOARD_FIXUP)
  55 int board_fix_fdt(void *blob)
  56 {
  57         u8 topology[MAX_MOX_MODULES];
  58         int i, size, node;
  59         bool enable;
  60
  61         /*
  62          * SPI driver is not loaded in driver model yet, but we have to find out
  63          * if pcie should be enabled in U-Boot's device tree. Therefore we have
  64          * to read SPI by reading/writing SPI registers directly
  65          */
  66
  67         writel(0x10df, ARMADA_37XX_SPI_CFG);
  68         /* put pin from GPIO to SPI mode */
  69         clrbits_le32(ARMADA_37XX_NB_GPIO_SEL, BIT(12));
  70         /* enable SPI CS1 */
  71         setbits_le32(ARMADA_37XX_SPI_CTRL, BIT(17));
  72
  73         while (!(readl(ARMADA_37XX_SPI_CTRL) & 0x2))
  74                 udelay(1);
  75
  76         for (i = 0; i < MAX_MOX_MODULES; ++i) {
  77                 writel(0x0, ARMADA_37XX_SPI_DOUT);
  78
  79                 while (!(readl(ARMADA_37XX_SPI_CTRL) & 0x2))
  80                         udelay(1);
  81
  82                 topology[i] = readl(ARMADA_37XX_SPI_DIN) & 0xff;
  83                 if (topology[i] == 0xff)
  84                         break;
  85
  86                 topology[i] &= 0xf;
  87         }
  88
  89         size = i;
  90
  91         /* disable SPI CS1 */
  92         clrbits_le32(ARMADA_37XX_SPI_CTRL, BIT(17));
  93
  94         if (size > 1 && (topology[1] == MOX_MODULE_PCI ||
  95                          topology[1] == MOX_MODULE_USB3 ||
  96                          topology[1] == MOX_MODULE_PASSPCI))
  97                 enable = true;
  98         else
  99                 enable = false;
 100
 101         node = fdt_path_offset(blob, PCIE_PATH);
 102
 103         if (node < 0) {
 104                 printf("Cannot find PCIe node in U-Boot's device tree!\n");
 105                 return 0;
 106         }
 107
 108         if (fdt_setprop_string(blob, node, "status",
 109                                enable ? "okay" : "disabled") < 0) {
 110                 printf("Cannot %s PCIe in U-Boot's device tree!\n",
 111                        enable ? "enable" : "disable");
 112                 return 0;
 113         }
 114
 115         if (a3700_fdt_fix_pcie_regions(blob) < 0) {
 116                 printf("Cannot fix PCIe regions in U-Boot's device tree!\n");
 117                 return 0;
 118         }
 119
 120         return 0;
 121 }
 122 #endif
 123
 124 int board_init(void)
 125 {
 126         /* address of boot parameters */
 127         gd->bd->bi_boot_params = CONFIG_SYS_SDRAM_BASE + 0x100;
 128
 129         return 0;
 130 }
 131
 132 static int mox_do_spi(u8 *in, u8 *out, size_t size)
 133 {
 134         struct spi_slave *slave;
 135         struct udevice *dev;
 136         int ret;
 137
 138         ret = spi_get_bus_and_cs(0, 1, 1000000, SPI_CPHA | SPI_CPOL,
 139                                  "spi_generic_drv", "moxtet@1", &dev,
 140                                  &slave);
 141         if (ret)
 142                 goto fail;
 143
 144         ret = spi_claim_bus(slave);
 145         if (ret)
 146                 goto fail_free;
 147
 148         ret = spi_xfer(slave, size * 8, out, in, SPI_XFER_ONCE);
 149
 150         spi_release_bus(slave);
 151 fail_free:
 152         spi_free_slave(slave);
 153 fail:
 154         return ret;
 155 }
 156
 157 static int mox_get_topology(const u8 **ptopology, int *psize, int *pis_sd)
 158 {
 159         static int is_sd;
 160         static u8 topology[MAX_MOX_MODULES - 1];
 161         static int size;
 162         u8 din[MAX_MOX_MODULES], dout[MAX_MOX_MODULES];
 163         int ret, i;
 164
 165         if (size) {
 166                 if (ptopology)
 167                         *ptopology = topology;
 168                 if (psize)
 169                         *psize = size;
 170                 if (pis_sd)
 171                         *pis_sd = is_sd;
 172                 return 0;
 173         }
 174
 175         memset(din, 0, MAX_MOX_MODULES);
 176         memset(dout, 0, MAX_MOX_MODULES);
 177
 178         ret = mox_do_spi(din, dout, MAX_MOX_MODULES);
 179         if (ret)
 180                 return ret;
 181
 182         if (din[0] == 0x10)
 183                 is_sd = 1;
 184         else if (din[0] == 0x00)
 185                 is_sd = 0;
 186         else
 187                 return -ENODEV;
 188
 189         for (i = 1; i < MAX_MOX_MODULES && din[i] != 0xff; ++i)
 190                 topology[i - 1] = din[i] & 0xf;
 191         size = i - 1;
 192
 193         if (ptopology)
 194                 *ptopology = topology;
 195         if (psize)
 196                 *psize = size;
 197         if (pis_sd)
 198                 *pis_sd = is_sd;
 199
 200         return 0;
 201 }
 202
 203 int comphy_update_map(struct comphy_map *serdes_map, int count)
 204 {
 205         int ret, i, size, sfpindex = -1, swindex = -1;
 206         const u8 *topology;
 207
 208         ret = mox_get_topology(&topology, &size, NULL);
 209         if (ret)
 210                 return ret;
 211
 212         for (i = 0; i < size; ++i) {
 213                 if (topology[i] == MOX_MODULE_SFP && sfpindex == -1)
 214                         sfpindex = i;
 215                 else if ((topology[i] == MOX_MODULE_TOPAZ ||
 216                           topology[i] == MOX_MODULE_PERIDOT) &&
 217                          swindex == -1)
 218                         swindex = i;
 219         }
 220
 221         if (sfpindex >= 0 && swindex >= 0) {
 222                 if (sfpindex < swindex)
 223                         serdes_map[0].speed = COMPHY_SPEED_1_25G;
 224                 else
 225                         serdes_map[0].speed = COMPHY_SPEED_3_125G;
 226         } else if (sfpindex >= 0) {
 227                 serdes_map[0].speed = COMPHY_SPEED_1_25G;
 228         } else if (swindex >= 0) {
 229                 serdes_map[0].speed = COMPHY_SPEED_3_125G;
 230         }
 231
 232         return 0;
 233 }
 234
 235 #define SW_SMI_CMD_R(d, r)      (0x9800 | (((d) & 0x1f) << 5) | ((r) & 0x1f))
 236 #define SW_SMI_CMD_W(d, r)      (0x9400 | (((d) & 0x1f) << 5) | ((r) & 0x1f))
 237
 238 static int sw_multi_read(struct mii_dev *bus, int sw, int dev, int reg)
 239 {
 240         bus->write(bus, sw, 0, 0, SW_SMI_CMD_R(dev, reg));
 241         mdelay(5);
 242         return bus->read(bus, sw, 0, 1);
 243 }
 244
 245 static void sw_multi_write(struct mii_dev *bus, int sw, int dev, int reg,
 246                            u16 val)
 247 {
 248         bus->write(bus, sw, 0, 1, val);
 249         bus->write(bus, sw, 0, 0, SW_SMI_CMD_W(dev, reg));
 250         mdelay(5);
 251 }
 252
 253 static int sw_scratch_read(struct mii_dev *bus, int sw, int reg)
 254 {
 255         sw_multi_write(bus, sw, 0x1c, 0x1a, (reg & 0x7f) << 8);
 256         return sw_multi_read(bus, sw, 0x1c, 0x1a) & 0xff;
 257 }
 258
 259 static void sw_led_write(struct mii_dev *bus, int sw, int port, int reg,
 260                          u16 val)
 261 {
 262         sw_multi_write(bus, sw, port, 0x16, 0x8000 | ((reg & 7) << 12)
 263                                             | (val & 0x7ff));
 264 }
 265
 266 static void sw_blink_leds(struct mii_dev *bus, int peridot, int topaz)
 267 {
 268         int i, p;
 269         struct {
 270                 int port;
 271                 u16 val;
 272                 int wait;
 273         } regs[] = {
 274                 { 2, 0xef, 1 }, { 2, 0xfe, 1 }, { 2, 0x33, 0 },
 275                 { 4, 0xef, 1 }, { 4, 0xfe, 1 }, { 4, 0x33, 0 },
 276                 { 3, 0xfe, 1 }, { 3, 0xef, 1 }, { 3, 0x33, 0 },
 277                 { 1, 0xfe, 1 }, { 1, 0xef, 1 }, { 1, 0x33, 0 }
 278         };
 279
 280         for (i = 0; i < 12; ++i) {
 281                 for (p = 0; p < peridot; ++p) {
 282                         sw_led_write(bus, 0x10 + p, regs[i].port, 0,
 283                                      regs[i].val);
 284                         sw_led_write(bus, 0x10 + p, regs[i].port + 4, 0,
 285                                      regs[i].val);
 286                 }
 287                 if (topaz) {
 288                         sw_led_write(bus, 0x2, 0x10 + regs[i].port, 0,
 289                                      regs[i].val);
 290                 }
 291
 292                 if (regs[i].wait)
 293                         mdelay(75);
 294         }
 295 }
 296
 297 static void check_switch_address(struct mii_dev *bus, int addr)
 298 {
 299         if (sw_scratch_read(bus, addr, 0x70) >> 3 != addr)
 300                 printf("Check of switch MDIO address failed for 0x%02x\n",
 301                        addr);
 302 }
 303
 304 static int sfp, pci, topaz, peridot, usb, passpci;
 305 static int sfp_pos, peridot_pos[3];
 306 static int module_count;
 307
 308 static int configure_peridots(struct gpio_desc *reset_gpio)
 309 {
 310         int i, ret;
 311         u8 dout[MAX_MOX_MODULES];
 312
 313         memset(dout, 0, MAX_MOX_MODULES);
 314
 315         /* set addresses of Peridot modules */
 316         for (i = 0; i < peridot; ++i)
 317                 dout[module_count - peridot_pos[i]] = (~i) & 3;
 318
 319         /*
 320          * if there is a SFP module connected to the last Peridot module, set
 321          * the P10_SMODE to 1 for the Peridot module
 322          */
 323         if (sfp)
 324                 dout[module_count - peridot_pos[i - 1]] |= 1 << 3;
 325
 326         dm_gpio_set_value(reset_gpio, 1);
 327         mdelay(10);
 328
 329         ret = mox_do_spi(NULL, dout, module_count + 1);
 330
 331         mdelay(10);
 332         dm_gpio_set_value(reset_gpio, 0);
 333
 334         mdelay(50);
 335
 336         return ret;
 337 }
 338
 339 static int get_reset_gpio(struct gpio_desc *reset_gpio)
 340 {
 341         int node;
 342
 343         node = fdt_node_offset_by_compatible(gd->fdt_blob, 0, "cznic,moxtet");
 344         if (node < 0) {
 345                 printf("Cannot find Moxtet bus device node!\n");
 346                 return -1;
 347         }
 348
 349         gpio_request_by_name_nodev(offset_to_ofnode(node), "reset-gpios", 0,
 350                                    reset_gpio, GPIOD_IS_OUT);
 351
 352         if (!dm_gpio_is_valid(reset_gpio)) {
 353                 printf("Cannot find reset GPIO for Moxtet bus!\n");
 354                 return -1;
 355         }
 356
 357         return 0;
 358 }
 359
 360 int misc_init_r(void)
 361 {
 362         int ret;
 363         u8 mac1[6], mac2[6];
 364
 365         ret = mbox_sp_get_board_info(NULL, mac1, mac2, NULL, NULL);
 366         if (ret < 0) {
 367                 printf("Cannot read data from OTP!\n");
 368                 return 0;
 369         }
 370
 371         if (is_valid_ethaddr(mac1) && !env_get("ethaddr"))
 372                 eth_env_set_enetaddr("ethaddr", mac1);
 373
 374         if (is_valid_ethaddr(mac2) && !env_get("eth1addr"))
 375                 eth_env_set_enetaddr("eth1addr", mac2);
 376
 377         return 0;
 378 }
 379
 380 static void mox_phy_modify(struct phy_device *phydev, int page, int reg,
 381                            u16 mask, u16 set)
 382 {
 383         int val;
 384
 385         val = phydev->drv->readext(phydev, MDIO_DEVAD_NONE, page, reg);
 386         val &= ~mask;
 387         val |= set;
 388         phydev->drv->writeext(phydev, MDIO_DEVAD_NONE, page, reg, val);
 389 }
 390
 391 static void mox_phy_leds_start_blinking(void)
 392 {
 393         struct phy_device *phydev;
 394         struct mii_dev *bus;
 395
 396         bus = miiphy_get_dev_by_name("neta@30000");
 397         if (!bus) {
 398                 printf("Cannot get MDIO bus device!\n");
 399                 return;
 400         }
 401
 402         phydev = phy_find_by_mask(bus, BIT(1), PHY_INTERFACE_MODE_RGMII);
 403         if (!phydev) {
 404                 printf("Cannot get ethernet PHY!\n");
 405                 return;
 406         }
 407
 408         mox_phy_modify(phydev, 3, 0x12, 0x700, 0x400);
 409         mox_phy_modify(phydev, 3, 0x10, 0xff, 0xbb);
 410 }
 411
 412 static bool read_reset_button(void)
 413 {
 414         struct udevice *button, *led;
 415         int i;
 416
 417         if (device_get_global_by_ofnode(ofnode_path(BUTTON_PATH), &button)) {
 418                 printf("Cannot find reset button!\n");
 419                 return false;
 420         }
 421
 422         if (device_get_global_by_ofnode(ofnode_path(LED_PATH), &led)) {
 423                 printf("Cannot find status LED!\n");
 424                 return false;
 425         }
 426
 427         led_set_state(led, LEDST_ON);
 428
 429         for (i = 0; i < 21; ++i) {
 430                 if (button_get_state(button) != BUTTON_ON)
 431                         return false;
 432                 if (i < 20)
 433                         mdelay(50);
 434         }
 435
 436         led_set_state(led, LEDST_OFF);
 437
 438         return true;
 439 }
 440
 441 static void handle_reset_button(void)
 442 {
 443         const char * const vars[1] = { "bootcmd_rescue", };
 444
 445         /*
 446          * Ensure that bootcmd_rescue has always stock value, so that running
 447          *   run bootcmd_rescue
 448          * always works correctly.
 449          */
 450         env_set_default_vars(1, (char * const *)vars, 0);
 451
 452         if (read_reset_button()) {
 453                 const char * const vars[2] = {
 454                         "bootcmd",
 455                         "distro_bootcmd",
 456                 };
 457
 458                 /*
 459                  * Set the above envs to their default values, in case the user
 460                  * managed to break them.
 461                  */
 462                 env_set_default_vars(2, (char * const *)vars, 0);
 463
 464                 /* Ensure bootcmd_rescue is used by distroboot */
 465                 env_set("boot_targets", "rescue");
 466
 467                 /* start blinking PHY LEDs */
 468                 mox_phy_leds_start_blinking();
 469
 470                 printf("RESET button was pressed, overwriting boot_targets!\n");
 471         } else {
 472                 /*
 473                  * In case the user somehow managed to save environment with
 474                  * boot_targets=rescue, reset boot_targets to default value.
 475                  * This could happen in subsequent commands if bootcmd_rescue
 476                  * failed.
 477                  */
 478                 if (!strcmp(env_get("boot_targets"), "rescue")) {
 479                         const char * const vars[1] = {
 480                                 "boot_targets",
 481                         };
 482
 483                         env_set_default_vars(1, (char * const *)vars, 0);
 484                 }
 485         }
 486 }
 487
 488 static void mox_print_info(void)
 489 {
 490         int ret, board_version, ram_size;
 491         u64 serial_number;
 492         const char *pub_key;
 493
 494         ret = mbox_sp_get_board_info(&serial_number, NULL, NULL, &board_version,
 495                                      &ram_size);
 496         if (ret < 0)
 497                 return;
 498
 499         printf("Turris Mox:\n");
 500         printf("  Board version: %i\n", board_version);
 501         printf("  RAM size: %i MiB\n", ram_size);
 502         printf("  Serial Number: %016llX\n", serial_number);
 503
 504         pub_key = mox_sp_get_ecdsa_public_key();
 505         if (pub_key)
 506                 printf("  ECDSA Public Key: %s\n", pub_key);
 507         else
 508                 printf("Cannot read ECDSA Public Key\n");
 509 }
 510
 511 int last_stage_init(void)
 512 {
 513         int ret, i;
 514         const u8 *topology;
 515         int is_sd;
 516         struct mii_dev *bus;
 517         struct gpio_desc reset_gpio = {};
 518
 519         mox_print_info();
 520
 521         ret = mox_get_topology(&topology, &module_count, &is_sd);
 522         if (ret) {
 523                 printf("Cannot read module topology!\n");
 524                 return 0;
 525         }
 526
 527         printf("  SD/eMMC version: %s\n", is_sd ? "SD" : "eMMC");
 528
 529         if (module_count)
 530                 printf("Module Topology:\n");
 531
 532         for (i = 0; i < module_count; ++i) {
 533                 switch (topology[i]) {
 534                 case MOX_MODULE_SFP:
 535                         printf("% 4i: SFP Module\n", i + 1);
 536                         break;
 537                 case MOX_MODULE_PCI:
 538                         printf("% 4i: Mini-PCIe Module\n", i + 1);
 539                         break;
 540                 case MOX_MODULE_TOPAZ:
 541                         printf("% 4i: Topaz Switch Module (4-port)\n", i + 1);
 542                         break;
 543                 case MOX_MODULE_PERIDOT:
 544                         printf("% 4i: Peridot Switch Module (8-port)\n", i + 1);
 545                         break;
 546                 case MOX_MODULE_USB3:
 547                         printf("% 4i: USB 3.0 Module (4 ports)\n", i + 1);
 548                         break;
 549                 case MOX_MODULE_PASSPCI:
 550                         printf("% 4i: Passthrough Mini-PCIe Module\n", i + 1);
 551                         break;
 552                 default:
 553                         printf("% 4i: unknown (ID %i)\n", i + 1, topology[i]);
 554                 }
 555         }
 556
 557         /* now check if modules are connected in supported mode */
 558
 559         for (i = 0; i < module_count; ++i) {
 560                 switch (topology[i]) {
 561                 case MOX_MODULE_SFP:
 562                         if (sfp) {
 563                                 printf("Error: Only one SFP module is supported!\n");
 564                         } else if (topaz) {
 565                                 printf("Error: SFP module cannot be connected after Topaz Switch module!\n");
 566                         } else {
 567                                 sfp_pos = i;
 568                                 ++sfp;
 569                         }
 570                         break;
 571                 case MOX_MODULE_PCI:
 572                         if (pci)
 573                                 printf("Error: Only one Mini-PCIe module is supported!\n");
 574                         else if (usb)
 575                                 printf("Error: Mini-PCIe module cannot come after USB 3.0 module!\n");
 576                         else if (i && (i != 1 || !passpci))
 577                                 printf("Error: Mini-PCIe module should be the first connected module or come right after Passthrough Mini-PCIe module!\n");
 578                         else
 579                                 ++pci;
 580                         break;
 581                 case MOX_MODULE_TOPAZ:
 582                         if (topaz)
 583                                 printf("Error: Only one Topaz module is supported!\n");
 584                         else if (peridot >= 3)
 585                                 printf("Error: At most two Peridot modules can come before Topaz module!\n");
 586                         else
 587                                 ++topaz;
 588                         break;
 589                 case MOX_MODULE_PERIDOT:
 590                         if (sfp || topaz) {
 591                                 printf("Error: Peridot module must come before SFP or Topaz module!\n");
 592                         } else if (peridot >= 3) {
 593                                 printf("Error: At most three Peridot modules are supported!\n");
 594                         } else {
 595                                 peridot_pos[peridot] = i;
 596                                 ++peridot;
 597                         }
 598                         break;
 599                 case MOX_MODULE_USB3:
 600                         if (pci)
 601                                 printf("Error: USB 3.0 module cannot come after Mini-PCIe module!\n");
 602                         else if (usb)
 603                                 printf("Error: Only one USB 3.0 module is supported!\n");
 604                         else if (i && (i != 1 || !passpci))
 605                                 printf("Error: USB 3.0 module should be the first connected module or come right after Passthrough Mini-PCIe module!\n");
 606                         else
 607                                 ++usb;
 608                         break;
 609                 case MOX_MODULE_PASSPCI:
 610                         if (passpci)
 611                                 printf("Error: Only one Passthrough Mini-PCIe module is supported!\n");
 612                         else if (i != 0)
 613                                 printf("Error: Passthrough Mini-PCIe module should be the first connected module!\n");
 614                         else
 615                                 ++passpci;
 616                 }
 617         }
 618
 619         /* now configure modules */
 620
 621         if (get_reset_gpio(&reset_gpio) < 0)
 622                 return 0;
 623
 624         if (peridot > 0) {
 625                 if (configure_peridots(&reset_gpio) < 0) {
 626                         printf("Cannot configure Peridot modules!\n");
 627                         peridot = 0;
 628                 }
 629         } else {
 630                 dm_gpio_set_value(&reset_gpio, 1);
 631                 mdelay(50);
 632                 dm_gpio_set_value(&reset_gpio, 0);
 633                 mdelay(50);
 634         }
 635
 636         if (peridot || topaz) {
 637                 /*
 638                  * now check if the addresses are set by reading Scratch & Misc
 639                  * register 0x70 of Peridot (and potentially Topaz) modules
 640                  */
 641
 642                 bus = miiphy_get_dev_by_name("neta@30000");
 643                 if (!bus) {
 644                         printf("Cannot get MDIO bus device!\n");
 645                 } else {
 646                         for (i = 0; i < peridot; ++i)
 647                                 check_switch_address(bus, 0x10 + i);
 648
 649                         if (topaz)
 650                                 check_switch_address(bus, 0x2);
 651
 652                         sw_blink_leds(bus, peridot, topaz);
 653                 }
 654         }
 655
 656         printf("\n");
 657
 658         handle_reset_button();
 659
 660         return 0;
 661 }
 662
 663 #if defined(CONFIG_OF_BOARD_SETUP)
 664
 665 static int vnode_by_path(void *blob, const char *fmt, va_list ap)
 666 {
 667         char path[128];
 668
 669         vsnprintf(path, 128, fmt, ap);
 670         return fdt_path_offset(blob, path);
 671 }
 672
 673 static int node_by_path(void *blob, const char *fmt, ...)
 674 {
 675         va_list ap;
 676         int res;
 677
 678         va_start(ap, fmt);
 679         res = vnode_by_path(blob, fmt, ap);
 680         va_end(ap);
 681
 682         return res;
 683 }
 684
 685 static int phandle_by_path(void *blob, const char *fmt, ...)
 686 {
 687         va_list ap;
 688         int node, phandle, res;
 689
 690         va_start(ap, fmt);
 691         node = vnode_by_path(blob, fmt, ap);
 692         va_end(ap);
 693
 694         if (node < 0)
 695                 return node;
 696
 697         phandle = fdt_get_phandle(blob, node);
 698         if (phandle > 0)
 699                 return phandle;
 700
 701         phandle = fdt_get_max_phandle(blob);
 702         if (phandle < 0)
 703                 return phandle;
 704
 705         phandle += 1;
 706
 707         res = fdt_setprop_u32(blob, node, "linux,phandle", phandle);
 708         if (res < 0)
 709                 return res;
 710
 711         res = fdt_setprop_u32(blob, node, "phandle", phandle);
 712         if (res < 0)
 713                 return res;
 714
 715         return phandle;
 716 }
 717
 718 static int enable_by_path(void *blob, const char *fmt, ...)
 719 {
 720         va_list ap;
 721         int node;
 722
 723         va_start(ap, fmt);
 724         node = vnode_by_path(blob, fmt, ap);
 725         va_end(ap);
 726
 727         if (node < 0)
 728                 return node;
 729
 730         return fdt_setprop_string(blob, node, "status", "okay");
 731 }
 732
 733 static bool is_topaz(int id)
 734 {
 735         return topaz && id == peridot + topaz - 1;
 736 }
 737
 738 static int switch_addr(int id)
 739 {
 740         return is_topaz(id) ? 0x2 : 0x10 + id;
 741 }
 742
 743 static int setup_switch(void *blob, int id)
 744 {
 745         int res, addr, i, node, phandle;
 746
 747         addr = switch_addr(id);
 748
 749         /* first enable the switch by setting status = "okay" */
 750         res = enable_by_path(blob, MDIO_PATH "/switch%i@%x", id, addr);
 751         if (res < 0)
 752                 return res;
 753
 754         /*
 755          * now if there are more switches or a SFP module coming after,
 756          * enable corresponding ports
 757          */
 758         if (id < peridot + topaz - 1) {
 759                 res = enable_by_path(blob,
 760                                      MDIO_PATH "/switch%i@%x/ports/port@a",
 761                                      id, addr);
 762         } else if (id == peridot - 1 && !topaz && sfp) {
 763                 res = enable_by_path(blob,
 764                                      MDIO_PATH "/switch%i@%x/ports/port-sfp@a",
 765                                      id, addr);
 766         } else {
 767                 res = 0;
 768         }
 769         if (res < 0)
 770                 return res;
 771
 772         if (id >= peridot + topaz - 1)
 773                 return 0;
 774
 775         /* finally change link property if needed */
 776         node = node_by_path(blob, MDIO_PATH "/switch%i@%x/ports/port@a", id,
 777                             addr);
 778         if (node < 0)
 779                 return node;
 780
 781         for (i = id + 1; i < peridot + topaz; ++i) {
 782                 phandle = phandle_by_path(blob,
 783                                           MDIO_PATH "/switch%i@%x/ports/port@%x",
 784                                           i, switch_addr(i),
 785                                           is_topaz(i) ? 5 : 9);
 786                 if (phandle < 0)
 787                         return phandle;
 788
 789                 if (i == id + 1)
 790                         res = fdt_setprop_u32(blob, node, "link", phandle);
 791                 else
 792                         res = fdt_appendprop_u32(blob, node, "link", phandle);
 793                 if (res < 0)
 794                         return res;
 795         }
 796
 797         return 0;
 798 }
 799
 800 static int remove_disabled_nodes(void *blob)
 801 {
 802         while (1) {
 803                 int res, offset;
 804
 805                 offset = fdt_node_offset_by_prop_value(blob, -1, "status",
 806                                                        "disabled", 9);
 807                 if (offset < 0)
 808                         break;
 809
 810                 res = fdt_del_node(blob, offset);
 811                 if (res < 0)
 812                         return res;
 813         }
 814
 815         return 0;
 816 }
 817
 818 int ft_board_setup(void *blob, struct bd_info *bd)
 819 {
 820         int node, phandle, res;
 821
 822         /*
 823          * If MOX B (PCI), MOX F (USB) or MOX G (Passthrough PCI) modules are
 824          * connected, enable the PCIe node.
 825          */
 826         if (pci || usb || passpci) {
 827                 node = fdt_path_offset(blob, PCIE_PATH);
 828                 if (node < 0)
 829                         return node;
 830
 831                 res = fdt_setprop_string(blob, node, "status", "okay");
 832                 if (res < 0)
 833                         return res;
 834
 835                 /* Fix PCIe regions for devices with 4 GB RAM */
 836                 res = a3700_fdt_fix_pcie_regions(blob);
 837                 if (res < 0)
 838                         return res;
 839         }
 840
 841         /*
 842          * If MOX C (Topaz switch) and/or MOX E (Peridot switch) are connected,
 843          * enable the eth1 node and setup the switches.
 844          */
 845         if (peridot || topaz) {
 846                 int i;
 847
 848                 res = enable_by_path(blob, ETH1_PATH);
 849                 if (res < 0)
 850                         return res;
 851
 852                 for (i = 0; i < peridot + topaz; ++i) {
 853                         res = setup_switch(blob, i);
 854                         if (res < 0)
 855                                 return res;
 856                 }
 857         }
 858
 859         /*
 860          * If MOX D (SFP cage module) is connected, enable the SFP node and eth1
 861          * node. If there is no Peridot switch between MOX A and MOX D, add link
 862          * to the SFP node to eth1 node.
 863          * Also enable and configure SFP GPIO controller node.
 864          */
 865         if (sfp) {
 866                 res = enable_by_path(blob, SFP_PATH);
 867                 if (res < 0)
 868                         return res;
 869
 870                 res = enable_by_path(blob, ETH1_PATH);
 871                 if (res < 0)
 872                         return res;
 873
 874                 if (!peridot) {
 875                         phandle = phandle_by_path(blob, SFP_PATH);
 876                         if (phandle < 0)
 877                                 return res;
 878
 879                         node = node_by_path(blob, ETH1_PATH);
 880                         if (node < 0)
 881                                 return node;
 882
 883                         res = fdt_setprop_u32(blob, node, "sfp", phandle);
 884                         if (res < 0)
 885                                 return res;
 886
 887                         res = fdt_setprop_string(blob, node, "phy-mode",
 888                                                  "sgmii");
 889                         if (res < 0)
 890                                 return res;
 891                 }
 892
 893                 res = enable_by_path(blob, SFP_GPIO_PATH);
 894                 if (res < 0)
 895                         return res;
 896
 897                 if (sfp_pos) {
 898                         char newname[16];
 899
 900                         /* moxtet-sfp is on non-zero position, change default */
 901                         node = node_by_path(blob, SFP_GPIO_PATH);
 902                         if (node < 0)
 903                                 return node;
 904
 905                         res = fdt_setprop_u32(blob, node, "reg", sfp_pos);
 906                         if (res < 0)
 907                                 return res;
 908
 909                         sprintf(newname, "gpio@%x", sfp_pos);
 910
 911                         res = fdt_set_name(blob, node, newname);
 912                         if (res < 0)
 913                                 return res;
 914                 }
 915         }
 916
 917         fdt_fixup_ethernet(blob);
 918
 919         /* Finally remove disabled nodes, as per Rob Herring's request. */
 920         remove_disabled_nodes(blob);
 921
 922         return 0;
 923 }
 924
 925 #endif