/* tc-i860.c -- Assemble for the I860
- Copyright (C) 1989, 1992 Free Software Foundation, Inc.
+ Copyright (C) 1989, 92, 93, 94, 95, 98, 1999 Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
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 GAS; see the file COPYING. If not, write to
- the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+ You should have received a copy of the GNU General Public License along
+ with GAS; see the file COPYING. If not, write to the Free Software
+ Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "as.h"
#include "opcode/i860.h"
void md_begin ();
-void md_end ();
void md_number_to_chars ();
void md_assemble ();
char *md_atof ();
void md_convert_frag ();
-void md_create_short_jump ();
-void md_create_long_jump ();
int md_estimate_size_before_relax ();
void md_number_to_imm ();
void md_number_to_disp ();
/* void (*md_emit_relocations)() = emit_machine_reloc; */
-const relax_typeS md_relax_table[] =
-{0};
-
/* handle of the OPCODE hash table */
static struct hash_control *op_hash = NULL;
{NULL, 0, 0},
};
-int md_short_jump_size = 4;
-int md_long_jump_size = 4;
-
/* This array holds the chars that always start a comment. If the
pre-processor is disabled, these aren't very useful */
const char comment_chars[] = "!/"; /* JF removed '|' from comment_chars */
if (temp >= 0 && temp <= 31)
atmp = temp;
else
- as_bad ("Unknown temporary pseudo register");
+ as_bad (_("Unknown temporary pseudo register"));
}
else
{
- as_bad ("Unknown temporary pseudo register");
+ as_bad (_("Unknown temporary pseudo register"));
}
demand_empty_rest_of_line ();
- return;
}
/* This function is called once, at assembler startup time. It should
register unsigned int i = 0;
op_hash = hash_new ();
- if (op_hash == NULL)
- as_fatal ("Virtual memory exhausted");
while (i < NUMOPCODES)
{
const char *name = i860_opcodes[i].name;
retval = hash_insert (op_hash, name, &i860_opcodes[i]);
- if (retval != NULL && *retval != '\0')
+ if (retval != NULL)
{
- fprintf (stderr, "internal error: can't hash `%s': %s\n",
+ fprintf (stderr, _("internal error: can't hash `%s': %s\n"),
i860_opcodes[i].name, retval);
lose = 1;
}
{
if (i860_opcodes[i].match & i860_opcodes[i].lose)
{
- fprintf (stderr, "internal error: losing opcode: `%s' \"%s\"\n",
+ fprintf (stderr, _("internal error: losing opcode: `%s' \"%s\"\n"),
i860_opcodes[i].name, i860_opcodes[i].args);
lose = 1;
}
}
if (lose)
- as_fatal ("Broken assembler. No assembly attempted.");
+ as_fatal (_("Broken assembler. No assembly attempted."));
for (i = '0'; i < '8'; ++i)
octal[i] = 1;
toHex[i] = i + 10 - 'A';
}
-void
-md_end ()
-{
- return;
-}
-
void
md_assemble (str)
char *str;
case E_MOV:
if (the_insn.exp.X_add_symbol == NULL &&
- the_insn.exp.X_subtract_symbol == NULL &&
+ the_insn.exp.X_op_symbol == NULL &&
(the_insn.exp.X_add_number < (1 << 15) &&
the_insn.exp.X_add_number >= -(1 << 15)))
break;
case E_ADDR:
if (the_insn.exp.X_add_symbol == NULL &&
- the_insn.exp.X_subtract_symbol == NULL)
+ the_insn.exp.X_op_symbol == NULL)
break;
/* orh ha%addr_expr,r0,r31 */
pseudo[0].opcode = 0xec000000 | (atmp << 16);
case E_U32: /* 2nd version emulates Intel as, not doc. */
if (the_insn.exp.X_add_symbol == NULL &&
- the_insn.exp.X_subtract_symbol == NULL &&
+ the_insn.exp.X_op_symbol == NULL &&
(the_insn.exp.X_add_number < (1 << 16) &&
the_insn.exp.X_add_number >= 0))
break;
case E_AND: /* 2nd version emulates Intel as, not doc. */
if (the_insn.exp.X_add_symbol == NULL &&
- the_insn.exp.X_subtract_symbol == NULL &&
+ the_insn.exp.X_op_symbol == NULL &&
(the_insn.exp.X_add_number < (1 << 16) &&
the_insn.exp.X_add_number >= 0))
break;
case E_S32:
if (the_insn.exp.X_add_symbol == NULL &&
- the_insn.exp.X_subtract_symbol == NULL &&
+ the_insn.exp.X_op_symbol == NULL &&
(the_insn.exp.X_add_number < (1 << 15) &&
the_insn.exp.X_add_number >= -(1 << 15)))
break;
break;
default:
- as_fatal ("failed sanity check.");
+ as_fatal (_("failed sanity check."));
}
the_insn = pseudo[0];
/* check for expanded opcode after branch or in dual */
if (no_opcodes > 1 && last_expand == 1)
- as_warn ("Expanded opcode after delayed branch: `%s'", str);
+ as_warn (_("Expanded opcode after delayed branch: `%s'"), str);
if (no_opcodes > 1 && dual_mode != DUAL_OFF)
- as_warn ("Expanded opcode in dual mode: `%s'", str);
+ as_warn (_("Expanded opcode in dual mode: `%s'"), str);
}
i = 0;
fix_new (frag_now, /* which frag */
(toP - frag_now->fr_literal), /* where */
4, /* size */
- the_insn.exp.X_add_symbol,
- the_insn.exp.X_subtract_symbol,
- the_insn.exp.X_add_number,
+ &the_insn.exp,
the_insn.pcrel,
/* merge bit fields into one argument */
(int) (((the_insn.highlow & 0x3) << 4) | (the_insn.reloc & 0xf)));
break;
default:
- as_bad ("Unknown opcode: `%s'", str);
- exit (1);
+ as_fatal (_("Unknown opcode: `%s'"), str);
}
if (strncmp (str, "d.", 2) == 0)
{
if (dual_mode == DUAL_DDOT || dual_mode == DUAL_ONDDOT)
str -= 2;
- as_bad ("Unknown opcode: `%s'", str);
+ as_bad (_("Unknown opcode: `%s'"), str);
return;
}
if (comma)
if (dual_mode == DUAL_ONDDOT)
dual_mode = DUAL_ON;
if ((opcode & (1 << 10)) && (mask == ((opcode >> 11) & 0x1f)))
- as_warn ("Fsr1 equals fdest with Pipelining");
+ as_warn (_("Fsr1 equals fdest with Pipelining"));
continue;
}
}
{
s = expr_end;
if (the_insn.exp.X_add_number & ~0x1f)
- as_bad ("5-bit immediate too large");
+ as_bad (_("5-bit immediate too large"));
opcode |= (the_insn.exp.X_add_number & 0x1f) << 11;
memset (&the_insn, '\0', sizeof (the_insn));
the_insn.reloc = NO_RELOC;
break;
default:
- as_fatal ("failed sanity check.");
+ as_fatal (_("failed sanity check."));
}
break;
}
}
else
{
- as_bad ("Illegal operands");
+ as_bad (_("Illegal operands"));
return;
}
}
}
the_insn.opcode = opcode;
- return;
}
static int
save_in = input_line_pointer;
input_line_pointer = str;
- switch (seg = expression (&the_insn.exp))
+ seg = expression (&the_insn.exp);
+ if (seg != absolute_section
+ && seg != undefined_section
+ && ! SEG_NORMAL (seg))
{
-
- case SEG_ABSOLUTE:
- case SEG_TEXT:
- case SEG_DATA:
- case SEG_BSS:
- case SEG_UNKNOWN:
- case SEG_DIFFERENCE:
- case SEG_BIG:
- case SEG_ABSENT:
- break;
-
- default:
- the_insn.error = "bad segment";
+ the_insn.error = _("bad segment");
expr_end = input_line_pointer;
input_line_pointer = save_in;
return 1;
default:
*sizeP = 0;
- return "Bad call to MD_ATOF()";
+ return _("Bad call to MD_ATOF()");
}
t = atof_ieee (input_line_pointer, type, words);
if (t)
md_number_to_chars (litP, (long) (*wordP++), sizeof (LITTLENUM_TYPE));
litP += sizeof (LITTLENUM_TYPE);
}
- return ""; /* Someone should teach Dean about null pointers */
+ return 0;
}
/*
valueT val;
int n;
{
- switch (n)
- {
-
- case 4:
- *buf++ = val >> 24;
- *buf++ = val >> 16;
- case 2:
- *buf++ = val >> 8;
- case 1:
- *buf = val;
- break;
-
- default:
- as_fatal ("failed sanity check.");
- }
- return;
+ number_to_chars_bigendian (buf, val, n);
}
void
case BRADDR: /* br,call,bc,bc.t,bnc,bnc.t w/26-bit immediate */
if (fixP->fx_pcrel != 1)
- as_bad ("26-bit branch w/o pc relative set: 0x%08x", val);
+ as_bad (_("26-bit branch w/o pc relative set: 0x%08x"), val);
val >>= 2; /* align pcrel offset, see manual */
if (val >= (1 << 25) || val < -(1 << 25)) /* check for overflow */
- as_bad ("26-bit branch offset overflow: 0x%08x", val);
+ as_bad (_("26-bit branch offset overflow: 0x%08x"), val);
buf[0] = (buf[0] & 0xfc) | ((val >> 24) & 0x3);
buf[1] = val >> 16;
buf[2] = val >> 8;
case SPLIT2: /* 16 bit immediate, 4-byte aligned */
if (val & 0x3)
- as_bad ("16-bit immediate 4-byte alignment error: 0x%08x", val);
+ as_bad (_("16-bit immediate 4-byte alignment error: 0x%08x"), val);
val &= ~0x3; /* 4-byte align value */
/*FALLTHROUGH*/
case SPLIT1: /* 16 bit immediate, 2-byte aligned */
if (val & 0x1)
- as_bad ("16-bit immediate 2-byte alignment error: 0x%08x", val);
+ as_bad (_("16-bit immediate 2-byte alignment error: 0x%08x"), val);
val &= ~0x1; /* 2-byte align value */
/*FALLTHROUGH*/
case SPLIT0: /* st,bla,bte,btne w/16-bit immediate */
val >>= 2; /* align pcrel offset, see manual */
/* check for bounds */
if (highlow != PAIR && (val >= (1 << 16) || val < -(1 << 15)))
- as_bad ("16-bit branch offset overflow: 0x%08x", val);
+ as_bad (_("16-bit branch offset overflow: 0x%08x"), val);
buf[1] = (buf[1] & ~0x1f) | ((val >> 11) & 0x1f);
buf[2] = (buf[2] & ~0x7) | ((val >> 8) & 0x7);
buf[3] |= val; /* perserve bottom opcode bits */
case LOW4: /* fld,pfld,pst,flush 16-byte aligned */
if (val & 0xf)
- as_bad ("16-bit immediate 16-byte alignment error: 0x%08x", val);
+ as_bad (_("16-bit immediate 16-byte alignment error: 0x%08x"), val);
val &= ~0xf; /* 16-byte align value */
/*FALLTHROUGH*/
case LOW3: /* fld,pfld,pst,flush 8-byte aligned */
if (val & 0x7)
- as_bad ("16-bit immediate 8-byte alignment error: 0x%08x", val);
+ as_bad (_("16-bit immediate 8-byte alignment error: 0x%08x"), val);
val &= ~0x7; /* 8-byte align value */
/*FALLTHROUGH*/
case LOW2: /* 16 bit immediate, 4-byte aligned */
if (val & 0x3)
- as_bad ("16-bit immediate 4-byte alignment error: 0x%08x", val);
+ as_bad (_("16-bit immediate 4-byte alignment error: 0x%08x"), val);
val &= ~0x3; /* 4-byte align value */
/*FALLTHROUGH*/
case LOW1: /* 16 bit immediate, 2-byte aligned */
if (val & 0x1)
- as_bad ("16-bit immediate 2-byte alignment error: 0x%08x", val);
+ as_bad (_("16-bit immediate 2-byte alignment error: 0x%08x"), val);
val &= ~0x1; /* 2-byte align value */
/*FALLTHROUGH*/
case LOW0: /* 16 bit immediate, byte aligned */
/* check for bounds */
if (highlow != PAIR && (val >= (1 << 16) || val < -(1 << 15)))
- as_bad ("16-bit immediate overflow: 0x%08x", val);
+ as_bad (_("16-bit immediate overflow: 0x%08x"), val);
buf[2] = val >> 8;
buf[3] |= val; /* perserve bottom opcode bits */
break;
case NO_RELOC:
default:
- as_bad ("bad relocation type: 0x%02x", reloc);
+ as_bad (_("bad relocation type: 0x%02x"), reloc);
break;
}
- return;
-}
-
-/* should never be called for i860 */
-void
-md_create_short_jump (ptr, from_addr, to_addr, frag, to_symbol)
- char *ptr;
- addressT from_addr, to_addr;
- fragS *frag;
- symbolS *to_symbol;
-{
- as_fatal ("i860_create_short_jmp\n");
}
/* should never be called for i860 */
char *buf;
long val;
{
- as_fatal ("md_number_to_disp\n");
+ as_fatal (_("md_number_to_disp\n"));
}
/* should never be called for i860 */
long val;
void *fix;
{
- as_fatal ("i860_number_to_field\n");
+ as_fatal (_("i860_number_to_field\n"));
}
/* the bit-field entries in the relocation_info struct plays hell
/* should never be called for i860 */
void
-md_convert_frag (headers, fragP)
+md_convert_frag (headers, seg, fragP)
object_headers *headers;
+ segT seg;
register fragS *fragP;
{
- as_fatal ("i860_convert_frag\n");
-}
-
-/* should never be called for i860 */
-void
-md_create_long_jump (ptr, from_addr, to_addr, frag, to_symbol)
- char *ptr;
- addressT from_addr, to_addr;
- fragS *frag;
- symbolS *to_symbol;
-{
- as_fatal ("i860_create_long_jump\n");
+ as_fatal (_("i860_convert_frag\n"));
}
/* should never be called for i860 */
register fragS *fragP;
segT segtype;
{
- as_fatal ("i860_estimate_size_before_relax\n");
+ as_fatal (_("i860_estimate_size_before_relax\n"));
}
/* for debugging only, must match enum reloc_type */
insn->exp.X_add_symbol ?
(S_GET_NAME (insn->exp.X_add_symbol) ?
S_GET_NAME (insn->exp.X_add_symbol) : "???") : "0");
- fprintf (stderr, "\t\tX_sub_symbol = %s\n",
- insn->exp.X_subtract_symbol ?
- (S_GET_NAME (insn->exp.X_subtract_symbol) ?
- S_GET_NAME (insn->exp.X_subtract_symbol) : "???") : "0");
+ fprintf (stderr, "\t\tX_op_symbol = %s\n",
+ insn->exp.X_op_symbol ?
+ (S_GET_NAME (insn->exp.X_op_symbol) ?
+ S_GET_NAME (insn->exp.X_op_symbol) : "???") : "0");
fprintf (stderr, "\t\tX_add_number = %d\n",
insn->exp.X_add_number);
fprintf (stderr, "}\n");
- return;
}
+\f
+CONST char *md_shortopts = "";
+struct option md_longopts[] = {
+ {NULL, no_argument, NULL, 0}
+};
+size_t md_longopts_size = sizeof(md_longopts);
int
-md_parse_option (argP, cntP, vecP)
- char **argP;
- int *cntP;
- char ***vecP;
+md_parse_option (c, arg)
+ int c;
+ char *arg;
{
- return 1;
+ return 0;
}
+void
+md_show_usage (stream)
+ FILE *stream;
+{
+}
+\f
#ifdef comment
/*
* I860 relocations are completely different, so it needs
ri.r_extern = 0;
ri.r_symbolnum = S_GET_TYPE (symbolP);
}
- if (symbolP && symbolP->sy_frag)
+ if (symbolP && symbol_get_frag (symbolP))
{
- ri.r_addend = symbolP->sy_frag->fr_address;
+ ri.r_addend = symbol_get_frag (symbolP)->fr_address;
}
ri.r_type = fixP->fx_r_type;
if (fixP->fx_pcrel)
append (&next_object_file_charP, (char *) &ri, sizeof (ri));
}
}
- return;
}
#endif /* comment */
| ((r_extern << 6) & 0x40)
| (fixP->fx_r_type & 0x3F));
- if (fixP->fx_addsy->sy_frag)
+ if (symbol_get_frag (fixP->fx_addsy))
{
- r_addend = fixP->fx_addsy->sy_frag->fr_address;
+ r_addend = symbol_get_frag (fixP->fx_addsy)->fr_address;
}
if (fixP->fx_pcrel)
}
md_number_to_chars (&where[8], r_addend, 4);
-
- return;
-} /* tc_aout_fix_to_chars() */
+}
#endif /* OBJ_AOUT */
-/* Parse an operand that is machine-specific.
- We just return without modifying the expression if we have nothing
- to do. */
-
-/* ARGSUSED */
-void
-md_operand (expressionP)
- expressionS *expressionP;
-{
-}
-
/* We have no need to default values of symbols. */
/* ARGSUSED */
know (fixP->fx_bit_fixP == NULL);
if (!fixP->fx_bit_fixP)
{
-
- /* also looks like fx_im_disp is always 0. Let's see. xoxorich. */
- know (fixP->fx_im_disp == 0);
- switch (fixP->fx_im_disp)
- {
- case 0:
- fixP->fx_addnumber = val;
- md_number_to_imm (place, val, fixP->fx_size, fixP);
- break;
- case 1:
- md_number_to_disp (place,
- fixP->fx_pcrel ? val + fixP->fx_pcrel_adjust : val,
- fixP->fx_size);
- break;
- case 2: /* fix requested for .long .word etc */
- md_number_to_chars (place, val, fixP->fx_size);
- break;
- default:
- as_fatal ("Internal error in md_apply_fix() in file \"%s\"", __FILE__);
- } /* OVE: maybe one ought to put _imm _disp _chars in one md-func */
+ fixP->fx_addnumber = val;
+ md_number_to_imm (place, val, fixP->fx_size, fixP);
}
else
{
md_number_to_field (place, val, fixP->fx_bit_fixP);
}
-
- return;
-} /* md_apply_fix() */
+}
/*
* Local Variables: