* config/tc-hppa.c (pa_ip): Handle 'J', 'K' and 'cc'
operands.
This commit is contained in:
parent
d3ffb03249
commit
65fab780c5
2 changed files with 77 additions and 0 deletions
|
@ -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'.
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in a new issue