darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* hppa-dis.c: Formatting.

Browse source 
* hppa-dis.c (print_insn_hppa): Implement fcnv instruction modifiers.
This commit is contained in:
Alan Modra 2003-02-25 03:22:06 +00:00
parent 75776faa40
commit ca504dff71
2 changed files with 194 additions and 142 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
opcodes/ChangeLog
View file

@ -1,5 +1,11 @@
2003-02-25 Alan Modra <amodra@bigpond.net.au>
* hppa-dis.c: Formatting.
2003-02-25 Matthew Wilcox <willy@debian.org> 2003-02-25 Matthew Wilcox <willy@debian.org>
* hppa-dis.c (print_insn_hppa): Implement fcnv instruction modifiers.
* hppa-dis.c (print_insn_hppa <2 bit space register>): Do not print * hppa-dis.c (print_insn_hppa <2 bit space register>): Do not print
the space register when the value is zero. the space register when the value is zero.

330
opcodes/hppa-dis.c
View file

@ -1,5 +1,5 @@
/* Disassembler for the PA-RISC. Somewhat derived from sparc-pinsn.c. /* Disassembler for the PA-RISC. Somewhat derived from sparc-pinsn.c.
Copyright 1989, 1990, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001 Copyright 1989, 1990, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001, 2003
Free Software Foundation, Inc. Free Software Foundation, Inc.
Contributed by the Center for Software Science at the Contributed by the Center for Software Science at the
@ -26,7 +26,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* Integer register names, indexed by the numbers which appear in the /* Integer register names, indexed by the numbers which appear in the
opcodes. */ opcodes. */
static const char *const reg_names[] = static const char *const reg_names[] =
{"flags", "r1", "rp", "r3", "r4", "r5", "r6", "r7", "r8", "r9", {"flags", "r1", "rp", "r3", "r4", "r5", "r6", "r7", "r8", "r9",
"r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19", "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19",
"r20", "r21", "r22", "r23", "r24", "r25", "r26", "dp", "ret0", "ret1", "r20", "r21", "r22", "r23", "r24", "r25", "r26", "dp", "ret0", "ret1",
@ -34,10 +34,10 @@ static const char *const reg_names[] =
/* Floating point register names, indexed by the numbers which appear in the /* Floating point register names, indexed by the numbers which appear in the
opcodes. */ opcodes. */
static const char *const fp_reg_names[] = static const char *const fp_reg_names[] =
{"fpsr", "fpe2", "fpe4", "fpe6", {"fpsr", "fpe2", "fpe4", "fpe6",
"fr4", "fr5", "fr6", "fr7", "fr8", "fr4", "fr5", "fr6", "fr7", "fr8",
"fr9", "fr10", "fr11", "fr12", "fr13", "fr14", "fr15", "fr9", "fr10", "fr11", "fr12", "fr13", "fr14", "fr15",
"fr16", "fr17", "fr18", "fr19", "fr20", "fr21", "fr22", "fr23", "fr16", "fr17", "fr18", "fr19", "fr20", "fr21", "fr22", "fr23",
"fr24", "fr25", "fr26", "fr27", "fr28", "fr29", "fr30", "fr31"}; "fr24", "fr25", "fr26", "fr27", "fr28", "fr29", "fr30", "fr31"};
@ -123,6 +123,8 @@ static const char *const short_bytes_compl_names[] = {
"", ",b,m", ",e", ",e,m" "", ",b,m", ",e", ",e,m"
}; };
static const char *const float_format_names[] = {",sgl", ",dbl", "", ",quad"}; static const char *const float_format_names[] = {",sgl", ",dbl", "", ",quad"};
static const char *const fcnv_fixed_names[] = {",w", ",dw", "", ",qw"};
static const char *const fcnv_ufixed_names[] = {",uw", ",udw", "", ",uqw"};
static const char *const float_comp_names[] = static const char *const float_comp_names[] =
{ {
",false?", ",false", ",?", ",!<=>", ",=", ",=t", ",?=", ",!<>", ",false?", ",false", ",?", ",!<=>", ",=", ",=t", ",?=", ",!<>",
@ -136,7 +138,7 @@ static const char *const saturation_names[] = {",us", ",ss", 0, ""};
static const char *const read_write_names[] = {",r", ",w"}; static const char *const read_write_names[] = {",r", ",w"};
static const char *const add_compl_names[] = { 0, "", ",l", ",tsv" }; static const char *const add_compl_names[] = { 0, "", ",l", ",tsv" };
/* For a bunch of different instructions form an index into a /* For a bunch of different instructions form an index into a
completer name table. */ completer name table. */
#define GET_COMPL(insn) (GET_FIELD (insn, 26, 26) | \ #define GET_COMPL(insn) (GET_FIELD (insn, 26, 26) | \
GET_FIELD (insn, 18, 18) << 1) GET_FIELD (insn, 18, 18) << 1)
@ -194,8 +196,8 @@ fput_fp_reg_r (reg, info)
if (reg < 4) if (reg < 4)
(*info->fprintf_func) (info->stream, "fpe%d", reg * 2 + 1); (*info->fprintf_func) (info->stream, "fpe%d", reg * 2 + 1);
else else
(*info->fprintf_func) (info->stream, "%sR", reg ? fp_reg_names[reg] (*info->fprintf_func) (info->stream, "%sR",
: "fr0"); reg ? fp_reg_names[reg] : "fr0");
} }
static void static void
@ -336,8 +338,8 @@ extract_12 (word)
unsigned word; unsigned word;
{ {
return sign_extend (GET_FIELD (word, 19, 28) | return sign_extend (GET_FIELD (word, 19, 28) |
GET_FIELD (word, 29, 29) << 10 | GET_FIELD (word, 29, 29) << 10 |
(word & 0x1) << 11, 12) << 2; (word & 0x1) << 11, 12) << 2;
} }
/* Extract a 17 bit constant from branch instructions, returning the /* Extract a 17 bit constant from branch instructions, returning the
@ -348,9 +350,9 @@ extract_17 (word)
unsigned word; unsigned word;
{ {
return sign_extend (GET_FIELD (word, 19, 28) | return sign_extend (GET_FIELD (word, 19, 28) |
GET_FIELD (word, 29, 29) << 10 | GET_FIELD (word, 29, 29) << 10 |
GET_FIELD (word, 11, 15) << 11 | GET_FIELD (word, 11, 15) << 11 |
(word & 0x1) << 16, 17) << 2; (word & 0x1) << 16, 17) << 2;
} }
static int static int
@ -358,10 +360,10 @@ extract_22 (word)
unsigned word; unsigned word;
{ {
return sign_extend (GET_FIELD (word, 19, 28) | return sign_extend (GET_FIELD (word, 19, 28) |
GET_FIELD (word, 29, 29) << 10 | GET_FIELD (word, 29, 29) << 10 |
GET_FIELD (word, 11, 15) << 11 | GET_FIELD (word, 11, 15) << 11 |
GET_FIELD (word, 6, 10) << 16 | GET_FIELD (word, 6, 10) << 16 |
(word & 0x1) << 21, 22) << 2; (word & 0x1) << 21, 22) << 2;
} }
/* Print one instruction. */ /* Print one instruction. */
@ -397,7 +399,7 @@ print_insn_hppa (memaddr, info)
#endif #endif
(*info->fprintf_func) (info->stream, "%s", opcode->name); (*info->fprintf_func) (info->stream, "%s", opcode->name);
if (!strchr ("cfCY?-+nHNZFIuv", opcode->args[0])) if (!strchr ("cfCY?-+nHNZFIuv{", opcode->args[0]))
(*info->fprintf_func) (info->stream, " "); (*info->fprintf_func) (info->stream, " ");
for (s = opcode->args; *s != '\0'; ++s) for (s = opcode->args; *s != '\0'; ++s)
{ {
@ -417,7 +419,7 @@ print_insn_hppa (memaddr, info)
fput_reg (GET_FIELD (insn, 27, 31), info); fput_reg (GET_FIELD (insn, 27, 31), info);
break; break;
/* Handle floating point registers. */ /* Handle floating point registers. */
case 'f': case 'f':
switch (*++s) switch (*++s)
{ {
@ -437,21 +439,19 @@ print_insn_hppa (memaddr, info)
fput_fp_reg (GET_FIELD (insn, 6, 10), info); fput_fp_reg (GET_FIELD (insn, 6, 10), info);
break; break;
/* 'fA' will not generate a space before the regsiter /* 'fA' will not generate a space before the regsiter
name. Normally that is fine. Except that it name. Normally that is fine. Except that it
causes problems with xmpyu which has no FP format causes problems with xmpyu which has no FP format
completer. */ completer. */
case 'X': case 'X':
fputs_filtered (" ", info); fputs_filtered (" ", info);
/* FALLTHRU */
/* FALLTHRU */
case 'A': case 'A':
if (GET_FIELD (insn, 24, 24)) if (GET_FIELD (insn, 24, 24))
fput_fp_reg_r (GET_FIELD (insn, 6, 10), info); fput_fp_reg_r (GET_FIELD (insn, 6, 10), info);
else else
fput_fp_reg (GET_FIELD (insn, 6, 10), info); fput_fp_reg (GET_FIELD (insn, 6, 10), info);
break; break;
case 'b': case 'b':
if (GET_FIELD (insn, 25, 25)) if (GET_FIELD (insn, 25, 25))
@ -516,14 +516,13 @@ print_insn_hppa (memaddr, info)
break; break;
} }
/* 'fe' will not generate a space before the register /* 'fe' will not generate a space before the register
name. Normally that is fine. Except that it name. Normally that is fine. Except that it
causes problems with fstw fe,y(b) which has no FP causes problems with fstw fe,y(b) which has no FP
format completer. */ format completer. */
case 'E': case 'E':
fputs_filtered (" ", info); fputs_filtered (" ", info);
/* FALLTHRU */
/* FALLTHRU */
case 'e': case 'e':
if (GET_FIELD (insn, 30, 30)) if (GET_FIELD (insn, 30, 30))
@ -550,36 +549,43 @@ print_insn_hppa (memaddr, info)
break; break;
case 'S': case 'S':
(*info->fprintf_func) (info->stream, "sr%d", extract_3 (insn)); (*info->fprintf_func) (info->stream, "sr%d",
extract_3 (insn));
break; break;
/* Handle completers. */ /* Handle completers. */
case 'c': case 'c':
switch (*++s) switch (*++s)
{ {
case 'x': case 'x':
(*info->fprintf_func) (info->stream, "%s", (*info->fprintf_func)
index_compl_names[GET_COMPL (insn)]); (info->stream, "%s",
index_compl_names[GET_COMPL (insn)]);
break; break;
case 'X': case 'X':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
index_compl_names[GET_COMPL (insn)]); (info->stream, "%s ",
index_compl_names[GET_COMPL (insn)]);
break; break;
case 'm': case 'm':
(*info->fprintf_func) (info->stream, "%s", (*info->fprintf_func)
short_ldst_compl_names[GET_COMPL (insn)]); (info->stream, "%s",
short_ldst_compl_names[GET_COMPL (insn)]);
break; break;
case 'M': case 'M':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
short_ldst_compl_names[GET_COMPL (insn)]); (info->stream, "%s ",
short_ldst_compl_names[GET_COMPL (insn)]);
break; break;
case 'A': case 'A':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
short_bytes_compl_names[GET_COMPL (insn)]); (info->stream, "%s ",
short_bytes_compl_names[GET_COMPL (insn)]);
break; break;
case 's': case 's':
(*info->fprintf_func) (info->stream, "%s", (*info->fprintf_func)
short_bytes_compl_names[GET_COMPL (insn)]); (info->stream, "%s",
short_bytes_compl_names[GET_COMPL (insn)]);
break; break;
case 'c': case 'c':
case 'C': case 'C':
@ -622,8 +628,9 @@ print_insn_hppa (memaddr, info)
(*info->fprintf_func) (info->stream, ",l"); (*info->fprintf_func) (info->stream, ",l");
break; break;
case 'w': case 'w':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
read_write_names[GET_FIELD (insn, 25, 25)]); (info->stream, "%s ",
read_write_names[GET_FIELD (insn, 25, 25)]);
break; break;
case 'W': case 'W':
(*info->fprintf_func) (info->stream, ",w"); (*info->fprintf_func) (info->stream, ",w");
@ -648,18 +655,18 @@ print_insn_hppa (memaddr, info)
break; break;
case 'a': case 'a':
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, "%s", add_compl_names[GET_FIELD (info->stream, "%s",
(insn, 20, 21)]); add_compl_names[GET_FIELD (insn, 20, 21)]);
break; break;
case 'Y': case 'Y':
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, ",dc%s", add_compl_names[GET_FIELD (info->stream, ",dc%s",
(insn, 20, 21)]); add_compl_names[GET_FIELD (insn, 20, 21)]);
break; break;
case 'y': case 'y':
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, ",c%s", add_compl_names[GET_FIELD (info->stream, ",c%s",
(insn, 20, 21)]); add_compl_names[GET_FIELD (insn, 20, 21)]);
break; break;
case 'v': case 'v':
if (GET_FIELD (insn, 20, 20)) if (GET_FIELD (insn, 20, 20))
@ -688,28 +695,28 @@ print_insn_hppa (memaddr, info)
/* EXTRD/W has a following condition. */ /* EXTRD/W has a following condition. */
if (*(s + 1) == '?') if (*(s + 1) == '?')
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, "%s", signed_unsigned_names[GET_FIELD (info->stream, "%s",
(insn, 21, 21)]); signed_unsigned_names[GET_FIELD (insn, 21, 21)]);
else else
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, "%s ", signed_unsigned_names[GET_FIELD (info->stream, "%s ",
(insn, 21, 21)]); signed_unsigned_names[GET_FIELD (insn, 21, 21)]);
break; break;
case 'h': case 'h':
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, "%s", mix_half_names[GET_FIELD (info->stream, "%s",
(insn, 17, 17)]); mix_half_names[GET_FIELD (insn, 17, 17)]);
break; break;
case 'H': case 'H':
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, "%s ", saturation_names[GET_FIELD (info->stream, "%s ",
(insn, 24, 25)]); saturation_names[GET_FIELD (insn, 24, 25)]);
break; break;
case '*': case '*':
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, ",%d%d%d%d ", (info->stream, ",%d%d%d%d ",
GET_FIELD (insn, 17, 18), GET_FIELD (insn, 20, 21), GET_FIELD (insn, 17, 18), GET_FIELD (insn, 20, 21),
GET_FIELD (insn, 22, 23), GET_FIELD (insn, 24, 25)); GET_FIELD (insn, 22, 23), GET_FIELD (insn, 24, 25));
break; break;
case 'q': case 'q':
@ -770,85 +777,101 @@ print_insn_hppa (memaddr, info)
} }
break; break;
/* Handle conditions. */ /* Handle conditions. */
case '?': case '?':
{ {
s++; s++;
switch (*s) switch (*s)
{ {
case 'f': case 'f':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
float_comp_names[GET_FIELD (info->stream, "%s ",
(insn, 27, 31)]); float_comp_names[GET_FIELD (insn, 27, 31)]);
break; break;
/* these four conditions are for the set of instructions /* these four conditions are for the set of instructions
which distinguish true/false conditions by opcode which distinguish true/false conditions by opcode
rather than by the 'f' bit (sigh): comb, comib, rather than by the 'f' bit (sigh): comb, comib,
addb, addib */ addb, addib */
case 't': case 't':
fputs_filtered (compare_cond_names[GET_FIELD (insn, 16, 18)], fputs_filtered
info); (compare_cond_names[GET_FIELD (insn, 16, 18)], info);
break; break;
case 'n': case 'n':
fputs_filtered (compare_cond_names[GET_FIELD (insn, 16, 18) fputs_filtered
+ GET_FIELD (insn, 4, 4) * 8], info); (compare_cond_names[GET_FIELD (insn, 16, 18)
+ GET_FIELD (insn, 4, 4) * 8],
info);
break; break;
case 'N': case 'N':
fputs_filtered (compare_cond_64_names[GET_FIELD (insn, 16, 18) fputs_filtered
+ GET_FIELD (insn, 2, 2) * 8], info); (compare_cond_64_names[GET_FIELD (insn, 16, 18)
+ GET_FIELD (insn, 2, 2) * 8],
info);
break; break;
case 'Q': case 'Q':
fputs_filtered (cmpib_cond_64_names[GET_FIELD (insn, 16, 18)], fputs_filtered
info); (cmpib_cond_64_names[GET_FIELD (insn, 16, 18)],
info);
break; break;
case '@': case '@':
fputs_filtered (add_cond_names[GET_FIELD (insn, 16, 18) fputs_filtered
+ GET_FIELD (insn, 4, 4) * 8], info); (add_cond_names[GET_FIELD (insn, 16, 18)
+ GET_FIELD (insn, 4, 4) * 8],
info);
break; break;
case 's': case 's':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
compare_cond_names[GET_COND (insn)]); (info->stream, "%s ",
compare_cond_names[GET_COND (insn)]);
break; break;
case 'S': case 'S':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
compare_cond_64_names[GET_COND (insn)]); (info->stream, "%s ",
compare_cond_64_names[GET_COND (insn)]);
break; break;
case 'a': case 'a':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
add_cond_names[GET_COND (insn)]); (info->stream, "%s ",
add_cond_names[GET_COND (insn)]);
break; break;
case 'A': case 'A':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
add_cond_64_names[GET_COND (insn)]); (info->stream, "%s ",
add_cond_64_names[GET_COND (insn)]);
break; break;
case 'd': case 'd':
(*info->fprintf_func) (info->stream, "%s", (*info->fprintf_func)
add_cond_names[GET_FIELD (insn, 16, 18)]); (info->stream, "%s",
add_cond_names[GET_FIELD (insn, 16, 18)]);
break; break;
case 'W': case 'W':
(*info->fprintf_func) (*info->fprintf_func)
(info->stream, "%s", (info->stream, "%s",
wide_add_cond_names[GET_FIELD (insn, 16, 18) + wide_add_cond_names[GET_FIELD (insn, 16, 18) +
GET_FIELD (insn, 4, 4) * 8]); GET_FIELD (insn, 4, 4) * 8]);
break; break;
case 'l': case 'l':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
logical_cond_names[GET_COND (insn)]); (info->stream, "%s ",
logical_cond_names[GET_COND (insn)]);
break; break;
case 'L': case 'L':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
logical_cond_64_names[GET_COND (insn)]); (info->stream, "%s ",
logical_cond_64_names[GET_COND (insn)]);
break; break;
case 'u': case 'u':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
unit_cond_names[GET_COND (insn)]); (info->stream, "%s ",
unit_cond_names[GET_COND (insn)]);
break; break;
case 'U': case 'U':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
unit_cond_64_names[GET_COND (insn)]); (info->stream, "%s ",
unit_cond_64_names[GET_COND (insn)]);
break; break;
case 'y': case 'y':
case 'x': case 'x':
@ -863,8 +886,9 @@ print_insn_hppa (memaddr, info)
(*info->fprintf_func) (info->stream, " "); (*info->fprintf_func) (info->stream, " ");
break; break;
case 'X': case 'X':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
shift_cond_64_names[GET_FIELD (insn, 16, 18)]); (info->stream, "%s ",
shift_cond_64_names[GET_FIELD (insn, 16, 18)]);
break; break;
case 'B': case 'B':
(*info->fprintf_func) (*info->fprintf_func)
@ -925,14 +949,13 @@ print_insn_hppa (memaddr, info)
(*info->fprintf_func) (info->stream, " "); (*info->fprintf_func) (info->stream, " ");
break; break;
case 'w': case 'w':
(*info->print_address_func) (memaddr + 8 + extract_12 (insn), (*info->print_address_func)
info); (memaddr + 8 + extract_12 (insn), info);
break; break;
case 'W': case 'W':
/* 17 bit PC-relative branch. */ /* 17 bit PC-relative branch. */
(*info->print_address_func) ((memaddr + 8 (*info->print_address_func)
+ extract_17 (insn)), ((memaddr + 8 + extract_17 (insn)), info);
info);
break; break;
case 'z': case 'z':
/* 17 bit displacement. This is an offset from a register /* 17 bit displacement. This is an offset from a register
@ -950,25 +973,25 @@ print_insn_hppa (memaddr, info)
/* be,l %sr0,%r31 implicit output. */ /* be,l %sr0,%r31 implicit output. */
(*info->fprintf_func) (info->stream, "%%sr0,%%r31"); (*info->fprintf_func) (info->stream, "%%sr0,%%r31");
break; break;
case '@': case '@':
(*info->fprintf_func) (info->stream, "0"); (*info->fprintf_func) (info->stream, "0");
break; break;
case '.': case '.':
(*info->fprintf_func) (info->stream, "%d", (*info->fprintf_func) (info->stream, "%d",
GET_FIELD (insn, 24, 25)); GET_FIELD (insn, 24, 25));
break; break;
case '*': case '*':
(*info->fprintf_func) (info->stream, "%d", (*info->fprintf_func) (info->stream, "%d",
GET_FIELD (insn, 22, 25)); GET_FIELD (insn, 22, 25));
break; break;
case '!': case '!':
(*info->fprintf_func) (info->stream, "%%sar"); (*info->fprintf_func) (info->stream, "%%sar");
break; break;
case 'p': case 'p':
(*info->fprintf_func) (info->stream, "%d", (*info->fprintf_func) (info->stream, "%d",
31 - GET_FIELD (insn, 22, 26)); 31 - GET_FIELD (insn, 22, 26));
break; break;
case '~': case '~':
{ {
@ -980,7 +1003,7 @@ print_insn_hppa (memaddr, info)
} }
case 'P': case 'P':
(*info->fprintf_func) (info->stream, "%d", (*info->fprintf_func) (info->stream, "%d",
GET_FIELD (insn, 22, 26)); GET_FIELD (insn, 22, 26));
break; break;
case 'q': case 'q':
{ {
@ -992,7 +1015,7 @@ print_insn_hppa (memaddr, info)
} }
case 'T': case 'T':
(*info->fprintf_func) (info->stream, "%d", (*info->fprintf_func) (info->stream, "%d",
32 - GET_FIELD (insn, 27, 31)); 32 - GET_FIELD (insn, 27, 31));
break; break;
case '%': case '%':
{ {
@ -1020,7 +1043,8 @@ print_insn_hppa (memaddr, info)
fput_const (GET_FIELD (insn, 6, 31), info); fput_const (GET_FIELD (insn, 6, 31), info);
break; break;
case 'v': case 'v':
(*info->fprintf_func) (info->stream, ",%d", GET_FIELD (insn, 23, 25)); (*info->fprintf_func) (info->stream, ",%d",
GET_FIELD (insn, 23, 25));
break; break;
case 'O': case 'O':
fput_const ((GET_FIELD (insn, 6,20) << 5 | fput_const ((GET_FIELD (insn, 6,20) << 5 |
@ -1042,47 +1066,48 @@ print_insn_hppa (memaddr, info)
GET_FIELD (insn, 27, 31)), info); GET_FIELD (insn, 27, 31)), info);
break; break;
case 'u': case 'u':
(*info->fprintf_func) (info->stream, ",%d", GET_FIELD (insn, 23, 25)); (*info->fprintf_func) (info->stream, ",%d",
GET_FIELD (insn, 23, 25));
break; break;
case 'F': case 'F':
/* if no destination completer and not before a completer /* if no destination completer and not before a completer
for fcmp, need a space here */ for fcmp, need a space here */
if (s[1] == 'G' || s[1] == '?') if (s[1] == 'G' || s[1] == '?')
fputs_filtered (float_format_names[GET_FIELD (insn, 19, 20)], fputs_filtered
info); (float_format_names[GET_FIELD (insn, 19, 20)], info);
else else
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
float_format_names[GET_FIELD (info->stream, "%s ",
(insn, 19, 20)]); float_format_names[GET_FIELD (insn, 19, 20)]);
break; break;
case 'G': case 'G':
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
float_format_names[GET_FIELD (insn, (info->stream, "%s ",
17, 18)]); float_format_names[GET_FIELD (insn, 17, 18)]);
break; break;
case 'H': case 'H':
if (GET_FIELD (insn, 26, 26) == 1) if (GET_FIELD (insn, 26, 26) == 1)
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func) (info->stream, "%s ",
float_format_names[0]); float_format_names[0]);
else else
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func) (info->stream, "%s ",
float_format_names[1]); float_format_names[1]);
break; break;
case 'I': case 'I':
/* if no destination completer and not before a completer /* if no destination completer and not before a completer
for fcmp, need a space here */ for fcmp, need a space here */
if (s[1] == '?') if (s[1] == '?')
fputs_filtered (float_format_names[GET_FIELD (insn, 20, 20)], fputs_filtered
info); (float_format_names[GET_FIELD (insn, 20, 20)], info);
else else
(*info->fprintf_func) (info->stream, "%s ", (*info->fprintf_func)
float_format_names[GET_FIELD (info->stream, "%s ",
(insn, 20, 20)]); float_format_names[GET_FIELD (insn, 20, 20)]);
break; break;
case 'J': case 'J':
fput_const (extract_14 (insn), info); fput_const (extract_14 (insn), info);
break; break;
case '#': case '#':
{ {
@ -1099,7 +1124,7 @@ print_insn_hppa (memaddr, info)
fput_const (disp, info); fput_const (disp, info);
break; break;
} }
case 'K': case 'K':
case 'd': case 'd':
{ {
int sign = GET_FIELD (insn, 31, 31); int sign = GET_FIELD (insn, 31, 31);
@ -1135,11 +1160,33 @@ print_insn_hppa (memaddr, info)
break; break;
} }
/* ?!? FIXME */
case '_': case '_':
break; /* Dealt with by '{' */
case '{': case '{':
fputs_filtered ("Disassembler botch.\n", info); {
break; int sub = GET_FIELD (insn, 14, 16);
int df = GET_FIELD (insn, 17, 18);
int sf = GET_FIELD (insn, 19, 20);
const char * const * source = float_format_names;
const char * const * dest = float_format_names;
char *t = "";
if (sub == 4)
{
fputs_filtered (",UND ", info);
break;
}
if ((sub & 3) == 3)
t = ",t";
if ((sub & 3) == 1)
source = sub & 4 ? fcnv_ufixed_names : fcnv_fixed_names;
if (sub & 2)
dest = sub & 4 ? fcnv_ufixed_names : fcnv_fixed_names;
(*info->fprintf_func) (info->stream, "%s%s%s ",
t, source[sf], dest[df]);
break;
}
case 'm': case 'm':
{ {
@ -1185,9 +1232,8 @@ print_insn_hppa (memaddr, info)
} }
case 'X': case 'X':
(*info->print_address_func) ((memaddr + 8 (*info->print_address_func)
+ extract_22 (insn)), (memaddr + 8 + extract_22 (insn), info);
info);
break; break;
case 'L': case 'L':
fputs_filtered (",%r2", info); fputs_filtered (",%r2", info);