opcodes/arm-dis.c

   1 /* Instruction printing code for the ARM
   2    Copyright (C) 1994, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
   3    Contributed by Richard Earnshaw (rwe@pegasus.esprit.ec.org)
   4    Modification by James G. Smith (jsmith@cygnus.co.uk)
   5
   6 This file is part of libopcodes.
   7
   8 This program is free software; you can redistribute it and/or modify it under
   9 the terms of the GNU General Public License as published by the Free
  10 Software Foundation; either version 2 of the License, or (at your option)
  11 any later version.
  12
  13 This program is distributed in the hope that it will be useful, but WITHOUT
  14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  16 more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with this program; if not, write to the Free Software
  20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  21
  22 #include "sysdep.h"
  23 #include "dis-asm.h"
  24 #define DEFINE_TABLE
  25 #include "arm-opc.h"
  26 #include "coff/internal.h"
  27 #include "libcoff.h"
  28 #include "opintl.h"
  29
  30 /* FIXME: This shouldn't be done here */
  31 #include "elf-bfd.h"
  32 #include "elf/internal.h"
  33 #include "elf/arm.h"
  34
  35 #ifndef streq
  36 #define streq(a,b)      (strcmp ((a), (b)) == 0)
  37 #endif
  38
  39 #ifndef strneq
  40 #define strneq(a,b,n)   (strncmp ((a), (b), (n)) == 0)
  41 #endif
  42
  43 #ifndef NUM_ELEM
  44 #define NUM_ELEM(a)     (sizeof (a) / sizeof (a)[0])
  45 #endif
  46
  47 static char * arm_conditional[] =
  48 {"eq", "ne", "cs", "cc", "mi", "pl", "vs", "vc",
  49  "hi", "ls", "ge", "lt", "gt", "le", "", "nv"};
  50
  51 typedef struct
  52 {
  53   const char * name;
  54   const char * description;
  55   const char * reg_names[16];
  56 }
  57 arm_regname;
  58
  59 static arm_regname regnames[] =
  60 {
  61   { "raw" , "Select raw register names",
  62     { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15"}},
  63   { "std",  "Select register names used in ARM's ISA documentation",
  64     { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "sp",  "lr",  "pc" }},
  65   { "apcs", "Select register names used in the APCS",
  66     { "a1", "a2", "a3", "a4", "v1", "v2", "v3", "v4", "v5", "v6", "sl",  "fp",  "ip",  "sp",  "lr",  "pc" }},
  67   { "atpcs", "Select register names used in the ATPCS",
  68     { "a1", "a2", "a3", "a4", "v1", "v2", "v3", "v4", "v5", "v6", "v7",  "v8",  "IP",  "SP",  "LR",  "PC" }},
  69   { "special-atpcs", "Select special register names used in the ATPCS",
  70     { "a1", "a2", "a3", "a4", "v1", "v2", "v3", "WR", "v5", "SB", "SL",  "FP",  "IP",  "SP",  "LR",  "PC" }}
  71 };
  72
  73 /* Default to standard register name set.  */
  74 static unsigned int regname_selected = 1;
  75
  76 #define NUM_ARM_REGNAMES  NUM_ELEM (regnames)
  77 #define arm_regnames      regnames[regname_selected].reg_names
  78
  79 static boolean force_thumb = false;
  80
  81 static char * arm_fp_const[] =
  82 {"0.0", "1.0", "2.0", "3.0", "4.0", "5.0", "0.5", "10.0"};
  83
  84 static char * arm_shift[] =
  85 {"lsl", "lsr", "asr", "ror"};
  86 \f
  87 /* Forward declarations.  */
  88 static void arm_decode_shift PARAMS ((long, fprintf_ftype, void *));
  89 static int  print_insn_arm   PARAMS ((bfd_vma, struct disassemble_info *, long));
  90 static int  print_insn_thumb PARAMS ((bfd_vma, struct disassemble_info *, long));
  91 static void parse_disassembler_options PARAMS ((char *));
  92 static int  print_insn       PARAMS ((bfd_vma, struct disassemble_info *, boolean));
  93 int get_arm_regname_num_options (void);
  94 int set_arm_regname_option (int option);
  95 int get_arm_regnames (int option, const char **setname,
  96                       const char **setdescription,
  97                       const char ***register_names);
  98 \f
  99 /* Functions. */
 100 int
 101 get_arm_regname_num_options (void)
 102 {
 103   return NUM_ARM_REGNAMES;
 104 }
 105
 106 int
 107 set_arm_regname_option (int option)
 108 {
 109   int old = regname_selected;
 110   regname_selected = option;
 111   return old;
 112 }
 113
 114 int
 115 get_arm_regnames (int option, const char **setname,
 116                   const char **setdescription,
 117                   const char ***register_names)
 118 {
 119   *setname = regnames[option].name;
 120   *setdescription = regnames[option].description;
 121   *register_names = regnames[option].reg_names;
 122   return 16;
 123 }
 124
 125 static void
 126 arm_decode_shift (given, func, stream)
 127      long given;
 128      fprintf_ftype func;
 129      void * stream;
 130 {
 131   func (stream, "%s", arm_regnames[given & 0xf]);
 132
 133   if ((given & 0xff0) != 0)
 134     {
 135       if ((given & 0x10) == 0)
 136         {
 137           int amount = (given & 0xf80) >> 7;
 138           int shift = (given & 0x60) >> 5;
 139
 140           if (amount == 0)
 141             {
 142               if (shift == 3)
 143                 {
 144                   func (stream, ", rrx");
 145                   return;
 146                 }
 147
 148               amount = 32;
 149             }
 150
 151           func (stream, ", %s #%d", arm_shift[shift], amount);
 152         }
 153       else
 154         func (stream, ", %s %s", arm_shift[(given & 0x60) >> 5],
 155               arm_regnames[(given & 0xf00) >> 8]);
 156     }
 157 }
 158
 159 /* Print one instruction from PC on INFO->STREAM.
 160    Return the size of the instruction (always 4 on ARM). */
 161 static int
 162 print_insn_arm (pc, info, given)
 163      bfd_vma                   pc;
 164      struct disassemble_info * info;
 165      long                      given;
 166 {
 167   struct arm_opcode *  insn;
 168   void *               stream = info->stream;
 169   fprintf_ftype        func   = info->fprintf_func;
 170
 171   for (insn = arm_opcodes; insn->assembler; insn++)
 172     {
 173       if ((given & insn->mask) == insn->value)
 174         {
 175           char * c;
 176
 177           for (c = insn->assembler; *c; c++)
 178             {
 179               if (*c == '%')
 180                 {
 181                   switch (*++c)
 182                     {
 183                     case '%':
 184                       func (stream, "%%");
 185                       break;
 186
 187                     case 'a':
 188                       if (((given & 0x000f0000) == 0x000f0000)
 189                           && ((given & 0x02000000) == 0))
 190                         {
 191                           int offset = given & 0xfff;
 192
 193                           func (stream, "[pc");
 194
 195                           if (given & 0x01000000)
 196                             {
 197                               if ((given & 0x00800000) == 0)
 198                                 offset = - offset;
 199
 200                               /* pre-indexed */
 201                               func (stream, ", #%x]", offset);
 202
 203                               offset += pc + 8;
 204
 205                               /* Cope with the possibility of write-back
 206                                  being used.  Probably a very dangerous thing
 207                                  for the programmer to do, but who are we to
 208                                  argue ?  */
 209                               if (given & 0x00200000)
 210                                 func (stream, "!");
 211                             }
 212                           else
 213                             {
 214                               /* Post indexed.  */
 215                               func (stream, "], #%x", offset);
 216
 217                               offset = pc + 8;  /* ie ignore the offset.  */
 218                             }
 219
 220                           func (stream, "\t; ");
 221                           info->print_address_func (offset, info);
 222                         }
 223                       else
 224                         {
 225                           func (stream, "[%s",
 226                                 arm_regnames[(given >> 16) & 0xf]);
 227                           if ((given & 0x01000000) != 0)
 228                             {
 229                               if ((given & 0x02000000) == 0)
 230                                 {
 231                                   int offset = given & 0xfff;
 232                                   if (offset)
 233                                     func (stream, ", %s#%d",
 234                                           (((given & 0x00800000) == 0)
 235                                            ? "-" : ""), offset);
 236                                 }
 237                               else
 238                                 {
 239                                   func (stream, ", %s",
 240                                         (((given & 0x00800000) == 0)
 241                                          ? "-" : ""));
 242                                   arm_decode_shift (given, func, stream);
 243                                 }
 244
 245                               func (stream, "]%s",
 246                                     ((given & 0x00200000) != 0) ? "!" : "");
 247                             }
 248                           else
 249                             {
 250                               if ((given & 0x02000000) == 0)
 251                                 {
 252                                   int offset = given & 0xfff;
 253                                   if (offset)
 254                                     func (stream, "], %s#%d",
 255                                           (((given & 0x00800000) == 0)
 256                                            ? "-" : ""), offset);
 257                                   else
 258                                     func (stream, "]");
 259                                 }
 260                               else
 261                                 {
 262                                   func (stream, "], %s",
 263                                         (((given & 0x00800000) == 0)
 264                                          ? "-" : ""));
 265                                   arm_decode_shift (given, func, stream);
 266                                 }
 267                             }
 268                         }
 269                       break;
 270
 271                     case 's':
 272                       if ((given & 0x004f0000) == 0x004f0000)
 273                         {
 274                           /* PC relative with immediate offset.  */
 275                           int offset = ((given & 0xf00) >> 4) | (given & 0xf);
 276
 277                           if ((given & 0x00800000) == 0)
 278                             offset = -offset;
 279
 280                           func (stream, "[pc, #%x]\t; ", offset);
 281
 282                           (*info->print_address_func)
 283                             (offset + pc + 8, info);
 284                         }
 285                       else
 286                         {
 287                           func (stream, "[%s",
 288                                 arm_regnames[(given >> 16) & 0xf]);
 289                           if ((given & 0x01000000) != 0)
 290                             {
 291                               /* Pre-indexed.  */
 292                               if ((given & 0x00400000) == 0x00400000)
 293                                 {
 294                                   /* Immediate.  */
 295                                   int offset = ((given & 0xf00) >> 4) | (given & 0xf);
 296                                   if (offset)
 297                                     func (stream, ", %s#%d",
 298                                           (((given & 0x00800000) == 0)
 299                                            ? "-" : ""), offset);
 300                                 }
 301                               else
 302                                 {
 303                                   /* Register.  */
 304                                   func (stream, ", %s%s",
 305                                         (((given & 0x00800000) == 0)
 306                                          ? "-" : ""),
 307                                         arm_regnames[given & 0xf]);
 308                                 }
 309
 310                               func (stream, "]%s",
 311                                     ((given & 0x00200000) != 0) ? "!" : "");
 312                             }
 313                           else
 314                             {
 315                               /* Post-indexed.  */
 316                               if ((given & 0x00400000) == 0x00400000)
 317                                 {
 318                                   /* Immediate.  */
 319                                   int offset = ((given & 0xf00) >> 4) | (given & 0xf);
 320                                   if (offset)
 321                                     func (stream, "], %s#%d",
 322                                           (((given & 0x00800000) == 0)
 323                                            ? "-" : ""), offset);
 324                                   else
 325                                     func (stream, "]");
 326                                 }
 327                               else
 328                                 {
 329                                   /* Register.  */
 330                                   func (stream, "], %s%s",
 331                                         (((given & 0x00800000) == 0)
 332                                          ? "-" : ""),
 333                                         arm_regnames[given & 0xf]);
 334                                 }
 335                             }
 336                         }
 337                       break;
 338
 339                     case 'b':
 340                       (*info->print_address_func)
 341                         (BDISP (given) * 4 + pc + 8, info);
 342                       break;
 343
 344                     case 'c':
 345                       func (stream, "%s",
 346                             arm_conditional [(given >> 28) & 0xf]);
 347                       break;
 348
 349                     case 'm':
 350                       {
 351                         int started = 0;
 352                         int reg;
 353
 354                         func (stream, "{");
 355                         for (reg = 0; reg < 16; reg++)
 356                           if ((given & (1 << reg)) != 0)
 357                             {
 358                               if (started)
 359                                 func (stream, ", ");
 360                               started = 1;
 361                               func (stream, "%s", arm_regnames[reg]);
 362                             }
 363                         func (stream, "}");
 364                       }
 365                       break;
 366
 367                     case 'o':
 368                       if ((given & 0x02000000) != 0)
 369                         {
 370                           int rotate = (given & 0xf00) >> 7;
 371                           int immed = (given & 0xff);
 372                           immed = (((immed << (32 - rotate))
 373                                     | (immed >> rotate)) & 0xffffffff);
 374                           func (stream, "#%d\t; 0x%x", immed, immed);
 375                         }
 376                       else
 377                         arm_decode_shift (given, func, stream);
 378                       break;
 379
 380                     case 'p':
 381                       if ((given & 0x0000f000) == 0x0000f000)
 382                         func (stream, "p");
 383                       break;
 384
 385                     case 't':
 386                       if ((given & 0x01200000) == 0x00200000)
 387                         func (stream, "t");
 388                       break;
 389
 390                     case 'h':
 391                       if ((given & 0x00000020) == 0x00000020)
 392                         func (stream, "h");
 393                       else
 394                         func (stream, "b");
 395                       break;
 396
 397                     case 'A':
 398                       func (stream, "[%s", arm_regnames [(given >> 16) & 0xf]);
 399                       if ((given & 0x01000000) != 0)
 400                         {
 401                           int offset = given & 0xff;
 402                           if (offset)
 403                             func (stream, ", %s#%d]%s",
 404                                   ((given & 0x00800000) == 0 ? "-" : ""),
 405                                   offset * 4,
 406                                   ((given & 0x00200000) != 0 ? "!" : ""));
 407                           else
 408                             func (stream, "]");
 409                         }
 410                       else
 411                         {
 412                           int offset = given & 0xff;
 413                           if (offset)
 414                             func (stream, "], %s#%d",
 415                                   ((given & 0x00800000) == 0 ? "-" : ""),
 416                                   offset * 4);
 417                           else
 418                             func (stream, "]");
 419                         }
 420                       break;
 421
 422                     case 'C':
 423                       switch (given & 0x000f0000)
 424                         {
 425                         default:
 426                           func (stream, "_???");
 427                           break;
 428                         case 0x90000:
 429                           func (stream, "_all");
 430                           break;
 431                         case 0x10000:
 432                           func (stream, "_c");
 433                           break;
 434                         case 0x20000:
 435                           func (stream, "_x");
 436                           break;
 437                         case 0x40000:
 438                           func (stream, "_s");
 439                           break;
 440                         case 0x80000:
 441                           func (stream, "_f");
 442                           break;
 443                         }
 444                       break;
 445
 446                     case 'F':
 447                       switch (given & 0x00408000)
 448                         {
 449                         case 0:
 450                           func (stream, "4");
 451                           break;
 452                         case 0x8000:
 453                           func (stream, "1");
 454                           break;
 455                         case 0x00400000:
 456                           func (stream, "2");
 457                           break;
 458                         default:
 459                           func (stream, "3");
 460                         }
 461                       break;
 462
 463                     case 'P':
 464                       switch (given & 0x00080080)
 465                         {
 466                         case 0:
 467                           func (stream, "s");
 468                           break;
 469                         case 0x80:
 470                           func (stream, "d");
 471                           break;
 472                         case 0x00080000:
 473                           func (stream, "e");
 474                           break;
 475                         default:
 476                           func (stream, _("<illegal precision>"));
 477                           break;
 478                         }
 479                       break;
 480                     case 'Q':
 481                       switch (given & 0x00408000)
 482                         {
 483                         case 0:
 484                           func (stream, "s");
 485                           break;
 486                         case 0x8000:
 487                           func (stream, "d");
 488                           break;
 489                         case 0x00400000:
 490                           func (stream, "e");
 491                           break;
 492                         default:
 493                           func (stream, "p");
 494                           break;
 495                         }
 496                       break;
 497                     case 'R':
 498                       switch (given & 0x60)
 499                         {
 500                         case 0:
 501                           break;
 502                         case 0x20:
 503                           func (stream, "p");
 504                           break;
 505                         case 0x40:
 506                           func (stream, "m");
 507                           break;
 508                         default:
 509                           func (stream, "z");
 510                           break;
 511                         }
 512                       break;
 513
 514                     case '0': case '1': case '2': case '3': case '4':
 515                     case '5': case '6': case '7': case '8': case '9':
 516                       {
 517                         int bitstart = *c++ - '0';
 518                         int bitend = 0;
 519                         while (*c >= '0' && *c <= '9')
 520                           bitstart = (bitstart * 10) + *c++ - '0';
 521
 522                         switch (*c)
 523                           {
 524                           case '-':
 525                             c++;
 526
 527                             while (*c >= '0' && *c <= '9')
 528                               bitend = (bitend * 10) + *c++ - '0';
 529
 530                             if (!bitend)
 531                               abort ();
 532
 533                             switch (*c)
 534                               {
 535                               case 'r':
 536                                 {
 537                                   long reg;
 538
 539                                   reg = given >> bitstart;
 540                                   reg &= (2 << (bitend - bitstart)) - 1;
 541
 542                                   func (stream, "%s", arm_regnames[reg]);
 543                                 }
 544                                 break;
 545                               case 'd':
 546                                 {
 547                                   long reg;
 548
 549                                   reg = given >> bitstart;
 550                                   reg &= (2 << (bitend - bitstart)) - 1;
 551
 552                                   func (stream, "%d", reg);
 553                                 }
 554                                 break;
 555                               case 'x':
 556                                 {
 557                                   long reg;
 558
 559                                   reg = given >> bitstart;
 560                                   reg &= (2 << (bitend - bitstart)) - 1;
 561
 562                                   func (stream, "0x%08x", reg);
 563
 564                                   /* Some SWI instructions have special
 565                                      meanings.  */
 566                                   if ((given & 0x0fffffff) == 0x0FF00000)
 567                                     func (stream, "\t; IMB");
 568                                   else if ((given & 0x0fffffff) == 0x0FF00001)
 569                                     func (stream, "\t; IMBRange");
 570                                 }
 571                                 break;
 572                               case 'X':
 573                                 {
 574                                   long reg;
 575
 576                                   reg = given >> bitstart;
 577                                   reg &= (2 << (bitend - bitstart)) - 1;
 578
 579                                   func (stream, "%01x", reg & 0xf);
 580                                 }
 581                                 break;
 582                               case 'f':
 583                                 {
 584                                   long reg;
 585
 586                                   reg = given >> bitstart;
 587                                   reg &= (2 << (bitend - bitstart)) - 1;
 588
 589                                   if (reg > 7)
 590                                     func (stream, "#%s",
 591                                           arm_fp_const[reg & 7]);
 592                                   else
 593                                     func (stream, "f%d", reg);
 594                                 }
 595                                 break;
 596                               default:
 597                                 abort ();
 598                               }
 599                             break;
 600
 601                           case '`':
 602                             c++;
 603                             if ((given & (1 << bitstart)) == 0)
 604                               func (stream, "%c", *c);
 605                             break;
 606                           case '\'':
 607                             c++;
 608                             if ((given & (1 << bitstart)) != 0)
 609                               func (stream, "%c", *c);
 610                             break;
 611                           case '?':
 612                             ++c;
 613                             if ((given & (1 << bitstart)) != 0)
 614                               func (stream, "%c", *c++);
 615                             else
 616                               func (stream, "%c", *++c);
 617                             break;
 618                           default:
 619                             abort ();
 620                           }
 621                         break;
 622
 623                       default:
 624                         abort ();
 625                       }
 626                     }
 627                 }
 628               else
 629                 func (stream, "%c", *c);
 630             }
 631           return 4;
 632         }
 633     }
 634   abort ();
 635 }
 636
 637 /* Print one instruction from PC on INFO->STREAM.
 638    Return the size of the instruction. */
 639 static int
 640 print_insn_thumb (pc, info, given)
 641      bfd_vma                   pc;
 642      struct disassemble_info * info;
 643      long                      given;
 644 {
 645   struct thumb_opcode * insn;
 646   void *                stream = info->stream;
 647   fprintf_ftype         func = info->fprintf_func;
 648
 649   for (insn = thumb_opcodes; insn->assembler; insn++)
 650     {
 651       if ((given & insn->mask) == insn->value)
 652         {
 653           char * c = insn->assembler;
 654
 655           /* Special processing for Thumb 2 instruction BL sequence:  */
 656           if (!*c) /* Check for empty (not NULL) assembler string.  */
 657             {
 658               info->bytes_per_chunk = 4;
 659               info->bytes_per_line  = 4;
 660
 661                 func (stream, "bl\t");
 662
 663               info->print_address_func (BDISP23 (given) * 2 + pc + 4, info);
 664               return 4;
 665             }
 666           else
 667             {
 668               info->bytes_per_chunk = 2;
 669               info->bytes_per_line  = 4;
 670
 671               given &= 0xffff;
 672
 673               for (; *c; c++)
 674                 {
 675                   if (*c == '%')
 676                     {
 677                       int domaskpc = 0;
 678                       int domasklr = 0;
 679
 680                       switch (*++c)
 681                         {
 682                         case '%':
 683                           func (stream, "%%");
 684                           break;
 685
 686                         case 'S':
 687                           {
 688                             long reg;
 689
 690                             reg = (given >> 3) & 0x7;
 691                             if (given & (1 << 6))
 692                               reg += 8;
 693
 694                             func (stream, "%s", arm_regnames[reg]);
 695                           }
 696                           break;
 697
 698                         case 'D':
 699                           {
 700                             long reg;
 701
 702                             reg = given & 0x7;
 703                             if (given & (1 << 7))
 704                              reg += 8;
 705
 706                             func (stream, "%s", arm_regnames[reg]);
 707                           }
 708                           break;
 709
 710                         case 'T':
 711                           func (stream, "%s",
 712                                 arm_conditional [(given >> 8) & 0xf]);
 713                           break;
 714
 715                         case 'N':
 716                           if (given & (1 << 8))
 717                             domasklr = 1;
 718                           /* Fall through.  */
 719                         case 'O':
 720                           if (*c == 'O' && (given & (1 << 8)))
 721                             domaskpc = 1;
 722                           /* Fall through.  */
 723                         case 'M':
 724                           {
 725                             int started = 0;
 726                             int reg;
 727
 728                             func (stream, "{");
 729
 730                             /* It would be nice if we could spot
 731                                ranges, and generate the rS-rE format: */
 732                             for (reg = 0; (reg < 8); reg++)
 733                               if ((given & (1 << reg)) != 0)
 734                                 {
 735                                   if (started)
 736                                     func (stream, ", ");
 737                                   started = 1;
 738                                   func (stream, "%s", arm_regnames[reg]);
 739                                 }
 740
 741                             if (domasklr)
 742                               {
 743                                 if (started)
 744                                   func (stream, ", ");
 745                                 started = 1;
 746                                 func (stream, arm_regnames[14] /* "lr" */);
 747                               }
 748
 749                             if (domaskpc)
 750                               {
 751                                 if (started)
 752                                   func (stream, ", ");
 753                                 func (stream, arm_regnames[15] /* "pc" */);
 754                               }
 755
 756                             func (stream, "}");
 757                           }
 758                           break;
 759
 760
 761                         case '0': case '1': case '2': case '3': case '4':
 762                         case '5': case '6': case '7': case '8': case '9':
 763                           {
 764                             int bitstart = *c++ - '0';
 765                             int bitend = 0;
 766
 767                             while (*c >= '0' && *c <= '9')
 768                               bitstart = (bitstart * 10) + *c++ - '0';
 769
 770                             switch (*c)
 771                               {
 772                               case '-':
 773                                 {
 774                                   long reg;
 775
 776                                   c++;
 777                                   while (*c >= '0' && *c <= '9')
 778                                     bitend = (bitend * 10) + *c++ - '0';
 779                                   if (!bitend)
 780                                     abort ();
 781                                   reg = given >> bitstart;
 782                                   reg &= (2 << (bitend - bitstart)) - 1;
 783                                   switch (*c)
 784                                     {
 785                                     case 'r':
 786                                       func (stream, "%s", arm_regnames[reg]);
 787                                       break;
 788
 789                                     case 'd':
 790                                       func (stream, "%d", reg);
 791                                       break;
 792
 793                                     case 'H':
 794                                       func (stream, "%d", reg << 1);
 795                                       break;
 796
 797                                     case 'W':
 798                                       func (stream, "%d", reg << 2);
 799                                       break;
 800
 801                                     case 'a':
 802                                       /* PC-relative address -- the bottom two
 803                                          bits of the address are dropped
 804                                          before the calculation.  */
 805                                       info->print_address_func
 806                                         (((pc + 4) & ~3) + (reg << 2), info);
 807                                       break;
 808
 809                                     case 'x':
 810                                       func (stream, "0x%04x", reg);
 811                                       break;
 812
 813                                     case 'I':
 814                                       reg = ((reg ^ (1 << bitend)) - (1 << bitend));
 815                                       func (stream, "%d", reg);
 816                                       break;
 817
 818                                     case 'B':
 819                                       reg = ((reg ^ (1 << bitend)) - (1 << bitend));
 820                                       (*info->print_address_func)
 821                                         (reg * 2 + pc + 4, info);
 822                                       break;
 823
 824                                     default:
 825                                       abort ();
 826                                     }
 827                                 }
 828                                 break;
 829
 830                               case '\'':
 831                                 c++;
 832                                 if ((given & (1 << bitstart)) != 0)
 833                                   func (stream, "%c", *c);
 834                                 break;
 835
 836                               case '?':
 837                                 ++c;
 838                                 if ((given & (1 << bitstart)) != 0)
 839                                   func (stream, "%c", *c++);
 840                                 else
 841                                   func (stream, "%c", *++c);
 842                                 break;
 843
 844                               default:
 845                                  abort ();
 846                               }
 847                           }
 848                           break;
 849
 850                         default:
 851                           abort ();
 852                         }
 853                     }
 854                   else
 855                     func (stream, "%c", *c);
 856                 }
 857              }
 858           return 2;
 859        }
 860     }
 861
 862   /* No match.  */
 863   abort ();
 864 }
 865
 866 /* Parse an individual disassembler option.  */
 867 void
 868 parse_arm_disassembler_option (option)
 869      char * option;
 870 {
 871   if (option == NULL)
 872     return;
 873
 874   if (strneq (option, "reg-names-", 10))
 875     {
 876       int i;
 877
 878       option += 10;
 879
 880       for (i = NUM_ARM_REGNAMES; i--;)
 881         if (streq (option, regnames[i].name))
 882           {
 883             regname_selected = i;
 884             break;
 885           }
 886
 887       if (i < 0)
 888         fprintf (stderr, _("Unrecognised register name set: %s\n"), option);
 889     }
 890   else if (streq (option, "force-thumb"))
 891     force_thumb = 1;
 892   else if (streq (option, "no-force-thumb"))
 893     force_thumb = 0;
 894   else
 895     fprintf (stderr, _("Unrecognised disassembler option: %s\n"), option);
 896
 897   return;
 898 }
 899
 900 /* Parse the string of disassembler options, spliting it at whitespaces.  */
 901 static void
 902 parse_disassembler_options (options)
 903      char * options;
 904 {
 905   char * space;
 906
 907   if (options == NULL)
 908     return;
 909
 910   do
 911     {
 912       space = strchr (options, ' ');
 913
 914       if (space)
 915         {
 916           * space = '\0';
 917           parse_arm_disassembler_option (options);
 918           * space = ' ';
 919           options = space + 1;
 920         }
 921       else
 922         parse_arm_disassembler_option (options);
 923     }
 924   while (space);
 925 }
 926
 927 /* NOTE: There are no checks in these routines that
 928    the relevant number of data bytes exist.  */
 929 static int
 930 print_insn (pc, info, little)
 931      bfd_vma pc;
 932      struct disassemble_info * info;
 933      boolean little;
 934 {
 935   unsigned char      b[4];
 936   long               given;
 937   int                status;
 938   int                is_thumb;
 939
 940   if (info->disassembler_options)
 941     {
 942       parse_disassembler_options (info->disassembler_options);
 943
 944       /* To avoid repeated parsing of these options, we remove them here.  */
 945       info->disassembler_options = NULL;
 946     }
 947
 948   is_thumb = force_thumb;
 949
 950   if (!is_thumb && info->symbols != NULL)
 951     {
 952       if (bfd_asymbol_flavour (*info->symbols) == bfd_target_coff_flavour)
 953         {
 954           coff_symbol_type * cs;
 955
 956           cs = coffsymbol (*info->symbols);
 957           is_thumb = (   cs->native->u.syment.n_sclass == C_THUMBEXT
 958                       || cs->native->u.syment.n_sclass == C_THUMBSTAT
 959                       || cs->native->u.syment.n_sclass == C_THUMBLABEL
 960                       || cs->native->u.syment.n_sclass == C_THUMBEXTFUNC
 961                       || cs->native->u.syment.n_sclass == C_THUMBSTATFUNC);
 962         }
 963       else if (bfd_asymbol_flavour (*info->symbols) == bfd_target_elf_flavour)
 964         {
 965           elf_symbol_type *  es;
 966           unsigned int       type;
 967
 968           es = *(elf_symbol_type **)(info->symbols);
 969           type = ELF_ST_TYPE (es->internal_elf_sym.st_info);
 970
 971           is_thumb = (type == STT_ARM_TFUNC) || (type == STT_ARM_16BIT);
 972         }
 973     }
 974
 975   info->bytes_per_chunk = 4;
 976   info->display_endian  = little ? BFD_ENDIAN_LITTLE : BFD_ENDIAN_BIG;
 977
 978   if (little)
 979     {
 980       status = info->read_memory_func (pc, (bfd_byte *) &b[0], 4, info);
 981       if (status != 0 && is_thumb)
 982         {
 983           info->bytes_per_chunk = 2;
 984
 985           status = info->read_memory_func (pc, (bfd_byte *) b, 2, info);
 986           b[3] = b[2] = 0;
 987         }
 988
 989       if (status != 0)
 990         {
 991           info->memory_error_func (status, pc, info);
 992           return -1;
 993         }
 994
 995       given = (b[0]) | (b[1] << 8) | (b[2] << 16) | (b[3] << 24);
 996     }
 997   else
 998     {
 999       status = info->read_memory_func
1000         (pc & ~ 0x3, (bfd_byte *) &b[0], 4, info);
1001       if (status != 0)
1002         {
1003           info->memory_error_func (status, pc, info);
1004           return -1;
1005         }
1006
1007       if (is_thumb)
1008         {
1009           if (pc & 0x2)
1010             {
1011               given = (b[2] << 8) | b[3];
1012
1013               status = info->read_memory_func
1014                 ((pc + 4) & ~ 0x3, (bfd_byte *) b, 4, info);
1015               if (status != 0)
1016                 {
1017                   info->memory_error_func (status, pc + 4, info);
1018                   return -1;
1019                 }
1020
1021               given |= (b[0] << 24) | (b[1] << 16);
1022             }
1023           else
1024             given = (b[0] << 8) | b[1] | (b[2] << 24) | (b[3] << 16);
1025         }
1026       else
1027         given = (b[0] << 24) | (b[1] << 16) | (b[2] << 8) | (b[3]);
1028     }
1029
1030   if (is_thumb)
1031     status = print_insn_thumb (pc, info, given);
1032   else
1033     status = print_insn_arm (pc, info, given);
1034
1035   return status;
1036 }
1037
1038 int
1039 print_insn_big_arm (pc, info)
1040      bfd_vma pc;
1041      struct disassemble_info * info;
1042 {
1043   return print_insn (pc, info, false);
1044 }
1045
1046 int
1047 print_insn_little_arm (pc, info)
1048      bfd_vma pc;
1049      struct disassemble_info * info;
1050 {
1051   return print_insn (pc, info, true);
1052 }
1053
1054 void
1055 print_arm_disassembler_options (FILE * stream)
1056 {
1057   int i;
1058
1059   fprintf (stream, _("\n\
1060 The following ARM specific disassembler options are supported for use with\n\
1061 the -M switch:\n"));
1062
1063   for (i = NUM_ARM_REGNAMES; i--;)
1064     fprintf (stream, "  reg-names-%s %*c%s\n",
1065              regnames[i].name,
1066              14 - strlen (regnames[i].name), ' ',
1067              regnames[i].description);
1068
1069   fprintf (stream, "  force-thumb              Assume all insns are Thumb insns\n");
1070   fprintf (stream, "  no-force-thumb           Examine preceeding label to determine an insn's type\n\n");
1071 }