espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-26 22:07:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

* config/tc-hppa.c (pa_ip): Add new codes 'cc', 'cd', 'cC', 'co',

Browse Source 
'@'.  Change autoincrement completers to fall through to cache control
        completers.

        * config/tc-hppa.c (pa_ip):  Remove unused args.  Add code to '?W'
        arg.
        (pa_parse_addb_64_cmpltr):  New function.

        * config/tc-hppa.c (pa_ip):  Change error message.
        (pa_ip,pa_parse_cmpb_64_cmpltr,pa_parse_cmpib_64_cmpltr)  Fix '?N' and
        '?Q' args to allow falling through.

        * config/tc-hppa.c (pa_ip):  Implement conditional codes "?N", "?Q".
        Remove unused conditional codes.
        (pa_parse_cmpb_64_cmpltr,pa_parse_cmpib_64_cmpltr):  New.
This commit is contained in:
Jeff Law
1999-10-10 07:57:30 +00:00
parent eca04c6a4a
commit d53d27516f
2 changed files with 429 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
gas/ChangeLog
View File

@ -1,3 +1,21 @@
Sun Oct 10 01:47:23 1999 Jerry Quinn <jerry.quinn.adv91@alum.dartmouth.org>
* config/tc-hppa.c (pa_ip): Add new codes 'cc', 'cd', 'cC', 'co',
'@'. Change autoincrement completers to fall through to cache control
completers.
* config/tc-hppa.c (pa_ip): Remove unused args. Add code to '?W'
arg.
(pa_parse_addb_64_cmpltr): New function.
* config/tc-hppa.c (pa_ip): Change error message.
(pa_ip,pa_parse_cmpb_64_cmpltr,pa_parse_cmpib_64_cmpltr) Fix '?N' and
'?Q' args to allow falling through.
* configtc-hppa.c (pa_ip): Implement conditional codes "?N", "?Q".
Remove unused conditional codes.
(pa_parse_cmpb_64_cmpltr,pa_parse_cmpib_64_cmpltr): New.
Thu Oct 7 00:23:53 MDT 1999 Diego Novillo <dnovillo@cygnus.com> Thu Oct 7 00:23:53 MDT 1999 Diego Novillo <dnovillo@cygnus.com>
* config/tc-d30v.c (CHAR_BIT): Define. * config/tc-d30v.c (CHAR_BIT): Define.

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

@ -495,6 +495,9 @@ static int pa_parse_nonneg_cmpsub_cmpltr PARAMS ((char **, int));
static int pa_parse_neg_cmpsub_cmpltr PARAMS ((char **, int)); static int pa_parse_neg_cmpsub_cmpltr PARAMS ((char **, int));
static int pa_parse_neg_add_cmpltr PARAMS ((char **, int)); static int pa_parse_neg_add_cmpltr PARAMS ((char **, int));
static int pa_parse_nonneg_add_cmpltr PARAMS ((char **, int)); static int pa_parse_nonneg_add_cmpltr PARAMS ((char **, int));
static int pa_parse_cmpb_64_cmpltr PARAMS ((char **));
static int pa_parse_cmpib_64_cmpltr PARAMS ((char **));
static int pa_parse_addb_64_cmpltr PARAMS ((char **));
static void pa_block PARAMS ((int)); static void pa_block PARAMS ((int));
static void pa_brtab PARAMS ((int)); static void pa_brtab PARAMS ((int));
static void pa_try PARAMS ((int)); static void pa_try PARAMS ((int));
@ -1393,7 +1396,7 @@ md_begin ()
dummy_symbol = symbol_find_or_make ("L$dummy"); dummy_symbol = symbol_find_or_make ("L$dummy");
S_SET_SEGMENT (dummy_symbol, text_section); S_SET_SEGMENT (dummy_symbol, text_section);
/* Force the symbol to be converted to a real symbol. */ /* Force the symbol to be converted to a real symbol. */
(void) symbol_get_bfdsym (dummy_symbol); (void) symbol_get_bfdsym (dummy_symbol);
#endif #endif
} }
@ -1767,11 +1770,15 @@ pa_ip (str)
} }
else if (strncasecmp (s, "m", 1) == 0) else if (strncasecmp (s, "m", 1) == 0)
m = 1; m = 1;
else if (strncasecmp (s, "s", 1) == 0) else if ((strncasecmp (s, "s ", 2) == 0)
|| (strncasecmp (s, "s,", 2) == 0))
uu = 1; uu = 1;
/* When in strict mode this is a match failure. */ /* When in strict mode this is a match failure. */
else if (strict) else if (strict)
break; {
s--;
break;
}
else else
as_bad (_("Invalid Indexed Load Completer.")); as_bad (_("Invalid Indexed Load Completer."));
s++; s++;
@ -1787,33 +1794,40 @@ pa_ip (str)
case 'm': case 'm':
case 'q': case 'q':
case 'J': case 'J':
case 'c': case 'e':
{ {
int a = 0; int a = 0;
int m = 0; int m = 0;
if (*s == ',') if (*s == ',')
{ {
int found = 0;
s++; s++;
if (strncasecmp (s, "ma", 2) == 0) if (strncasecmp (s, "ma", 2) == 0)
{ {
a = 0; a = 0;
m = 1; m = 1;
found = 1;
} }
else if (strncasecmp (s, "mb", 2) == 0) else if (strncasecmp (s, "mb", 2) == 0)
{ {
a = 1; a = 1;
m = 1; m = 1;
found = 1;
} }
/* When in strict mode this is a match failure. */
else if (strict) /* When in strict mode, pass through for cache op. */
break; if (!found && strict)
s--;
else else
as_bad (_("Invalid Short Load/Store Completer.")); {
s += 2; if (!found)
as_bad (_("Invalid Short Load/Store Completer."));
s += 2;
}
} }
/* If we did not get a ma/mb completer, then we do not /* If we did not get a ma/mb completer, then we do not
consider this a positive match for 'cc'. */ consider this a positive match for 'ce'. */
else if (*args == 'c') else if (*args == 'e')
break; break;
/* 'J', 'm' and 'q' are the same, except for where they /* 'J', 'm' and 'q' are the same, except for where they
@ -1833,7 +1847,7 @@ pa_ip (str)
/* M bit is explicit in the major opcode. */ /* M bit is explicit in the major opcode. */
INSERT_FIELD_AND_CONTINUE (opcode, a, 2); INSERT_FIELD_AND_CONTINUE (opcode, a, 2);
} }
else if (*args == 'c') else if (*args == 'e')
{ {
/* Gross! Hide these values in the immediate field /* Gross! Hide these values in the immediate field
of the instruction, then pull them out later. */ of the instruction, then pull them out later. */
@ -1854,13 +1868,17 @@ pa_ip (str)
s++; s++;
if (strncasecmp (s, "m", 1) == 0) if (strncasecmp (s, "m", 1) == 0)
m = 1; m = 1;
else if (strncasecmp (s, "b", 1) == 0) else if ((strncasecmp (s, "b ", 2) == 0)
|| (strncasecmp (s, "b,", 2) == 0))
a = 0; a = 0;
else if (strncasecmp (s, "e", 1) == 0) else if (strncasecmp (s, "e", 1) == 0)
a = 1; a = 1;
/* When in strict mode this is a match failure. */ /* When in strict mode this is a match failure. */
else if (strict) else if (strict)
break; {
s--;
break;
}
else else
as_bad (_("Invalid Store Bytes Short Completer")); as_bad (_("Invalid Store Bytes Short Completer"));
s++; s++;
@ -1872,6 +1890,48 @@ pa_ip (str)
INSERT_FIELD_AND_CONTINUE (opcode, a, 13); INSERT_FIELD_AND_CONTINUE (opcode, a, 13);
} }
/* Handle load cache hint completer. */
case 'c':
cmpltr = 0;
if (!strncmp(s, ",sl", 3))
{
s += 3;
cmpltr = 2;
}
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 10);
/* Handle store cache hint completer. */
case 'C':
cmpltr = 0;
if (!strncmp(s, ",sl", 3))
{
s += 3;
cmpltr = 2;
}
else if (!strncmp(s, ",bc", 3))
{
s += 3;
cmpltr = 1;
}
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 10);
/* Handle load and clear cache hint completer. */
case 'd':
cmpltr = 0;
if (!strncmp(s, ",co", 3))
{
s += 3;
cmpltr = 1;
}
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 10);
/* Handle load ordering completer. */
case 'o':
if (strncmp(s, ",o", 2) != 0)
break;
s += 2;
continue;
/* Handle a branch gate completer. */ /* Handle a branch gate completer. */
case 'g': case 'g':
if (strncasecmp (s, ",gate", 5) != 0) if (strncasecmp (s, ",gate", 5) != 0)
@ -1924,7 +1984,7 @@ pa_ip (str)
INSERT_FIELD_AND_CONTINUE (opcode, flag, 6); INSERT_FIELD_AND_CONTINUE (opcode, flag, 6);
/* Handle MFCTL wide completer. */ /* Handle MFCTL wide completer. */
case 'W': case 'W':
if (strncasecmp (s, ",w", 2) != 0) if (strncasecmp (s, ",w", 2) != 0)
break; break;
s += 2; s += 2;
@ -1988,7 +2048,7 @@ pa_ip (str)
flag = 3; flag = 3;
s += 4; s += 4;
} }
INSERT_FIELD_AND_CONTINUE (opcode, flag, 10); INSERT_FIELD_AND_CONTINUE (opcode, flag, 10);
/* Handle 64 bit carry for ADD. */ /* Handle 64 bit carry for ADD. */
@ -2310,24 +2370,27 @@ pa_ip (str)
cmpltr = pa_parse_nonneg_add_cmpltr (&s, 1); cmpltr = pa_parse_nonneg_add_cmpltr (&s, 1);
if (cmpltr < 0) if (cmpltr < 0)
{ {
as_bad (_("Invalid Compare/Subtract Condition: %c"), *s); as_bad (_("Invalid Add and Branch Condition: %c"), *s);
cmpltr = 0; cmpltr = 0;
} }
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13); INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
/* Handle negated add and branch condition. */ /* Handle 64 bit wide-mode add and branch condition. */
case 'D':
abort ();
/* Handle wide-mode non-negated add and branch condition. */
case 'w':
abort ();
/* Handle wide-mode negated add and branch condition. */
case 'W': case 'W':
abort(); cmpltr = pa_parse_addb_64_cmpltr (&s);
if (cmpltr < 0)
{
as_bad (_("Invalid Add and Branch Condition: %c"), *s);
cmpltr = 0;
}
else
{
/* Negated condition requires an opcode change. */
opcode |= (cmpltr & 8) << 24;
}
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr & 7, 13);
/* Handle a negated or non-negated add and branch /* Handle a negated or non-negated add and branch
condition. */ condition. */
case '@': case '@':
save_s = s; save_s = s;
@ -2393,16 +2456,16 @@ pa_ip (str)
/* 64 bit conditions. */ /* 64 bit conditions. */
if (*args == 'S') if (*args == 'S')
{ {
if (*s == '*') if (*s == '*')
s++; s++;
else else
break; break;
} }
else if (*s == '*') else if (*s == '*')
break; break;
name = s; name = s;
name = s; name = s;
while (*s != ',' && *s != ' ' && *s != '\t') while (*s != ',' && *s != ' ' && *s != '\t')
s += 1; s += 1;
@ -2481,24 +2544,7 @@ pa_ip (str)
} }
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13); INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
/* Handle a negated compare condition. */ /* Handle a 32 bit compare and branch condition. */
case 'T':
abort ();
/* Handle a 64 bit non-negated compare condition. */
case 'r':
abort ();
/* Handle a 64 bit negated compare condition. */
case 'R':
abort ();
/* Handle a 64 bit cmpib condition. */
case 'Q':
abort ();
/* Handle a negated or non-negated compare/subtract
condition. */
case 'n': case 'n':
save_s = s; save_s = s;
cmpltr = pa_parse_nonneg_cmpsub_cmpltr (&s, 1); cmpltr = pa_parse_nonneg_cmpsub_cmpltr (&s, 1);
@ -2508,7 +2554,7 @@ pa_ip (str)
cmpltr = pa_parse_neg_cmpsub_cmpltr (&s, 1); cmpltr = pa_parse_neg_cmpsub_cmpltr (&s, 1);
if (cmpltr < 0) if (cmpltr < 0)
{ {
as_bad (_("Invalid Compare/Subtract Condition.")); as_bad (_("Invalid Compare and Branch Condition."));
cmpltr = 0; cmpltr = 0;
} }
else else
@ -2517,7 +2563,30 @@ pa_ip (str)
opcode |= 1 << 27; opcode |= 1 << 27;
} }
} }
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
/* Handle a 64 bit compare and branch condition. */
case 'N':
cmpltr = pa_parse_cmpb_64_cmpltr (&s);
if (cmpltr >= 0)
{
/* Negated condition requires an opcode change. */
opcode |= (cmpltr & 8) << 26;
}
else
/* Not a 64 bit cond. Give 32 bit a chance. */
break;
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr & 7, 13);
/* Handle a 64 bit cmpib condition. */
case 'Q':
cmpltr = pa_parse_cmpib_64_cmpltr (&s);
if (cmpltr < 0)
/* Not a 64 bit cond. Give 32 bit a chance. */
break;
INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13); INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
/* Handle a logical instruction condition. */ /* Handle a logical instruction condition. */
@ -2540,14 +2609,14 @@ pa_ip (str)
else if (*s == '*') else if (*s == '*')
break; break;
name = s; name = s;
name = s; name = s;
while (*s != ',' && *s != ' ' && *s != '\t') while (*s != ',' && *s != ' ' && *s != '\t')
s += 1; s += 1;
c = *s; c = *s;
*s = 0x00; *s = 0x00;
if (strcmp (name, "=") == 0) if (strcmp (name, "=") == 0)
cmpltr = 1; cmpltr = 1;
else if (strcmp (name, "<") == 0) else if (strcmp (name, "<") == 0)
@ -2609,7 +2678,7 @@ pa_ip (str)
else if (*s == '*') else if (*s == '*')
break; break;
name = s; name = s;
name = s; name = s;
while (*s != ',' && *s != ' ' && *s != '\t') while (*s != ',' && *s != ' ' && *s != '\t')
s += 1; s += 1;
@ -2652,7 +2721,7 @@ pa_ip (str)
if (*s == ',') if (*s == ',')
{ {
s++; s++;
/* 64 bit conditions. */ /* 64 bit conditions. */
if (*args == 'U') if (*args == 'U')
{ {
@ -2663,7 +2732,7 @@ pa_ip (str)
} }
else if (*s == '*') else if (*s == '*')
break; break;
if (strncasecmp (s, "sbz", 3) == 0) if (strncasecmp (s, "sbz", 3) == 0)
{ {
cmpltr = 2; cmpltr = 2;
@ -3149,6 +3218,13 @@ pa_ip (str)
s += 9; s += 9;
continue; continue;
/* Handle immediate value of 0 for ordered load/store instructions. */
case '@':
if (*s != '0')
break;
s++;
continue;
/* Handle a 2 bit shift count at 25. */ /* Handle a 2 bit shift count at 25. */
case '.': case '.':
num = pa_get_absolute_expression (&the_insn, &s); num = pa_get_absolute_expression (&the_insn, &s);
@ -3250,7 +3326,7 @@ pa_ip (str)
s = expr_end; s = expr_end;
CHECK_FIELD (num, 511, 1, strict); CHECK_FIELD (num, 511, 1, strict);
INSERT_FIELD_AND_CONTINUE (opcode, num, 3); INSERT_FIELD_AND_CONTINUE (opcode, num, 3);
/* Handle a 13 bit immediate at 18. */ /* Handle a 13 bit immediate at 18. */
case 'A': case 'A':
num = pa_get_absolute_expression (&the_insn, &s); num = pa_get_absolute_expression (&the_insn, &s);
@ -3373,7 +3449,7 @@ pa_ip (str)
flag = QUAD; flag = QUAD;
opcode |= flag << 13; opcode |= flag << 13;
if (the_insn.fpof1 == SGL if (the_insn.fpof1 == SGL
|| the_insn.fpof1 == DBL || the_insn.fpof1 == DBL
|| the_insn.fpof1 == QUAD) || the_insn.fpof1 == QUAD)
{ {
if (the_insn.fpof2 == SGL if (the_insn.fpof2 == SGL
@ -3392,7 +3468,7 @@ pa_ip (str)
abort (); abort ();
} }
else if (the_insn.fpof1 == W else if (the_insn.fpof1 == W
|| the_insn.fpof1 == DW || the_insn.fpof1 == DW
|| the_insn.fpof1 == QW) || the_insn.fpof1 == QW)
{ {
if (the_insn.fpof2 == SGL if (the_insn.fpof2 == SGL
@ -3403,7 +3479,7 @@ pa_ip (str)
abort (); abort ();
} }
else if (the_insn.fpof1 == UW else if (the_insn.fpof1 == UW
|| the_insn.fpof1 == UDW || the_insn.fpof1 == UDW
|| the_insn.fpof1 == UQW) || the_insn.fpof1 == UQW)
{ {
if (the_insn.fpof2 == SGL if (the_insn.fpof2 == SGL
@ -3603,7 +3679,7 @@ pa_ip (str)
case 'j': case 'j':
{ {
struct pa_11_fp_reg_struct result; struct pa_11_fp_reg_struct result;
/* This should be more strict. Small steps. */ /* This should be more strict. Small steps. */
if (strict && *s != '%') if (strict && *s != '%')
break; break;
@ -3626,7 +3702,7 @@ pa_ip (str)
case 'k': case 'k':
{ {
struct pa_11_fp_reg_struct result; struct pa_11_fp_reg_struct result;
/* This should be more strict. Small steps. */ /* This should be more strict. Small steps. */
if (strict && *s != '%') if (strict && *s != '%')
break; break;
@ -3649,7 +3725,7 @@ pa_ip (str)
case 'l': case 'l':
{ {
struct pa_11_fp_reg_struct result; struct pa_11_fp_reg_struct result;
/* This should be more strict. Small steps. */ /* This should be more strict. Small steps. */
if (strict && *s != '%') if (strict && *s != '%')
break; break;
@ -3672,7 +3748,7 @@ pa_ip (str)
case 'm': case 'm':
{ {
struct pa_11_fp_reg_struct result; struct pa_11_fp_reg_struct result;
/* This should be more strict. Small steps. */ /* This should be more strict. Small steps. */
if (strict && *s != '%') if (strict && *s != '%')
break; break;
@ -4189,10 +4265,10 @@ md_apply_fix (fixP, valp)
&& S_GET_SEGMENT (fixP->fx_addsy) == hppa_fixP->segment && S_GET_SEGMENT (fixP->fx_addsy) == hppa_fixP->segment
&& !(fixP->fx_subsy && !(fixP->fx_subsy
&& S_GET_SEGMENT (fixP->fx_subsy) != hppa_fixP->segment)) && S_GET_SEGMENT (fixP->fx_subsy) != hppa_fixP->segment))
new_val = hppa_field_adjust (*valp, 0, hppa_fixP->fx_r_field); new_val = hppa_field_adjust (*valp, 0, hppa_fixP->fx_r_field);
#undef arg_reloc_stub_needed #undef arg_reloc_stub_needed
switch (fmt) switch (fmt)
{ {
/* Handle all opcodes with the 'j' operand type. */ /* Handle all opcodes with the 'j' operand type. */
@ -5259,6 +5335,169 @@ pa_parse_neg_cmpsub_cmpltr (s, isbranch)
} }
/* Parse a 64 bit compare and branch completer returning the number (for
encoding in instrutions) of the given completer.
Nonnegated comparisons are returned as 0-7, negated comparisons are
returned as 8-15. */
static int
pa_parse_cmpb_64_cmpltr (s)
char **s;
{
int cmpltr;
char *name = *s + 1;
char c;
char *save_s = *s;
cmpltr = -1;
if (**s == ',')
{
*s += 1;
while (**s != ',' && **s != ' ' && **s != '\t')
*s += 1;
c = **s;
**s = 0x00;
if (strcmp (name, "*") == 0)
{
cmpltr = 0;
}
else if (strcmp (name, "*=") == 0)
{
cmpltr = 1;
}
else if (strcmp (name, "*<") == 0)
{
cmpltr = 2;
}
else if (strcmp (name, "*<=") == 0)
{
cmpltr = 3;
}
else if (strcmp (name, "*<<") == 0)
{
cmpltr = 4;
}
else if (strcmp (name, "*<<=") == 0)
{
cmpltr = 5;
}
else if (strcasecmp (name, "*sv") == 0)
{
cmpltr = 6;
}
else if (strcasecmp (name, "*od") == 0)
{
cmpltr = 7;
}
else if (strcasecmp (name, "*tr") == 0)
{
cmpltr = 8;
}
else if (strcmp (name, "*<>") == 0)
{
cmpltr = 9;
}
else if (strcmp (name, "*>=") == 0)
{
cmpltr = 10;
}
else if (strcmp (name, "*>") == 0)
{
cmpltr = 11;
}
else if (strcmp (name, "*>>=") == 0)
{
cmpltr = 12;
}
else if (strcmp (name, "*>>") == 0)
{
cmpltr = 13;
}
else if (strcasecmp (name, "*nsv") == 0)
{
cmpltr = 14;
}
else if (strcasecmp (name, "*ev") == 0)
{
cmpltr = 15;
}
else
{
cmpltr = -1;
}
**s = c;
}
return cmpltr;
}
/* Parse a 64 bit compare immediate and branch completer returning the number
(for encoding in instrutions) of the given completer. */
static int
pa_parse_cmpib_64_cmpltr (s)
char **s;
{
int cmpltr;
char *name = *s + 1;
char c;
char *save_s = *s;
cmpltr = -1;
if (**s == ',')
{
*s += 1;
while (**s != ',' && **s != ' ' && **s != '\t')
*s += 1;
c = **s;
**s = 0x00;
if (strcmp (name, "*<<") == 0)
{
cmpltr = 0;
}
else if (strcmp (name, "*=") == 0)
{
cmpltr = 1;
}
else if (strcmp (name, "*<") == 0)
{
cmpltr = 2;
}
else if (strcmp (name, "*<=") == 0)
{
cmpltr = 3;
}
else if (strcmp (name, "*>>=") == 0)
{
cmpltr = 4;
}
else if (strcmp (name, "*<>") == 0)
{
cmpltr = 5;
}
else if (strcasecmp (name, "*>=") == 0)
{
cmpltr = 6;
}
else if (strcasecmp (name, "*>") == 0)
{
cmpltr = 7;
}
else
{
cmpltr = -1;
}
**s = c;
}
return cmpltr;
}
/* Parse a non-negated addition completer returning the number /* Parse a non-negated addition completer returning the number
(for encoding in instrutions) of the given completer. (for encoding in instrutions) of the given completer.
@ -5409,6 +5648,108 @@ pa_parse_neg_add_cmpltr (s, isbranch)
return cmpltr; return cmpltr;
} }
/* Parse a 64 bit wide mode add and branch completer returning the number (for
encoding in instrutions) of the given completer. */
static int
pa_parse_addb_64_cmpltr (s)
char **s;
{
int cmpltr;
char *name = *s + 1;
char c;
char *save_s = *s;
int nullify = 0;
cmpltr = 0;
if (**s == ',')
{
*s += 1;
while (**s != ',' && **s != ' ' && **s != '\t')
*s += 1;
c = **s;
**s = 0x00;
if (strcmp (name, "=") == 0)
{
cmpltr = 1;
}
else if (strcmp (name, "<") == 0)
{
cmpltr = 2;
}
else if (strcmp (name, "<=") == 0)
{
cmpltr = 3;
}
else if (strcasecmp (name, "nuv") == 0)
{
cmpltr = 4;
}
else if (strcasecmp (name, "*=") == 0)
{
cmpltr = 5;
}
else if (strcasecmp (name, "*<") == 0)
{
cmpltr = 6;
}
else if (strcasecmp (name, "*<=") == 0)
{
cmpltr = 7;
}
else if (strcmp (name, "tr") == 0)
{
cmpltr = 8;
}
else if (strcmp (name, "<>") == 0)
{
cmpltr = 9;
}
else if (strcmp (name, ">=") == 0)
{
cmpltr = 10;
}
else if (strcmp (name, ">") == 0)
{
cmpltr = 11;
}
else if (strcasecmp (name, "uv") == 0)
{
cmpltr = 12;
}
else if (strcasecmp (name, "*<>") == 0)
{
cmpltr = 13;
}
else if (strcasecmp (name, "*>=") == 0)
{
cmpltr = 14;
}
else if (strcasecmp (name, "*>") == 0)
{
cmpltr = 15;
}
/* If we have something like addb,n then there is no condition
completer. */
else if (strcasecmp (name, "n") == 0)
{
cmpltr = 0;
nullify = 1;
}
else
{
cmpltr = -1;
}
**s = c;
}
/* Reset pointers if this was really a ,n for a branch instruction. */
if (nullify)
*s = save_s;
return cmpltr;
}
#ifdef OBJ_SOM #ifdef OBJ_SOM
/* Handle an alignment directive. Special so that we can update the /* Handle an alignment directive. Special so that we can update the
alignment of the subspace if necessary. */ alignment of the subspace if necessary. */
@ -5621,7 +5962,7 @@ pa_build_unwind_subspace (call_info)
reloc = R_PARISC_DIR32; reloc = R_PARISC_DIR32;
else else
reloc = R_PARISC_SEGREL32; reloc = R_PARISC_SEGREL32;
/* Get into the right seg/subseg. This may involve creating /* Get into the right seg/subseg. This may involve creating
the seg the first time through. Make sure to have the the seg the first time through. Make sure to have the
old seg/subseg so that we can reset things when we are done. */ old seg/subseg so that we can reset things when we are done. */
@ -7836,7 +8177,7 @@ pa_text (unused)
selectors). selectors).
Reject reductions involving symbols with external scope; such Reject reductions involving symbols with external scope; such
reductions make life a living hell for object file editors. reductions make life a living hell for object file editors.
FIXME. Also reject R_HPPA relocations which are 32bits wide in FIXME. Also reject R_HPPA relocations which are 32bits wide in
the code space. The SOM BFD backend doesn't know how to pull the the code space. The SOM BFD backend doesn't know how to pull the
@ -7856,7 +8197,7 @@ hppa_fix_adjustable (fixp)
return 0; return 0;
/* Reject reductions of symbols in sym1-sym2 expressions when /* Reject reductions of symbols in sym1-sym2 expressions when
the fixup will occur in a CODE subspace. the fixup will occur in a CODE subspace.
XXX FIXME: Long term we probably want to reject all of these; XXX FIXME: Long term we probably want to reject all of these;
for example reducing in the debug section would lose if we ever for example reducing in the debug section would lose if we ever