Line 25... |
Line 25... |
#include "parse.h"
|
#include "parse.h"
|
#include "abstract.h"
|
#include "abstract.h"
|
#include "arch.h"
|
#include "arch.h"
|
#include "dmmu.h"
|
#include "dmmu.h"
|
#include "coff.h"
|
#include "coff.h"
|
|
#include "or32.h"
|
|
|
#define MAXLINE_LEN 18000
|
#define MAXLINE_LEN 18000
|
|
|
extern char *disassembled;
|
extern char *disassembled;
|
|
|
Line 87... |
Line 88... |
|
|
/* Used only by the simulator loader to translate logical addresses int ophysical.
|
/* Used only by the simulator loader to translate logical addresses int ophysical.
|
If loadcode() is called with valid virtphy_transl pointer to a table of
|
If loadcode() is called with valid virtphy_transl pointer to a table of
|
translations then translate() performs translation otherwise phy address is
|
translations then translate() performs translation otherwise phy address is
|
equal to logical. */
|
equal to logical. */
|
static unsigned int translate(unsigned int laddr)
|
static unsigned int translate(unsigned int laddr,int* breakpoint)
|
{
|
{
|
int i;
|
int i;
|
|
|
/* No translation (i.e. when loading kernel into simulator)
|
/* No translation (i.e. when loading kernel into simulator)
|
/* printf("transl_table=%x laddr=%x\n", transl_table, laddr);
|
/* printf("transl_table=%x laddr=%x\n", transl_table, laddr);
|
Line 99... |
Line 100... |
if (transl_table == 0)
|
if (transl_table == 0)
|
return laddr;
|
return laddr;
|
|
|
/* Try to find our translation in the table. */
|
/* Try to find our translation in the table. */
|
for(i = 0; i < (MEMORY_LEN / PAGE_SIZE) * 16; i += 16)
|
for(i = 0; i < (MEMORY_LEN / PAGE_SIZE) * 16; i += 16)
|
if ((laddr & ~(PAGE_SIZE - 1)) == evalsim_mem32(transl_table + i)) {
|
if ((laddr & ~(PAGE_SIZE - 1)) == evalsim_mem32(transl_table + i,breakpoint)) {
|
setsim_mem32(transl_table + i + 8, -2); /* Page modified */
|
setsim_mem32(transl_table + i + 8, -2); /* Page modified */
|
printf("found paddr=%x\n", evalsim_mem32(transl_table + i + 4) | (laddr & (PAGE_SIZE - 1)));
|
printf("found paddr=%x\n", evalsim_mem32(transl_table + i + 4,breakpoint) | (laddr & (PAGE_SIZE - 1)));
|
return (unsigned long)evalsim_mem32(transl_table + i + 4) | (laddr & (unsigned long)(PAGE_SIZE - 1));
|
return (unsigned long)evalsim_mem32(transl_table + i + 4,breakpoint) | (laddr & (unsigned long)(PAGE_SIZE - 1));
|
}
|
}
|
|
|
/* Allocate new phy page for us. */
|
/* Allocate new phy page for us. */
|
for(i = 0; i < (MEMORY_LEN / PAGE_SIZE) * 16; i += 16)
|
for(i = 0; i < (MEMORY_LEN / PAGE_SIZE) * 16; i += 16)
|
if (evalsim_mem32(transl_table + i + 8) == 0) {
|
if (evalsim_mem32(transl_table + i + 8,breakpoint) == 0) {
|
setsim_mem32(transl_table + i, laddr & ~(PAGE_SIZE - 1)); /* VPN */
|
setsim_mem32(transl_table + i, laddr & ~(PAGE_SIZE - 1)); /* VPN */
|
setsim_mem32(transl_table + i + 4, (i/16) * PAGE_SIZE); /* PPN */
|
setsim_mem32(transl_table + i + 4, (i/16) * PAGE_SIZE); /* PPN */
|
setsim_mem32(transl_table + i + 8, -2); /* Page modified */
|
setsim_mem32(transl_table + i + 8, -2); /* Page modified */
|
printf("newly allocated ppn=%x\n", (unsigned long)evalsim_mem32(transl_table + i + 4));
|
printf("newly allocated ppn=%x\n", (unsigned long)evalsim_mem32(transl_table + i + 4,breakpoint));
|
printf("newly allocated .ppn=%x\n", (unsigned long)transl_table + i + 4);
|
printf("newly allocated .ppn=%x\n", (unsigned long)transl_table + i + 4);
|
printf("newly allocated ofs=%x\n", (unsigned long)(laddr & (PAGE_SIZE - 1)));
|
printf("newly allocated ofs=%x\n", (unsigned long)(laddr & (PAGE_SIZE - 1)));
|
printf("newly allocated paddr=%x\n", (unsigned long)evalsim_mem32(transl_table + i + 4) | (laddr & (PAGE_SIZE - 1)));
|
printf("newly allocated paddr=%x\n", (unsigned long)evalsim_mem32(transl_table + i + 4,breakpoint) | (laddr & (PAGE_SIZE - 1)));
|
return (unsigned long)evalsim_mem32(transl_table + i + 4) | (laddr & (unsigned long)(PAGE_SIZE - 1));
|
return (unsigned long)evalsim_mem32(transl_table + i + 4,breakpoint) | (laddr & (unsigned long)(PAGE_SIZE - 1));
|
}
|
}
|
/* If we come this far then all phy memory is used and we can't find our page
|
/* If we come this far then all phy memory is used and we can't find our page
|
nor allocate new page. */
|
nor allocate new page. */
|
transl_error = 1;
|
transl_error = 1;
|
|
|
printf("can't translate\n", laddr);
|
printf("can't translate\n", laddr);
|
exit(1);
|
exit(1);
|
return -1;
|
return -1;
|
}
|
}
|
|
|
void adddatastr(char *str)
|
void adddatastr(char *str,int* breakpoint)
|
{
|
{
|
if (str)
|
if (str)
|
str++;
|
str++;
|
else
|
else
|
return;
|
return;
|
|
|
for(; *str && *str != '\"'; str++, translate(freemem++))
|
for(; *str && *str != '\"'; str++, translate(freemem++,breakpoint))
|
if (*str == '\\')
|
if (*str == '\\')
|
switch (*++str) {
|
switch (*++str) {
|
case 'n': mem[translate(freemem)].data = '\n';
|
case 'n': mem[translate(freemem,breakpoint)].data = '\n';
|
break;
|
break;
|
case 't': mem[translate(freemem)].data = '\t';
|
case 't': mem[translate(freemem,breakpoint)].data = '\t';
|
break;
|
break;
|
case 'r': mem[translate(freemem)].data = '\r';
|
case 'r': mem[translate(freemem,breakpoint)].data = '\r';
|
break;
|
break;
|
case '0': mem[translate(freemem)].data = '\0';
|
case '0': mem[translate(freemem,breakpoint)].data = '\0';
|
break;
|
break;
|
default: break;
|
default: break;
|
}
|
}
|
else
|
else
|
mem[translate(freemem)].data = *str;
|
mem[translate(freemem,breakpoint)].data = *str;
|
}
|
}
|
|
|
void adddataword(char *item)
|
/* Modified by CZ 26/05/01 */
|
|
/* Added code for new mode operation */
|
|
void adddataword(char *item,int* breakpoint)
|
{
|
{
|
unsigned long num;
|
unsigned long num;
|
|
|
if (isdigit(*item))
|
if (isdigit(*item))
|
num = strtoul(item, NULL, 0);
|
num = strtoul(item, NULL, 0);
|
else
|
else
|
num = eval_label(item);
|
num = eval_label(item);
|
|
|
debug("adddataword: [0x%x] <= %x\n", translate(freemem), num);
|
debug("adddataword: [0x%x] <= %x\n", translate(freemem,breakpoint), num);
|
mem[translate(freemem)].data = (char) (num >> 24);
|
mem[translate(freemem,breakpoint)].data = (char) (num >> 24);
|
mem[translate(freemem + 1)].data = (char) (num >> 16);
|
mem[translate(freemem + 1,breakpoint)].data = (char) (num >> 16);
|
mem[translate(freemem + 2)].data = (char) (num >> 8);
|
mem[translate(freemem + 2,breakpoint)].data = (char) (num >> 8);
|
mem[translate(freemem + 3)].data = (char) (num);
|
mem[translate(freemem + 3,breakpoint)].data = (char) (num);
|
|
|
|
if(!GlobalMode)
|
freemem += 4;
|
freemem += 4;
|
}
|
}
|
|
|
void adddatahalf(char *item)
|
void adddatahalf(char *item,int* breakpoint)
|
{
|
{
|
unsigned long num;
|
unsigned long num;
|
|
|
if (isdigit(*item))
|
if (isdigit(*item))
|
num = strtoul(item, NULL, 0);
|
num = strtoul(item, NULL, 0);
|
else
|
else
|
num = eval_label(item);
|
num = eval_label(item);
|
|
|
mem[translate(freemem)].data = (char) (num >> 8);
|
mem[translate(freemem,breakpoint)].data = (char) (num >> 8);
|
mem[translate(freemem + 1)].data = (char) (num);
|
mem[translate(freemem + 1,breakpoint)].data = (char) (num);
|
|
|
freemem += 2;
|
freemem += 2;
|
}
|
}
|
|
|
void adddatabyte(char *item)
|
void adddatabyte(char *item,int* breakpoint)
|
{
|
{
|
unsigned long num;
|
unsigned long num;
|
|
|
if (isdigit(*item))
|
if (isdigit(*item))
|
num = strtoul(item, NULL, 0);
|
num = strtoul(item, NULL, 0);
|
else
|
else
|
num = eval_label(item);
|
num = eval_label(item);
|
|
|
mem[translate(freemem)].data = (char) (num);
|
mem[translate(freemem,breakpoint)].data = (char) (num);
|
|
|
freemem++;
|
freemem++;
|
}
|
}
|
|
|
void adddataspace(char *num)
|
void adddataspace(char *num)
|
{
|
{
|
freemem += atol(num);
|
freemem += atol(num);
|
}
|
}
|
|
|
void addlabel(char *label, unsigned long freemem)
|
void addlabel(char *label, unsigned long freemem,int* breakpoint)
|
{
|
{
|
struct label_entry **tmp;
|
struct label_entry **tmp;
|
|
|
debug("Adding label %s at 0x%x\n", label, translate(freemem));
|
debug("Adding label %s at 0x%x\n", label, translate(freemem,breakpoint));
|
tmp = &mem[translate(freemem)].label;
|
tmp = &mem[translate(freemem,breakpoint)].label;
|
for (; *tmp; tmp = &((*tmp)->next));
|
for (; *tmp; tmp = &((*tmp)->next));
|
*tmp = malloc(sizeof(**tmp));
|
*tmp = malloc(sizeof(**tmp));
|
(*tmp)->name = malloc(strlen(label)+1);
|
(*tmp)->name = malloc(strlen(label)+1);
|
strcpy((*tmp)->name, label);
|
strcpy((*tmp)->name, label);
|
(*tmp)->next = NULL;
|
(*tmp)->next = NULL;
|
Line 219... |
Line 223... |
return;
|
return;
|
}
|
}
|
|
|
char null_str[1] = "\0";
|
char null_str[1] = "\0";
|
|
|
void addprogram(char *insn, char *operands)
|
/* Modified by CZ 26/05/01 */
|
|
/* Replaced several calls to translate(freemem) with vaddr */
|
|
/* Added new mode execution code */
|
|
/* Changed parameters so address can be passed as argument */
|
|
void addprogram(char *insn, char *operands,unsigned int address,int* breakpoint)
|
{
|
{
|
int h_insn_is_word_flag=0;
|
int h_insn_is_word_flag=0;
|
char insn_first2_char[3];
|
char insn_first2_char[3];
|
|
int vaddr = GlobalMode ? translate(address,breakpoint) : translate(freemem,breakpoint);
|
|
|
debug("addprogram 1\n");
|
debug("addprogram 1\n");
|
if (!mem[translate(freemem)].insn) {
|
if (!mem[vaddr].insn) {
|
mem[translate(freemem)].insn = malloc(sizeof(*mem[translate(freemem)].insn));
|
mem[vaddr].insn = (struct insn_entry *)malloc (sizeof (struct insn_entry));
|
mem[translate(freemem)].insn->insn = null_str;
|
mem[vaddr].insn->insn_index = -1;
|
mem[translate(freemem)].insn->op1 = null_str;
|
mem[vaddr].insn->op1 = null_str;
|
mem[translate(freemem)].insn->op2 = null_str;
|
mem[vaddr].insn->op2 = null_str;
|
mem[translate(freemem)].insn->op3 = null_str;
|
mem[vaddr].insn->op3 = null_str;
|
mem[translate(freemem)].insn->op4 = null_str;
|
mem[vaddr].insn->op4 = null_str;
|
} else {
|
} else if(!GlobalMode) { /* Old mode */
|
printf("internal error: reloading the same location\n");
|
printf("internal error: reloading the same location\n");
|
exit(1);
|
exit(1);
|
|
} else /* New mode */
|
|
{
|
|
if(mem[vaddr].insn->op1 != null_str) free(mem[vaddr].insn->op1);
|
|
if(mem[vaddr].insn->op2 != null_str) free(mem[vaddr].insn->op2);
|
|
if(mem[vaddr].insn->op3 != null_str) free(mem[vaddr].insn->op3);
|
|
if(mem[vaddr].insn->op4 != null_str) free(mem[vaddr].insn->op4);
|
|
mem[vaddr].insn->insn_index = -1;
|
|
mem[vaddr].insn->op1 = null_str;
|
|
mem[vaddr].insn->op2 = null_str;
|
|
mem[vaddr].insn->op3 = null_str;
|
|
mem[vaddr].insn->op4 = null_str;
|
}
|
}
|
debug("addprogram 2\n");
|
|
|
|
mem[translate(freemem)].insn->insn = malloc(strlen(insn)+1);
|
debug("addprogram 2\n");
|
|
|
#ifdef OR16
|
#ifdef OR16
|
|
|
strcpy(mem[translate(freemem)].insn->insn, insn);
|
|
printf("half:%s:\n", insn);
|
printf("half:%s:\n", insn);
|
insn_first2_char[0]=insn[0];
|
insn_first2_char[0]=insn[0];
|
insn_first2_char[1]=insn[1];
|
insn_first2_char[1]=insn[1];
|
insn_first2_char[2]='\0';
|
insn_first2_char[2]='\0';
|
debug("addprogram 3\n");
|
debug("addprogram 3\n");
|
Line 276... |
Line 294... |
else {
|
else {
|
h_insn_is_word_flag = 0; /* not h.xxx insn */
|
h_insn_is_word_flag = 0; /* not h.xxx insn */
|
}
|
}
|
#else
|
#else
|
debug("addprogram 4\n");
|
debug("addprogram 4\n");
|
strcpy(mem[translate(freemem)].insn->insn, insn);
|
|
debug("addprogram 5\n");
|
debug("addprogram 5\n");
|
#endif
|
#endif
|
|
|
|
/* MM: added instruction index */
|
|
mem[vaddr].insn->insn_index = insn_index (insn);
|
/* op1 */
|
/* op1 */
|
if (*operands) {
|
if (*operands) {
|
mem[translate(freemem)].insn->op1 = malloc(strlen(operands)+1);
|
mem[vaddr].insn->op1 = malloc(strlen(operands)+1);
|
strcpy(mem[translate(freemem)].insn->op1, operands);
|
strcpy(mem[vaddr].insn->op1, operands);
|
}
|
}
|
|
|
debug("addprogram 6\n");
|
debug("addprogram 6\n");
|
debug("operands:%s\n", operands);
|
debug("operands:%s\n", operands);
|
if (strstr(operands, OPERAND_DELIM)) {
|
if (strstr(operands, OPERAND_DELIM)) {
|
debug("addprogram 6a\n");
|
debug("addprogram 6a\n");
|
operands = strstr(mem[translate(freemem)].insn->op1, OPERAND_DELIM);
|
operands = strstr(mem[vaddr].insn->op1, OPERAND_DELIM);
|
*operands = '\0';
|
*operands = '\0';
|
operands++;
|
operands++;
|
} else {
|
} else {
|
debug("addprogram 6b\n");
|
debug("addprogram 6b\n");
|
|
if(!GlobalMode)
|
|
{
|
#ifdef OR16
|
#ifdef OR16
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
#else
|
#else
|
freemem += 4;
|
freemem += 4;
|
#endif
|
#endif
|
|
}
|
return;
|
return;
|
}
|
}
|
|
|
debug("addprogram 7\n");
|
debug("addprogram 7\n");
|
/* op2 */
|
/* op2 */
|
if (*operands) {
|
if (*operands) {
|
mem[translate(freemem)].insn->op2 = malloc(strlen(operands)+1);
|
mem[vaddr].insn->op2 = malloc(strlen(operands)+1);
|
strcpy(mem[translate(freemem)].insn->op2, operands);
|
strcpy(mem[vaddr].insn->op2, operands);
|
}
|
}
|
if (strstr(operands, OPERAND_DELIM)) {
|
if (strstr(operands, OPERAND_DELIM)) {
|
operands = strstr(mem[translate(freemem)].insn->op2, OPERAND_DELIM);
|
operands = strstr(mem[vaddr].insn->op2, OPERAND_DELIM);
|
*operands = '\0';
|
*operands = '\0';
|
operands++;
|
operands++;
|
} else {
|
} else {
|
|
if(!GlobalMode)
|
|
{
|
#ifdef OR16
|
#ifdef OR16
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
#else
|
#else
|
freemem += 4;
|
freemem += 4;
|
#endif
|
#endif
|
|
}
|
|
|
return;
|
return;
|
}
|
}
|
|
|
debug("addprogram 8\n");
|
debug("addprogram 8\n");
|
/* op3 */
|
/* op3 */
|
if (*operands) {
|
if (*operands) {
|
mem[translate(freemem)].insn->op3 = malloc(strlen(operands)+1);
|
mem[vaddr].insn->op3 = malloc(strlen(operands)+1);
|
strcpy(mem[translate(freemem)].insn->op3, operands);
|
strcpy(mem[vaddr].insn->op3, operands);
|
}
|
}
|
if (strstr(operands, OPERAND_DELIM)) {
|
if (strstr(operands, OPERAND_DELIM)) {
|
operands = strstr(mem[translate(freemem)].insn->op3, OPERAND_DELIM);
|
operands = strstr(mem[vaddr].insn->op3, OPERAND_DELIM);
|
*operands = '\0';
|
*operands = '\0';
|
operands++;
|
operands++;
|
} else {
|
} else {
|
|
if(!GlobalMode)
|
|
{
|
#ifdef OR16
|
#ifdef OR16
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
#else
|
#else
|
freemem += 4;
|
freemem += 4;
|
#endif
|
#endif
|
|
}
|
return;
|
return;
|
}
|
}
|
|
|
/* op4 */
|
/* op4 */
|
if (*operands) {
|
if (*operands) {
|
mem[translate(freemem)].insn->op4 = malloc(strlen(operands)+1);
|
mem[vaddr].insn->op4 = malloc(strlen(operands)+1);
|
strcpy(mem[translate(freemem)].insn->op4, operands);
|
strcpy(mem[vaddr].insn->op4, operands);
|
}
|
}
|
if (strstr(operands, OPERAND_DELIM)) {
|
if (strstr(operands, OPERAND_DELIM)) {
|
operands = strstr(mem[translate(freemem)].insn->op4, OPERAND_DELIM);
|
operands = strstr(mem[vaddr].insn->op4, OPERAND_DELIM);
|
*operands = '\0';
|
*operands = '\0';
|
operands++;
|
operands++;
|
}
|
}
|
|
|
|
if(!GlobalMode)
|
|
{
|
#ifdef OR16
|
#ifdef OR16
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
freemem += (h_insn_is_word_flag == 1) ? 2 : 4;
|
#else
|
#else
|
freemem += 4;
|
freemem += 4;
|
#endif
|
#endif
|
|
}
|
|
|
return;
|
return;
|
}
|
}
|
|
|
/* Non-architecture dependent parsing: stripping comments, filling
|
/* Non-architecture dependent parsing: stripping comments, filling
|
abstract memory */
|
abstract memory */
|
|
|
void parseline(char *inputline)
|
void parseline(char *inputline,int* breakpoint)
|
{
|
{
|
char item[MAXLINE_LEN];
|
char item[MAXLINE_LEN];
|
char item2[MAXLINE_LEN];
|
char item2[MAXLINE_LEN];
|
int i = 0;
|
int i = 0;
|
|
|
Line 391... |
Line 424... |
return;
|
return;
|
|
|
/* Is this item a label? If yes, add it to the label table and return immediately. */
|
/* Is this item a label? If yes, add it to the label table and return immediately. */
|
if (strstr(item, LABELEND_CHAR)) {
|
if (strstr(item, LABELEND_CHAR)) {
|
*strstr(item, LABELEND_CHAR) = '\0';
|
*strstr(item, LABELEND_CHAR) = '\0';
|
addlabel(item, translate(freemem));
|
addlabel(item, translate(freemem,breakpoint),breakpoint);
|
return;
|
return;
|
}
|
}
|
|
|
/* Is this item a .directive? If yes, check for some supported
|
/* Is this item a .directive? If yes, check for some supported
|
and then return (even if unsupported found). */
|
and then return (even if unsupported found). */
|
if (item[0] == DIRECTIVE_CHAR) {
|
if (item[0] == DIRECTIVE_CHAR) {
|
if (strcmp(item, ".align") == 0) {
|
if (strcmp(item, ".align") == 0) {
|
int align = strtoul(item2, NULL, 0);
|
int align = strtoul(item2, NULL, 0);
|
if (!(translate(freemem) % align))
|
if (!(translate(freemem,breakpoint) % align))
|
return;
|
return;
|
freemem &= -align;
|
freemem &= -align;
|
freemem += align;
|
freemem += align;
|
return;
|
return;
|
} else
|
} else
|
Line 412... |
Line 445... |
int addr = strtoul(item2, NULL, 0);
|
int addr = strtoul(item2, NULL, 0);
|
freemem = addr;
|
freemem = addr;
|
return;
|
return;
|
} else
|
} else
|
if (strcmp(item, ".ascii") == 0) {
|
if (strcmp(item, ".ascii") == 0) {
|
adddatastr(strstr(inputline, "\""));
|
adddatastr(strstr(inputline, "\""),breakpoint);
|
return;
|
return;
|
} else
|
} else
|
if (strcmp(item, ".word") == 0) {
|
if (strcmp(item, ".word") == 0) {
|
adddataword(item2);
|
adddataword(item2,breakpoint);
|
return;
|
return;
|
} else
|
} else
|
if (strcmp(item, ".half") == 0) {
|
if (strcmp(item, ".half") == 0) {
|
adddatahalf(item2);
|
adddatahalf(item2,breakpoint);
|
return;
|
return;
|
} else
|
} else
|
if (strcmp(item, ".byte") == 0) {
|
if (strcmp(item, ".byte") == 0) {
|
adddatabyte(item2);
|
adddatabyte(item2,breakpoint);
|
return;
|
return;
|
} else
|
} else
|
if (strcmp(item, ".space") == 0) {
|
if (strcmp(item, ".space") == 0) {
|
adddataspace(item2);
|
adddataspace(item2);
|
return;
|
return;
|
Line 436... |
Line 469... |
return;
|
return;
|
}
|
}
|
|
|
/* This item can only be an instruction. Get all operands
|
/* This item can only be an instruction. Get all operands
|
and add everything to mem array but as a program. */
|
and add everything to mem array but as a program. */
|
debug("%x: ", translate(freemem));
|
debug("%x: ", translate(freemem,breakpoint));
|
addprogram(item, item2);
|
addprogram(item, item2,freemem,breakpoint);
|
|
|
/* Also do static, single stats. */
|
/* Also do static, single stats. */
|
addsstats(item, 0, 1);
|
addsstats(item, 0, 1);
|
|
|
return;
|
return;
|
Line 460... |
Line 493... |
struct COFF_scnhdr coffscnhdr;
|
struct COFF_scnhdr coffscnhdr;
|
int len;
|
int len;
|
char item[MAXLINE_LEN];
|
char item[MAXLINE_LEN];
|
char item2[MAXLINE_LEN];
|
char item2[MAXLINE_LEN];
|
int firstthree = 0;
|
int firstthree = 0;
|
|
int breakpoint = 0;
|
|
|
if (!(inputfs = fopen(filename, "r"))) {
|
if (!(inputfs = fopen(filename, "r"))) {
|
perror("readfile_coff");
|
perror("readfile_coff");
|
exit(1);
|
exit(1);
|
}
|
}
|
Line 498... |
Line 532... |
printf(" size: 0x%.8x,", COFF_LONG_H(coffscnhdr.s_size));
|
printf(" size: 0x%.8x,", COFF_LONG_H(coffscnhdr.s_size));
|
printf(" scnptr: 0x%.8x\n", COFF_LONG_H(coffscnhdr.s_scnptr));
|
printf(" scnptr: 0x%.8x\n", COFF_LONG_H(coffscnhdr.s_scnptr));
|
|
|
sectsize = COFF_LONG_H(coffscnhdr.s_size);
|
sectsize = COFF_LONG_H(coffscnhdr.s_size);
|
/* A couple of sanity checks. */
|
/* A couple of sanity checks. */
|
if (translate(COFF_LONG_H(coffscnhdr.s_vaddr)) < MEMORY_START) {
|
if (translate(COFF_LONG_H(coffscnhdr.s_vaddr),&breakpoint) < MEMORY_START) {
|
printf("Section %s starts out of ", coffscnhdr.s_name);
|
printf("Section %s starts out of ", coffscnhdr.s_name);
|
printf("memory (at %x)\n", COFF_LONG_H(coffscnhdr.s_vaddr));
|
printf("memory (at %x)\n", COFF_LONG_H(coffscnhdr.s_vaddr));
|
exit(1);
|
exit(1);
|
}
|
}
|
if (translate(COFF_LONG_H(coffscnhdr.s_vaddr) + sectsize) >
|
if (translate(COFF_LONG_H(coffscnhdr.s_vaddr) + sectsize,&breakpoint) >
|
MEMORY_START + MEMORY_LEN) {
|
MEMORY_START + MEMORY_LEN) {
|
printf("Section %s ends out of ", coffscnhdr.s_name);
|
printf("Section %s ends out of ", coffscnhdr.s_name);
|
printf("memory.\n");
|
printf("memory.\n");
|
exit(1);
|
exit(1);
|
}
|
}
|
Line 534... |
Line 568... |
}
|
}
|
while (sectsize > 0 && (len = fread(&inputbuf, sizeof(inputbuf), 1, inputfs))) {
|
while (sectsize > 0 && (len = fread(&inputbuf, sizeof(inputbuf), 1, inputfs))) {
|
insn = COFF_LONG_H(inputbuf);
|
insn = COFF_LONG_H(inputbuf);
|
len = disassemble_insn(insn);
|
len = disassemble_insn(insn);
|
sprintf(item, "%u", insn);
|
sprintf(item, "%u", insn);
|
adddataword(item);
|
adddataword(item,&breakpoint);
|
freemem -= len;
|
freemem -= len;
|
if (len == 2) {
|
if (len == 2) {
|
fseek(inputfs, -2, SEEK_CUR);
|
fseek(inputfs, -2, SEEK_CUR);
|
debug("readfile_coff: %x 0x%x ", sectsize, insn >> 16);
|
debug("readfile_coff: %x 0x%x ", sectsize, insn >> 16);
|
}
|
}
|
else
|
else
|
debug("readfile_coff: %x 0x%x ", sectsize, insn);
|
debug("readfile_coff: %x 0x%x ", sectsize, insn);
|
debug("%s\n", disassembled);
|
debug("%s\n", disassembled);
|
strtoken(disassembled, item, 1); /* opcode */
|
strtoken(disassembled, item, 1); /* opcode */
|
strtoken(disassembled, item2, 2); /* all the remaining one/two/three operands */
|
strtoken(disassembled, item2, 2); /* all the remaining one/two/three operands */
|
addprogram(item, item2);
|
addprogram(item, item2,freemem,&breakpoint);
|
sectsize -= len;
|
sectsize -= len;
|
}
|
}
|
}
|
}
|
if (firstthree < 3) {
|
if (firstthree < 3) {
|
printf("One or more missing sections. At least");
|
printf("One or more missing sections. At least");
|
Line 570... |
Line 604... |
|
|
void readsyms_coff(char *filename, unsigned long symptr, long syms)
|
void readsyms_coff(char *filename, unsigned long symptr, long syms)
|
{
|
{
|
FILE *inputfs;
|
FILE *inputfs;
|
struct COFF_syment coffsymhdr;
|
struct COFF_syment coffsymhdr;
|
|
int breakpoint = 0;
|
|
|
if (!(inputfs = fopen(filename, "r"))) {
|
if (!(inputfs = fopen(filename, "r"))) {
|
perror("readsyms_coff");
|
perror("readsyms_coff");
|
exit(1);
|
exit(1);
|
}
|
}
|
Line 593... |
Line 627... |
}
|
}
|
debug("Symbol: %s,", coffsymhdr.e.e_name);
|
debug("Symbol: %s,", coffsymhdr.e.e_name);
|
debug(" val: 0x%.8x,", COFF_LONG_H(coffsymhdr.e_value));
|
debug(" val: 0x%.8x,", COFF_LONG_H(coffsymhdr.e_value));
|
debug(" auxs: %c\n", coffsymhdr.e_numaux);
|
debug(" auxs: %c\n", coffsymhdr.e_numaux);
|
if (strlen(coffsymhdr.e.e_name) && strlen(coffsymhdr.e.e_name) < 9)
|
if (strlen(coffsymhdr.e.e_name) && strlen(coffsymhdr.e.e_name) < 9)
|
addlabel(coffsymhdr.e.e_name, COFF_LONG_H(coffsymhdr.e_value));
|
addlabel(coffsymhdr.e.e_name, COFF_LONG_H(coffsymhdr.e_value),&breakpoint);
|
}
|
}
|
|
|
fclose(inputfs);
|
fclose(inputfs);
|
printf("Finished loading symbols.\n");
|
printf("Finished loading symbols.\n");
|
return;
|
return;
|
Line 608... |
Line 642... |
void readfile_assembly(char *filename)
|
void readfile_assembly(char *filename)
|
{
|
{
|
FILE *inputfs;
|
FILE *inputfs;
|
char inputbuf[MAXLINE_LEN];
|
char inputbuf[MAXLINE_LEN];
|
char *status;
|
char *status;
|
|
int breakpoint = 0;
|
|
|
if (!(inputfs = fopen(filename, "r"))) {
|
if (!(inputfs = fopen(filename, "r"))) {
|
perror("readfile_assembly");
|
perror("readfile_assembly");
|
exit(1);
|
exit(1);
|
}
|
}
|
|
|
while ((status = fgets(inputbuf, sizeof(inputbuf), inputfs))) {
|
while ((status = fgets(inputbuf, sizeof(inputbuf), inputfs))) {
|
if (nonempty(inputbuf))
|
if (nonempty(inputbuf))
|
parseline(inputbuf);
|
parseline(inputbuf,&breakpoint);
|
}
|
}
|
fclose(inputfs);
|
fclose(inputfs);
|
|
|
return;
|
return;
|
}
|
}
|
Line 682... |
Line 717... |
|
|
|
|
/* Loads file to memory starting at address startaddr and returns freemem. */
|
/* Loads file to memory starting at address startaddr and returns freemem. */
|
unsigned long loadcode(char *filename, unsigned long startaddr, unsigned long virtphy_transl)
|
unsigned long loadcode(char *filename, unsigned long startaddr, unsigned long virtphy_transl)
|
{
|
{
|
|
int breakpoint = 0;
|
|
|
transl_error = 0;
|
transl_error = 0;
|
transl_table = virtphy_transl;
|
transl_table = virtphy_transl;
|
freemem = startaddr;
|
freemem = startaddr;
|
printf("loadcode: filename %s startaddr=%x virtphy_transl=%x", filename, startaddr, virtphy_transl);
|
printf("loadcode: filename %s startaddr=%x virtphy_transl=%x", filename, startaddr, virtphy_transl);
|
identifyfile(filename);
|
identifyfile(filename);
|
if (transl_error)
|
if (transl_error)
|
return -1;
|
return -1;
|
else
|
else
|
return translate(freemem);
|
return translate(freemem,&breakpoint);
|
}
|
}
|
|
|
No newline at end of file
|
No newline at end of file
|