darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-25 05:00:01 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* config/tc-hppa.c (pa_ip): Place completers behind prefix 'c'.

Browse Source
This commit is contained in:
Jeff Law 1999-08-28 08:16:30 +00:00
parent 3590ea008d
commit 28252e6156
2 changed files with 91 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gas/ChangeLog
View File

@ -4,6 +4,8 @@ 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): Place completers behind prefix 'c'.
* config/tc-hppa.c (pa_ip): Add cases for '.', '~'. '$'. and '!'
* config/tc-hppa.c (pa_ip): Add case for 'I'.

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

@ -1651,92 +1651,111 @@ pa_ip (str)
dis_assemble_3 (num, &num);
INSERT_FIELD_AND_CONTINUE (opcode, num, 13);
/* Handle a completer for an indexing load or store. */
/* Handle all completers. */
case 'c':
{
int uu = 0;
int m = 0;
int i = 0;
while (*s == ',' && i < 2)
switch (*++args)
{
/* Handle a completer for an indexing load or store. */
case 'x':
{
s++;
if (strncasecmp (s, "sm", 2) == 0)
int uu = 0;
int m = 0;
int i = 0;
while (*s == ',' && i < 2)
{
uu = 1;
m = 1;
s++;
if (strncasecmp (s, "sm", 2) == 0)
{
uu = 1;
m = 1;
s++;
i++;
}
else if (strncasecmp (s, "m", 1) == 0)
m = 1;
else if (strncasecmp (s, "s", 1) == 0)
uu = 1;
else
as_bad (_("Invalid Indexed Load Completer."));
s++;
i++;
}
else if (strncasecmp (s, "m", 1) == 0)
m = 1;
else if (strncasecmp (s, "s", 1) == 0)
uu = 1;
else
as_bad (_("Invalid Indexed Load Completer."));
s++;
i++;
}
if (i > 2)
as_bad (_("Invalid Indexed Load Completer Syntax."));
opcode |= m << 5;
INSERT_FIELD_AND_CONTINUE (opcode, uu, 13);
}
/* Handle a short load/store completer. */
case 'C':
{
int a = 0;
int m = 0;
if (*s == ',')
{
s++;
if (strncasecmp (s, "ma", 2) == 0)
{
a = 0;
m = 1;
}
else if (strncasecmp (s, "mb", 2) == 0)
{
a = 1;
m = 1;
}
else
as_bad (_("Invalid Short Load/Store Completer."));
s += 2;
if (i > 2)
as_bad (_("Invalid Indexed Load Completer Syntax."));
opcode |= m << 5;
INSERT_FIELD_AND_CONTINUE (opcode, uu, 13);
}
if (*args == 'C')
/* Handle a short load/store completer. */
case 'm':
{
int a = 0;
int m = 0;
if (*s == ',')
{
s++;
if (strncasecmp (s, "ma", 2) == 0)
{
a = 0;
m = 1;
}
else if (strncasecmp (s, "mb", 2) == 0)
{
a = 1;
m = 1;
}
else
as_bad (_("Invalid Short Load/Store Completer."));
s += 2;
}
opcode |= m << 5;
INSERT_FIELD_AND_CONTINUE (opcode, a, 13);
}
}
/* Handle a stbys completer. */
case 'Y':
{
int a = 0;
int m = 0;
int i = 0;
while (*s == ',' && i < 2)
/* Handle a stbys completer. */
case 's':
{
s++;
if (strncasecmp (s, "m", 1) == 0)
m = 1;
else if (strncasecmp (s, "b", 1) == 0)
a = 0;
else if (strncasecmp (s, "e", 1) == 0)
a = 1;
else
int a = 0;
int m = 0;
int i = 0;
while (*s == ',' && i < 2)
{
s++;
if (strncasecmp (s, "m", 1) == 0)
m = 1;
else if (strncasecmp (s, "b", 1) == 0)
a = 0;
else if (strncasecmp (s, "e", 1) == 0)
a = 1;
else
as_bad (_("Invalid Store Bytes Short Completer"));
s++;
i++;
}
if (i > 2)
as_bad (_("Invalid Store Bytes Short Completer"));
s++;
i++;
opcode |= m << 5;
INSERT_FIELD_AND_CONTINUE (opcode, a, 13);
}
if (i > 2)
as_bad (_("Invalid Store Bytes Short Completer"));
opcode |= m << 5;
INSERT_FIELD_AND_CONTINUE (opcode, a, 13);
}
/* Handle a system control completer. */
case 'Z':
if (*s == ',' && (*(s + 1) == 'm' || *(s + 1) == 'M'))
{
flag = 1;
s += 2;
}
else
flag = 0;
INSERT_FIELD_AND_CONTINUE (opcode, flag, 5);
default:
abort ();
}
break;
/* Handle all conditions. */
case '?':
@ -2266,18 +2285,6 @@ pa_ip (str)
break;
}
/* Handle a system control completer. */
case 'Z':
if (*s == ',' && (*(s + 1) == 'm' || *(s + 1) == 'M'))
{
flag = 1;
s += 2;
}
else
flag = 0;
INSERT_FIELD_AND_CONTINUE (opcode, flag, 5);
/* Handle a nullification completer for branch instructions. */
case 'n':
nullif = pa_parse_nullif (&s);