- if (strcmp (name, "=") == 0)
- cmpltr = 1;
- else if (strcmp (name, "<") == 0)
- cmpltr = 2;
- else if (strcmp (name, "<=") == 0)
- cmpltr = 3;
- else if (strcasecmp (name, "od") == 0)
- cmpltr = 7;
- else if (strcasecmp (name, "tr") == 0)
- {
- cmpltr = 0;
- flag = 1;
- }
- else if (strcmp (name, "<>") == 0)
- {
- cmpltr = 1;
- flag = 1;
- }
- else if (strcmp (name, ">=") == 0)
- {
- cmpltr = 2;
- flag = 1;
- }
- else if (strcmp (name, ">") == 0)
- {
- cmpltr = 3;
- flag = 1;
- }
- else if (strcasecmp (name, "ev") == 0)
- {
- cmpltr = 7;
- flag = 1;
- }
- /* ",*" is a valid condition. */
- else if (*args != 'L')
- as_bad (_("Invalid Logical Instruction Condition."));
- *s = c;
- }
- opcode |= cmpltr << 13;
- INSERT_FIELD_AND_CONTINUE (opcode, flag, 12);
-
- /* Handle a shift/extract/deposit condition. */
- case 'X':
- case 'x':
- case 'y':
- cmpltr = 0;
- if (*s == ',')
- {
- save_s = s++;
-
- /* 64 bit conditions. */
- if (*args == 'X')
- {
- if (*s == '*')
- s++;
- else
- break;
- }
- else if (*s == '*')
- break;
-
- name = s;
- 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 (strcasecmp (name, "od") == 0)
- cmpltr = 3;
- else if (strcasecmp (name, "tr") == 0)
- cmpltr = 4;
- else if (strcmp (name, "<>") == 0)
- cmpltr = 5;
- else if (strcmp (name, ">=") == 0)
- cmpltr = 6;
- else if (strcasecmp (name, "ev") == 0)
- cmpltr = 7;
- /* Handle movb,n. Put things back the way they were.
- This includes moving s back to where it started. */
- else if (strcasecmp (name, "n") == 0 && *args == 'y')
- {
- *s = c;
- s = save_s;
- continue;
- }
- /* ",*" is a valid condition. */
- else if (*args != 'X')
- as_bad (_("Invalid Shift/Extract/Deposit Condition."));
- *s = c;
- }
- INSERT_FIELD_AND_CONTINUE (opcode, cmpltr, 13);
-
- /* Handle a unit instruction condition. */
- case 'U':
- case 'u':
- cmpltr = 0;
- flag = 0;
- if (*s == ',')
- {
- s++;
-
- /* 64 bit conditions. */
- if (*args == 'U')
- {
- if (*s == '*')
- s++;
- else
- break;
- }
- else if (*s == '*')
- break;
-
- if (strncasecmp (s, "sbz", 3) == 0)
- {
- cmpltr = 2;
- s += 3;
- }
- else if (strncasecmp (s, "shz", 3) == 0)
- {
- cmpltr = 3;
- s += 3;
- }
- else if (strncasecmp (s, "sdc", 3) == 0)
- {
- cmpltr = 4;
- s += 3;
- }
- else if (strncasecmp (s, "sbc", 3) == 0)
- {
- cmpltr = 6;
- s += 3;
- }
- else if (strncasecmp (s, "shc", 3) == 0)
- {
- cmpltr = 7;
- s += 3;
- }
- else if (strncasecmp (s, "tr", 2) == 0)
- {
- cmpltr = 0;
- flag = 1;
- s += 2;
- }
- else if (strncasecmp (s, "nbz", 3) == 0)
- {
- cmpltr = 2;
- flag = 1;
- s += 3;
- }
- else if (strncasecmp (s, "nhz", 3) == 0)
- {
- cmpltr = 3;
- flag = 1;
- s += 3;
- }
- else if (strncasecmp (s, "ndc", 3) == 0)
- {
- cmpltr = 4;
- flag = 1;
- s += 3;
- }
- else if (strncasecmp (s, "nbc", 3) == 0)
- {
- cmpltr = 6;
- flag = 1;
- s += 3;
- }
- else if (strncasecmp (s, "nhc", 3) == 0)
- {
- cmpltr = 7;
- flag = 1;
- s += 3;
- }
- else if (strncasecmp (s, "swz", 3) == 0)
- {
- cmpltr = 1;
- flag = 0;
- s += 3;
- }
- else if (strncasecmp (s, "swc", 3) == 0)
- {
- cmpltr = 5;
- flag = 0;
- s += 3;
- }
- else if (strncasecmp (s, "nwz", 3) == 0)
- {
- cmpltr = 1;
- flag = 1;
- s += 3;
- }
- else if (strncasecmp (s, "nwc", 3) == 0)
- {
- cmpltr = 5;
- flag = 1;
- s += 3;
- }
- /* ",*" is a valid condition. */
- else if (*args != 'U')
- as_bad (_("Invalid Unit Instruction Condition."));
- }
- opcode |= cmpltr << 13;
- INSERT_FIELD_AND_CONTINUE (opcode, flag, 12);
-
- default:
- abort ();
- }
- break;
- }
-
- /* Handle a nullification completer for branch instructions. */
- case 'n':
- nullif = pa_parse_nullif (&s);
- INSERT_FIELD_AND_CONTINUE (opcode, nullif, 1);
-
- /* Handle a nullification completer for copr and spop insns. */
- case 'N':
- nullif = pa_parse_nullif (&s);
- INSERT_FIELD_AND_CONTINUE (opcode, nullif, 5);
-
- /* Handle ,%r2 completer for new syntax branches. */
- case 'L':
- if (*s == ',' && strncasecmp (s + 1, "%r2", 3) == 0)
- s += 4;
- else if (*s == ',' && strncasecmp (s + 1, "%rp", 3) == 0)
- s += 4;
- else
- break;
- continue;
-
- /* Handle 3 bit entry into the fp compare array. Valid values
- are 0..6 inclusive. */
- case 'h':
- get_expression (s);
- s = expr_end;
- if (the_insn.exp.X_op == O_constant)
- {
- num = evaluate_absolute (&the_insn);
- CHECK_FIELD (num, 6, 0, 0);
- num++;
- INSERT_FIELD_AND_CONTINUE (opcode, num, 13);
- }
- else
- break;
-
- /* Handle 3 bit entry into the fp compare array. Valid values
- are 0..6 inclusive. */
- case 'm':
- get_expression (s);
- if (the_insn.exp.X_op == O_constant)
- {
- s = expr_end;
- num = evaluate_absolute (&the_insn);
- CHECK_FIELD (num, 6, 0, 0);
- num = (num + 1) ^ 1;
- INSERT_FIELD_AND_CONTINUE (opcode, num, 13);
- }
- else
- break;
-
- /* Handle graphics test completers for ftest */
- case '=':
- {
- num = pa_parse_ftest_gfx_completer (&s);
- INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
- }
-
- /* Handle a 11 bit immediate at 31. */
- case 'i':
- the_insn.field_selector = pa_chk_field_selector (&s);
- get_expression (s);
- s = expr_end;
- if (the_insn.exp.X_op == O_constant)
- {
- num = evaluate_absolute (&the_insn);
- CHECK_FIELD (num, 1023, -1024, 0);
- num = low_sign_unext (num, 11);
- INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
- }
- else
projects / deliverable / binutils-gdb.git / blobdiff