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

* config/tc-hppa.c (pa_ip): Add completer codes 'a', 'ch', 'cH', 

'cS', and 'c*'.
This commit is contained in:
Jeff Law 1999-08-28 08:48:40 +00:00
parent 1eee34f59f
commit 413c94baca
2 changed files with 106 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gas/ChangeLog
View File

@ -4,6 +4,9 @@ Sat Aug 28 01:23:11 1999 Jeffrey A Law (law@cygnus.com)
Sat Aug 28 00:26:26 1999 Jerry Quinn <jquinn@nortelnetworks.com>
* config/tc-hppa.c (pa_ip): Add completer codes 'a', 'ch', 'cH',
'cS', and 'c*'.
* config/tc-hppa.c (pa_ip): Place completers behind prefix 'c'.
* config/tc-hppa.c (pa_ip): Add cases for '.', '~'. '$'. and '!'

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

@ -1601,6 +1601,13 @@ pa_ip (str)
CHECK_FIELD (num, 31, 0, 0);
INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
/* Handle a 5 bit register field at 10 and 15. */
case 'a':
num = pa_parse_number (&s, 0);
CHECK_FIELD (num, 31, 0, 0);
opcode |= num << 16;
INSERT_FIELD_AND_CONTINUE (opcode, num, 21);
/* Handle a 5 bit field length at 31. */
case 'T':
num = pa_get_absolute_expression (&the_insn, &s);
@ -1752,6 +1759,95 @@ pa_ip (str)
INSERT_FIELD_AND_CONTINUE (opcode, flag, 5);
/* Handle signed/unsigned at 21. */
case 'S':
{
int sign = 1;
if (strncasecmp (s, ",s", 2) == 0)
{
sign = 1;
s += 2;
}
else if (strncasecmp (s, ",u", 2) == 0)
{
sign = 0;
s += 2;
}
INSERT_FIELD_AND_CONTINUE (opcode, sign, 10);
}
/* Handle left/right combination at 17:18. */
case 'h':
if (*s++ == ',')
{
int lr = 0;
if (*s == 'r')
lr = 2;
else if (*s == 'l')
lr = 0;
else
as_bad(_("Invalid left/right combination completer"));
s++;
INSERT_FIELD_AND_CONTINUE (opcode, lr, 13);
}
else
as_bad(_("Invalid left/right combination completer"));
break;
/* Handle saturation at 24:25. */
case 'H':
{
int sat = 3;
if (strncasecmp (s, ",ss", 3) == 0)
{
sat = 1;
s += 3;
}
else if (strncasecmp (s, ",us", 3) == 0)
{
sat = 0;
s += 3;
}
INSERT_FIELD_AND_CONTINUE (opcode, sat, 6);
}
/* Handle permutation completer. */
case '*':
if (*s++ == ',')
{
int permloc[4] = {13,10,8,6};
int perm = 0;
int i = 0;
for (; i < 4; i++)
{
switch (*s++)
{
case '0':
perm = 0;
break;
case '1':
perm = 1;
break;
case '2':
perm = 2;
break;
case '3':
perm = 3;
break;
default:
as_bad(_("Invalid permutation completer"));
}
opcode |= perm << permloc[i];
}
continue;
}
else
as_bad(_("Invalid permutation completer"));
break;
default:
abort ();
}
@ -2481,6 +2577,13 @@ pa_ip (str)
CHECK_FIELD (num, 3, 1, 0);
INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
/* Handle a 4 bit shift count at 25. */
case '*':
num = pa_get_absolute_expression (&the_insn, &s);
s = expr_end;
CHECK_FIELD (num, 15, 0, 0);
INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
/* Handle a 5 bit shift count at 26. */
case 'p':
num = pa_get_absolute_expression (&the_insn, &s);