diff options
author | Andreas Krebbel <Andreas.Krebbel@de.ibm.com> | 2008-04-10 13:36:43 +0000 |
---|---|---|
committer | Andreas Krebbel <Andreas.Krebbel@de.ibm.com> | 2008-04-10 13:36:43 +0000 |
commit | 112b7c5071b75bffeae19c11ca923e700cf36e16 (patch) | |
tree | 9757e4b120109bbf20d97622f74eea9f63bb0a1a /opcodes/s390-dis.c | |
parent | 7ff42648478c77e5b10e4e082d0af0899b404d70 (diff) | |
download | fsf-binutils-gdb-112b7c5071b75bffeae19c11ca923e700cf36e16.zip fsf-binutils-gdb-112b7c5071b75bffeae19c11ca923e700cf36e16.tar.gz fsf-binutils-gdb-112b7c5071b75bffeae19c11ca923e700cf36e16.tar.bz2 |
2008-04-10 Andreas Krebbel <krebbel1@de.ibm.com>
* s390-dis.c (init_disasm): Evaluate disassembler_options.
(print_s390_disassembler_options): New function.
* disassemble.c (disassembler_usage): Invoke
print_s390_disassembler_options.
2008-04-10 Andreas Krebbel <krebbel1@de.ibm.com>
* dis-asm.h (print_s390_disassembler_options):
Prototype added.
Diffstat (limited to 'opcodes/s390-dis.c')
-rw-r--r-- | opcodes/s390-dis.c | 48 |
1 files changed, 39 insertions, 9 deletions
diff --git a/opcodes/s390-dis.c b/opcodes/s390-dis.c index df1f450..bf0ae0f 100644 --- a/opcodes/s390-dis.c +++ b/opcodes/s390-dis.c @@ -23,6 +23,7 @@ #include "ansidecl.h" #include "sysdep.h" #include "dis-asm.h" +#include "opintl.h" #include "opcode/s390.h" static int init_flag = 0; @@ -36,6 +37,7 @@ init_disasm (struct disassemble_info *info) { const struct s390_opcode *opcode; const struct s390_opcode *opcode_end; + const char *p; memset (opc_index, 0, sizeof (opc_index)); opcode_end = s390_opcodes + s390_num_opcodes; @@ -46,17 +48,34 @@ init_disasm (struct disassemble_info *info) (opcode[1].opcode[0] == opcode->opcode[0])) opcode++; } - switch (info->mach) + + for (p = info->disassembler_options; p != NULL; ) { - case bfd_mach_s390_31: - current_arch_mask = 1 << S390_OPCODE_ESA; - break; - case bfd_mach_s390_64: - current_arch_mask = 1 << S390_OPCODE_ZARCH; - break; - default: - abort (); + if (CONST_STRNEQ (p, "esa")) + current_arch_mask = 1 << S390_OPCODE_ESA; + else if (CONST_STRNEQ (p, "zarch")) + current_arch_mask = 1 << S390_OPCODE_ZARCH; + else + fprintf (stderr, "Unknown S/390 disassembler option: %s\n", p); + + p = strchr (p, ','); + if (p != NULL) + p++; } + + if (!current_arch_mask) + switch (info->mach) + { + case bfd_mach_s390_31: + current_arch_mask = 1 << S390_OPCODE_ESA; + break; + case bfd_mach_s390_64: + current_arch_mask = 1 << S390_OPCODE_ZARCH; + break; + default: + abort (); + } + init_flag = 1; } @@ -250,3 +269,14 @@ print_insn_s390 (bfd_vma memaddr, struct disassemble_info *info) return 1; } } + +void +print_s390_disassembler_options (FILE *stream) +{ + fprintf (stream, _("\n\ +The following S/390 specific disassembler options are supported for use\n\ +with the -M switch (multiple options should be separated by commas):\n")); + + fprintf (stream, _(" esa Disassemble in ESA architecture mode\n")); + fprintf (stream, _(" zarch Disassemble in z/Architecture mode\n")); +} |