1 // SPDX-License-Identifier: GPL-2.0+
2 /*
3 * (C) Copyright 2001-2015
4 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
5 * Joe Hershberger, National Instruments
6 */
7
8 #include <common.h>
9 #include <command.h>
10 #include <environment.h>
11 #include <net.h>
12 #include <phy.h>
13 #include <linux/errno.h>
14 #include "eth_internal.h"
15
16 DECLARE_GLOBAL_DATA_PTR;
17
18 /*
19 * CPU and board-specific Ethernet initializations. Aliased function
20 * signals caller to move on
21 */
__def_eth_init(bd_t * bis)22 static int __def_eth_init(bd_t *bis)
23 {
24 return -1;
25 }
26 int cpu_eth_init(bd_t *bis) __attribute__((weak, alias("__def_eth_init")));
27 int board_eth_init(bd_t *bis) __attribute__((weak, alias("__def_eth_init")));
28
29 #ifdef CONFIG_API
30 static struct {
31 uchar data[PKTSIZE];
32 int length;
33 } eth_rcv_bufs[PKTBUFSRX];
34
35 static unsigned int eth_rcv_current, eth_rcv_last;
36 #endif
37
38 static struct eth_device *eth_devices;
39 struct eth_device *eth_current;
40
eth_set_current_to_next(void)41 void eth_set_current_to_next(void)
42 {
43 eth_current = eth_current->next;
44 }
45
eth_set_dev(struct eth_device * dev)46 void eth_set_dev(struct eth_device *dev)
47 {
48 eth_current = dev;
49 }
50
eth_get_dev_by_name(const char * devname)51 struct eth_device *eth_get_dev_by_name(const char *devname)
52 {
53 struct eth_device *dev, *target_dev;
54
55 BUG_ON(devname == NULL);
56
57 if (!eth_devices)
58 return NULL;
59
60 dev = eth_devices;
61 target_dev = NULL;
62 do {
63 if (strcmp(devname, dev->name) == 0) {
64 target_dev = dev;
65 break;
66 }
67 dev = dev->next;
68 } while (dev != eth_devices);
69
70 return target_dev;
71 }
72
eth_get_dev_by_index(int index)73 struct eth_device *eth_get_dev_by_index(int index)
74 {
75 struct eth_device *dev, *target_dev;
76
77 if (!eth_devices)
78 return NULL;
79
80 dev = eth_devices;
81 target_dev = NULL;
82 do {
83 if (dev->index == index) {
84 target_dev = dev;
85 break;
86 }
87 dev = dev->next;
88 } while (dev != eth_devices);
89
90 return target_dev;
91 }
92
eth_get_dev_index(void)93 int eth_get_dev_index(void)
94 {
95 if (!eth_current)
96 return -1;
97
98 return eth_current->index;
99 }
100
on_ethaddr(const char * name,const char * value,enum env_op op,int flags)101 static int on_ethaddr(const char *name, const char *value, enum env_op op,
102 int flags)
103 {
104 int index;
105 struct eth_device *dev;
106
107 if (!eth_devices)
108 return 0;
109
110 /* look for an index after "eth" */
111 index = simple_strtoul(name + 3, NULL, 10);
112
113 dev = eth_devices;
114 do {
115 if (dev->index == index) {
116 switch (op) {
117 case env_op_create:
118 case env_op_overwrite:
119 eth_parse_enetaddr(value, dev->enetaddr);
120 eth_write_hwaddr(dev, "eth", dev->index);
121 break;
122 case env_op_delete:
123 memset(dev->enetaddr, 0, ARP_HLEN);
124 }
125 }
126 dev = dev->next;
127 } while (dev != eth_devices);
128
129 return 0;
130 }
131 U_BOOT_ENV_CALLBACK(ethaddr, on_ethaddr);
132
eth_write_hwaddr(struct eth_device * dev,const char * base_name,int eth_number)133 int eth_write_hwaddr(struct eth_device *dev, const char *base_name,
134 int eth_number)
135 {
136 unsigned char env_enetaddr[ARP_HLEN];
137 int ret = 0;
138
139 eth_env_get_enetaddr_by_index(base_name, eth_number, env_enetaddr);
140
141 if (!is_zero_ethaddr(env_enetaddr)) {
142 if (!is_zero_ethaddr(dev->enetaddr) &&
143 memcmp(dev->enetaddr, env_enetaddr, ARP_HLEN)) {
144 printf("\nWarning: %s MAC addresses don't match:\n",
145 dev->name);
146 printf("Address in SROM is %pM\n",
147 dev->enetaddr);
148 printf("Address in environment is %pM\n",
149 env_enetaddr);
150 }
151
152 memcpy(dev->enetaddr, env_enetaddr, ARP_HLEN);
153 } else if (is_valid_ethaddr(dev->enetaddr)) {
154 eth_env_set_enetaddr_by_index(base_name, eth_number,
155 dev->enetaddr);
156 } else if (is_zero_ethaddr(dev->enetaddr)) {
157 #ifdef CONFIG_NET_RANDOM_ETHADDR
158 net_random_ethaddr(dev->enetaddr);
159 printf("\nWarning: %s (eth%d) using random MAC address - %pM\n",
160 dev->name, eth_number, dev->enetaddr);
161 #else
162 printf("\nError: %s address not set.\n",
163 dev->name);
164 return -EINVAL;
165 #endif
166 }
167
168 if (dev->write_hwaddr && !eth_mac_skip(eth_number)) {
169 if (!is_valid_ethaddr(dev->enetaddr)) {
170 printf("\nError: %s address %pM illegal value\n",
171 dev->name, dev->enetaddr);
172 return -EINVAL;
173 }
174
175 ret = dev->write_hwaddr(dev);
176 if (ret)
177 printf("\nWarning: %s failed to set MAC address\n",
178 dev->name);
179 }
180
181 return ret;
182 }
183
eth_register(struct eth_device * dev)184 int eth_register(struct eth_device *dev)
185 {
186 struct eth_device *d;
187 static int index;
188
189 assert(strlen(dev->name) < sizeof(dev->name));
190
191 if (!eth_devices) {
192 eth_devices = dev;
193 eth_current = dev;
194 eth_current_changed();
195 } else {
196 for (d = eth_devices; d->next != eth_devices; d = d->next)
197 ;
198 d->next = dev;
199 }
200
201 dev->state = ETH_STATE_INIT;
202 dev->next = eth_devices;
203 dev->index = index++;
204
205 return 0;
206 }
207
eth_unregister(struct eth_device * dev)208 int eth_unregister(struct eth_device *dev)
209 {
210 struct eth_device *cur;
211
212 /* No device */
213 if (!eth_devices)
214 return -ENODEV;
215
216 for (cur = eth_devices; cur->next != eth_devices && cur->next != dev;
217 cur = cur->next)
218 ;
219
220 /* Device not found */
221 if (cur->next != dev)
222 return -ENODEV;
223
224 cur->next = dev->next;
225
226 if (eth_devices == dev)
227 eth_devices = dev->next == eth_devices ? NULL : dev->next;
228
229 if (eth_current == dev) {
230 eth_current = eth_devices;
231 eth_current_changed();
232 }
233
234 return 0;
235 }
236
eth_initialize(void)237 int eth_initialize(void)
238 {
239 int num_devices = 0;
240
241 eth_devices = NULL;
242 eth_current = NULL;
243 eth_common_init();
244 /*
245 * If board-specific initialization exists, call it.
246 * If not, call a CPU-specific one
247 */
248 if (board_eth_init != __def_eth_init) {
249 if (board_eth_init(gd->bd) < 0)
250 printf("Board Net Initialization Failed\n");
251 } else if (cpu_eth_init != __def_eth_init) {
252 if (cpu_eth_init(gd->bd) < 0)
253 printf("CPU Net Initialization Failed\n");
254 } else {
255 printf("Net Initialization Skipped\n");
256 }
257
258 if (!eth_devices) {
259 puts("No ethernet found.\n");
260 bootstage_error(BOOTSTAGE_ID_NET_ETH_START);
261 } else {
262 struct eth_device *dev = eth_devices;
263 char *ethprime = env_get("ethprime");
264
265 bootstage_mark(BOOTSTAGE_ID_NET_ETH_INIT);
266 do {
267 if (dev->index)
268 puts(", ");
269
270 printf("%s", dev->name);
271
272 if (ethprime && strcmp(dev->name, ethprime) == 0) {
273 eth_current = dev;
274 puts(" [PRIME]");
275 }
276
277 if (strchr(dev->name, ' '))
278 puts("\nWarning: eth device name has a space!"
279 "\n");
280
281 eth_write_hwaddr(dev, "eth", dev->index);
282
283 dev = dev->next;
284 num_devices++;
285 } while (dev != eth_devices);
286
287 eth_current_changed();
288 putc('\n');
289 }
290
291 return num_devices;
292 }
293
294 #ifdef CONFIG_MCAST_TFTP
295 /* Multicast.
296 * mcast_addr: multicast ipaddr from which multicast Mac is made
297 * join: 1=join, 0=leave.
298 */
eth_mcast_join(struct in_addr mcast_ip,int join)299 int eth_mcast_join(struct in_addr mcast_ip, int join)
300 {
301 u8 mcast_mac[ARP_HLEN];
302 if (!eth_current || !eth_current->mcast)
303 return -1;
304 mcast_mac[5] = htonl(mcast_ip.s_addr) & 0xff;
305 mcast_mac[4] = (htonl(mcast_ip.s_addr)>>8) & 0xff;
306 mcast_mac[3] = (htonl(mcast_ip.s_addr)>>16) & 0x7f;
307 mcast_mac[2] = 0x5e;
308 mcast_mac[1] = 0x0;
309 mcast_mac[0] = 0x1;
310 return eth_current->mcast(eth_current, mcast_mac, join);
311 }
312
313 /* the 'way' for ethernet-CRC-32. Spliced in from Linux lib/crc32.c
314 * and this is the ethernet-crc method needed for TSEC -- and perhaps
315 * some other adapter -- hash tables
316 */
317 #define CRCPOLY_LE 0xedb88320
ether_crc(size_t len,unsigned char const * p)318 u32 ether_crc(size_t len, unsigned char const *p)
319 {
320 int i;
321 u32 crc;
322 crc = ~0;
323 while (len--) {
324 crc ^= *p++;
325 for (i = 0; i < 8; i++)
326 crc = (crc >> 1) ^ ((crc & 1) ? CRCPOLY_LE : 0);
327 }
328 /* an reverse the bits, cuz of way they arrive -- last-first */
329 crc = (crc >> 16) | (crc << 16);
330 crc = (crc >> 8 & 0x00ff00ff) | (crc << 8 & 0xff00ff00);
331 crc = (crc >> 4 & 0x0f0f0f0f) | (crc << 4 & 0xf0f0f0f0);
332 crc = (crc >> 2 & 0x33333333) | (crc << 2 & 0xcccccccc);
333 crc = (crc >> 1 & 0x55555555) | (crc << 1 & 0xaaaaaaaa);
334 return crc;
335 }
336
337 #endif
338
339
eth_init(void)340 int eth_init(void)
341 {
342 struct eth_device *old_current;
343
344 if (!eth_current) {
345 puts("No ethernet found.\n");
346 return -ENODEV;
347 }
348
349 old_current = eth_current;
350 do {
351 debug("Trying %s\n", eth_current->name);
352
353 if (eth_current->init(eth_current, gd->bd) >= 0) {
354 eth_current->state = ETH_STATE_ACTIVE;
355
356 return 0;
357 }
358 debug("FAIL\n");
359
360 eth_try_another(0);
361 } while (old_current != eth_current);
362
363 return -ETIMEDOUT;
364 }
365
eth_halt(void)366 void eth_halt(void)
367 {
368 if (!eth_current)
369 return;
370
371 eth_current->halt(eth_current);
372
373 eth_current->state = ETH_STATE_PASSIVE;
374 }
375
eth_is_active(struct eth_device * dev)376 int eth_is_active(struct eth_device *dev)
377 {
378 return dev && dev->state == ETH_STATE_ACTIVE;
379 }
380
eth_send(void * packet,int length)381 int eth_send(void *packet, int length)
382 {
383 if (!eth_current)
384 return -ENODEV;
385
386 return eth_current->send(eth_current, packet, length);
387 }
388
eth_rx(void)389 int eth_rx(void)
390 {
391 if (!eth_current)
392 return -ENODEV;
393
394 return eth_current->recv(eth_current);
395 }
396
397 #ifdef CONFIG_API
eth_save_packet(void * packet,int length)398 static void eth_save_packet(void *packet, int length)
399 {
400 char *p = packet;
401 int i;
402
403 if ((eth_rcv_last+1) % PKTBUFSRX == eth_rcv_current)
404 return;
405
406 if (PKTSIZE < length)
407 return;
408
409 for (i = 0; i < length; i++)
410 eth_rcv_bufs[eth_rcv_last].data[i] = p[i];
411
412 eth_rcv_bufs[eth_rcv_last].length = length;
413 eth_rcv_last = (eth_rcv_last + 1) % PKTBUFSRX;
414 }
415
eth_receive(void * packet,int length)416 int eth_receive(void *packet, int length)
417 {
418 char *p = packet;
419 void *pp = push_packet;
420 int i;
421
422 if (eth_rcv_current == eth_rcv_last) {
423 push_packet = eth_save_packet;
424 eth_rx();
425 push_packet = pp;
426
427 if (eth_rcv_current == eth_rcv_last)
428 return -1;
429 }
430
431 length = min(eth_rcv_bufs[eth_rcv_current].length, length);
432
433 for (i = 0; i < length; i++)
434 p[i] = eth_rcv_bufs[eth_rcv_current].data[i];
435
436 eth_rcv_current = (eth_rcv_current + 1) % PKTBUFSRX;
437 return length;
438 }
439 #endif /* CONFIG_API */
440