/* * flash_rom.c: Flash programming utility * * Copyright 2000 Silicon Integrated System Corporation * Copyright 2004 Tyan Corp * yhlu yhlu@tyan.com add exclude start and end option * Copyright 2005-2006 coresystems GmbH * Stefan Reinauer <stepan@coresystems.de> added rom layout * support, and checking for suitable rom image, various fixes * support for flashing the Technologic Systems 5300. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * */ #include <errno.h> #include <fcntl.h> #include <sys/mman.h> #include <unistd.h> #include <stdio.h> #include <string.h> #include <stdlib.h> #include <getopt.h> #include "flash.h" #include "lbtable.h" #include "layout.h" #include "debug.h" char *chip_to_probe = NULL; int exclude_start_page, exclude_end_page; int force=0, verbose=0; struct flashchip *probe_flash(struct flashchip *flash) { int fd_mem; volatile uint8_t *bios; unsigned long size; if ((fd_mem = open("/dev/mem", O_RDWR)) < 0) { perror("Error: Can not open /dev/mem. You need to be root."); exit(1); } while (flash->name != NULL) { if (chip_to_probe && strcmp(flash->name, chip_to_probe) != 0) { flash++; continue; } printf_debug("Trying %s, %d KB\n", flash->name, flash->total_size); size = flash->total_size * 1024; /* BUG? what happens if getpagesize() > size!? -> ``Error MMAP /dev/mem: Invalid argument'' NIKI */ if (getpagesize() > size) { size = getpagesize(); printf("%s: warning: size: %d -> %ld\n", __FUNCTION__, flash->total_size * 1024, (unsigned long) size); } bios = mmap(0, size, PROT_WRITE | PROT_READ, MAP_SHARED, fd_mem, (off_t) (0xffffffff - size + 1)); if (bios == MAP_FAILED) { perror("Error: Can't mmap /dev/mem."); exit(1); } flash->virt_addr = bios; flash->fd_mem = fd_mem; if (flash->probe(flash) == 1) { printf("%s found at physical address: 0x%lx\n", flash->name, (0xffffffff - size + 1)); return flash; } munmap((void *) bios, size); #ifdef TS5300 /* TS-5300 */ bios = mmap(0, size, PROT_WRITE | PROT_READ, MAP_SHARED, fd_mem, (off_t) (0x9400000)); if (bios == MAP_FAILED) { perror("Error: Can't mmap /dev/mem."); exit(1); } flash->virt_addr = bios; flash->fd_mem = fd_mem; if (flash->probe(flash) == 1) { printf("TS-5300 %s found at physical address: 0x%lx\n", flash->name, 0x9400000UL); return flash; } munmap((void *) bios, size); /* TS-5300 */ #endif flash++; } return NULL; } int verify_flash(struct flashchip *flash, uint8_t *buf) { int idx; int total_size = flash->total_size * 1024; volatile uint8_t *bios = flash->virt_addr; printf("Verifying flash "); if(verbose) printf("address: 0x00000000\b\b\b\b\b\b\b\b\b\b"); for (idx = 0; idx < total_size; idx++) { if (verbose && ( (idx & 0xfff) == 0xfff )) printf("0x%08x", idx); if (*(bios + idx) != *(buf + idx)) { if (verbose) { printf("0x%08x ", idx); } printf("- FAILED\n"); return 1; } if (verbose && ( (idx & 0xfff) == 0xfff )) printf("\b\b\b\b\b\b\b\b\b\b"); } if (verbose) printf("\b\b\b\b\b\b\b\b\b\b "); printf("- VERIFIED \n"); return 0; } void usage(const char *name) { printf("usage: %s [-rwvEVfh] [-c chipname] [-s exclude_start]\n", name); printf(" [-e exclude_end] [-m vendor:part] [-l file.layout] [-i imagename] [file]\n"); printf(" -r | --read: read flash and save into file\n" " -w | --write: write file into flash (default when\n" " file is specified)\n" " -v | --verify: verify flash against file\n" " -E | --erase: erase flash device\n" " -V | --verbose: more verbose output\n" " -c | --chip <chipname>: probe only for specified flash chip\n" " -s | --estart <addr>: exclude start position\n" " -e | --eend <addr>: exclude end postion\n" " -m | --mainboard <vendor:part>: override mainboard settings\n" " -f | --force: force write without checking image\n" " -l | --layout <file.layout>: read rom layout from file\n" " -i | --image <name>: only flash image name from flash layout\n" "\n" " If no file is specified, then all that happens\n" " is that flash info is dumped.\n\n"); exit(1); } int main(int argc, char *argv[]) { uint8_t *buf; unsigned long size; FILE *image; struct flashchip *flash; int opt; int option_index = 0; int read_it = 0, write_it = 0, erase_it = 0, verify_it = 0; int ret = 0; static struct option long_options[]= { { "read", 0, 0, 'r' }, { "write", 0, 0, 'w' }, { "erase", 0, 0, 'E' }, { "verify", 0, 0, 'v' }, { "chip", 1, 0, 'c' }, { "estart", 1, 0, 's' }, { "eend", 1, 0, 'e' }, { "mainboard", 1, 0, 'm' }, { "verbose", 0, 0, 'V' }, { "force", 0, 0, 'f' }, { "layout", 1, 0, 'l' }, { "image", 1, 0, 'i' }, { "help", 0, 0, 'h' }, { 0, 0, 0, 0 } }; char *filename = NULL; unsigned int exclude_start_position=0, exclude_end_position=0; // [x,y) char *tempstr=NULL, *tempstr2=NULL; if (argc > 1) { /* Yes, print them. */ int i; printf_debug ("The arguments are:\n"); for (i = 1; i < argc; ++i) printf_debug ("%s\n", argv[i]); } setbuf(stdout, NULL); while ((opt = getopt_long(argc, argv, "rwvVEfc:s:e:m:l:i:h", long_options, &option_index)) != EOF) { switch (opt) { case 'r': read_it = 1; break; case 'w': write_it = 1; break; case 'v': verify_it = 1; break; case 'c': chip_to_probe = strdup(optarg); break; case 'V': verbose = 1; break; case 'E': erase_it = 1; break; case 's': tempstr = strdup(optarg); sscanf(tempstr,"%x",&exclude_start_position); break; case 'e': tempstr = strdup(optarg); sscanf(tempstr,"%x",&exclude_end_position); break; case 'm': tempstr = strdup(optarg); strtok(tempstr, ":"); tempstr2=strtok(NULL, ":"); if (tempstr2) { lb_vendor=tempstr; lb_part=tempstr2; } else { printf("warning: ignored wrong format of" " mainboard: %s\n", tempstr); } break; case 'f': force=1; break; case 'l': tempstr=strdup(optarg); read_romlayout(tempstr); break; case 'i': tempstr=strdup(optarg); find_romentry(tempstr); break; case 'h': default: usage(argv[0]); break; } } if (read_it && write_it) { printf("-r and -w are mutually exclusive\n"); usage(argv[0]); } if (optind < argc) filename = argv[optind++]; printf("Calibrating delay loop... "); myusec_calibrate_delay(); printf("ok\n"); /* We look at the lbtable first to see if we need a * mainboard specific flash enable sequence. */ linuxbios_init(); /* try to enable it. Failure IS an option, since not all motherboards * really need this to be done, etc., etc. */ (void) enable_flash_write(); if ((flash = probe_flash(flashchips)) == NULL) { printf("No EEPROM/flash device found.\n"); exit(1); } printf("Flash part is %s (%d KB)\n", flash->name, flash->total_size); if (!filename && !erase_it) { // FIXME: Do we really want this feature implicitly? printf("OK, only ENABLING flash write, but NOT FLASHING.\n"); return 0; } size = flash->total_size * 1024; buf = (uint8_t *) calloc(size, sizeof(char)); if (erase_it) { printf("Erasing flash chip\n"); flash->erase(flash); exit(0); } else if (read_it) { if ((image = fopen(filename, "w")) == NULL) { perror(filename); exit(1); } printf("Reading Flash..."); if (flash->read == NULL) memcpy(buf, (const char *) flash->virt_addr, size); else flash->read(flash, buf); if (exclude_end_position - exclude_start_position > 0) memset(buf+exclude_start_position, 0, exclude_end_position-exclude_start_position); fwrite(buf, sizeof(char), size, image); fclose(image); printf("done\n"); } else { if ((image = fopen(filename, "r")) == NULL) { perror(filename); exit(1); } fread(buf, sizeof(char), size, image); show_id(buf, size); fclose(image); } /* exclude range stuff. Nice idea, but at the moment it is only * supported in hardware by the pm49fl004 chips. * Instead of implementing this for all chips I suggest advancing * it to the rom layout feature below and drop exclude range * completely once all flash chips can do rom layouts. stepan */ // //////////////////////////////////////////////////////////// if (exclude_end_position - exclude_start_position > 0) memcpy(buf+exclude_start_position, (const char *) flash->virt_addr+exclude_start_position, exclude_end_position-exclude_start_position); exclude_start_page = exclude_start_position/flash->page_size; if ((exclude_start_position%flash->page_size) != 0) { exclude_start_page++; } exclude_end_page = exclude_end_position/flash->page_size; // //////////////////////////////////////////////////////////// // This should be moved into each flash part's code to do it // cleanly. This does the job. handle_romentries(buf, (uint8_t *)flash->virt_addr); // //////////////////////////////////////////////////////////// if (write_it) ret |= flash->write(flash, buf); if (verify_it) ret |= verify_flash(flash, buf); return ret; }