/*
 * Copyright (c) 2005-2008 Chelsio, Inc. All rights reserved.
 *
 * This software is available to you under a choice of one of two
 * licenses.  You may choose to be licensed under the terms of the GNU
 * General Public License (GPL) Version 2, available from the file
 * COPYING in the main directory of this source tree, or the
 * OpenIB.org BSD license below:
 *
 *     Redistribution and use in source and binary forms, with or
 *     without modification, are permitted provided that the following
 *     conditions are met:
 *
 *      - Redistributions of source code must retain the above
 *        copyright notice, this list of conditions and the following
 *        disclaimer.
 *
 *      - Redistributions in binary form must reproduce the above
 *        copyright notice, this list of conditions and the following
 *        disclaimer in the documentation and/or other materials
 *        provided with the distribution.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
 * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
 * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */
#include "common.h"

/* VSC8211 PHY specific registers. */
enum {
 VSC8211_SIGDET_CTRL = 19,
 VSC8211_EXT_CTRL = 23,
 VSC8211_INTR_ENABLE = 25,
 VSC8211_INTR_STATUS = 26,
 VSC8211_LED_CTRL = 27,
 VSC8211_AUX_CTRL_STAT = 28,
 VSC8211_EXT_PAGE_AXS = 31,
};

enum {
 VSC_INTR_RX_ERR = 1 << 0,
 VSC_INTR_MS_ERR = 1 << 1,  /* master/slave resolution error */
 VSC_INTR_CABLE = 1 << 2,  /* cable impairment */
 VSC_INTR_FALSE_CARR = 1 << 3,  /* false carrier */
 VSC_INTR_MEDIA_CHG = 1 << 4,  /* AMS media change */
 VSC_INTR_RX_FIFO = 1 << 5,  /* Rx FIFO over/underflow */
 VSC_INTR_TX_FIFO = 1 << 6,  /* Tx FIFO over/underflow */
 VSC_INTR_DESCRAMBL = 1 << 7,  /* descrambler lock-lost */
 VSC_INTR_SYMBOL_ERR = 1 << 8,  /* symbol error */
 VSC_INTR_NEG_DONE = 1 << 10, /* autoneg done */
 VSC_INTR_NEG_ERR = 1 << 11, /* autoneg error */
 VSC_INTR_DPLX_CHG = 1 << 12, /* duplex change */
 VSC_INTR_LINK_CHG = 1 << 13, /* link change */
 VSC_INTR_SPD_CHG = 1 << 14, /* speed change */
 VSC_INTR_ENABLE = 1 << 15, /* interrupt enable */
};

enum {
 VSC_CTRL_CLAUSE37_VIEW = 1 << 4,   /* Switch to Clause 37 view */
 VSC_CTRL_MEDIA_MODE_HI = 0xf000    /* High part of media mode select */
};

#define CFG_CHG_INTR_MASK (VSC_INTR_LINK_CHG | VSC_INTR_NEG_ERR | \
      VSC_INTR_DPLX_CHG | VSC_INTR_SPD_CHG | \
       VSC_INTR_NEG_DONE)
#define INTR_MASK (CFG_CHG_INTR_MASK | VSC_INTR_TX_FIFO | VSC_INTR_RX_FIFO | \
     VSC_INTR_ENABLE)

/* PHY specific auxiliary control & status register fields */
#define S_ACSR_ACTIPHY_TMR    0
#define M_ACSR_ACTIPHY_TMR    0x3
#define V_ACSR_ACTIPHY_TMR(x) ((x) << S_ACSR_ACTIPHY_TMR)

#define S_ACSR_SPEED    3
#define M_ACSR_SPEED    0x3
#define G_ACSR_SPEED(x) (((x) >> S_ACSR_SPEED) & M_ACSR_SPEED)

#define S_ACSR_DUPLEX 5
#define F_ACSR_DUPLEX (1 << S_ACSR_DUPLEX)

#define S_ACSR_ACTIPHY 6
#define F_ACSR_ACTIPHY (1 << S_ACSR_ACTIPHY)

/*
 * Reset the PHY.  This PHY completes reset immediately so we never wait.
 */
static int vsc8211_reset(struct cphy *cphy, int wait)
{
 return t3_phy_reset(cphy, MDIO_DEVAD_NONE, 0);
}

static int vsc8211_intr_enable(struct cphy *cphy)
{
 return t3_mdio_write(cphy, MDIO_DEVAD_NONE, VSC8211_INTR_ENABLE,
        INTR_MASK);
}

static int vsc8211_intr_disable(struct cphy *cphy)
{
 return t3_mdio_write(cphy, MDIO_DEVAD_NONE, VSC8211_INTR_ENABLE, 0);
}

static int vsc8211_intr_clear(struct cphy *cphy)
{
 u32 val;

 /* Clear PHY interrupts by reading the register. */
 return t3_mdio_read(cphy, MDIO_DEVAD_NONE, VSC8211_INTR_STATUS, &val);
}

static int vsc8211_autoneg_enable(struct cphy *cphy)
{
 return t3_mdio_change_bits(cphy, MDIO_DEVAD_NONE, MII_BMCR,
       BMCR_PDOWN | BMCR_ISOLATE,
       BMCR_ANENABLE | BMCR_ANRESTART);
}

static int vsc8211_autoneg_restart(struct cphy *cphy)
{
 return t3_mdio_change_bits(cphy, MDIO_DEVAD_NONE, MII_BMCR,
       BMCR_PDOWN | BMCR_ISOLATE,
       BMCR_ANRESTART);
}

static int vsc8211_get_link_status(struct cphy *cphy, int *link_ok,
       int *speed, int *duplex, int *fc)
{
 unsigned int bmcr, status, lpa, adv;
 int err, sp = -1, dplx = -1, pause = 0;

 err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_BMCR, &bmcr);
 if (!err)
  err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_BMSR, &status);
 if (err)
  return err;

 if (link_ok) {
  /*
   * BMSR_LSTATUS is latch-low, so if it is 0 we need to read it
   * once more to get the current link state.
 */
  if (!(status & BMSR_LSTATUS))
   err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_BMSR,
        &status);
  if (err)
   return err;
  *link_ok = (status & BMSR_LSTATUS) != 0;
 }
 if (!(bmcr & BMCR_ANENABLE)) {
  dplx = (bmcr & BMCR_FULLDPLX) ? DUPLEX_FULL : DUPLEX_HALF;
  if (bmcr & BMCR_SPEED1000)
   sp = SPEED_1000;
  else if (bmcr & BMCR_SPEED100)
   sp = SPEED_100;
  else
   sp = SPEED_10;
 } else if (status & BMSR_ANEGCOMPLETE) {
  err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, VSC8211_AUX_CTRL_STAT,
       &status);
  if (err)
   return err;

  dplx = (status & F_ACSR_DUPLEX) ? DUPLEX_FULL : DUPLEX_HALF;
  sp = G_ACSR_SPEED(status);
  if (sp == 0)
   sp = SPEED_10;
  else if (sp == 1)
   sp = SPEED_100;
  else
   sp = SPEED_1000;

  if (fc && dplx == DUPLEX_FULL) {
   err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_LPA,
        &lpa);
   if (!err)
    err = t3_mdio_read(cphy, MDIO_DEVAD_NONE,
         MII_ADVERTISE, &adv);
   if (err)
    return err;

   if (lpa & adv & ADVERTISE_PAUSE_CAP)
    pause = PAUSE_RX | PAUSE_TX;
   else if ((lpa & ADVERTISE_PAUSE_CAP) &&
     (lpa & ADVERTISE_PAUSE_ASYM) &&
     (adv & ADVERTISE_PAUSE_ASYM))
    pause = PAUSE_TX;
   else if ((lpa & ADVERTISE_PAUSE_ASYM) &&
     (adv & ADVERTISE_PAUSE_CAP))
    pause = PAUSE_RX;
  }
 }
 if (speed)
  *speed = sp;
 if (duplex)
  *duplex = dplx;
 if (fc)
  *fc = pause;
 return 0;
}

static int vsc8211_get_link_status_fiber(struct cphy *cphy, int *link_ok,
      int *speed, int *duplex, int *fc)
{
 unsigned int bmcr, status, lpa, adv;
 int err, sp = -1, dplx = -1, pause = 0;

 err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_BMCR, &bmcr);
 if (!err)
  err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_BMSR, &status);
 if (err)
  return err;

 if (link_ok) {
  /*
   * BMSR_LSTATUS is latch-low, so if it is 0 we need to read it
   * once more to get the current link state.
 */
  if (!(status & BMSR_LSTATUS))
   err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_BMSR,
        &status);
  if (err)
   return err;
  *link_ok = (status & BMSR_LSTATUS) != 0;
 }
 if (!(bmcr & BMCR_ANENABLE)) {
  dplx = (bmcr & BMCR_FULLDPLX) ? DUPLEX_FULL : DUPLEX_HALF;
  if (bmcr & BMCR_SPEED1000)
   sp = SPEED_1000;
  else if (bmcr & BMCR_SPEED100)
   sp = SPEED_100;
  else
   sp = SPEED_10;
 } else if (status & BMSR_ANEGCOMPLETE) {
  err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_LPA, &lpa);
  if (!err)
   err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, MII_ADVERTISE,
        &adv);
  if (err)
   return err;

  if (adv & lpa & ADVERTISE_1000XFULL) {
   dplx = DUPLEX_FULL;
   sp = SPEED_1000;
  } else if (adv & lpa & ADVERTISE_1000XHALF) {
   dplx = DUPLEX_HALF;
   sp = SPEED_1000;
  }

  if (fc && dplx == DUPLEX_FULL) {
   if (lpa & adv & ADVERTISE_1000XPAUSE)
    pause = PAUSE_RX | PAUSE_TX;
   else if ((lpa & ADVERTISE_1000XPAUSE) &&
     (adv & lpa & ADVERTISE_1000XPSE_ASYM))
    pause = PAUSE_TX;
   else if ((lpa & ADVERTISE_1000XPSE_ASYM) &&
     (adv & ADVERTISE_1000XPAUSE))
    pause = PAUSE_RX;
  }
 }
 if (speed)
  *speed = sp;
 if (duplex)
  *duplex = dplx;
 if (fc)
  *fc = pause;
 return 0;
}

#ifdef UNUSED
/*
 * Enable/disable auto MDI/MDI-X in forced link speed mode.
 */
static int vsc8211_set_automdi(struct cphy *phy, int enable)
{
 int err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, VSC8211_EXT_PAGE_AXS, 0x52b5);
 if (err)
  return err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, 18, 0x12);
 if (err)
  return err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, 17, enable ? 0x2803 : 0x3003);
 if (err)
  return err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, 16, 0x87fa);
 if (err)
  return err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, VSC8211_EXT_PAGE_AXS, 0);
 if (err)
  return err;

 return 0;
}

int vsc8211_set_speed_duplex(struct cphy *phy, int speed, int duplex)
{
 int err;

 err = t3_set_phy_speed_duplex(phy, speed, duplex);
 if (!err)
  err = vsc8211_set_automdi(phy, 1);
 return err;
}
#endif /* UNUSED */

static int vsc8211_power_down(struct cphy *cphy, int enable)
{
 return t3_mdio_change_bits(cphy, 0, MII_BMCR, BMCR_PDOWN,
       enable ? BMCR_PDOWN : 0);
}

static int vsc8211_intr_handler(struct cphy *cphy)
{
 unsigned int cause;
 int err, cphy_cause = 0;

 err = t3_mdio_read(cphy, MDIO_DEVAD_NONE, VSC8211_INTR_STATUS, &cause);
 if (err)
  return err;

 cause &= INTR_MASK;
 if (cause & CFG_CHG_INTR_MASK)
  cphy_cause |= cphy_cause_link_change;
 if (cause & (VSC_INTR_RX_FIFO | VSC_INTR_TX_FIFO))
  cphy_cause |= cphy_cause_fifo_error;
 return cphy_cause;
}

static const struct cphy_ops vsc8211_ops = {
 .reset = vsc8211_reset,
 .intr_enable = vsc8211_intr_enable,
 .intr_disable = vsc8211_intr_disable,
 .intr_clear = vsc8211_intr_clear,
 .intr_handler = vsc8211_intr_handler,
 .autoneg_enable = vsc8211_autoneg_enable,
 .autoneg_restart = vsc8211_autoneg_restart,
 .advertise = t3_phy_advertise,
 .set_speed_duplex = t3_set_phy_speed_duplex,
 .get_link_status = vsc8211_get_link_status,
 .power_down = vsc8211_power_down,
};

static const struct cphy_ops vsc8211_fiber_ops = {
 .reset = vsc8211_reset,
 .intr_enable = vsc8211_intr_enable,
 .intr_disable = vsc8211_intr_disable,
 .intr_clear = vsc8211_intr_clear,
 .intr_handler = vsc8211_intr_handler,
 .autoneg_enable = vsc8211_autoneg_enable,
 .autoneg_restart = vsc8211_autoneg_restart,
 .advertise = t3_phy_advertise_fiber,
 .set_speed_duplex = t3_set_phy_speed_duplex,
 .get_link_status = vsc8211_get_link_status_fiber,
 .power_down = vsc8211_power_down,
};

int t3_vsc8211_phy_prep(struct cphy *phy, struct adapter *adapter,
   int phy_addr, const struct mdio_ops *mdio_ops)
{
 int err;
 unsigned int val;

 cphy_init(phy, adapter, phy_addr, &vsc8211_ops, mdio_ops,
    SUPPORTED_10baseT_Full | SUPPORTED_100baseT_Full |
    SUPPORTED_1000baseT_Full | SUPPORTED_Autoneg | SUPPORTED_MII |
    SUPPORTED_TP | SUPPORTED_IRQ, "10/100/1000BASE-T");
 msleep(20);       /* PHY needs ~10ms to start responding to MDIO */

 err = t3_mdio_read(phy, MDIO_DEVAD_NONE, VSC8211_EXT_CTRL, &val);
 if (err)
  return err;
 if (val & VSC_CTRL_MEDIA_MODE_HI) {
  /* copper interface, just need to configure the LEDs */
  return t3_mdio_write(phy, MDIO_DEVAD_NONE, VSC8211_LED_CTRL,
         0x100);
 }

 phy->caps = SUPPORTED_1000baseT_Full | SUPPORTED_Autoneg |
      SUPPORTED_MII | SUPPORTED_FIBRE | SUPPORTED_IRQ;
 phy->desc = "1000BASE-X";
 phy->ops = &vsc8211_fiber_ops;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, VSC8211_EXT_PAGE_AXS, 1);
 if (err)
  return err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, VSC8211_SIGDET_CTRL, 1);
 if (err)
  return err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, VSC8211_EXT_PAGE_AXS, 0);
 if (err)
  return err;

 err = t3_mdio_write(phy, MDIO_DEVAD_NONE, VSC8211_EXT_CTRL,
       val | VSC_CTRL_CLAUSE37_VIEW);
 if (err)
  return err;

 err = vsc8211_reset(phy, 0);
 if (err)
  return err;

 udelay(5); /* delay after reset before next SMI */
 return 0;
}