1 /* 2 * Opencore 10/100 ethernet mac driver 3 * 4 * Copyright (C) 2007-2008 Avionic Design Development GmbH 5 * Copyright (C) 2008-2009 Avionic Design GmbH 6 * Thierry Reding <thierry.reding@avionic-design.de> 7 * Copyright (C) 2010 Thomas Chou <thomas@wytron.com.tw> 8 * 9 * This program is free software; you can redistribute it and/or modify 10 * it under the terms of the GNU General Public License version 2 as 11 * published by the Free Software Foundation. 12 */ 13 14 #include <common.h> 15 #include <command.h> 16 #include <malloc.h> 17 #include <net.h> 18 #include <miiphy.h> 19 #include <asm/io.h> 20 #include <asm/cache.h> 21 22 /* register offsets */ 23 #define MODER 0x00 24 #define INT_SOURCE 0x04 25 #define INT_MASK 0x08 26 #define IPGT 0x0c 27 #define IPGR1 0x10 28 #define IPGR2 0x14 29 #define PACKETLEN 0x18 30 #define COLLCONF 0x1c 31 #define TX_BD_NUM 0x20 32 #define CTRLMODER 0x24 33 #define MIIMODER 0x28 34 #define MIICOMMAND 0x2c 35 #define MIIADDRESS 0x30 36 #define MIITX_DATA 0x34 37 #define MIIRX_DATA 0x38 38 #define MIISTATUS 0x3c 39 #define MAC_ADDR0 0x40 40 #define MAC_ADDR1 0x44 41 #define ETH_HASH0 0x48 42 #define ETH_HASH1 0x4c 43 #define ETH_TXCTRL 0x50 44 45 /* mode register */ 46 #define MODER_RXEN (1 << 0) /* receive enable */ 47 #define MODER_TXEN (1 << 1) /* transmit enable */ 48 #define MODER_NOPRE (1 << 2) /* no preamble */ 49 #define MODER_BRO (1 << 3) /* broadcast address */ 50 #define MODER_IAM (1 << 4) /* individual address mode */ 51 #define MODER_PRO (1 << 5) /* promiscuous mode */ 52 #define MODER_IFG (1 << 6) /* interframe gap for incoming frames */ 53 #define MODER_LOOP (1 << 7) /* loopback */ 54 #define MODER_NBO (1 << 8) /* no back-off */ 55 #define MODER_EDE (1 << 9) /* excess defer enable */ 56 #define MODER_FULLD (1 << 10) /* full duplex */ 57 #define MODER_RESET (1 << 11) /* FIXME: reset (undocumented) */ 58 #define MODER_DCRC (1 << 12) /* delayed CRC enable */ 59 #define MODER_CRC (1 << 13) /* CRC enable */ 60 #define MODER_HUGE (1 << 14) /* huge packets enable */ 61 #define MODER_PAD (1 << 15) /* padding enabled */ 62 #define MODER_RSM (1 << 16) /* receive small packets */ 63 64 /* interrupt source and mask registers */ 65 #define INT_MASK_TXF (1 << 0) /* transmit frame */ 66 #define INT_MASK_TXE (1 << 1) /* transmit error */ 67 #define INT_MASK_RXF (1 << 2) /* receive frame */ 68 #define INT_MASK_RXE (1 << 3) /* receive error */ 69 #define INT_MASK_BUSY (1 << 4) 70 #define INT_MASK_TXC (1 << 5) /* transmit control frame */ 71 #define INT_MASK_RXC (1 << 6) /* receive control frame */ 72 73 #define INT_MASK_TX (INT_MASK_TXF | INT_MASK_TXE) 74 #define INT_MASK_RX (INT_MASK_RXF | INT_MASK_RXE) 75 76 #define INT_MASK_ALL ( \ 77 INT_MASK_TXF | INT_MASK_TXE | \ 78 INT_MASK_RXF | INT_MASK_RXE | \ 79 INT_MASK_TXC | INT_MASK_RXC | \ 80 INT_MASK_BUSY \ 81 ) 82 83 /* packet length register */ 84 #define PACKETLEN_MIN(min) (((min) & 0xffff) << 16) 85 #define PACKETLEN_MAX(max) (((max) & 0xffff) << 0) 86 #define PACKETLEN_MIN_MAX(min, max) (PACKETLEN_MIN(min) | \ 87 PACKETLEN_MAX(max)) 88 89 /* transmit buffer number register */ 90 #define TX_BD_NUM_VAL(x) (((x) <= 0x80) ? (x) : 0x80) 91 92 /* control module mode register */ 93 #define CTRLMODER_PASSALL (1 << 0) /* pass all receive frames */ 94 #define CTRLMODER_RXFLOW (1 << 1) /* receive control flow */ 95 #define CTRLMODER_TXFLOW (1 << 2) /* transmit control flow */ 96 97 /* MII mode register */ 98 #define MIIMODER_CLKDIV(x) ((x) & 0xfe) /* needs to be an even number */ 99 #define MIIMODER_NOPRE (1 << 8) /* no preamble */ 100 101 /* MII command register */ 102 #define MIICOMMAND_SCAN (1 << 0) /* scan status */ 103 #define MIICOMMAND_READ (1 << 1) /* read status */ 104 #define MIICOMMAND_WRITE (1 << 2) /* write control data */ 105 106 /* MII address register */ 107 #define MIIADDRESS_FIAD(x) (((x) & 0x1f) << 0) 108 #define MIIADDRESS_RGAD(x) (((x) & 0x1f) << 8) 109 #define MIIADDRESS_ADDR(phy, reg) (MIIADDRESS_FIAD(phy) | \ 110 MIIADDRESS_RGAD(reg)) 111 112 /* MII transmit data register */ 113 #define MIITX_DATA_VAL(x) ((x) & 0xffff) 114 115 /* MII receive data register */ 116 #define MIIRX_DATA_VAL(x) ((x) & 0xffff) 117 118 /* MII status register */ 119 #define MIISTATUS_LINKFAIL (1 << 0) 120 #define MIISTATUS_BUSY (1 << 1) 121 #define MIISTATUS_INVALID (1 << 2) 122 123 /* TX buffer descriptor */ 124 #define TX_BD_CS (1 << 0) /* carrier sense lost */ 125 #define TX_BD_DF (1 << 1) /* defer indication */ 126 #define TX_BD_LC (1 << 2) /* late collision */ 127 #define TX_BD_RL (1 << 3) /* retransmission limit */ 128 #define TX_BD_RETRY_MASK (0x00f0) 129 #define TX_BD_RETRY(x) (((x) & 0x00f0) >> 4) 130 #define TX_BD_UR (1 << 8) /* transmitter underrun */ 131 #define TX_BD_CRC (1 << 11) /* TX CRC enable */ 132 #define TX_BD_PAD (1 << 12) /* pad enable */ 133 #define TX_BD_WRAP (1 << 13) 134 #define TX_BD_IRQ (1 << 14) /* interrupt request enable */ 135 #define TX_BD_READY (1 << 15) /* TX buffer ready */ 136 #define TX_BD_LEN(x) (((x) & 0xffff) << 16) 137 #define TX_BD_LEN_MASK (0xffff << 16) 138 139 #define TX_BD_STATS (TX_BD_CS | TX_BD_DF | TX_BD_LC | \ 140 TX_BD_RL | TX_BD_RETRY_MASK | TX_BD_UR) 141 142 /* RX buffer descriptor */ 143 #define RX_BD_LC (1 << 0) /* late collision */ 144 #define RX_BD_CRC (1 << 1) /* RX CRC error */ 145 #define RX_BD_SF (1 << 2) /* short frame */ 146 #define RX_BD_TL (1 << 3) /* too long */ 147 #define RX_BD_DN (1 << 4) /* dribble nibble */ 148 #define RX_BD_IS (1 << 5) /* invalid symbol */ 149 #define RX_BD_OR (1 << 6) /* receiver overrun */ 150 #define RX_BD_MISS (1 << 7) 151 #define RX_BD_CF (1 << 8) /* control frame */ 152 #define RX_BD_WRAP (1 << 13) 153 #define RX_BD_IRQ (1 << 14) /* interrupt request enable */ 154 #define RX_BD_EMPTY (1 << 15) 155 #define RX_BD_LEN(x) (((x) & 0xffff) << 16) 156 157 #define RX_BD_STATS (RX_BD_LC | RX_BD_CRC | RX_BD_SF | RX_BD_TL | \ 158 RX_BD_DN | RX_BD_IS | RX_BD_OR | RX_BD_MISS) 159 160 #define ETHOC_BUFSIZ 1536 161 #define ETHOC_ZLEN 64 162 #define ETHOC_BD_BASE 0x400 163 #define ETHOC_TIMEOUT (HZ / 2) 164 #define ETHOC_MII_TIMEOUT (1 + (HZ / 5)) 165 166 /** 167 * struct ethoc - driver-private device structure 168 * @num_tx: number of send buffers 169 * @cur_tx: last send buffer written 170 * @dty_tx: last buffer actually sent 171 * @num_rx: number of receive buffers 172 * @cur_rx: current receive buffer 173 */ 174 struct ethoc { 175 u32 num_tx; 176 u32 cur_tx; 177 u32 dty_tx; 178 u32 num_rx; 179 u32 cur_rx; 180 }; 181 182 /** 183 * struct ethoc_bd - buffer descriptor 184 * @stat: buffer statistics 185 * @addr: physical memory address 186 */ 187 struct ethoc_bd { 188 u32 stat; 189 u32 addr; 190 }; 191 192 static inline u32 ethoc_read(struct eth_device *dev, loff_t offset) 193 { 194 return readl(dev->iobase + offset); 195 } 196 197 static inline void ethoc_write(struct eth_device *dev, loff_t offset, u32 data) 198 { 199 writel(data, dev->iobase + offset); 200 } 201 202 static inline void ethoc_read_bd(struct eth_device *dev, int index, 203 struct ethoc_bd *bd) 204 { 205 loff_t offset = ETHOC_BD_BASE + (index * sizeof(struct ethoc_bd)); 206 bd->stat = ethoc_read(dev, offset + 0); 207 bd->addr = ethoc_read(dev, offset + 4); 208 } 209 210 static inline void ethoc_write_bd(struct eth_device *dev, int index, 211 const struct ethoc_bd *bd) 212 { 213 loff_t offset = ETHOC_BD_BASE + (index * sizeof(struct ethoc_bd)); 214 ethoc_write(dev, offset + 0, bd->stat); 215 ethoc_write(dev, offset + 4, bd->addr); 216 } 217 218 static inline void ethoc_set_mac_address(struct eth_device *dev) 219 { 220 u8 *mac = dev->enetaddr; 221 222 ethoc_write(dev, MAC_ADDR0, (mac[2] << 24) | (mac[3] << 16) | 223 (mac[4] << 8) | (mac[5] << 0)); 224 ethoc_write(dev, MAC_ADDR1, (mac[0] << 8) | (mac[1] << 0)); 225 } 226 227 static inline void ethoc_ack_irq(struct eth_device *dev, u32 mask) 228 { 229 ethoc_write(dev, INT_SOURCE, mask); 230 } 231 232 static inline void ethoc_enable_rx_and_tx(struct eth_device *dev) 233 { 234 u32 mode = ethoc_read(dev, MODER); 235 mode |= MODER_RXEN | MODER_TXEN; 236 ethoc_write(dev, MODER, mode); 237 } 238 239 static inline void ethoc_disable_rx_and_tx(struct eth_device *dev) 240 { 241 u32 mode = ethoc_read(dev, MODER); 242 mode &= ~(MODER_RXEN | MODER_TXEN); 243 ethoc_write(dev, MODER, mode); 244 } 245 246 static int ethoc_init_ring(struct eth_device *dev) 247 { 248 struct ethoc *priv = (struct ethoc *)dev->priv; 249 struct ethoc_bd bd; 250 int i; 251 252 priv->cur_tx = 0; 253 priv->dty_tx = 0; 254 priv->cur_rx = 0; 255 256 /* setup transmission buffers */ 257 bd.stat = TX_BD_IRQ | TX_BD_CRC; 258 259 for (i = 0; i < priv->num_tx; i++) { 260 if (i == priv->num_tx - 1) 261 bd.stat |= TX_BD_WRAP; 262 263 ethoc_write_bd(dev, i, &bd); 264 } 265 266 bd.stat = RX_BD_EMPTY | RX_BD_IRQ; 267 268 for (i = 0; i < priv->num_rx; i++) { 269 bd.addr = (u32)NetRxPackets[i]; 270 if (i == priv->num_rx - 1) 271 bd.stat |= RX_BD_WRAP; 272 273 flush_dcache(bd.addr, PKTSIZE_ALIGN); 274 ethoc_write_bd(dev, priv->num_tx + i, &bd); 275 } 276 277 return 0; 278 } 279 280 static int ethoc_reset(struct eth_device *dev) 281 { 282 u32 mode; 283 284 /* TODO: reset controller? */ 285 286 ethoc_disable_rx_and_tx(dev); 287 288 /* TODO: setup registers */ 289 290 /* enable FCS generation and automatic padding */ 291 mode = ethoc_read(dev, MODER); 292 mode |= MODER_CRC | MODER_PAD; 293 ethoc_write(dev, MODER, mode); 294 295 /* set full-duplex mode */ 296 mode = ethoc_read(dev, MODER); 297 mode |= MODER_FULLD; 298 ethoc_write(dev, MODER, mode); 299 ethoc_write(dev, IPGT, 0x15); 300 301 ethoc_ack_irq(dev, INT_MASK_ALL); 302 ethoc_enable_rx_and_tx(dev); 303 return 0; 304 } 305 306 static int ethoc_init(struct eth_device *dev, bd_t * bd) 307 { 308 struct ethoc *priv = (struct ethoc *)dev->priv; 309 printf("ethoc\n"); 310 311 ethoc_set_mac_address(dev); 312 313 priv->num_tx = 1; 314 priv->num_rx = PKTBUFSRX; 315 ethoc_write(dev, TX_BD_NUM, priv->num_tx); 316 ethoc_init_ring(dev); 317 ethoc_reset(dev); 318 319 return 0; 320 } 321 322 static int ethoc_update_rx_stats(struct ethoc_bd *bd) 323 { 324 int ret = 0; 325 326 if (bd->stat & RX_BD_TL) { 327 debug("ETHOC: " "RX: frame too long\n"); 328 ret++; 329 } 330 331 if (bd->stat & RX_BD_SF) { 332 debug("ETHOC: " "RX: frame too short\n"); 333 ret++; 334 } 335 336 if (bd->stat & RX_BD_DN) 337 debug("ETHOC: " "RX: dribble nibble\n"); 338 339 if (bd->stat & RX_BD_CRC) { 340 debug("ETHOC: " "RX: wrong CRC\n"); 341 ret++; 342 } 343 344 if (bd->stat & RX_BD_OR) { 345 debug("ETHOC: " "RX: overrun\n"); 346 ret++; 347 } 348 349 if (bd->stat & RX_BD_LC) { 350 debug("ETHOC: " "RX: late collision\n"); 351 ret++; 352 } 353 354 return ret; 355 } 356 357 static int ethoc_rx(struct eth_device *dev, int limit) 358 { 359 struct ethoc *priv = (struct ethoc *)dev->priv; 360 int count; 361 362 for (count = 0; count < limit; ++count) { 363 u32 entry; 364 struct ethoc_bd bd; 365 366 entry = priv->num_tx + (priv->cur_rx % priv->num_rx); 367 ethoc_read_bd(dev, entry, &bd); 368 if (bd.stat & RX_BD_EMPTY) 369 break; 370 371 debug("%s(): RX buffer %d, %x received\n", 372 __func__, priv->cur_rx, bd.stat); 373 if (ethoc_update_rx_stats(&bd) == 0) { 374 int size = bd.stat >> 16; 375 size -= 4; /* strip the CRC */ 376 NetReceive((void *)bd.addr, size); 377 } 378 379 /* clear the buffer descriptor so it can be reused */ 380 flush_dcache(bd.addr, PKTSIZE_ALIGN); 381 bd.stat &= ~RX_BD_STATS; 382 bd.stat |= RX_BD_EMPTY; 383 ethoc_write_bd(dev, entry, &bd); 384 priv->cur_rx++; 385 } 386 387 return count; 388 } 389 390 static int ethoc_update_tx_stats(struct ethoc_bd *bd) 391 { 392 if (bd->stat & TX_BD_LC) 393 debug("ETHOC: " "TX: late collision\n"); 394 395 if (bd->stat & TX_BD_RL) 396 debug("ETHOC: " "TX: retransmit limit\n"); 397 398 if (bd->stat & TX_BD_UR) 399 debug("ETHOC: " "TX: underrun\n"); 400 401 if (bd->stat & TX_BD_CS) 402 debug("ETHOC: " "TX: carrier sense lost\n"); 403 404 return 0; 405 } 406 407 static void ethoc_tx(struct eth_device *dev) 408 { 409 struct ethoc *priv = (struct ethoc *)dev->priv; 410 u32 entry = priv->dty_tx % priv->num_tx; 411 struct ethoc_bd bd; 412 413 ethoc_read_bd(dev, entry, &bd); 414 if ((bd.stat & TX_BD_READY) == 0) 415 (void)ethoc_update_tx_stats(&bd); 416 } 417 418 static int ethoc_send(struct eth_device *dev, volatile void *packet, int length) 419 { 420 struct ethoc *priv = (struct ethoc *)dev->priv; 421 struct ethoc_bd bd; 422 u32 entry; 423 u32 pending; 424 int tmo; 425 426 entry = priv->cur_tx % priv->num_tx; 427 ethoc_read_bd(dev, entry, &bd); 428 if (unlikely(length < ETHOC_ZLEN)) 429 bd.stat |= TX_BD_PAD; 430 else 431 bd.stat &= ~TX_BD_PAD; 432 bd.addr = (u32)packet; 433 434 flush_dcache(bd.addr, length); 435 bd.stat &= ~(TX_BD_STATS | TX_BD_LEN_MASK); 436 bd.stat |= TX_BD_LEN(length); 437 ethoc_write_bd(dev, entry, &bd); 438 439 /* start transmit */ 440 bd.stat |= TX_BD_READY; 441 ethoc_write_bd(dev, entry, &bd); 442 443 /* wait for transfer to succeed */ 444 tmo = get_timer(0) + 5 * CONFIG_SYS_HZ; 445 while (1) { 446 pending = ethoc_read(dev, INT_SOURCE); 447 ethoc_ack_irq(dev, pending & ~INT_MASK_RX); 448 if (pending & INT_MASK_BUSY) 449 debug("%s(): packet dropped\n", __func__); 450 451 if (pending & INT_MASK_TX) { 452 ethoc_tx(dev); 453 break; 454 } 455 if (get_timer(0) >= tmo) { 456 debug("%s(): timed out\n", __func__); 457 return -1; 458 } 459 } 460 461 debug("%s(): packet sent\n", __func__); 462 return 0; 463 } 464 465 static void ethoc_halt(struct eth_device *dev) 466 { 467 ethoc_disable_rx_and_tx(dev); 468 } 469 470 static int ethoc_recv(struct eth_device *dev) 471 { 472 u32 pending; 473 474 pending = ethoc_read(dev, INT_SOURCE); 475 ethoc_ack_irq(dev, pending); 476 if (pending & INT_MASK_BUSY) 477 debug("%s(): packet dropped\n", __func__); 478 if (pending & INT_MASK_RX) { 479 debug("%s(): rx irq\n", __func__); 480 ethoc_rx(dev, PKTBUFSRX); 481 } 482 483 return 0; 484 } 485 486 int ethoc_initialize(u8 dev_num, int base_addr) 487 { 488 struct ethoc *priv; 489 struct eth_device *dev; 490 491 priv = malloc(sizeof(*priv)); 492 if (!priv) 493 return 0; 494 dev = malloc(sizeof(*dev)); 495 if (!dev) { 496 free(priv); 497 return 0; 498 } 499 500 memset(dev, 0, sizeof(*dev)); 501 dev->priv = priv; 502 dev->iobase = base_addr; 503 dev->init = ethoc_init; 504 dev->halt = ethoc_halt; 505 dev->send = ethoc_send; 506 dev->recv = ethoc_recv; 507 sprintf(dev->name, "%s-%hu", "ETHOC", dev_num); 508 509 eth_register(dev); 510 return 1; 511 } 512