#include <stdio.h>
#include "safe-ctype.h"
#include "as.h"
#include "opcode/tic4x.h"
#include "subsegs.h"
#include "obstack.h"
#include "symbols.h"
#include "listing.h"
#define TIC4X_ALT_SYNTAX
#define MAX_LITTLENUMS 6
static struct hash_control *tic4x_op_hash = NULL;
static struct hash_control *tic4x_asg_hash = NULL;
static unsigned int tic4x_cpu = 0;
static unsigned int tic4x_revision = 0;
static unsigned int tic4x_idle2 = 0;
static unsigned int tic4x_lowpower = 0;
static unsigned int tic4x_enhanced = 0;
static unsigned int tic4x_big_model = 0;
static unsigned int tic4x_reg_args = 0;
static unsigned long tic4x_oplevel = 0;
#define OPTION_CPU 'm'
#define OPTION_BIG (OPTION_MD_BASE + 1)
#define OPTION_SMALL (OPTION_MD_BASE + 2)
#define OPTION_MEMPARM (OPTION_MD_BASE + 3)
#define OPTION_REGPARM (OPTION_MD_BASE + 4)
#define OPTION_IDLE2 (OPTION_MD_BASE + 5)
#define OPTION_LOWPOWER (OPTION_MD_BASE + 6)
#define OPTION_ENHANCED (OPTION_MD_BASE + 7)
#define OPTION_REV (OPTION_MD_BASE + 8)
CONST char *md_shortopts = "bm:prs";
struct option md_longopts[] =
{
{ "mcpu", required_argument, NULL, OPTION_CPU },
{ "mdsp", required_argument, NULL, OPTION_CPU },
{ "mbig", no_argument, NULL, OPTION_BIG },
{ "msmall", no_argument, NULL, OPTION_SMALL },
{ "mmemparm", no_argument, NULL, OPTION_MEMPARM },
{ "mregparm", no_argument, NULL, OPTION_REGPARM },
{ "midle2", no_argument, NULL, OPTION_IDLE2 },
{ "mlowpower", no_argument, NULL, OPTION_LOWPOWER },
{ "menhanced", no_argument, NULL, OPTION_ENHANCED },
{ "mrev", required_argument, NULL, OPTION_REV },
{ NULL, no_argument, NULL, 0 }
};
size_t md_longopts_size = sizeof (md_longopts);
typedef enum
{
M_UNKNOWN, M_IMMED, M_DIRECT, M_REGISTER, M_INDIRECT,
M_IMMED_F, M_PARALLEL, M_HI
}
tic4x_addr_mode_t;
typedef struct tic4x_operand
{
tic4x_addr_mode_t mode;
expressionS expr;
int disp;
int aregno;
LITTLENUM_TYPE fwords[MAX_LITTLENUMS];
}
tic4x_operand_t;
typedef struct tic4x_insn
{
char name[TIC4X_NAME_MAX];
unsigned int in_use;
unsigned int parallel;
unsigned int nchars;
unsigned long opcode;
expressionS exp;
int reloc;
int pcrel;
char *pname;
unsigned int num_operands;
tic4x_inst_t *inst;
tic4x_operand_t operands[TIC4X_OPERANDS_MAX];
}
tic4x_insn_t;
static tic4x_insn_t the_insn;
static tic4x_insn_t *insn = &the_insn;
static int tic4x_gen_to_words
PARAMS ((FLONUM_TYPE, LITTLENUM_TYPE *, int ));
static char *tic4x_atof
PARAMS ((char *, char, LITTLENUM_TYPE * ));
static void tic4x_insert_reg
PARAMS ((char *, int ));
static void tic4x_insert_sym
PARAMS ((char *, int ));
static char *tic4x_expression
PARAMS ((char *, expressionS *));
static char *tic4x_expression_abs
PARAMS ((char *, offsetT *));
static void tic4x_emit_char
PARAMS ((char, int));
static void tic4x_seg_alloc
PARAMS ((char *, segT, int, symbolS *));
static void tic4x_asg
PARAMS ((int));
static void tic4x_bss
PARAMS ((int));
static void tic4x_globl
PARAMS ((int));
static void tic4x_cons
PARAMS ((int));
static void tic4x_stringer
PARAMS ((int));
static void tic4x_eval
PARAMS ((int));
static void tic4x_newblock
PARAMS ((int));
static void tic4x_sect
PARAMS ((int));
static void tic4x_set
PARAMS ((int));
static void tic4x_usect
PARAMS ((int));
static void tic4x_version
PARAMS ((int));
static void tic4x_init_regtable
PARAMS ((void));
static void tic4x_init_symbols
PARAMS ((void));
static int tic4x_inst_insert
PARAMS ((tic4x_inst_t *));
static tic4x_inst_t *tic4x_inst_make
PARAMS ((char *, unsigned long, char *));
static int tic4x_inst_add
PARAMS ((tic4x_inst_t *));
void tic4x_end
PARAMS ((void));
static int tic4x_indirect_parse
PARAMS ((tic4x_operand_t *, const tic4x_indirect_t *));
static char *tic4x_operand_parse
PARAMS ((char *, tic4x_operand_t *));
static int tic4x_operands_match
PARAMS ((tic4x_inst_t *, tic4x_insn_t *, int));
static void tic4x_insn_check
PARAMS ((tic4x_insn_t *));
static void tic4x_insn_output
PARAMS ((tic4x_insn_t *));
static int tic4x_operands_parse
PARAMS ((char *, tic4x_operand_t *, int ));
void tic4x_cleanup
PARAMS ((void));
int tic4x_unrecognized_line
PARAMS ((int));
static int tic4x_pc_offset
PARAMS ((unsigned int));
int tic4x_do_align
PARAMS ((int, const char *, int, int));
void tic4x_start_line
PARAMS ((void));
arelent *tc_gen_reloc
PARAMS ((asection *, fixS *));
const pseudo_typeS
md_pseudo_table[] =
{
{"align", s_align_bytes, 32},
{"ascii", tic4x_stringer, 1},
{"asciz", tic4x_stringer, 0},
{"asg", tic4x_asg, 0},
{"block", s_space, 4},
{"byte", tic4x_cons, 1},
{"bss", tic4x_bss, 0},
{"copy", s_include, 0},
{"def", tic4x_globl, 0},
{"equ", tic4x_set, 0},
{"eval", tic4x_eval, 0},
{"global", tic4x_globl, 0},
{"globl", tic4x_globl, 0},
{"hword", tic4x_cons, 2},
{"ieee", float_cons, 'i'},
{"int", tic4x_cons, 4},
{"ldouble", float_cons, 'e'},
{"newblock", tic4x_newblock, 0},
{"ref", s_ignore, 0},
{"set", tic4x_set, 0},
{"sect", tic4x_sect, 1},
{"space", s_space, 4},
{"string", tic4x_stringer, 0},
{"usect", tic4x_usect, 0},
{"version", tic4x_version, 0},
{"word", tic4x_cons, 4},
{"xdef", tic4x_globl, 0},
{NULL, 0, 0},
};
int md_short_jump_size = 4;
int md_long_jump_size = 4;
const int md_reloc_size = RELSZ;
#ifdef TIC4X_ALT_SYNTAX
const char comment_chars[] = ";!";
#else
const char comment_chars[] = ";";
#endif
const char line_comment_chars[] = "#*";
const char line_separator_chars[] = "&";
const char EXP_CHARS[] = "eE";
const char FLT_CHARS[] = "fFilsS";
extern FLONUM_TYPE generic_floating_point_number;
#define MAX_PRECISION (4)
#define S_PRECISION (1)
#define F_PRECISION (2)
#define E_PRECISION (4)
#define GUARD (2)
static int
tic4x_gen_to_words (flonum, words, precision)
FLONUM_TYPE flonum;
LITTLENUM_TYPE *words;
int precision;
{
int return_value = 0;
LITTLENUM_TYPE *p;
int mantissa_bits;
int exponent_bits;
int exponent;
unsigned int sone;
unsigned int sfract;
unsigned int smant;
unsigned int tmp;
unsigned int mover;
unsigned int rbit;
int shift;
if (precision != S_PRECISION)
words[1] = 0x0000;
if (precision == E_PRECISION)
words[2] = words[3] = 0x0000;
if (flonum.low > flonum.leader
|| flonum.sign == 0)
{
if(flonum.sign == 0)
as_bad ("Nan, using zero.");
words[0] = 0x8000;
return return_value;
}
if (flonum.sign == 'P')
{
if (precision == S_PRECISION)
words[0] = 0x77ff;
else
{
words[0] = 0x7f7f;
words[1] = 0xffff;
}
if (precision == E_PRECISION)
{
words[2] = 0x7fff;
words[3] = 0xffff;
}
return return_value;
}
else if (flonum.sign == 'N')
{
if (precision == S_PRECISION)
words[0] = 0x7800;
else
words[0] = 0x7f80;
if (precision == E_PRECISION)
words[2] = 0x8000;
return return_value;
}
exponent = (flonum.exponent + flonum.leader - flonum.low + 1) * 16;
if (!(tmp = *flonum.leader))
abort ();
shift = 0;
while (tmp >>= 1)
shift++;
exponent -= (16 - shift);
if (precision == S_PRECISION)
{
exponent_bits = 4;
mantissa_bits = 11;
}
else if(precision == F_PRECISION)
{
exponent_bits = 8;
mantissa_bits = 23;
}
else
{
exponent_bits = 8;
mantissa_bits = 31;
}
shift = mantissa_bits - shift;
smant = 0;
mover = 0;
rbit = 0;
for (p = flonum.leader; p >= flonum.low && shift > -16; p--)
{
tmp = shift >= 0 ? *p << shift : *p >> -shift;
rbit = shift < 0 ? ((*p >> (-shift-1)) & 0x1) : 0;
smant |= tmp;
shift -= 16;
}
if(rbit)
{
if( smant == ((unsigned)(1<<(mantissa_bits+1))-1)
|| smant == (unsigned)-1 )
mover=1;
smant++;
}
sone = (1 << (mantissa_bits));
if(mover)
{
smant >>= 1;
smant |= sone;
exponent++;
}
if (!(sone&smant))
abort ();
if (flonum.sign == '+')
sfract = smant - sone;
else
{
if (smant == sone)
{
exponent--;
sfract = 0;
}
else
{
sfract = -smant & (sone-1);
}
sfract |= sone;
}
if (abs (exponent) >= (1 << (exponent_bits - 1)))
as_bad ("Cannot represent exponent in %d bits", exponent_bits);
exponent &= (1 << (exponent_bits)) - 1;
if (precision == E_PRECISION)
{
words[0] = exponent << (mantissa_bits+1-24);
words[0] |= sfract >> 24;
words[1] = sfract >> 8;
words[2] = sfract >> 16;
words[3] = sfract & 0xffff;
}
else
{
sfract |= exponent << (mantissa_bits+1);
if (precision == S_PRECISION)
words[0] = sfract;
else
{
words[0] = sfract >> 16;
words[1] = sfract & 0xffff;
}
}
return return_value;
}
static char *
tic4x_atof (str, what_kind, words)
char *str;
char what_kind;
LITTLENUM_TYPE *words;
{
static LITTLENUM_TYPE bits[MAX_PRECISION + MAX_PRECISION + GUARD];
char *return_value;
int precision;
FLONUM_TYPE save_gen_flonum;
save_gen_flonum = generic_floating_point_number;
return_value = str;
generic_floating_point_number.low = bits + MAX_PRECISION;
generic_floating_point_number.high = NULL;
generic_floating_point_number.leader = NULL;
generic_floating_point_number.exponent = 0;
generic_floating_point_number.sign = '\0';
memset (bits, '\0', sizeof (LITTLENUM_TYPE) * MAX_PRECISION);
switch (what_kind)
{
case 's':
case 'S':
precision = S_PRECISION;
break;
case 'd':
case 'D':
case 'f':
case 'F':
precision = F_PRECISION;
break;
case 'E':
case 'e':
precision = E_PRECISION;
break;
default:
as_bad ("Invalid floating point number");
return (NULL);
}
generic_floating_point_number.high
= generic_floating_point_number.low + precision - 1 + GUARD;
if (atof_generic (&return_value, ".", EXP_CHARS,
&generic_floating_point_number))
{
as_bad ("Invalid floating point number");
return (NULL);
}
tic4x_gen_to_words (generic_floating_point_number,
words, precision);
generic_floating_point_number = save_gen_flonum;
return return_value;
}
static void
tic4x_insert_reg (regname, regnum)
char *regname;
int regnum;
{
char buf[32];
int i;
symbol_table_insert (symbol_new (regname, reg_section, (valueT) regnum,
&zero_address_frag));
for (i = 0; regname[i]; i++)
buf[i] = ISLOWER (regname[i]) ? TOUPPER (regname[i]) : regname[i];
buf[i] = '\0';
symbol_table_insert (symbol_new (buf, reg_section, (valueT) regnum,
&zero_address_frag));
}
static void
tic4x_insert_sym (symname, value)
char *symname;
int value;
{
symbolS *symbolP;
symbolP = symbol_new (symname, absolute_section,
(valueT) value, &zero_address_frag);
SF_SET_LOCAL (symbolP);
symbol_table_insert (symbolP);
}
static char *
tic4x_expression (str, exp)
char *str;
expressionS *exp;
{
char *s;
char *t;
t = input_line_pointer;
input_line_pointer = str;
expression (exp);
s = input_line_pointer;
input_line_pointer = t;
return s;
}
static char *
tic4x_expression_abs (str, value)
char *str;
offsetT *value;
{
char *s;
char *t;
t = input_line_pointer;
input_line_pointer = str;
*value = get_absolute_expression ();
s = input_line_pointer;
input_line_pointer = t;
return s;
}
static void
tic4x_emit_char (c,b)
char c;
int b;
{
expressionS exp;
exp.X_op = O_constant;
exp.X_add_number = c;
emit_expr (&exp, b);
}
static void
tic4x_seg_alloc (name, seg, size, symbolP)
char *name ATTRIBUTE_UNUSED;
segT seg ATTRIBUTE_UNUSED;
int size;
symbolS *symbolP;
{
if (size)
{
char *p;
p = frag_var (rs_fill, 1, 1, (relax_substateT) 0,
(symbolS *) symbolP,
size * OCTETS_PER_BYTE, (char *) 0);
*p = 0;
}
}
static void
tic4x_asg (x)
int x ATTRIBUTE_UNUSED;
{
char c;
char *name;
char *str;
char *tmp;
SKIP_WHITESPACE ();
str = input_line_pointer;
while (*input_line_pointer != ',' && *input_line_pointer)
input_line_pointer++;
if (*input_line_pointer != ',')
{
as_bad ("Comma expected\n");
return;
}
*input_line_pointer++ = '\0';
name = input_line_pointer;
c = get_symbol_end ();
tmp = xmalloc (strlen (str) + 1);
strcpy (tmp, str);
str = tmp;
tmp = xmalloc (strlen (name) + 1);
strcpy (tmp, name);
name = tmp;
if (hash_find (tic4x_asg_hash, name))
hash_replace (tic4x_asg_hash, name, (PTR) str);
else
hash_insert (tic4x_asg_hash, name, (PTR) str);
*input_line_pointer = c;
demand_empty_rest_of_line ();
}
static void
tic4x_bss (x)
int x ATTRIBUTE_UNUSED;
{
char c;
char *name;
char *p;
offsetT size;
segT current_seg;
subsegT current_subseg;
symbolS *symbolP;
current_seg = now_seg;
current_subseg = now_subseg;
SKIP_WHITESPACE ();
name = input_line_pointer;
c = get_symbol_end ();
if (c != ',')
{
as_bad (".bss size argument missing\n");
return;
}
input_line_pointer =
tic4x_expression_abs (++input_line_pointer, &size);
if (size < 0)
{
as_bad (".bss size %ld < 0!", (long) size);
return;
}
subseg_set (bss_section, 0);
symbolP = symbol_find_or_make (name);
if (S_GET_SEGMENT (symbolP) == bss_section)
symbol_get_frag (symbolP)->fr_symbol = 0;
symbol_set_frag (symbolP, frag_now);
p = frag_var (rs_org, 1, 1, (relax_substateT) 0, symbolP,
size * OCTETS_PER_BYTE, (char *) 0);
*p = 0;
S_SET_SEGMENT (symbolP, bss_section);
if (S_GET_STORAGE_CLASS (symbolP) != C_EXT)
S_SET_STORAGE_CLASS (symbolP, C_STAT);
subseg_set (current_seg, current_subseg);
demand_empty_rest_of_line ();
}
static void
tic4x_globl (ignore)
int ignore ATTRIBUTE_UNUSED;
{
char *name;
int c;
symbolS *symbolP;
do
{
name = input_line_pointer;
c = get_symbol_end ();
symbolP = symbol_find_or_make (name);
*input_line_pointer = c;
SKIP_WHITESPACE ();
S_SET_STORAGE_CLASS (symbolP, C_EXT);
if (c == ',')
{
input_line_pointer++;
SKIP_WHITESPACE ();
if (*input_line_pointer == '\n')
c = '\n';
}
}
while (c == ',');
demand_empty_rest_of_line ();
}
static void
tic4x_cons (bytes)
int bytes;
{
register unsigned int c;
do
{
SKIP_WHITESPACE ();
if (*input_line_pointer == '"')
{
input_line_pointer++;
while (is_a_char (c = next_char_of_string ()))
tic4x_emit_char (c, 4);
know (input_line_pointer[-1] == '\"');
}
else
{
expressionS exp;
input_line_pointer = tic4x_expression (input_line_pointer, &exp);
if (exp.X_op == O_constant)
{
switch (bytes)
{
case 1:
exp.X_add_number &= 255;
break;
case 2:
exp.X_add_number &= 65535;
break;
}
}
emit_expr (&exp, 4);
}
}
while (*input_line_pointer++ == ',');
input_line_pointer--;
demand_empty_rest_of_line ();
}
static void
tic4x_stringer (append_zero)
int append_zero;
{
int bytes;
register unsigned int c;
bytes = 0;
do
{
SKIP_WHITESPACE ();
if (*input_line_pointer == '"')
{
input_line_pointer++;
while (is_a_char (c = next_char_of_string ()))
{
tic4x_emit_char (c, 1);
bytes++;
}
if (append_zero)
{
tic4x_emit_char (c, 1);
bytes++;
}
know (input_line_pointer[-1] == '\"');
}
else
{
expressionS exp;
input_line_pointer = tic4x_expression (input_line_pointer, &exp);
if (exp.X_op != O_constant)
{
as_bad("Non-constant symbols not allowed\n");
return;
}
exp.X_add_number &= 255;
emit_expr (&exp, 1);
bytes++;
}
}
while (*input_line_pointer++ == ',');
if ( bytes&0x3 )
tic4x_emit_char (0, 4-(bytes&0x3));
input_line_pointer--;
demand_empty_rest_of_line ();
}
static void
tic4x_eval (x)
int x ATTRIBUTE_UNUSED;
{
char c;
offsetT value;
char *name;
SKIP_WHITESPACE ();
input_line_pointer =
tic4x_expression_abs (input_line_pointer, &value);
if (*input_line_pointer++ != ',')
{
as_bad ("Symbol missing\n");
return;
}
name = input_line_pointer;
c = get_symbol_end ();
demand_empty_rest_of_line ();
tic4x_insert_sym (name, value);
}
static void
tic4x_newblock (x)
int x ATTRIBUTE_UNUSED;
{
dollar_label_clear ();
}
static void
tic4x_sect (x)
int x ATTRIBUTE_UNUSED;
{
char c;
char *section_name;
char *subsection_name;
char *name;
segT seg;
offsetT num;
SKIP_WHITESPACE ();
if (*input_line_pointer == '"')
input_line_pointer++;
section_name = input_line_pointer;
c = get_symbol_end ();
input_line_pointer++;
name = xmalloc (input_line_pointer - section_name + 1);
strcpy (name, section_name);
if (c == ':')
{
subsection_name = input_line_pointer;
c = get_symbol_end ();
input_line_pointer++;
as_warn (".sect: subsection name ignored");
}
if (c == ',')
input_line_pointer =
tic4x_expression_abs (input_line_pointer, &num);
else if (*input_line_pointer == ',')
{
input_line_pointer =
tic4x_expression_abs (++input_line_pointer, &num);
}
else
num = 0;
seg = subseg_new (name, num);
if (line_label != NULL)
{
S_SET_SEGMENT (line_label, seg);
symbol_set_frag (line_label, frag_now);
}
if (bfd_get_section_flags (stdoutput, seg) == SEC_NO_FLAGS)
{
if (!bfd_set_section_flags (stdoutput, seg, SEC_DATA))
as_warn ("Error setting flags for \"%s\": %s", name,
bfd_errmsg (bfd_get_error ()));
}
if (is_end_of_line[(unsigned char) c])
*(--input_line_pointer) = c;
demand_empty_rest_of_line ();
}
static void
tic4x_set (x)
int x ATTRIBUTE_UNUSED;
{
symbolS *symbolP;
SKIP_WHITESPACE ();
if ((symbolP = line_label) == NULL)
{
char c;
char *name;
name = input_line_pointer;
c = get_symbol_end ();
if (c != ',')
{
as_bad (".set syntax invalid\n");
ignore_rest_of_line ();
return;
}
symbolP = symbol_find_or_make (name);
}
else
symbol_table_insert (symbolP);
pseudo_set (symbolP);
demand_empty_rest_of_line ();
}
static void
tic4x_usect (x)
int x ATTRIBUTE_UNUSED;
{
char c;
char *name;
char *section_name;
segT seg;
offsetT size, alignment_flag;
segT current_seg;
subsegT current_subseg;
current_seg = now_seg;
current_subseg = now_subseg;
SKIP_WHITESPACE ();
if (*input_line_pointer == '"')
input_line_pointer++;
section_name = input_line_pointer;
c = get_symbol_end ();
input_line_pointer++;
name = xmalloc (input_line_pointer - section_name + 1);
strcpy (name, section_name);
if (c == ',')
input_line_pointer =
tic4x_expression_abs (input_line_pointer, &size);
else if (*input_line_pointer == ',')
{
input_line_pointer =
tic4x_expression_abs (++input_line_pointer, &size);
}
else
size = 0;
if (*input_line_pointer == ',')
{
input_line_pointer =
tic4x_expression_abs (++input_line_pointer, &alignment_flag);
}
else
alignment_flag = 0;
if (alignment_flag)
as_warn (".usect: non-zero alignment flag ignored");
seg = subseg_new (name, 0);
if (line_label != NULL)
{
S_SET_SEGMENT (line_label, seg);
symbol_set_frag (line_label, frag_now);
S_SET_VALUE (line_label, frag_now_fix ());
}
seg_info (seg)->bss = 1;
if (!bfd_set_section_flags (stdoutput, seg, SEC_ALLOC))
as_warn ("Error setting flags for \"%s\": %s", name,
bfd_errmsg (bfd_get_error ()));
tic4x_seg_alloc (name, seg, size, line_label);
if (S_GET_STORAGE_CLASS (line_label) != C_EXT)
S_SET_STORAGE_CLASS (line_label, C_STAT);
subseg_set (current_seg, current_subseg);
demand_empty_rest_of_line ();
}
static void
tic4x_version (x)
int x ATTRIBUTE_UNUSED;
{
offsetT temp;
input_line_pointer =
tic4x_expression_abs (input_line_pointer, &temp);
if (!IS_CPU_TIC3X (temp) && !IS_CPU_TIC4X (temp))
as_bad ("This assembler does not support processor generation %ld",
(long) temp);
if (tic4x_cpu && temp != (offsetT) tic4x_cpu)
as_warn ("Changing processor generation on fly not supported...");
tic4x_cpu = temp;
demand_empty_rest_of_line ();
}
static void
tic4x_init_regtable ()
{
unsigned int i;
for (i = 0; i < tic3x_num_registers; i++)
tic4x_insert_reg (tic3x_registers[i].name,
tic3x_registers[i].regno);
if (IS_CPU_TIC4X (tic4x_cpu))
{
for (i = 0; i < tic4x_num_registers; i++)
tic4x_insert_reg (tic4x_registers[i].name,
tic4x_registers[i].regno);
}
}
static void
tic4x_init_symbols ()
{
tic4x_insert_sym (".REGPARM", tic4x_reg_args);
tic4x_insert_sym (".MEMPARM", !tic4x_reg_args);
tic4x_insert_sym (".BIGMODEL", tic4x_big_model);
tic4x_insert_sym (".C30INTERRUPT", 0);
tic4x_insert_sym (".TMS320xx", tic4x_cpu == 0 ? 40 : tic4x_cpu);
tic4x_insert_sym (".C3X", tic4x_cpu == 30 || tic4x_cpu == 31 || tic4x_cpu == 32 || tic4x_cpu == 33);
tic4x_insert_sym (".C3x", tic4x_cpu == 30 || tic4x_cpu == 31 || tic4x_cpu == 32 || tic4x_cpu == 33);
tic4x_insert_sym (".C4X", tic4x_cpu == 0 || tic4x_cpu == 40 || tic4x_cpu == 44);
tic4x_insert_sym (".C4x", tic4x_cpu == 0 || tic4x_cpu == 40 || tic4x_cpu == 44);
tic4x_insert_sym (".TMS320C30", tic4x_cpu == 30 || tic4x_cpu == 31 || tic4x_cpu == 32 || tic4x_cpu == 33);
tic4x_insert_sym (".tms320C30", tic4x_cpu == 30 || tic4x_cpu == 31 || tic4x_cpu == 32 || tic4x_cpu == 33);
tic4x_insert_sym (".TMS320C31", tic4x_cpu == 31);
tic4x_insert_sym (".tms320C31", tic4x_cpu == 31);
tic4x_insert_sym (".TMS320C32", tic4x_cpu == 32);
tic4x_insert_sym (".tms320C32", tic4x_cpu == 32);
tic4x_insert_sym (".TMS320C33", tic4x_cpu == 33);
tic4x_insert_sym (".tms320C33", tic4x_cpu == 33);
tic4x_insert_sym (".TMS320C40", tic4x_cpu == 40 || tic4x_cpu == 44 || tic4x_cpu == 0);
tic4x_insert_sym (".tms320C40", tic4x_cpu == 40 || tic4x_cpu == 44 || tic4x_cpu == 0);
tic4x_insert_sym (".TMS320C44", tic4x_cpu == 44);
tic4x_insert_sym (".tms320C44", tic4x_cpu == 44);
tic4x_insert_sym (".TMX320C40", 0);
tic4x_insert_sym (".tmx320C40", 0);
}
static int
tic4x_inst_insert (inst)
tic4x_inst_t *inst;
{
static char prev_name[16];
const char *retval = NULL;
if (!strcmp (inst->name, prev_name) || inst->name[0] == '\0')
return 1;
retval = hash_insert (tic4x_op_hash, inst->name, (PTR) inst);
if (retval != NULL)
fprintf (stderr, "internal error: can't hash `%s': %s\n",
inst->name, retval);
else
strcpy (prev_name, inst->name);
return retval == NULL;
}
static tic4x_inst_t *
tic4x_inst_make (name, opcode, args)
char *name;
unsigned long opcode;
char *args;
{
static tic4x_inst_t *insts = NULL;
static char *names = NULL;
static int index = 0;
if (insts == NULL)
{
names = (char *) xmalloc (sizeof (char) * 8192);
insts = (tic4x_inst_t *)
xmalloc (sizeof (tic4x_inst_t) * 1024);
}
insts[index].name = names;
insts[index].opcode = opcode;
insts[index].opmask = 0xffffffff;
insts[index].args = args;
index++;
do
*names++ = *name++;
while (*name);
*names++ = '\0';
return &insts[index - 1];
}
static int
tic4x_inst_add (insts)
tic4x_inst_t *insts;
{
char *s = insts->name;
char *d;
unsigned int i;
int ok = 1;
char name[16];
d = name;
if (!insts->oplevel & tic4x_oplevel)
return ok;
while (1)
{
switch (*s)
{
case 'B':
case 'C':
for (i = 0; i < tic4x_num_conds; i++)
{
tic4x_inst_t *inst;
int k = 0;
char *c = tic4x_conds[i].name;
char *e = d;
while (*c)
*e++ = *c++;
c = s + 1;
while (*c)
*e++ = *c++;
*e = '\0';
if (hash_find (tic4x_op_hash, name))
return 1;
do
{
inst = tic4x_inst_make (name, insts[k].opcode +
(tic4x_conds[i].cond <<
(*s == 'B' ? 16 : 23)),
insts[k].args);
if (k == 0)
ok &= tic4x_inst_insert (inst);
k++;
}
while (!strcmp (insts->name,
insts[k].name));
}
return ok;
break;
case '\0':
return tic4x_inst_insert (insts);
break;
default:
*d++ = *s++;
break;
}
}
}
void
md_begin ()
{
int ok = 1;
unsigned int i;
tic4x_oplevel = OP_C3X;
if ( IS_CPU_TIC4X(tic4x_cpu) )
tic4x_oplevel |= OP_C4X;
if ( ( tic4x_cpu == 31 && tic4x_revision >= 6)
|| (tic4x_cpu == 32 && tic4x_revision >= 2)
|| (tic4x_cpu == 33)
|| tic4x_enhanced )
tic4x_oplevel |= OP_ENH;
if ( ( tic4x_cpu == 30 && tic4x_revision >= 7)
|| (tic4x_cpu == 31 && tic4x_revision >= 5)
|| (tic4x_cpu == 32)
|| tic4x_lowpower )
tic4x_oplevel |= OP_LPWR;
if ( ( tic4x_cpu == 30 && tic4x_revision >= 7)
|| (tic4x_cpu == 31 && tic4x_revision >= 5)
|| (tic4x_cpu == 32)
|| (tic4x_cpu == 33)
|| (tic4x_cpu == 40 && tic4x_revision >= 5)
|| (tic4x_cpu == 44)
|| tic4x_idle2 )
tic4x_oplevel |= OP_IDLE2;
tic4x_op_hash = hash_new ();
tic4x_asg_hash = hash_new ();
for (i = 0; i < tic4x_num_insts; i++)
ok &= tic4x_inst_add ((void *) &tic4x_insts[i]);
tic4x_inst_make ("", 0, "");
if (!ok)
as_fatal ("Broken assembler. No assembly attempted.");
tic4x_init_regtable ();
tic4x_init_symbols ();
}
void
tic4x_end ()
{
bfd_set_arch_mach (stdoutput, bfd_arch_tic4x,
IS_CPU_TIC4X (tic4x_cpu) ? bfd_mach_tic4x : bfd_mach_tic3x);
}
static int
tic4x_indirect_parse (operand, indirect)
tic4x_operand_t *operand;
const tic4x_indirect_t *indirect;
{
char *n = indirect->name;
char *s = input_line_pointer;
char *b;
symbolS *symbolP;
char name[32];
operand->disp = 0;
for (; *n; n++)
{
switch (*n)
{
case 'a':
b = name;
#ifdef TIC4X_ALT_SYNTAX
if (*s == '%')
s++;
#endif
while (ISALNUM (*s))
*b++ = *s++;
*b++ = '\0';
if (!(symbolP = symbol_find (name)))
return 0;
if (S_GET_SEGMENT (symbolP) != reg_section)
return 0;
operand->aregno = S_GET_VALUE (symbolP);
if (operand->aregno >= REG_AR0 && operand->aregno <= REG_AR7)
break;
as_bad ("Auxiliary register AR0--AR7 required for indirect");
return -1;
case 'd':
#ifdef TIC4X_ALT_SYNTAX
if (*s == '%')
s++;
#endif
s = tic4x_expression (s, &operand->expr);
if (operand->expr.X_op != O_constant)
return 0;
operand->disp = operand->expr.X_add_number;
if (operand->disp < 0 || operand->disp > 255)
{
as_bad ("Bad displacement %d (require 0--255)\n",
operand->disp);
return -1;
}
break;
case 'y':
case 'z':
#ifdef TIC4X_ALT_SYNTAX
if (*s == '%')
s++;
#endif
s = tic4x_expression (s, &operand->expr);
if (operand->expr.X_op != O_register)
return 0;
if (operand->expr.X_add_number != REG_IR0
&& operand->expr.X_add_number != REG_IR1)
{
as_bad ("Index register IR0,IR1 required for displacement");
return -1;
}
if (*n == 'y' && operand->expr.X_add_number == REG_IR0)
break;
if (*n == 'z' && operand->expr.X_add_number == REG_IR1)
break;
return 0;
case '(':
if (*s != '(')
{
operand->disp = 1;
while (*n != ')')
n++;
}
else
s++;
break;
default:
if (TOLOWER (*s) != *n)
return 0;
s++;
}
}
if (*s != ' ' && *s != ',' && *s != '\0')
return 0;
input_line_pointer = s;
return 1;
}
static char *
tic4x_operand_parse (s, operand)
char *s;
tic4x_operand_t *operand;
{
unsigned int i;
char c;
int ret;
expressionS *exp = &operand->expr;
char *save = input_line_pointer;
char *str;
char *new;
struct hash_entry *entry = NULL;
input_line_pointer = s;
SKIP_WHITESPACE ();
str = input_line_pointer;
c = get_symbol_end ();
new = input_line_pointer;
if (strlen (str) && (entry = hash_find (tic4x_asg_hash, str)) != NULL)
{
*input_line_pointer = c;
input_line_pointer = (char *) entry;
}
else
{
*input_line_pointer = c;
input_line_pointer = str;
}
operand->mode = M_UNKNOWN;
switch (*input_line_pointer)
{
#ifdef TIC4X_ALT_SYNTAX
case '%':
input_line_pointer = tic4x_expression (++input_line_pointer, exp);
if (exp->X_op != O_register)
as_bad ("Expecting a register name");
operand->mode = M_REGISTER;
break;
case '^':
input_line_pointer = tic4x_expression (++input_line_pointer, exp);
if (exp->X_op == O_constant)
operand->mode = M_IMMED;
else if (exp->X_op == O_big)
{
if (exp->X_add_number)
as_bad ("Number too large");
else
{
tic4x_gen_to_words (generic_floating_point_number,
operand->fwords, S_PRECISION);
operand->mode = M_IMMED_F;
}
}
else if (exp->X_op == O_symbol)
{
operand->mode = M_HI;
break;
}
case '#':
input_line_pointer = tic4x_expression (++input_line_pointer, exp);
if (exp->X_op == O_constant)
operand->mode = M_IMMED;
else if (exp->X_op == O_big)
{
if (exp->X_add_number > 0)
as_bad ("Number too large");
else
{
tic4x_gen_to_words (generic_floating_point_number,
operand->fwords, S_PRECISION);
operand->mode = M_IMMED_F;
}
}
else if (exp->X_op == O_symbol)
{
operand->mode = M_IMMED;
break;
}
else
as_bad ("Expecting a constant value");
break;
case '\\':
#endif
case '@':
input_line_pointer = tic4x_expression (++input_line_pointer, exp);
if (exp->X_op != O_constant && exp->X_op != O_symbol)
as_bad ("Bad direct addressing construct %s", s);
if (exp->X_op == O_constant)
{
if (exp->X_add_number < 0)
as_bad ("Direct value of %ld is not suitable",
(long) exp->X_add_number);
}
operand->mode = M_DIRECT;
break;
case '*':
ret = -1;
for (i = 0; i < tic4x_num_indirects; i++)
if ((ret = tic4x_indirect_parse (operand, &tic4x_indirects[i])))
break;
if (ret < 0)
break;
if (i < tic4x_num_indirects)
{
operand->mode = M_INDIRECT;
operand->expr.X_add_number = tic4x_indirects[i].modn;
if (operand->expr.X_add_number < 0x08 && !operand->disp)
operand->expr.X_add_number = 0x18;
}
else
as_bad ("Unknown indirect addressing mode");
break;
default:
operand->mode = M_IMMED;
str = input_line_pointer;
input_line_pointer = tic4x_expression (input_line_pointer, exp);
if (exp->X_op == O_register)
{
know (exp->X_add_symbol == 0);
know (exp->X_op_symbol == 0);
operand->mode = M_REGISTER;
break;
}
else if (exp->X_op == O_big)
{
if (exp->X_add_number > 0)
as_bad ("Number too large");
else
{
tic4x_gen_to_words (generic_floating_point_number,
operand->fwords, S_PRECISION);
operand->mode = M_IMMED_F;
}
break;
}
#ifdef TIC4X_ALT_SYNTAX
else if (exp->X_op == O_symbol)
{
operand->mode = M_DIRECT;
break;
}
#endif
}
if (entry == NULL)
new = input_line_pointer;
input_line_pointer = save;
return new;
}
static int
tic4x_operands_match (inst, insn, check)
tic4x_inst_t *inst;
tic4x_insn_t *insn;
int check;
{
const char *args = inst->args;
unsigned long opcode = inst->opcode;
int num_operands = insn->num_operands;
tic4x_operand_t *operand = insn->operands;
expressionS *exp = &operand->expr;
int ret = 1;
int reg;
insn->nchars = 4;
insn->reloc = NO_RELOC;
insn->pcrel = 0;
if (*args == '\0')
{
insn->opcode = opcode;
return num_operands == 0;
}
for (;; ++args)
{
switch (*args)
{
case '\0':
if (num_operands == 1)
{
insn->opcode = opcode;
return ret;
}
break;
case '#':
if (operand->mode != M_DIRECT && operand->mode != M_IMMED)
break;
if (exp->X_op == O_constant)
{
if( ( IS_CPU_TIC4X (tic4x_cpu) && exp->X_add_number <= 65535 )
|| ( IS_CPU_TIC3X (tic4x_cpu) && exp->X_add_number <= 255 ) )
{
INSERTS (opcode, exp->X_add_number, 15, 0);
continue;
}
else
{
if (!check)
as_bad ("Immediate value of %ld is too large for ldf",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
else if (exp->X_op == O_symbol)
{
insn->reloc = BFD_RELOC_HI16;
insn->exp = *exp;
continue;
}
break;
case '@':
if (operand->mode != M_DIRECT)
break;
if (exp->X_op == O_constant)
{
INSERTS (opcode, exp->X_add_number, 15, 0);
continue;
}
else if (exp->X_op == O_symbol)
{
insn->reloc = BFD_RELOC_LO16;
insn->exp = *exp;
continue;
}
break;
case 'A':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg >= REG_AR0 && reg <= REG_AR7)
INSERTU (opcode, reg - REG_AR0, 24, 22);
else
{
if (!check)
as_bad ("Destination register must be ARn");
ret = -1;
}
continue;
case 'B':
if (operand->mode != M_IMMED && operand->mode != M_DIRECT)
break;
if (exp->X_op == O_constant)
{
if (exp->X_add_number < (1 << 24))
{
INSERTU (opcode, exp->X_add_number, 23, 0);
continue;
}
else
{
if (!check)
as_bad ("Immediate value of %ld is too large",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
if (IS_CPU_TIC4X (tic4x_cpu))
{
insn->reloc = BFD_RELOC_24_PCREL;
insn->pcrel = 1;
}
else
{
insn->reloc = BFD_RELOC_24;
insn->pcrel = 0;
}
insn->exp = *exp;
continue;
case 'C':
if (!IS_CPU_TIC4X (tic4x_cpu))
break;
if (operand->mode != M_INDIRECT)
break;
if (operand->expr.X_add_number != 0
&& operand->expr.X_add_number != 0x18)
{
if (!check)
as_bad ("Invalid indirect addressing mode");
ret = -1;
continue;
}
INSERTU (opcode, operand->aregno - REG_AR0, 2, 0);
INSERTU (opcode, operand->disp, 7, 3);
continue;
case 'E':
if (!(operand->mode == M_REGISTER))
break;
INSERTU (opcode, exp->X_add_number, 7, 0);
continue;
case 'e':
if (!(operand->mode == M_REGISTER))
break;
reg = exp->X_add_number;
if ( (reg >= REG_R0 && reg <= REG_R7)
|| (IS_CPU_TIC4X (tic4x_cpu) && reg >= REG_R8 && reg <= REG_R11) )
INSERTU (opcode, reg, 7, 0);
else
{
if (!check)
as_bad ("Register must be Rn");
ret = -1;
}
continue;
case 'F':
if (operand->mode != M_IMMED_F
&& !(operand->mode == M_IMMED && exp->X_op == O_constant))
break;
if (operand->mode != M_IMMED_F)
{
char string[16];
sprintf (string, "%d.0", (int) exp->X_add_number);
tic4x_atof (string, 's', operand->fwords);
}
INSERTU (opcode, operand->fwords[0], 15, 0);
continue;
case 'G':
if (operand->mode != M_REGISTER)
break;
INSERTU (opcode, exp->X_add_number, 15, 8);
continue;
case 'g':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if ( (reg >= REG_R0 && reg <= REG_R7)
|| (IS_CPU_TIC4X (tic4x_cpu) && reg >= REG_R8 && reg <= REG_R11) )
INSERTU (opcode, reg, 15, 8);
else
{
if (!check)
as_bad ("Register must be Rn");
ret = -1;
}
continue;
case 'H':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg >= REG_R0 && reg <= REG_R7)
INSERTU (opcode, reg - REG_R0, 18, 16);
else
{
if (!check)
as_bad ("Register must be R0--R7");
ret = -1;
}
continue;
case 'i':
if ( operand->mode == M_REGISTER
&& tic4x_oplevel & OP_ENH )
{
reg = exp->X_add_number;
INSERTU (opcode, reg, 4, 0);
INSERTU (opcode, 7, 7, 5);
continue;
}
case 'I':
if (operand->mode != M_INDIRECT)
break;
if (operand->disp != 0 && operand->disp != 1)
{
if (IS_CPU_TIC4X (tic4x_cpu))
break;
if (!check)
as_bad ("Invalid indirect addressing mode displacement %d",
operand->disp);
ret = -1;
continue;
}
INSERTU (opcode, operand->aregno - REG_AR0, 2, 0);
INSERTU (opcode, operand->expr.X_add_number, 7, 3);
continue;
case 'j':
if ( operand->mode == M_REGISTER
&& tic4x_oplevel & OP_ENH )
{
reg = exp->X_add_number;
INSERTU (opcode, reg, 12, 8);
INSERTU (opcode, 7, 15, 13);
continue;
}
case 'J':
if (operand->mode != M_INDIRECT)
break;
if (operand->disp != 0 && operand->disp != 1)
{
if (IS_CPU_TIC4X (tic4x_cpu))
break;
if (!check)
as_bad ("Invalid indirect addressing mode displacement %d",
operand->disp);
ret = -1;
continue;
}
INSERTU (opcode, operand->aregno - REG_AR0, 10, 8);
INSERTU (opcode, operand->expr.X_add_number, 15, 11);
continue;
case 'K':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg >= REG_R0 && reg <= REG_R7)
INSERTU (opcode, reg - REG_R0, 21, 19);
else
{
if (!check)
as_bad ("Register must be R0--R7");
ret = -1;
}
continue;
case 'L':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg >= REG_R0 && reg <= REG_R7)
INSERTU (opcode, reg - REG_R0, 24, 22);
else
{
if (!check)
as_bad ("Register must be R0--R7");
ret = -1;
}
continue;
case 'M':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg == REG_R2 || reg == REG_R3)
INSERTU (opcode, reg - REG_R2, 22, 22);
else
{
if (!check)
as_bad ("Destination register must be R2 or R3");
ret = -1;
}
continue;
case 'N':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg == REG_R0 || reg == REG_R1)
INSERTU (opcode, reg - REG_R0, 23, 23);
else
{
if (!check)
as_bad ("Destination register must be R0 or R1");
ret = -1;
}
continue;
case 'O':
if (!IS_CPU_TIC4X (tic4x_cpu))
break;
if (operand->mode != M_INDIRECT)
break;
if (operand->expr.X_add_number != 0
&& operand->expr.X_add_number != 0x18)
{
if (!check)
as_bad ("Invalid indirect addressing mode");
ret = -1;
continue;
}
INSERTU (opcode, operand->aregno - REG_AR0, 10, 8);
INSERTU (opcode, operand->disp, 15, 11);
continue;
case 'P':
if (operand->mode != M_IMMED && operand->mode != M_DIRECT)
break;
if (exp->X_op == O_constant)
{
if (exp->X_add_number >= -32768 && exp->X_add_number <= 32767)
{
INSERTS (opcode, exp->X_add_number, 15, 0);
continue;
}
else
{
if (!check)
as_bad ("Displacement value of %ld is too large",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
insn->reloc = BFD_RELOC_16_PCREL;
insn->pcrel = 1;
insn->exp = *exp;
continue;
case 'Q':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
INSERTU (opcode, reg, 15, 0);
continue;
case 'q':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if ( (reg >= REG_R0 && reg <= REG_R7)
|| (IS_CPU_TIC4X (tic4x_cpu) && reg >= REG_R8 && reg <= REG_R11) )
INSERTU (opcode, reg, 15, 0);
else
{
if (!check)
as_bad ("Register must be Rn");
ret = -1;
}
continue;
case 'R':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
INSERTU (opcode, reg, 20, 16);
continue;
case 'r':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if ( (reg >= REG_R0 && reg <= REG_R7)
|| (IS_CPU_TIC4X (tic4x_cpu) && reg >= REG_R8 && reg <= REG_R11) )
INSERTU (opcode, reg, 20, 16);
else
{
if (!check)
as_bad ("Register must be Rn");
ret = -1;
}
continue;
case 'S':
if (operand->mode != M_IMMED && operand->mode != M_HI)
break;
if (exp->X_op == O_big)
{
if (!check)
as_bad ("Floating point number not valid in expression");
ret = -1;
continue;
}
if (exp->X_op == O_constant)
{
if (exp->X_add_number >= -32768 && exp->X_add_number <= 65535)
{
INSERTS (opcode, exp->X_add_number, 15, 0);
continue;
}
else
{
if (!check)
as_bad ("Signed immediate value %ld too large",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
else if (exp->X_op == O_symbol)
{
if (operand->mode == M_HI)
{
insn->reloc = BFD_RELOC_HI16;
}
else
{
insn->reloc = BFD_RELOC_LO16;
}
insn->exp = *exp;
continue;
}
insn->reloc = BFD_RELOC_16;
insn->exp = *exp;
continue;
case 'T':
if (!IS_CPU_TIC4X (tic4x_cpu))
break;
if (operand->mode != M_IMMED)
break;
if (exp->X_op == O_constant)
{
if (exp->X_add_number < 16 && exp->X_add_number >= -16)
{
INSERTS (opcode, exp->X_add_number, 20, 16);
continue;
}
else
{
if (!check)
as_bad ("Immediate value of %ld is too large",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
break;
case 'U':
if (operand->mode != M_IMMED && operand->mode != M_HI)
break;
if (exp->X_op == O_constant)
{
if (exp->X_add_number < (1 << 16) && exp->X_add_number >= 0)
{
INSERTU (opcode, exp->X_add_number, 15, 0);
continue;
}
else
{
if (!check)
as_bad ("Unsigned immediate value %ld too large",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
else if (exp->X_op == O_symbol)
{
if (operand->mode == M_HI)
insn->reloc = BFD_RELOC_HI16;
else
insn->reloc = BFD_RELOC_LO16;
insn->exp = *exp;
continue;
}
insn->reloc = BFD_RELOC_16;
insn->exp = *exp;
continue;
case 'V':
if (operand->mode != M_IMMED)
break;
if (exp->X_op == O_constant)
{
if (exp->X_add_number < 512 && IS_CPU_TIC4X (tic4x_cpu))
{
INSERTU (opcode, exp->X_add_number, 8, 0);
continue;
}
else if (exp->X_add_number < 32 && IS_CPU_TIC3X (tic4x_cpu))
{
INSERTU (opcode, exp->X_add_number | 0x20, 4, 0);
continue;
}
else
{
if (!check)
as_bad ("Immediate value of %ld is too large",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
break;
case 'W':
if (!IS_CPU_TIC4X (tic4x_cpu))
break;
if (operand->mode != M_IMMED)
break;
if (exp->X_op == O_big)
{
if (!check)
as_bad ("Floating point number not valid in expression");
ret = -1;
continue;
}
if (exp->X_op == O_constant)
{
if (exp->X_add_number >= -256 && exp->X_add_number <= 127)
{
INSERTS (opcode, exp->X_add_number, 7, 0);
continue;
}
else
{
if (!check)
as_bad ("Immediate value %ld too large",
(long) exp->X_add_number);
ret = -1;
continue;
}
}
insn->reloc = BFD_RELOC_16;
insn->exp = *exp;
continue;
case 'X':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg >= REG_IVTP && reg <= REG_TVTP)
INSERTU (opcode, reg - REG_IVTP, 4, 0);
else
{
if (!check)
as_bad ("Register must be ivtp or tvtp");
ret = -1;
}
continue;
case 'Y':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg >= REG_AR0 && reg <= REG_SP)
INSERTU (opcode, reg, 20, 16);
else
{
if (!check)
as_bad ("Register must be address register");
ret = -1;
}
continue;
case 'Z':
if (operand->mode != M_REGISTER)
break;
reg = exp->X_add_number;
if (reg >= REG_IVTP && reg <= REG_TVTP)
INSERTU (opcode, reg - REG_IVTP, 20, 16);
else
{
if (!check)
as_bad ("Register must be ivtp or tvtp");
ret = -1;
}
continue;
case '*':
if (operand->mode != M_INDIRECT)
break;
INSERTS (opcode, operand->disp, 7, 0);
INSERTU (opcode, operand->aregno - REG_AR0, 10, 8);
INSERTU (opcode, operand->expr.X_add_number, 15, 11);
continue;
case '|':
if (insn->parallel)
{
if (--num_operands < 0)
break;
operand++;
if (operand->mode != M_PARALLEL)
break;
}
case ',':
if (--num_operands < 0)
break;
operand++;
exp = &operand->expr;
continue;
case ';':
if (num_operands == 1 || operand[1].mode == M_PARALLEL)
continue;
if (--num_operands < 0)
break;
operand++;
exp = &operand->expr;
continue;
default:
BAD_CASE (*args);
}
return 0;
}
}
static void
tic4x_insn_check (insn)
tic4x_insn_t *insn;
{
if (!strcmp(insn->name, "lda"))
{
if (insn->num_operands < 2 || insn->num_operands > 2)
as_fatal ("Illegal internal LDA insn definition");
if ( insn->operands[0].mode == M_REGISTER
&& insn->operands[1].mode == M_REGISTER
&& insn->operands[0].expr.X_add_number == insn->operands[1].expr.X_add_number )
as_bad ("Source and destination register should not be equal");
}
else if( !strcmp(insn->name, "ldi_ldi")
|| !strcmp(insn->name, "ldi1_ldi2")
|| !strcmp(insn->name, "ldi2_ldi1")
|| !strcmp(insn->name, "ldf_ldf")
|| !strcmp(insn->name, "ldf1_ldf2")
|| !strcmp(insn->name, "ldf2_ldf1") )
{
if ( insn->num_operands < 4 && insn->num_operands > 5 )
as_fatal ("Illegal internal %s insn definition", insn->name);
if ( insn->operands[1].mode == M_REGISTER
&& insn->operands[insn->num_operands-1].mode == M_REGISTER
&& insn->operands[1].expr.X_add_number == insn->operands[insn->num_operands-1].expr.X_add_number )
as_warn ("Equal parallell destination registers, one result will be discarded");
}
}
static void
tic4x_insn_output (insn)
tic4x_insn_t *insn;
{
char *dst;
dst = frag_more (insn->nchars);
md_number_to_chars (dst, insn->opcode, insn->nchars);
if (insn->reloc != NO_RELOC)
{
fix_new_exp (frag_now,
dst - frag_now->fr_literal,
insn->nchars,
&insn->exp,
insn->pcrel,
insn->reloc);
}
}
int
tic4x_operands_parse (s, operands, num_operands)
char *s;
tic4x_operand_t *operands;
int num_operands;
{
if (!*s)
return num_operands;
do
s = tic4x_operand_parse (s, &operands[num_operands++]);
while (num_operands < TIC4X_OPERANDS_MAX && *s++ == ',');
if (num_operands > TIC4X_OPERANDS_MAX)
{
as_bad ("Too many operands scanned");
return -1;
}
return num_operands;
}
void
md_assemble (str)
char *str;
{
int ok = 0;
char *s;
int i;
int parsed = 0;
tic4x_inst_t *inst;
tic4x_inst_t *first_inst;
if (str)
{
s = str;
while (*s && *s != '|')
s++;
if (*s && s[1]=='|')
{
if(insn->parallel)
{
as_bad ("Parallel opcode cannot contain more than two instructions");
insn->parallel = 0;
insn->in_use = 0;
return;
}
*s++ = 0;
md_assemble(str);
insn->parallel = 1;
str = ++s;
}
}
if (str && insn->parallel)
{
s = str;
while (*s && *s != ' ')
s++;
if (*s)
*s++ = '\0';
strcat (insn->name, "_");
strncat (insn->name, str, TIC4X_NAME_MAX - strlen (insn->name));
insn->operands[insn->num_operands++].mode = M_PARALLEL;
if ((i = tic4x_operands_parse
(s, insn->operands, insn->num_operands)) < 0)
{
insn->parallel = 0;
insn->in_use = 0;
return;
}
insn->num_operands = i;
parsed = 1;
}
if (insn->in_use)
{
if ((insn->inst = (struct tic4x_inst *)
hash_find (tic4x_op_hash, insn->name)) == NULL)
{
as_bad ("Unknown opcode `%s'.", insn->name);
insn->parallel = 0;
insn->in_use = 0;
return;
}
inst = insn->inst;
first_inst = NULL;
do
{
ok = tic4x_operands_match (inst, insn, 1);
if (ok < 0)
{
if (!first_inst)
first_inst = inst;
ok = 0;
}
} while (!ok && !strcmp (inst->name, inst[1].name) && inst++);
if (ok > 0)
{
tic4x_insn_check (insn);
tic4x_insn_output (insn);
}
else if (!ok)
{
if (first_inst)
tic4x_operands_match (first_inst, insn, 0);
as_bad ("Invalid operands for %s", insn->name);
}
else
as_bad ("Invalid instruction %s", insn->name);
}
if (str && !parsed)
{
s = str;
while (*s && *s != ' ')
s++;
if (*s)
*s++ = '\0';
strncpy (insn->name, str, TIC4X_NAME_MAX - 3);
if ((i = tic4x_operands_parse (s, insn->operands, 0)) < 0)
{
insn->inst = NULL;
insn->parallel = 0;
insn->in_use = 0;
return;
}
insn->num_operands = i;
insn->in_use = 1;
}
else
insn->in_use = 0;
insn->parallel = 0;
}
void
tic4x_cleanup ()
{
if (insn->in_use)
md_assemble (NULL);
}
char *
md_atof (type, litP, sizeP)
int type;
char *litP;
int *sizeP;
{
int prec;
int ieee;
LITTLENUM_TYPE words[MAX_LITTLENUMS];
LITTLENUM_TYPE *wordP;
char *t;
switch (type)
{
case 's':
case 'S':
ieee = 0;
prec = 1;
break;
case 'd':
case 'D':
case 'f':
case 'F':
ieee = 0;
prec = 2;
break;
case 'i':
case 'I':
prec = 2;
ieee = 1;
type = 'f';
break;
case 'e':
case 'E':
prec = 4;
ieee = 0;
break;
default:
*sizeP = 0;
return "Bad call to md_atof()";
}
if (ieee)
t = atof_ieee (input_line_pointer, type, words);
else
t = tic4x_atof (input_line_pointer, type, words);
if (t)
input_line_pointer = t;
*sizeP = prec * sizeof (LITTLENUM_TYPE);
for(wordP = words; wordP<(words+prec) ; wordP+=2)
{
if (wordP<(words+prec-1))
{
md_number_to_chars (litP, (valueT) (wordP[1]),
sizeof (LITTLENUM_TYPE));
litP += sizeof (LITTLENUM_TYPE);
}
md_number_to_chars (litP, (valueT) (wordP[0]),
sizeof (LITTLENUM_TYPE));
litP += sizeof (LITTLENUM_TYPE);
}
return 0;
}
void
md_apply_fix3 (fixP, value, seg)
fixS *fixP;
valueT *value;
segT seg ATTRIBUTE_UNUSED;
{
char *buf = fixP->fx_where + fixP->fx_frag->fr_literal;
valueT val = *value;
switch (fixP->fx_r_type)
{
case BFD_RELOC_HI16:
val >>= 16;
break;
case BFD_RELOC_LO16:
val &= 0xffff;
break;
default:
break;
}
switch (fixP->fx_r_type)
{
case BFD_RELOC_32:
buf[3] = val >> 24;
case BFD_RELOC_24:
case BFD_RELOC_24_PCREL:
buf[2] = val >> 16;
case BFD_RELOC_16:
case BFD_RELOC_16_PCREL:
case BFD_RELOC_LO16:
case BFD_RELOC_HI16:
buf[1] = val >> 8;
buf[0] = val;
break;
case NO_RELOC:
default:
as_bad ("Bad relocation type: 0x%02x", fixP->fx_r_type);
break;
}
if (fixP->fx_addsy == NULL && fixP->fx_pcrel == 0) fixP->fx_done = 1;
}
void
md_convert_frag (headers, sec, fragP)
bfd *headers ATTRIBUTE_UNUSED;
segT sec ATTRIBUTE_UNUSED;
fragS *fragP ATTRIBUTE_UNUSED;
{
as_fatal ("md_convert_frag");
}
void
md_create_short_jump (ptr, from_addr, to_addr, frag, to_symbol)
char *ptr ATTRIBUTE_UNUSED;
addressT from_addr ATTRIBUTE_UNUSED;
addressT to_addr ATTRIBUTE_UNUSED;
fragS *frag ATTRIBUTE_UNUSED;
symbolS *to_symbol ATTRIBUTE_UNUSED;
{
as_fatal ("md_create_short_jmp\n");
}
void
md_create_long_jump (ptr, from_addr, to_addr, frag, to_symbol)
char *ptr ATTRIBUTE_UNUSED;
addressT from_addr ATTRIBUTE_UNUSED;
addressT to_addr ATTRIBUTE_UNUSED;
fragS *frag ATTRIBUTE_UNUSED;
symbolS *to_symbol ATTRIBUTE_UNUSED;
{
as_fatal ("md_create_long_jump\n");
}
int
md_estimate_size_before_relax (fragP, segtype)
register fragS *fragP ATTRIBUTE_UNUSED;
segT segtype ATTRIBUTE_UNUSED;
{
as_fatal ("md_estimate_size_before_relax\n");
return 0;
}
int
md_parse_option (c, arg)
int c;
char *arg;
{
switch (c)
{
case OPTION_CPU:
if (TOLOWER (*arg) == 'c')
arg++;
tic4x_cpu = atoi (arg);
if (!IS_CPU_TIC3X (tic4x_cpu) && !IS_CPU_TIC4X (tic4x_cpu))
as_warn ("Unsupported processor generation %d", tic4x_cpu);
break;
case OPTION_REV:
tic4x_revision = atoi (arg);
break;
case 'b':
as_warn ("Option -b is depreciated, please use -mbig");
case OPTION_BIG:
tic4x_big_model = 1;
break;
case 'p':
as_warn ("Option -p is depreciated, please use -mmemparm");
case OPTION_MEMPARM:
tic4x_reg_args = 0;
break;
case 'r':
as_warn ("Option -r is depreciated, please use -mregparm");
case OPTION_REGPARM:
tic4x_reg_args = 1;
break;
case 's':
as_warn ("Option -s is depreciated, please use -msmall");
case OPTION_SMALL:
tic4x_big_model = 0;
break;
case OPTION_IDLE2:
tic4x_idle2 = 1;
break;
case OPTION_LOWPOWER:
tic4x_lowpower = 1;
break;
case OPTION_ENHANCED:
tic4x_enhanced = 1;
break;
default:
return 0;
}
return 1;
}
void
md_show_usage (stream)
FILE *stream;
{
fprintf (stream,
_("\nTIC4X options:\n"
" -mcpu=CPU -mCPU select architecture variant. CPU can be:\n"
" 30 - TMS320C30\n"
" 31 - TMS320C31, TMS320LC31\n"
" 32 - TMS320C32\n"
" 33 - TMS320VC33\n"
" 40 - TMS320C40\n"
" 44 - TMS320C44\n"
" -mrev=REV set cpu hardware revision (integer numbers).\n"
" Combinations of -mcpu and -mrev will enable/disable\n"
" the appropriate options (-midle2, -mlowpower and\n"
" -menhanced) according to the selected type\n"
" -mbig select big memory model\n"
" -msmall select small memory model (default)\n"
" -mregparm select register parameters (default)\n"
" -mmemparm select memory parameters\n"
" -midle2 enable IDLE2 support\n"
" -mlowpower enable LOPOWER and MAXSPEED support\n"
" -menhanced enable enhanced opcode support\n"));
}
int
tic4x_unrecognized_line (c)
int c;
{
int lab;
char *s;
if (c != '$' || ! ISDIGIT (input_line_pointer[0]))
return 0;
s = input_line_pointer;
lab = 0;
while (ISDIGIT (*s))
{
lab = lab * 10 + *s - '0';
s++;
}
if (dollar_label_defined (lab))
{
as_bad ("Label \"$%d\" redefined", lab);
return 0;
}
define_dollar_label (lab);
colon (dollar_label_name (lab, 0));
input_line_pointer = s + 1;
return 1;
}
symbolS *
md_undefined_symbol (name)
char *name;
{
if (name[0] == '$' && ISDIGIT (name[1]))
{
symbolS *symbolP;
char *s = name + 1;
int lab = 0;
while (ISDIGIT ((unsigned char) *s))
{
lab = lab * 10 + *s - '0';
s++;
}
if (dollar_label_defined (lab))
{
name = dollar_label_name (lab, 0);
symbolP = symbol_find (name);
}
else
{
name = dollar_label_name (lab, 1);
symbolP = symbol_find_or_make (name);
}
return symbolP;
}
return NULL;
}
void
md_operand (expressionP)
expressionS *expressionP ATTRIBUTE_UNUSED;
{
}
valueT
md_section_align (segment, size)
segT segment ATTRIBUTE_UNUSED;
valueT size;
{
return size;
}
static int
tic4x_pc_offset (op)
unsigned int op;
{
switch (op >> 24)
{
case 0x60:
case 0x62:
case 0x64:
return 1;
case 0x61:
case 0x63:
case 0x65:
return 3;
case 0x66:
case 0x67:
return 0;
default:
break;
}
switch ((op & 0xffe00000) >> 20)
{
case 0x6a0:
case 0x720:
case 0x740:
return 1;
case 0x6a2:
case 0x6a6:
case 0x6aa:
case 0x722:
case 0x748:
case 0x798:
return 3;
default:
break;
}
switch ((op & 0xfe200000) >> 20)
{
case 0x6e0:
return 1;
case 0x6e2:
return 3;
default:
break;
}
return 0;
}
long
md_pcrel_from (fixP)
fixS *fixP;
{
unsigned char *buf;
unsigned int op;
buf = (unsigned char *) fixP->fx_frag->fr_literal + fixP->fx_where;
op = (buf[3] << 24) | (buf[2] << 16) | (buf[1] << 8) | buf[0];
return ((fixP->fx_where + fixP->fx_frag->fr_address) >> 2) +
tic4x_pc_offset (op);
}
int
tic4x_do_align (alignment, fill, len, max)
int alignment ATTRIBUTE_UNUSED;
const char *fill ATTRIBUTE_UNUSED;
int len ATTRIBUTE_UNUSED;
int max ATTRIBUTE_UNUSED;
{
unsigned long nop = TIC_NOP_OPCODE;
alignment += 2;
if (alignment != 0 && !need_pass_2)
{
if (fill == NULL)
{
frag_align_pattern( alignment, (const char *)&nop, sizeof(nop), max);
return 1;
}
else if (len <= 1)
frag_align (alignment, *fill, max);
else
frag_align_pattern (alignment, fill, len, max);
}
return 1;
}
void
tic4x_start_line ()
{
char *s = input_line_pointer;
SKIP_WHITESPACE ();
if (*input_line_pointer == '|' && input_line_pointer[1] == '|')
{
if (insn->in_use)
{
insn->parallel = 1;
input_line_pointer ++;
*input_line_pointer = ' ';
input_line_pointer[-1] = '\n';
}
}
else
{
if (insn->in_use)
md_assemble (NULL);
input_line_pointer = s;
}
}
arelent *
tc_gen_reloc (seg, fixP)
asection *seg ATTRIBUTE_UNUSED;
fixS *fixP;
{
arelent *reloc;
reloc = (arelent *) xmalloc (sizeof (arelent));
reloc->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
*reloc->sym_ptr_ptr = symbol_get_bfdsym (fixP->fx_addsy);
reloc->address = fixP->fx_frag->fr_address + fixP->fx_where;
reloc->address /= OCTETS_PER_BYTE;
reloc->howto = bfd_reloc_type_lookup (stdoutput, fixP->fx_r_type);
if (reloc->howto == (reloc_howto_type *) NULL)
{
as_bad_where (fixP->fx_file, fixP->fx_line,
"Reloc %d not supported by object file format",
(int) fixP->fx_r_type);
return NULL;
}
if (fixP->fx_r_type == BFD_RELOC_HI16)
reloc->addend = fixP->fx_offset;
else
reloc->addend = fixP->fx_addnumber;
return reloc;
}