OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* config/tc-hppa.c (pa_ip): Handle 'J', 'K' and 'cc' 

operands.
This commit is contained in:
Jeff Law 1999-09-19 20:07:01 +00:00
parent d3ffb03249
commit 65fab780c5
2 changed files with 77 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gas/ChangeLog
View File

@ -1,5 +1,8 @@
Sun Sep 19 10:43:31 1999 Jeffrey A Law (law@cygnus.com)
* config/tc-hppa.c (pa_ip): Handle 'J', 'K' and 'cc'
operands.
* config/tc-hppa.c (pa_ip); Handle "fe", and 'cJ'.
* config/tc-hppa.c (pa_ip): Handle 'd', '#' and 'cq'.

74
gas/config/tc-hppa.c
View File

@ -1787,6 +1787,7 @@ pa_ip (str)
case 'm':
case 'q':
case 'J':
case 'c':
{
int a = 0;
int m = 0;
@ -1810,6 +1811,10 @@ pa_ip (str)
as_bad (_("Invalid Short Load/Store Completer."));
s += 2;
}
/* If we did not get a ma/mb completer, then we do not
consider this a positive match for 'cc'. */
else if (*args == 'c')
break;
/* 'J', 'm' and 'q' are the same, except for where they
encode the before/after field. */
@ -1828,6 +1833,14 @@ pa_ip (str)
/* M bit is explicit in the major opcode. */
INSERT_FIELD_AND_CONTINUE (opcode, a, 2);
}
else if (*args == 'c')
{
/* Gross! Hide these values in the immediate field
of the instruction, then pull them out later. */
opcode |= m << 8;
opcode |= a << 9;
continue;
}
}
/* Handle a stbys completer. */
@ -2806,6 +2819,67 @@ pa_ip (str)
continue;
}
/* Handle a 14 bit immediate at 31. */
case 'J':
the_insn.field_selector = pa_chk_field_selector (&s);
get_expression (s);
s = expr_end;
if (the_insn.exp.X_op == O_constant)
{
int a, m;
/* XXX the completer stored away tibits of information
for us to extract. We need a cleaner way to do this.
Now that we have lots of letters again, it would be
good to rethink this. */
m = (opcode & (1 << 8)) != 0;
a = (opcode & (1 << 9)) != 0;
opcode &= ~ (3 << 8);
num = evaluate_absolute (&the_insn);
if (a == 1 && num >= 0 || (a == 0 && num < 0))
break;
CHECK_FIELD (num, 8191, -8192, 0);
low_sign_unext (num, 14, &num);
INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
}
else
{
break;
}
/* Handle a 14 bit immediate at 31. */
case 'K':
the_insn.field_selector = pa_chk_field_selector (&s);
get_expression (s);
s = expr_end;
if (the_insn.exp.X_op == O_constant)
{
int a, m;
/* XXX the completer stored away tibits of information
for us to extract. We need a cleaner way to do this.
Now that we have lots of letters again, it would be
good to rethink this. */
m = (opcode & (1 << 8)) != 0;
a = (opcode & (1 << 9)) != 0;
opcode &= ~ (3 << 8);
num = evaluate_absolute (&the_insn);
if (a == 1 && num < 0 || (a == 0 && num > 0))
break;
if (num % 4)
break;
CHECK_FIELD (num, 8191, -8192, 0);
if (num < 0)
opcode |= 1;
num &= 0x1fff;
num >>= 2;
INSERT_FIELD_AND_CONTINUE (opcode, num, 3);
}
else
{
break;
}
/* Handle 14 bit immediated, shifted left three times. */
case '#':
the_insn.field_selector = pa_chk_field_selector (&s);