#include "sysdep.h"
#include <stdlib.h>
#include <stdio.h>
#include "bfd.h"
#include "arc-ext.h"
#include "libiberty.h"
static struct arcExtMap arc_extension_map;
const char *
arcExtMap_instName(int opcode, int minor, int *flags)
{
if (opcode == 3)
{
if (minor < 0x09 || minor == 0x3f)
return 0;
else
opcode = 0x1f - 0x10 + minor - 0x09 + 1;
}
else
if (opcode < 0x10)
return 0;
else
opcode -= 0x10;
if (!arc_extension_map.instructions[opcode])
return 0;
*flags = arc_extension_map.instructions[opcode]->flags;
return arc_extension_map.instructions[opcode]->name;
}
const char *
arcExtMap_coreRegName(int value)
{
if (value < 32)
return 0;
return arc_extension_map.coreRegisters[value-32];
}
const char *
arcExtMap_condCodeName(int value)
{
if (value < 16)
return 0;
return arc_extension_map.condCodes[value-16];
}
const char *
arcExtMap_auxRegName(long address)
{
struct ExtAuxRegister *r;
for (r = arc_extension_map.auxRegisters; r; r = r->next) {
if (r->address == address)
return (const char *) r->name;
}
return 0;
}
static void
clean_aux_registers(struct ExtAuxRegister *r)
{
if (r -> next)
{
clean_aux_registers( r->next);
free(r -> name);
free(r -> next);
r ->next = NULL;
}
else
free(r -> name);
}
static void
cleanup_ext_map(void)
{
struct ExtAuxRegister *r;
struct ExtInstruction *insn;
int i;
r = arc_extension_map.auxRegisters;
if (r)
{
(clean_aux_registers(r));
free(r);
}
for (i = 0; i < NUM_EXT_INST; i++)
{
insn = arc_extension_map.instructions[i];
if (insn)
free(insn->name);
}
for (i = 0; i < NUM_EXT_CORE; i++)
{
if (arc_extension_map.coreRegisters[i])
free(arc_extension_map.coreRegisters[i]);
}
for (i = 0; i < NUM_EXT_COND; i++) {
if (arc_extension_map.condCodes[i])
free(arc_extension_map.condCodes[i]);
}
memset(&arc_extension_map, 0, sizeof(struct arcExtMap));
}
int
arcExtMap_add(void *base, unsigned long length)
{
unsigned char *block = base;
unsigned char *p = block;
cleanup_ext_map();
while (p && p < (block + length))
{
if (p[0] == 0)
return -1;
switch (p[1])
{
case EXT_INSTRUCTION:
{
char opcode = p[2];
char minor = p[3];
char * insn_name = (char *) xmalloc(( (int)*p-5) * sizeof(char));
struct ExtInstruction * insn =
(struct ExtInstruction *) xmalloc(sizeof(struct ExtInstruction));
if (opcode==3)
opcode = 0x1f - 0x10 + minor - 0x09 + 1;
else
opcode -= 0x10;
insn -> flags = (char) *(p+4);
strcpy (insn_name, (char *) (p+5));
insn -> name = insn_name;
arc_extension_map.instructions[(int) opcode] = insn;
}
break;
case EXT_CORE_REGISTER:
{
char * core_name = (char *) xmalloc(((int)*p-3) * sizeof(char));
strcpy(core_name, (char *) (p+3));
arc_extension_map.coreRegisters[p[2]-32] = core_name;
}
break;
case EXT_COND_CODE:
{
char * cc_name = (char *) xmalloc( ((int)*p-3) * sizeof(char));
strcpy(cc_name, (char *) (p+3));
arc_extension_map.condCodes[p[2]-16] = cc_name;
}
break;
case EXT_AUX_REGISTER:
{
struct ExtAuxRegister *newAuxRegister =
(struct ExtAuxRegister *)malloc(sizeof(struct ExtAuxRegister));
char * aux_name = (char *) xmalloc ( ((int)*p-6) * sizeof(char));
strcpy (aux_name, (char *) (p+6));
newAuxRegister->name = aux_name;
newAuxRegister->address = p[2]<<24 | p[3]<<16 | p[4]<<8 | p[5];
newAuxRegister->next = arc_extension_map.auxRegisters;
arc_extension_map.auxRegisters = newAuxRegister;
}
break;
default:
return -1;
}
p += p[0];
}
return 0;
}
void
build_ARC_extmap (text_bfd)
bfd *text_bfd;
{
char *arcExtMap;
bfd_size_type count;
asection *p;
for (p = text_bfd->sections; p != NULL; p = p->next)
if (!strcmp (p->name, ".arcextmap"))
{
count = bfd_get_section_size (p);
arcExtMap = (char *) xmalloc (count);
if (bfd_get_section_contents (text_bfd, p, (PTR) arcExtMap, 0, count))
{
arcExtMap_add ((PTR) arcExtMap, count);
break;
}
free ((PTR) arcExtMap);
}
}