- /* 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' || *name)
- 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' || (*s != ' ' && *s != '\t'))
- 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
- {
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 11;
- 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 mb;
-
- /* XXX the completer stored away tidbits 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. */
- mb = opcode & 1;
- opcode -= mb;
- num = evaluate_absolute (&the_insn);
- if (mb != (num < 0))
- break;
- CHECK_FIELD (num, 8191, -8192, 0);
- num = low_sign_unext (num, 14);
- INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
- }
- 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 mb;
-
- mb = opcode & 1;
- opcode -= mb;
- num = evaluate_absolute (&the_insn);
- if (mb == (num < 0))
- break;
- if (num % 4)
- break;
- CHECK_FIELD (num, 8191, -8192, 0);
- num = low_sign_unext (num, 14);
- INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
- }
- break;
-
- /* Handle a 16 bit immediate at 31. */
- case '<':
- the_insn.field_selector = pa_chk_field_selector (&s);
- get_expression (s);
- s = expr_end;
- if (the_insn.exp.X_op == O_constant)
- {
- int mb;
-
- mb = opcode & 1;
- opcode -= mb;
- num = evaluate_absolute (&the_insn);
- if (mb != (num < 0))
- break;
- CHECK_FIELD (num, 32767, -32768, 0);
- num = re_assemble_16 (num);
- INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
- }
- break;
-
- /* Handle a 16 bit immediate at 31. */
- case '>':
- the_insn.field_selector = pa_chk_field_selector (&s);
- get_expression (s);
- s = expr_end;
- if (the_insn.exp.X_op == O_constant)
- {
- int mb;
-
- mb = opcode & 1;
- opcode -= mb;
- num = evaluate_absolute (&the_insn);
- if (mb == (num < 0))
- break;
- if (num % 4)
- break;
- CHECK_FIELD (num, 32767, -32768, 0);
- num = re_assemble_16 (num);
- INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
- }
- break;
-
- /* Handle 14 bit immediate, shifted left three times. */
- case '#':
- 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);
- if (num & 0x7)
- break;
- CHECK_FIELD (num, 8191, -8192, 0);
- if (num < 0)
- opcode |= 1;
- num &= 0x1fff;
- num >>= 3;
- INSERT_FIELD_AND_CONTINUE (opcode, num, 4);
- }
- else
- {
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 14;
- continue;
- }
- break;
-
- /* Handle 14 bit immediate, shifted left twice. */
- case 'd':
- 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);
- if (num & 0x3)
- break;
- CHECK_FIELD (num, 8191, -8192, 0);
- if (num < 0)
- opcode |= 1;
- num &= 0x1fff;
- num >>= 2;
- INSERT_FIELD_AND_CONTINUE (opcode, num, 3);
- }
- else
- {
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 14;
- 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)
- {
- num = evaluate_absolute (&the_insn);
- CHECK_FIELD (num, 8191, -8192, 0);
- num = low_sign_unext (num, 14);
- INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
- }
- else
- {
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 14;
- continue;
- }
-
- /* Handle a 21 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)
- {
- num = evaluate_absolute (&the_insn);
- CHECK_FIELD (num >> 11, 1048575, -1048576, 0);
- opcode |= re_assemble_21 (num);
- continue;
- }
- else
- {
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 21;
- continue;
- }
-
- /* Handle a 16 bit immediate at 31 (PA 2.0 wide mode only). */
- case 'l':
- 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, 32767, -32768, 0);
- opcode |= re_assemble_16 (num);
- continue;
- }
- else
- {
- /* ??? Is this valid for wide mode? */
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 14;
- continue;
- }
-
- /* Handle a word-aligned 16-bit imm. at 31 (PA2.0 wide). */
- case 'y':
- 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, 32767, -32768, 0);
- CHECK_ALIGN (num, 4, 0);
- opcode |= re_assemble_16 (num);
- continue;
- }
- else
- {
- /* ??? Is this valid for wide mode? */
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 14;
- continue;
- }
-
- /* Handle a dword-aligned 16-bit imm. at 31 (PA2.0 wide). */
- case '&':
- 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, 32767, -32768, 0);
- CHECK_ALIGN (num, 8, 0);
- opcode |= re_assemble_16 (num);
- continue;
- }
- else
- {
- /* ??? Is this valid for wide mode? */
- if (is_DP_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_GOTOFF;
- else if (is_PC_relative (the_insn.exp))
- the_insn.reloc = R_HPPA_PCREL_CALL;
- else
- the_insn.reloc = R_HPPA;
- the_insn.format = 14;
- continue;
- }
-
- /* Handle a 12 bit branch displacement. */
- case 'w':
- the_insn.field_selector = pa_chk_field_selector (&s);
- get_expression (s);
- s = expr_end;
- the_insn.pcrel = 1;
- if (!the_insn.exp.X_add_symbol
- || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
- FAKE_LABEL_NAME))
- {
- num = evaluate_absolute (&the_insn);
- if (num % 4)
- {
- as_bad (_("Branch to unaligned address"));
- break;
- }
- if (the_insn.exp.X_add_symbol)
- num -= 8;
- CHECK_FIELD (num, 8191, -8192, 0);
- opcode |= re_assemble_12 (num >> 2);
- continue;
- }
- else
- {
- the_insn.reloc = R_HPPA_PCREL_CALL;
- the_insn.format = 12;
- the_insn.arg_reloc = last_call_desc.arg_reloc;
- memset (&last_call_desc, 0, sizeof (struct call_desc));
- s = expr_end;
- continue;
- }