3 * Murray Jensen, CSIRO-MIT, <Murray.Jensen@csiro.au>
5 * SPDX-License-Identifier: GPL-2.0+
11 /* imports from fetch.c */
12 extern int fetch_and_parse (char *, ulong, int (*)(uchar *, uchar *));
14 /* imports from input.c */
15 extern int hymod_get_serno (const char *);
17 /* this is relative to the root of the server's tftp directory */
18 static char *def_bddb_cfgdir = "/hymod/bddb";
21 hymod_eeprom_load (int which, hymod_eeprom_t *ep)
23 unsigned dev_addr = CONFIG_SYS_I2C_EEPROM_ADDR | \
24 (which ? HYMOD_EEOFF_MEZZ : HYMOD_EEOFF_MAIN);
26 uchar data[HYMOD_EEPROM_MAXLEN], *dp, *edp;
30 memset (ep, 0, sizeof *ep);
32 eeprom_read (dev_addr, offset, (uchar *)&hdr, sizeof (hdr));
33 offset += sizeof (hdr);
35 if (hdr.id != HYMOD_EEPROM_ID || hdr.ver > HYMOD_EEPROM_VER ||
36 (len = hdr.len) > HYMOD_EEPROM_MAXLEN)
39 eeprom_read (dev_addr, offset, data, len);
42 eeprom_read (dev_addr, offset, (uchar *)&crc, sizeof (ulong));
43 offset += sizeof (ulong);
45 if (crc32 (crc32 (0, (uchar *)&hdr, sizeof hdr), data, len) != crc)
49 dp = data; edp = dp + len;
56 if ((rtyp & 0x80) == 0)
59 uchar islarge = rtyp & 0x40;
61 rtyp = ((rtyp & 0x3f) << 8) | *dp++;
63 rtyp = (rtyp << 8) | *dp++;
64 rtyp = (rtyp << 8) | *dp++;
68 rlen = (rlen << 8) | *dp++;
70 rlen = (rlen << 8) | *dp++;
71 rlen = (rlen << 8) | *dp++;
81 if (dp > edp) /* error? */
86 case HYMOD_EEREC_SERNO: /* serial number */
87 if (rlen == sizeof (ulong))
89 ((ulong)rdat[0] << 24) | \
90 ((ulong)rdat[1] << 16) | \
91 ((ulong)rdat[2] << 8) | \
95 case HYMOD_EEREC_DATE: /* date */
96 if (rlen == sizeof (hymod_date_t)) {
97 ep->date.year = ((ushort)rdat[0] << 8) | \
99 ep->date.month = rdat[2];
100 ep->date.day = rdat[3];
104 case HYMOD_EEREC_BATCH: /* batch */
105 if (rlen <= HYMOD_MAX_BATCH)
106 memcpy (ep->batch, rdat, ep->batchlen = rlen);
109 case HYMOD_EEREC_TYPE: /* board type */
114 case HYMOD_EEREC_REV: /* board revision */
119 case HYMOD_EEREC_SDRAM: /* sdram size(s) */
120 if (rlen > 0 && rlen <= HYMOD_MAX_SDRAM) {
123 for (i = 0; i < rlen; i++)
124 ep->sdramsz[i] = rdat[i];
129 case HYMOD_EEREC_FLASH: /* flash size(s) */
130 if (rlen > 0 && rlen <= HYMOD_MAX_FLASH) {
133 for (i = 0; i < rlen; i++)
134 ep->flashsz[i] = rdat[i];
139 case HYMOD_EEREC_ZBT: /* zbt ram size(s) */
140 if (rlen > 0 && rlen <= HYMOD_MAX_ZBT) {
143 for (i = 0; i < rlen; i++)
144 ep->zbtsz[i] = rdat[i];
149 case HYMOD_EEREC_XLXTYP: /* xilinx fpga type(s) */
150 if (rlen > 0 && rlen <= HYMOD_MAX_XLX) {
153 for (i = 0; i < rlen; i++)
154 ep->xlx[i].type = rdat[i];
159 case HYMOD_EEREC_XLXSPD: /* xilinx fpga speed(s) */
160 if (rlen > 0 && rlen <= HYMOD_MAX_XLX) {
163 for (i = 0; i < rlen; i++)
164 ep->xlx[i].speed = rdat[i];
168 case HYMOD_EEREC_XLXTMP: /* xilinx fpga temperature(s) */
169 if (rlen > 0 && rlen <= HYMOD_MAX_XLX) {
172 for (i = 0; i < rlen; i++)
173 ep->xlx[i].temp = rdat[i];
177 case HYMOD_EEREC_XLXGRD: /* xilinx fpga grade(s) */
178 if (rlen > 0 && rlen <= HYMOD_MAX_XLX) {
181 for (i = 0; i < rlen; i++)
182 ep->xlx[i].grade = rdat[i];
186 case HYMOD_EEREC_CPUTYP: /* CPU type */
188 ep->mpc.type = *rdat;
191 case HYMOD_EEREC_CPUSPD: /* CPU speed */
193 ep->mpc.cpuspd = *rdat;
196 case HYMOD_EEREC_CPMSPD: /* CPM speed */
198 ep->mpc.cpmspd = *rdat;
201 case HYMOD_EEREC_BUSSPD: /* bus speed */
203 ep->mpc.busspd = *rdat;
206 case HYMOD_EEREC_HSTYPE: /* hs-serial chip type */
208 ep->hss.type = *rdat;
211 case HYMOD_EEREC_HSCHIN: /* num hs-serial input chans */
213 ep->hss.nchin = *rdat;
216 case HYMOD_EEREC_HSCHOUT: /* num hs-serial output chans */
218 ep->hss.nchout = *rdat;
221 default: /* ignore */
229 /* maps an ascii "name=value" into a binary eeprom data record */
235 (struct _eerec_map *, uchar *, uchar *, uchar *);
242 uint_handler (eerec_map_t *rp, uchar *val, uchar *dp, uchar *edp)
247 lval = simple_strtol ((char *)val, &eval, 10);
249 if ((uchar *)eval == val || *eval != '\0') {
250 printf ("%s rec (%s) is not a valid uint\n", rp->name, val);
254 if (dp + 2 + rp->length > edp) {
255 printf ("can't fit %s rec into eeprom\n", rp->name);
262 switch (rp->length) {
266 printf ("%s rec value (%lu) out of range (0-255)\n",
275 printf ("%s rec value (%lu) out of range (0-65535)\n",
291 printf ("huh? rp->length not 1, 2 or 4! (%d)\n", rp->length);
299 date_handler (eerec_map_t *rp, uchar *val, uchar *dp, uchar *edp)
302 char *p = (char *)val;
306 lval = simple_strtol (p, &ep, 10);
307 if (ep == p || *ep++ != '-') {
309 printf ("%s rec (%s) is not a valid date\n", rp->name, val);
316 lval = simple_strtol (p = ep, &ep, 10);
317 if (ep == p || *ep++ != '-' || lval == 0 || lval > 12)
321 lval = simple_strtol (p = ep, &ep, 10);
322 if (ep == p || *ep != '\0' || lval == 0 || lval > 31)
326 if (dp + 2 + rp->length > edp) {
327 printf ("can't fit %s rec into eeprom\n", rp->name);
333 *dp++ = date.year >> 8;
342 string_handler (eerec_map_t *rp, uchar *val, uchar *dp, uchar *edp)
346 if ((len = strlen ((char *)val)) > rp->maxlen) {
347 printf ("%s rec (%s) string is too long (%d>%d)\n",
348 rp->name, val, len, rp->maxlen);
352 if (dp + 2 + len > edp) {
353 printf ("can't fit %s rec into eeprom\n", rp->name);
359 memcpy (dp, val, len);
366 bytes_handler (eerec_map_t *rp, uchar *val, uchar *dp, uchar *edp)
368 uchar bytes[HYMOD_MAX_BYTES], nbytes, *p;
371 for (nbytes = 0, p = val; *p != '\0'; p = (uchar *)ep) {
374 lval = simple_strtol ((char *)p, &ep, 10);
375 if ((uchar *)ep == p || (*ep != '\0' && *ep != ',') || \
377 printf ("%s rec (%s) byte array has invalid uint\n",
381 if (nbytes >= HYMOD_MAX_BYTES) {
382 printf ("%s rec (%s) byte array too long\n",
386 bytes[nbytes++] = lval;
392 if (dp + 2 + nbytes > edp) {
393 printf ("can't fit %s rec into eeprom\n", rp->name);
399 memcpy (dp, bytes, nbytes);
405 static eerec_map_t eerec_map[] = {
406 /* name type handler len max */
407 { "serno", HYMOD_EEREC_SERNO, uint_handler, 4, 0 },
408 { "date", HYMOD_EEREC_DATE, date_handler, 4, 0 },
409 { "batch", HYMOD_EEREC_BATCH, string_handler, 0, HYMOD_MAX_BATCH },
410 { "type", HYMOD_EEREC_TYPE, uint_handler, 1, 0 },
411 { "rev", HYMOD_EEREC_REV, uint_handler, 1, 0 },
412 { "sdram", HYMOD_EEREC_SDRAM, bytes_handler, 0, HYMOD_MAX_SDRAM },
413 { "flash", HYMOD_EEREC_FLASH, bytes_handler, 0, HYMOD_MAX_FLASH },
414 { "zbt", HYMOD_EEREC_ZBT, bytes_handler, 0, HYMOD_MAX_ZBT },
415 { "xlxtyp", HYMOD_EEREC_XLXTYP, bytes_handler, 0, HYMOD_MAX_XLX },
416 { "xlxspd", HYMOD_EEREC_XLXSPD, bytes_handler, 0, HYMOD_MAX_XLX },
417 { "xlxtmp", HYMOD_EEREC_XLXTMP, bytes_handler, 0, HYMOD_MAX_XLX },
418 { "xlxgrd", HYMOD_EEREC_XLXGRD, bytes_handler, 0, HYMOD_MAX_XLX },
419 { "cputyp", HYMOD_EEREC_CPUTYP, uint_handler, 1, 0 },
420 { "cpuspd", HYMOD_EEREC_CPUSPD, uint_handler, 1, 0 },
421 { "cpmspd", HYMOD_EEREC_CPMSPD, uint_handler, 1, 0 },
422 { "busspd", HYMOD_EEREC_BUSSPD, uint_handler, 1, 0 },
423 { "hstype", HYMOD_EEREC_HSTYPE, uint_handler, 1, 0 },
424 { "hschin", HYMOD_EEREC_HSCHIN, uint_handler, 1, 0 },
425 { "hschout", HYMOD_EEREC_HSCHOUT, uint_handler, 1, 0 },
428 static int neerecs = sizeof eerec_map / sizeof eerec_map[0];
430 static uchar data[HYMOD_EEPROM_SIZE], *sdp, *dp, *edp;
433 eerec_callback (uchar *name, uchar *val)
437 for (rp = eerec_map; rp < &eerec_map[neerecs]; rp++)
438 if (strcmp ((char *)name, rp->name) == 0)
441 if (rp >= &eerec_map[neerecs])
444 if ((dp = (*rp->handler) (rp, val, dp, edp)) == NULL)
451 hymod_eeprom_fetch(int which, char *filename, ulong addr)
453 unsigned dev_addr = CONFIG_SYS_I2C_EEPROM_ADDR | \
454 (which ? HYMOD_EEOFF_MEZZ : HYMOD_EEOFF_MAIN);
455 hymod_eehdr_t *hp = (hymod_eehdr_t *)&data[0];
458 memset (hp, 0, sizeof *hp);
459 hp->id = HYMOD_EEPROM_ID;
460 hp->ver = HYMOD_EEPROM_VER;
462 dp = sdp = (uchar *)(hp + 1);
463 edp = dp + HYMOD_EEPROM_MAXLEN;
465 if (fetch_and_parse (filename, addr, eerec_callback) == 0)
470 crc = crc32 (0, data, dp - data);
471 memcpy (dp, &crc, sizeof (ulong));
472 dp += sizeof (ulong);
474 eeprom_write (dev_addr, 0, data, dp - data);
479 static char *type_vals[] = {
480 "NONE", "IO", "CLP", "DSP", "INPUT", "ALT-INPUT", "DISPLAY"
483 static char *xlxtyp_vals[] = {
484 "NONE", "XCV300E", "XCV400E", "XCV600E"
487 static char *xlxspd_vals[] = {
488 "NONE", "6", "7", "8"
491 static char *xlxtmp_vals[] = {
495 static char *xlxgrd_vals[] = {
496 "NONE", "NORMAL", "ENGSAMP"
499 static char *cputyp_vals[] = {
503 static char *clk_vals[] = {
504 "NONE", "33", "66", "100", "133", "166", "200"
507 static char *hstype_vals[] = {
508 "NONE", "AMCC-S2064A"
512 print_mem (char *l, char *s, uchar n, uchar a[])
516 printf ("%s%dMB %s", s, 1 << (a[0] - 20), l);
521 for (i = 0; i < n; i++)
522 t += 1 << (a[i] - 20);
524 printf ("%s%luMB %s (%d banks:", s, t, l, n);
526 for (i = 0; i < n; i++)
529 (i == n - 1) ? ")" : ",");
533 printf ("%sNO %s", s, l);
537 hymod_eeprom_print (hymod_eeprom_t *ep)
541 printf (" Hymod %s board, rev %03d\n",
542 type_vals[ep->bdtype], ep->bdrev);
544 printf (" serial #: %010lu, date %04d-%02d-%02d",
545 ep->serno, ep->date.year, ep->date.month, ep->date.day);
546 if (ep->batchlen > 0)
547 printf (", batch \"%.*s\"", ep->batchlen, ep->batch);
550 switch (ep->bdtype) {
552 case HYMOD_BDTYPE_IO:
553 case HYMOD_BDTYPE_CLP:
554 case HYMOD_BDTYPE_DSP:
555 printf (" Motorola %s CPU, speeds: %s/%s/%s",
556 cputyp_vals[ep->mpc.type], clk_vals[ep->mpc.cpuspd],
557 clk_vals[ep->mpc.cpmspd], clk_vals[ep->mpc.busspd]);
559 print_mem ("SDRAM", ", ", ep->nsdram, ep->sdramsz);
561 print_mem ("FLASH", ", ", ep->nflash, ep->flashsz);
565 print_mem ("ZBT", " ", ep->nzbt, ep->zbtsz);
572 printf (", Xilinx %s FPGA (%s/%s/%s)",
573 xlxtyp_vals[xp->type],
574 xlxspd_vals[xp->speed],
575 xlxtmp_vals[xp->temp],
576 xlxgrd_vals[xp->grade]);
579 printf (", %d Xilinx FPGAs (", ep->nxlx);
580 for (i = 0; i < ep->nxlx; i++) {
582 printf ("%s[%s/%s/%s]%s",
583 xlxtyp_vals[xp->type],
584 xlxspd_vals[xp->speed],
585 xlxtmp_vals[xp->temp],
586 xlxgrd_vals[xp->grade],
587 (i == ep->nxlx - 1) ? ")" : ", ");
596 if (ep->hss.type > 0)
597 printf (" High Speed Serial: "
598 "%s, %d input%s, %d output%s\n",
599 hstype_vals[ep->hss.type],
601 (ep->hss.nchin == 1 ? "" : "s"),
603 (ep->hss.nchout == 1 ? "" : "s"));
606 case HYMOD_BDTYPE_INPUT:
607 case HYMOD_BDTYPE_ALTINPUT:
608 case HYMOD_BDTYPE_DISPLAY:
613 printf (" UNKNOWN BOARD TYPE: %d\n", ep->bdtype);
619 hymod_eeprom_read (int which, hymod_eeprom_t *ep)
621 char *label = which ? "mezzanine" : "main";
622 unsigned dev_addr = CONFIG_SYS_I2C_EEPROM_ADDR | \
623 (which ? HYMOD_EEOFF_MEZZ : HYMOD_EEOFF_MAIN);
624 char filename[50], prompt[50], *dir;
625 int serno, count = 0, rc;
627 rc = eeprom_probe (dev_addr, 0);
630 printf ("*** probe for eeprom failed with code %d\n", rc);
637 sprintf (prompt, "Enter %s board serial number: ", label);
639 if ((dir = getenv ("bddb_cfgdir")) == NULL)
640 dir = def_bddb_cfgdir;
645 if (hymod_eeprom_load (which, ep))
648 printf ("*** %s board EEPROM contents are %sinvalid\n",
649 label, count == 0 ? "" : "STILL ");
651 puts ("*** will fetch from server (Ctrl-C to abort)\n");
653 serno = hymod_get_serno (prompt);
657 puts ("\n*** interrupted!");
659 puts ("\n*** timeout!");
660 puts (" - ignoring eeprom contents\n");
664 sprintf (filename, "%s/%010d.cfg", dir, serno);
666 printf ("*** fetching %s board EEPROM contents from server\n",
669 rc = hymod_eeprom_fetch (which, filename, CONFIG_SYS_LOAD_ADDR);
672 puts ("*** fetch failed - ignoring eeprom contents\n");