GDB 7.6.50

opcodes/s390-dis.c

 /* s390-dis.c -- Disassemble S390 instructions
    Copyright 2000, 2001, 2002, 2003, 2005, 2007, 2008, 2012
    Free Software Foundation, Inc.
    Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
 
    This file is part of the GNU opcodes library.
 
    This library is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 3, or (at your option)
@@ skipping 47 matching lines @@
         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 ();
-      }
+    current_arch_mask = 1 << S390_OPCODE_ZARCH;
 
   init_flag = 1;
 }
 
 /* Extracts an operand value from an instruction.  */
 /* We do not perform the shift operation for larl-type address
    operands here since that would lead to an overflow of the 32 bit
    integer value.  Instead the shift operation is done when printing
    the operand in print_insn_s390.  */
 
@@ skipping 209 matching lines @@
 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"));
 }