espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-28 15:18:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

Wed Jul 31 11:45:15 1996 Martin M. Hunt <hunt@pizza.cygnus.com>

Browse Source 
* tc-d10v.c: Fixed bugs in short relocs and range checking.
This commit is contained in:
Martin Hunt
1996-07-31 18:50:12 +00:00
parent 37e05f6443
commit f8508db7d6
1 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
gas/config/tc-d10v.c
View File

@ -152,7 +152,7 @@ check_range (num, bits, flags)
int bits; int bits;
int flags; int flags;
{ {
long min, max; long min, max, bit1;
int retval=0; int retval=0;
if (flags & OPERAND_SHIFT) if (flags & OPERAND_SHIFT)
@ -167,7 +167,14 @@ check_range (num, bits, flags)
if (flags & OPERAND_SIGNED) if (flags & OPERAND_SIGNED)
{ {
max = (1 << (bits - 1)) - 1; bit1 = (1 << (bits - 1));
max = bit1 -1;
if (num & max)
{
/* sign-extend */
num = ((num & (bit1 | max))^(~max))+bit1;
}
min = - (1 << (bits - 1)); min = - (1 << (bits - 1));
if (((long)num > max) || ((long)num < min)) if (((long)num > max) || ((long)num < min))
retval = 1; retval = 1;
@ -553,7 +560,9 @@ write_1_short (opcode, insn, fx)
number_to_chars_bigendian (f, insn, 4); number_to_chars_bigendian (f, insn, 4);
for (i=0; i < fx->fc; i++) for (i=0; i < fx->fc; i++)
{ {
if (get_reloc((struct d10v_operand *)&d10v_operands[fx->fix[i].reloc])) bfd_reloc_code_real_type reloc;
reloc = get_reloc((struct d10v_operand *)&d10v_operands[fx->fix[i].reloc]);
if (reloc)
{ {
/* /*
printf("fix_new_exp: where:%x size:4\n ",f - frag_now->fr_literal); printf("fix_new_exp: where:%x size:4\n ",f - frag_now->fr_literal);
@ -561,6 +570,10 @@ write_1_short (opcode, insn, fx)
printf("\n"); printf("\n");
*/ */
/* if it's an R reloc, we may have to switch it to L */
if ( (reloc == BFD_RELOC_D10V_10_PCREL_R) && (opcode->unit != IU) )
fx->fix[i].reloc |= 1024;
fix_new_exp (frag_now, fix_new_exp (frag_now,
f - frag_now->fr_literal, f - frag_now->fr_literal,
4, 4,
@ -624,6 +637,7 @@ write_2_short (opcode1, insn1, opcode2, insn2, exec_type, fx)
as_fatal ("Two IU instructions may not be executed in parallel"); as_fatal ("Two IU instructions may not be executed in parallel");
as_warn ("Swapping instruction order"); as_warn ("Swapping instruction order");
insn = FM00 | (insn2 << 15) | insn1; insn = FM00 | (insn2 << 15) | insn1;
fx = fx->next;
} }
else if (opcode2->unit == MU) else if (opcode2->unit == MU)
{ {
@ -631,6 +645,7 @@ write_2_short (opcode1, insn1, opcode2, insn2, exec_type, fx)
as_fatal ("Two MU instructions may not be executed in parallel"); as_fatal ("Two MU instructions may not be executed in parallel");
as_warn ("Swapping instruction order"); as_warn ("Swapping instruction order");
insn = FM00 | (insn2 << 15) | insn1; insn = FM00 | (insn2 << 15) | insn1;
fx = fx->next;
} }
else else
insn = FM00 | (insn1 << 15) | insn2; insn = FM00 | (insn1 << 15) | insn2;