OpenCores
URL https://opencores.org/ocsvn/or1k_old/or1k_old/trunk

Subversion Repositories or1k_old

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /
    from Rev 807 to Rev 808
    ↔ Reverse comparison
  •

Rev 807 → Rev 808

/trunk/or1ksim/cpu/common/parse.c
26,6 → 26,7
#include "arch.h"
#include "dmmu.h"
#include "coff.h"
#include "elf.h"
#include "debug_unit.h"
#include "opcode/or32.h"
#include "parse.h"
435,6 → 436,182
return;
}
 
void readfile_elf(char *filename)
{
 
FILE *inputfs;
struct elf32_hdr elfhdr;
struct elf32_phdr *elf_phdata;
struct elf32_shdr *elf_spnt, *elf_shdata;
struct elf32_sym *sym_tbl = (struct elf32_sym *)0;
unsigned long syms = 0;
char *str_tbl = (char *)0;
char *s_str = (char *)0;
int breakpoint = 0;
unsigned long inputbuf;
unsigned long insn, padd;
int i, j, sectsize, len;
 
if (!(inputfs = fopen(filename, "r"))) {
perror("readfile_elf");
exit(1);
}
 
if (fread(&elfhdr, sizeof(elfhdr), 1, inputfs) != 1) {
perror("readfile_elf");
exit(1);
}
 
if ((elf_shdata = (struct elf32_shdr *)malloc(ELF_SHORT_H(elfhdr.e_shentsize) * ELF_SHORT_H(elfhdr.e_shnum))) == NULL) {
perror("readfile_elf");
exit(1);
}
 
if (fseek(inputfs, ELF_LONG_H(elfhdr.e_shoff), SEEK_SET) != 0) {
perror("readfile_elf");
exit(1);
}
 
if (fread(elf_shdata, ELF_SHORT_H(elfhdr.e_shentsize) * ELF_SHORT_H(elfhdr.e_shnum), 1, inputfs) != 1) {
perror("readfile_elf");
exit(1);
}
 
if (ELF_LONG_H(elfhdr.e_phoff)) {
if((elf_phdata = (struct elf32_phdr *)malloc(ELF_SHORT_H(elfhdr.e_phnum) * ELF_SHORT_H(elfhdr.e_phentsize))) == NULL) {
perror("readfile_elf");
exit(1);
}
 
if (fseek(inputfs, ELF_LONG_H(elfhdr.e_phoff), SEEK_SET) != 0) {
perror("readfile_elf");
exit(1);
}
 
if (fread(elf_phdata, ELF_SHORT_H(elfhdr.e_phnum) * ELF_SHORT_H(elfhdr.e_phentsize), 1, inputfs) != 1) {
perror("readfile_elf");
exit(1);
}
}
 
for(i = 0, elf_spnt = elf_shdata; i < ELF_SHORT_H(elfhdr.e_shnum); i++, elf_spnt++) {
 
if(ELF_LONG_H(elf_spnt->sh_type) == SHT_STRTAB) {
 
if((str_tbl = (char *)malloc(ELF_LONG_H(elf_spnt->sh_size))) == NULL) {
perror("readfile_elf");
exit(1);
}
 
if (fseek(inputfs, ELF_LONG_H(elf_spnt->sh_offset), SEEK_SET) != 0) {
perror("readfile_elf");
exit(1);
}
 
if (fread(str_tbl, ELF_LONG_H(elf_spnt->sh_size), 1, inputfs) != 1) {
perror("readfile_elf");
exit(1);
}
}
else if(ELF_LONG_H(elf_spnt->sh_type) == SHT_SYMTAB) {
 
if((sym_tbl = (char *)malloc(ELF_LONG_H(elf_spnt->sh_size))) == NULL) {
perror("readfile_elf");
exit(1);
}
if (fseek(inputfs, ELF_LONG_H(elf_spnt->sh_offset), SEEK_SET) != 0) {
perror("readfile_elf");
exit(1);
}
if (fread(sym_tbl, ELF_LONG_H(elf_spnt->sh_size), 1, inputfs) != 1) {
perror("readfile_elf");
exit(1);
}
 
syms = ELF_LONG_H(elf_spnt->sh_size) / ELF_LONG_H(elf_spnt->sh_entsize);
}
}
 
if (ELF_SHORT_H(elfhdr.e_shstrndx) != SHN_UNDEF) {
elf_spnt = &elf_shdata[ELF_SHORT_H(elfhdr.e_shstrndx)];
if((s_str = (char *)malloc(ELF_LONG_H(elf_spnt->sh_size))) == NULL) {
perror("readfile_elf");
exit(1);
}
 
if (fseek(inputfs, ELF_LONG_H(elf_spnt->sh_offset), SEEK_SET) != 0) {
perror("readfile_elf");
exit(1);
}
 
if (fread(s_str, ELF_LONG_H(elf_spnt->sh_size), 1, inputfs) != 1) {
perror("readfile_elf");
exit(1);
}
}
for(i = 0, elf_spnt = elf_shdata; i < ELF_SHORT_H(elfhdr.e_shnum); i++, elf_spnt++) {
 
if((ELF_LONG_H(elf_spnt->sh_type) & SHT_PROGBITS) && (ELF_LONG_H(elf_spnt->sh_flags) & SHF_ALLOC)) {
 
padd = ELF_LONG_H(elf_spnt->sh_addr);
for(j = 0; j < ELF_SHORT_H(elfhdr.e_phnum); j++) {
if(ELF_LONG_H(elf_phdata[j].p_offset) &&
ELF_LONG_H(elf_phdata[j].p_offset) <= ELF_LONG_H(elf_spnt->sh_offset) &&
(ELF_LONG_H(elf_phdata[j].p_offset) + ELF_LONG_H(elf_phdata[j].p_memsz)) > ELF_LONG_H(elf_spnt->sh_offset))
padd = ELF_LONG_H(elf_phdata[j].p_paddr) + ELF_LONG_H(elf_spnt->sh_offset) - ELF_LONG_H(elf_phdata[j].p_offset);
}
 
 
 
if (ELF_LONG_H(elf_spnt->sh_name) && s_str)
printf("Section: %s,", &s_str[ELF_LONG_H(elf_spnt->sh_name)]);
else
printf("Section: noname,");
printf(" vaddr: 0x%.8x,", ELF_LONG_H(elf_spnt->sh_addr));
printf(" paddr: 0x%.8x,", padd);
printf(" offset: 0x%.8x,", ELF_LONG_H(elf_spnt->sh_offset));
printf(" size: 0x%.8x\n", ELF_LONG_H(elf_spnt->sh_size));
freemem = ELF_LONG_H(elf_spnt->sh_addr);
sectsize = ELF_LONG_H(elf_spnt->sh_size);
 
if (fseek(inputfs, ELF_LONG_H(elf_spnt->sh_offset), SEEK_SET) != 0) {
perror("readfile_elf");
exit(1);
}
 
while (sectsize > 0 && (len = fread(&inputbuf, sizeof(inputbuf), 1, inputfs))) {
insn = ELF_LONG_H(inputbuf);
len = insn_len (insn_decode (insn));
if (len == 2)
{
fseek(inputfs, -2, SEEK_CUR);
debug(8, "readfile_elf: %x 0x%x \n", sectsize, insn >> 16);
}
else
debug(8, "readfile_elf: %x 0x%x \n", sectsize, insn);
addprogram (freemem, insn, &breakpoint);
sectsize -= len;
}
}
}
 
if (str_tbl) {
i = 0;
while(syms--) {
if (sym_tbl[i].st_name)
add_label(ELF_LONG_H(sym_tbl[i].st_value), &str_tbl[ELF_LONG_H(sym_tbl[i].st_name)]);
i++;
}
}
}
 
/* Identify file type and call appropriate readfile_X routine. It only
handles orX-coff-big executables at the moment. */
 
442,6 → 619,7
{
FILE *inputfs;
struct COFF_filehdr coffhdr;
struct elf32_hdr elfhdr;
size_t len;
if (!(inputfs = fopen(filename, "r"))) {
474,16 → 652,31
return;
}
else {
printf("Not COFF, quiting.\n");
printf("Not COFF file format\n");
fseek(inputfs, 0, SEEK_SET);
}
}
if (fread(&elfhdr, sizeof(elfhdr), 1, inputfs) == 1) {
if (elfhdr.e_ident[0] == 0x7f && elfhdr.e_ident[1] == 0x45 && elfhdr.e_ident[2] == 0x4c && elfhdr.e_ident[3] == 0x46) {
printf("ELF type: 0x%.4x\n", ELF_SHORT_H(elfhdr.e_type));
printf("ELF machine: 0x%.4x\n", ELF_SHORT_H(elfhdr.e_machine));
printf("ELF version: 0x%.8x\n", ELF_LONG_H(elfhdr.e_version));
printf("ELF sec = %d\n", ELF_SHORT_H(elfhdr.e_shnum));
if (ELF_SHORT_H(elfhdr.e_type) != ET_EXEC ) {
printf("This ELF is not an executable.\n");
exit(1);
}
fclose(inputfs);
exit (1);
readfile_elf(filename);
return;
}
else {
printf("Not ELF file format.\n");
fseek(inputfs, 0, SEEK_SET);
}
}
else {
printf("yy %s", filename);
perror("identifyfile2");
}
perror("identifyfile2");
fclose(inputfs);
 
return;
498,7 → 691,7
transl_error = 0;
transl_table = virtphy_transl;
freemem = startaddr;
printf("loadcode: filename %s startaddr=%x virtphy_transl=%x", filename, startaddr, virtphy_transl);
printf("loadcode: filename %s startaddr=%x virtphy_transl=%x\n", filename, startaddr, virtphy_transl);
identifyfile(filename);
 
#if IMM_STATS

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.