gas/as.c

   1 /* as.c - GAS main program.
   2    Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
   3    1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
   4    Free Software Foundation, Inc.
   5
   6    This file is part of GAS, the GNU Assembler.
   7
   8    GAS is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2, or (at your option)
  11    any later version.
  12
  13    GAS is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with GAS; see the file COPYING.  If not, write to the Free
  20    Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
  21    02110-1301, USA.  */
  22
  23 /* Main program for AS; a 32-bit assembler of GNU.
  24    Understands command arguments.
  25    Has a few routines that don't fit in other modules because they
  26    are shared.
  27
  28                         bugs
  29
  30    : initialisers
  31         Since no-one else says they will support them in future: I
  32    don't support them now.  */
  33
  34 #define COMMON
  35
  36 #include "as.h"
  37 #include "subsegs.h"
  38 #include "output-file.h"
  39 #include "sb.h"
  40 #include "macro.h"
  41 #include "dwarf2dbg.h"
  42 #include "dw2gencfi.h"
  43 #include "bfdver.h"
  44
  45 #ifdef HAVE_ITBL_CPU
  46 #include "itbl-ops.h"
  47 #else
  48 #define itbl_parse(itbl_file) 1
  49 #define itbl_init()
  50 #endif
  51
  52 #ifdef HAVE_SBRK
  53 #ifdef NEED_DECLARATION_SBRK
  54 extern PTR sbrk ();
  55 #endif
  56 #endif
  57
  58 #ifdef USING_CGEN
  59 /* Perform any cgen specific initialisation for gas.  */
  60 extern void gas_cgen_begin (void);
  61 #endif
  62
  63 /* Keep a record of the itbl files we read in.  */
  64 struct itbl_file_list
  65 {
  66   struct itbl_file_list *next;
  67   char *name;
  68 };
  69
  70 /* We build a list of defsyms as we read the options, and then define
  71    them after we have initialized everything.  */
  72 struct defsym_list
  73 {
  74   struct defsym_list *next;
  75   char *name;
  76   valueT value;
  77 };
  78
  79
  80 /* True if a listing is wanted.  */
  81 int listing;
  82
  83 /* Type of debugging to generate.  */
  84 enum debug_info_type debug_type = DEBUG_UNSPECIFIED;
  85 int use_gnu_debug_info_extensions = 0;
  86
  87 #ifndef MD_DEBUG_FORMAT_SELECTOR
  88 #define MD_DEBUG_FORMAT_SELECTOR NULL
  89 #endif
  90 static enum debug_info_type (*md_debug_format_selector) (int *) = MD_DEBUG_FORMAT_SELECTOR;
  91
  92 /* Maximum level of macro nesting.  */
  93 int max_macro_nest = 100;
  94
  95 /* argv[0]  */
  96 static char * myname;
  97
  98 /* The default obstack chunk size.  If we set this to zero, the
  99    obstack code will use whatever will fit in a 4096 byte block.  */
 100 int chunksize = 0;
 101
 102 /* To monitor memory allocation more effectively, make this non-zero.
 103    Then the chunk sizes for gas and bfd will be reduced.  */
 104 int debug_memory = 0;
 105
 106 /* Enable verbose mode.  */
 107 int verbose = 0;
 108
 109 segT reg_section;
 110 segT expr_section;
 111 segT text_section;
 112 segT data_section;
 113 segT bss_section;
 114
 115 /* Name of listing file.  */
 116 static char *listing_filename = NULL;
 117
 118 static struct defsym_list *defsyms;
 119
 120 static struct itbl_file_list *itbl_files;
 121
 122 static long start_time;
 123
 124 static int flag_macro_alternate;
 125
 126 \f
 127 #ifdef USE_EMULATIONS
 128 #define EMULATION_ENVIRON "AS_EMULATION"
 129
 130 extern struct emulation mipsbelf, mipslelf, mipself;
 131 extern struct emulation mipsbecoff, mipslecoff, mipsecoff;
 132 extern struct emulation i386coff, i386elf, i386aout;
 133 extern struct emulation crisaout, criself;
 134
 135 static struct emulation *const emulations[] = { EMULATIONS };
 136 static const int n_emulations = sizeof (emulations) / sizeof (emulations[0]);
 137
 138 static void
 139 select_emulation_mode (int argc, char **argv)
 140 {
 141   int i;
 142   char *p, *em = 0;
 143
 144   for (i = 1; i < argc; i++)
 145     if (!strncmp ("--em", argv[i], 4))
 146       break;
 147
 148   if (i == argc)
 149     goto do_default;
 150
 151   p = strchr (argv[i], '=');
 152   if (p)
 153     p++;
 154   else
 155     p = argv[i + 1];
 156
 157   if (!p || !*p)
 158     as_fatal (_("missing emulation mode name"));
 159   em = p;
 160
 161  do_default:
 162   if (em == 0)
 163     em = getenv (EMULATION_ENVIRON);
 164   if (em == 0)
 165     em = DEFAULT_EMULATION;
 166
 167   if (em)
 168     {
 169       for (i = 0; i < n_emulations; i++)
 170         if (!strcmp (emulations[i]->name, em))
 171           break;
 172       if (i == n_emulations)
 173         as_fatal (_("unrecognized emulation name `%s'"), em);
 174       this_emulation = emulations[i];
 175     }
 176   else
 177     this_emulation = emulations[0];
 178
 179   this_emulation->init ();
 180 }
 181
 182 const char *
 183 default_emul_bfd_name (void)
 184 {
 185   abort ();
 186   return NULL;
 187 }
 188
 189 void
 190 common_emul_init (void)
 191 {
 192   this_format = this_emulation->format;
 193
 194   if (this_emulation->leading_underscore == 2)
 195     this_emulation->leading_underscore = this_format->dfl_leading_underscore;
 196
 197   if (this_emulation->default_endian != 2)
 198     target_big_endian = this_emulation->default_endian;
 199
 200   if (this_emulation->fake_label_name == 0)
 201     {
 202       if (this_emulation->leading_underscore)
 203         this_emulation->fake_label_name = "L0\001";
 204       else
 205         /* What other parameters should we test?  */
 206         this_emulation->fake_label_name = ".L0\001";
 207     }
 208 }
 209 #endif
 210
 211 void
 212 print_version_id (void)
 213 {
 214   static int printed;
 215
 216   if (printed)
 217     return;
 218   printed = 1;
 219
 220   fprintf (stderr, _("GNU assembler version %s (%s) using BFD version %s\n"),
 221            VERSION, TARGET_ALIAS, BFD_VERSION_STRING);
 222 }
 223
 224 static void
 225 show_usage (FILE * stream)
 226 {
 227   fprintf (stream, _("Usage: %s [option...] [asmfile...]\n"), myname);
 228
 229   fprintf (stream, _("\
 230 Options:\n\
 231   -a[sub-option...]       turn on listings\n\
 232                           Sub-options [default hls]:\n\
 233                           c      omit false conditionals\n\
 234                           d      omit debugging directives\n\
 235                           h      include high-level source\n\
 236                           l      include assembly\n\
 237                           m      include macro expansions\n\
 238                           n      omit forms processing\n\
 239                           s      include symbols\n\
 240                           =FILE  list to FILE (must be last sub-option)\n"));
 241
 242   fprintf (stream, _("\
 243   --alternate             initially turn on alternate macro syntax\n"));
 244   fprintf (stream, _("\
 245   -D                      produce assembler debugging messages\n"));
 246   fprintf (stream, _("\
 247   --defsym SYM=VAL        define symbol SYM to given value\n"));
 248 #ifdef USE_EMULATIONS
 249   {
 250     int i;
 251     char *def_em;
 252
 253     fprintf (stream, "\
 254   --em=[");
 255     for (i = 0; i < n_emulations - 1; i++)
 256       fprintf (stream, "%s | ", emulations[i]->name);
 257     fprintf (stream, "%s]\n", emulations[i]->name);
 258
 259     def_em = getenv (EMULATION_ENVIRON);
 260     if (!def_em)
 261       def_em = DEFAULT_EMULATION;
 262     fprintf (stream, _("\
 263                           emulate output (default %s)\n"), def_em);
 264   }
 265 #endif
 266 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 267   fprintf (stream, _("\
 268   --execstack             require executable stack for this object\n"));
 269   fprintf (stream, _("\
 270   --noexecstack           don't require executable stack for this object\n"));
 271 #endif
 272   fprintf (stream, _("\
 273   -f                      skip whitespace and comment preprocessing\n"));
 274   fprintf (stream, _("\
 275   -g --gen-debug          generate debugging information\n"));
 276   fprintf (stream, _("\
 277   --gstabs                generate STABS debugging information\n"));
 278   fprintf (stream, _("\
 279   --gstabs+               generate STABS debug info with GNU extensions\n"));
 280   fprintf (stream, _("\
 281   --gdwarf-2              generate DWARF2 debugging information\n"));
 282   fprintf (stream, _("\
 283   --hash-size=<value>     set the hash table size close to <value>\n"));
 284   fprintf (stream, _("\
 285   --help                  show this message and exit\n"));
 286   fprintf (stream, _("\
 287   --target-help           show target specific options\n"));
 288   fprintf (stream, _("\
 289   -I DIR                  add DIR to search list for .include directives\n"));
 290   fprintf (stream, _("\
 291   -J                      don't warn about signed overflow\n"));
 292   fprintf (stream, _("\
 293   -K                      warn when differences altered for long displacements\n"));
 294   fprintf (stream, _("\
 295   -L,--keep-locals        keep local symbols (e.g. starting with `L')\n"));
 296   fprintf (stream, _("\
 297   -M,--mri                assemble in MRI compatibility mode\n"));
 298   fprintf (stream, _("\
 299   --MD FILE               write dependency information in FILE (default none)\n"));
 300   fprintf (stream, _("\
 301   -nocpp                  ignored\n"));
 302   fprintf (stream, _("\
 303   -o OBJFILE              name the object-file output OBJFILE (default a.out)\n"));
 304   fprintf (stream, _("\
 305   -R                      fold data section into text section\n"));
 306   fprintf (stream, _("\
 307   --reduce-memory-overheads \n\
 308                           prefer smaller memory use at the cost of longer\n\
 309                           assembly times\n"));
 310   fprintf (stream, _("\
 311   --statistics            print various measured statistics from execution\n"));
 312   fprintf (stream, _("\
 313   --strip-local-absolute  strip local absolute symbols\n"));
 314   fprintf (stream, _("\
 315   --traditional-format    Use same format as native assembler when possible\n"));
 316   fprintf (stream, _("\
 317   --version               print assembler version number and exit\n"));
 318   fprintf (stream, _("\
 319   -W  --no-warn           suppress warnings\n"));
 320   fprintf (stream, _("\
 321   --warn                  don't suppress warnings\n"));
 322   fprintf (stream, _("\
 323   --fatal-warnings        treat warnings as errors\n"));
 324   fprintf (stream, _("\
 325   --itbl INSTTBL          extend instruction set to include instructions\n\
 326                           matching the specifications defined in file INSTTBL\n"));
 327   fprintf (stream, _("\
 328   -w                      ignored\n"));
 329   fprintf (stream, _("\
 330   -X                      ignored\n"));
 331   fprintf (stream, _("\
 332   -Z                      generate object file even after errors\n"));
 333   fprintf (stream, _("\
 334   --listing-lhs-width     set the width in words of the output data column of\n\
 335                           the listing\n"));
 336   fprintf (stream, _("\
 337   --listing-lhs-width2    set the width in words of the continuation lines\n\
 338                           of the output data column; ignored if smaller than\n\
 339                           the width of the first line\n"));
 340   fprintf (stream, _("\
 341   --listing-rhs-width     set the max width in characters of the lines from\n\
 342                           the source file\n"));
 343   fprintf (stream, _("\
 344   --listing-cont-lines    set the maximum number of continuation lines used\n\
 345                           for the output data column of the listing\n"));
 346   fprintf (stream, _("\
 347   @FILE                   read options from FILE\n"));
 348
 349   md_show_usage (stream);
 350
 351   fputc ('\n', stream);
 352
 353   if (REPORT_BUGS_TO[0] && stream == stdout)
 354     fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
 355 }
 356
 357 /* Since it is easy to do here we interpret the special arg "-"
 358    to mean "use stdin" and we set that argv[] pointing to "".
 359    After we have munged argv[], the only things left are source file
 360    name(s) and ""(s) denoting stdin. These file names are used
 361    (perhaps more than once) later.
 362
 363    check for new machine-dep cmdline options in
 364    md_parse_option definitions in config/tc-*.c.  */
 365
 366 static void
 367 parse_args (int * pargc, char *** pargv)
 368 {
 369   int old_argc;
 370   int new_argc;
 371   char ** old_argv;
 372   char ** new_argv;
 373   /* Starting the short option string with '-' is for programs that
 374      expect options and other ARGV-elements in any order and that care about
 375      the ordering of the two.  We describe each non-option ARGV-element
 376      as if it were the argument of an option with character code 1.  */
 377   char *shortopts;
 378   extern const char *md_shortopts;
 379   static const char std_shortopts[] =
 380   {
 381     '-', 'J',
 382 #ifndef WORKING_DOT_WORD
 383     /* -K is not meaningful if .word is not being hacked.  */
 384     'K',
 385 #endif
 386     'L', 'M', 'R', 'W', 'Z', 'a', ':', ':', 'D', 'f', 'g', ':',':', 'I', ':', 'o', ':',
 387 #ifndef VMS
 388     /* -v takes an argument on VMS, so we don't make it a generic
 389        option.  */
 390     'v',
 391 #endif
 392     'w', 'X',
 393     /* New option for extending instruction set (see also --itbl below).  */
 394     't', ':',
 395     '\0'
 396   };
 397   struct option *longopts;
 398   extern struct option md_longopts[];
 399   extern size_t md_longopts_size;
 400   /* Codes used for the long options with no short synonyms.  */
 401   enum option_values
 402     {
 403       OPTION_HELP = OPTION_STD_BASE,
 404       OPTION_NOCPP,
 405       OPTION_STATISTICS,
 406       OPTION_VERSION,
 407       OPTION_DUMPCONFIG,
 408       OPTION_VERBOSE,
 409       OPTION_EMULATION,
 410       OPTION_DEFSYM,
 411       OPTION_INSTTBL,
 412       OPTION_LISTING_LHS_WIDTH,
 413       OPTION_LISTING_LHS_WIDTH2,
 414       OPTION_LISTING_RHS_WIDTH,
 415       OPTION_LISTING_CONT_LINES,
 416       OPTION_DEPFILE,
 417       OPTION_GSTABS,
 418       OPTION_GSTABS_PLUS,
 419       OPTION_GDWARF2,
 420       OPTION_STRIP_LOCAL_ABSOLUTE,
 421       OPTION_TRADITIONAL_FORMAT,
 422       OPTION_WARN,
 423       OPTION_TARGET_HELP,
 424       OPTION_EXECSTACK,
 425       OPTION_NOEXECSTACK,
 426       OPTION_ALTERNATE,
 427       OPTION_AL,
 428       OPTION_HASH_TABLE_SIZE,
 429       OPTION_REDUCE_MEMORY_OVERHEADS,
 430       OPTION_WARN_FATAL
 431     /* When you add options here, check that they do
 432        not collide with OPTION_MD_BASE.  See as.h.  */
 433     };
 434
 435   static const struct option std_longopts[] =
 436   {
 437     /* Note: commas are placed at the start of the line rather than
 438        the end of the preceeding line so that it is simpler to
 439        selectively add and remove lines from this list.  */
 440     {"alternate", no_argument, NULL, OPTION_ALTERNATE}
 441     /* The entry for "a" is here to prevent getopt_long_only() from
 442        considering that -a is an abbreviation for --alternate.  This is
 443        necessary because -a=<FILE> is a valid switch but getopt would
 444        normally reject it since --alternate does not take an argument.  */
 445     ,{"a", optional_argument, NULL, 'a'}
 446     /* Handle -al=<FILE>.  */
 447     ,{"al", optional_argument, NULL, OPTION_AL}
 448     ,{"defsym", required_argument, NULL, OPTION_DEFSYM}
 449     ,{"dump-config", no_argument, NULL, OPTION_DUMPCONFIG}
 450     ,{"emulation", required_argument, NULL, OPTION_EMULATION}
 451 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 452     ,{"execstack", no_argument, NULL, OPTION_EXECSTACK}
 453     ,{"noexecstack", no_argument, NULL, OPTION_NOEXECSTACK}
 454 #endif
 455     ,{"fatal-warnings", no_argument, NULL, OPTION_WARN_FATAL}
 456     ,{"gdwarf-2", no_argument, NULL, OPTION_GDWARF2}
 457     /* GCC uses --gdwarf-2 but GAS uses to use --gdwarf2,
 458        so we keep it here for backwards compatibility.  */
 459     ,{"gdwarf2", no_argument, NULL, OPTION_GDWARF2}
 460     ,{"gen-debug", no_argument, NULL, 'g'}
 461     ,{"gstabs", no_argument, NULL, OPTION_GSTABS}
 462     ,{"gstabs+", no_argument, NULL, OPTION_GSTABS_PLUS}
 463     ,{"hash-size", required_argument, NULL, OPTION_HASH_TABLE_SIZE}
 464     ,{"help", no_argument, NULL, OPTION_HELP}
 465     /* New option for extending instruction set (see also -t above).
 466        The "-t file" or "--itbl file" option extends the basic set of
 467        valid instructions by reading "file", a text file containing a
 468        list of instruction formats.  The additional opcodes and their
 469        formats are added to the built-in set of instructions, and
 470        mnemonics for new registers may also be defined.  */
 471     ,{"itbl", required_argument, NULL, OPTION_INSTTBL}
 472     /* getopt allows abbreviations, so we do this to stop it from
 473        treating -k as an abbreviation for --keep-locals.  Some
 474        ports use -k to enable PIC assembly.  */
 475     ,{"keep-locals", no_argument, NULL, 'L'}
 476     ,{"keep-locals", no_argument, NULL, 'L'}
 477     ,{"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH}
 478     ,{"listing-lhs-width2", required_argument, NULL, OPTION_LISTING_LHS_WIDTH2}
 479     ,{"listing-rhs-width", required_argument, NULL, OPTION_LISTING_RHS_WIDTH}
 480     ,{"listing-cont-lines", required_argument, NULL, OPTION_LISTING_CONT_LINES}
 481     ,{"MD", required_argument, NULL, OPTION_DEPFILE}
 482     ,{"mri", no_argument, NULL, 'M'}
 483     ,{"nocpp", no_argument, NULL, OPTION_NOCPP}
 484     ,{"no-warn", no_argument, NULL, 'W'}
 485     ,{"reduce-memory-overheads", no_argument, NULL, OPTION_REDUCE_MEMORY_OVERHEADS}
 486     ,{"statistics", no_argument, NULL, OPTION_STATISTICS}
 487     ,{"strip-local-absolute", no_argument, NULL, OPTION_STRIP_LOCAL_ABSOLUTE}
 488     ,{"version", no_argument, NULL, OPTION_VERSION}
 489     ,{"verbose", no_argument, NULL, OPTION_VERBOSE}
 490     ,{"target-help", no_argument, NULL, OPTION_TARGET_HELP}
 491     ,{"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT}
 492     ,{"warn", no_argument, NULL, OPTION_WARN}
 493   };
 494
 495   /* Construct the option lists from the standard list and the target
 496      dependent list.  Include space for an extra NULL option and
 497      always NULL terminate.  */
 498   shortopts = concat (std_shortopts, md_shortopts, (char *) NULL);
 499   longopts = xmalloc (sizeof (std_longopts) + md_longopts_size + sizeof (struct option));
 500   memcpy (longopts, std_longopts, sizeof (std_longopts));
 501   memcpy (((char *) longopts) + sizeof (std_longopts), md_longopts, md_longopts_size);
 502   memset (((char *) longopts) + sizeof (std_longopts) + md_longopts_size,
 503           0, sizeof (struct option));
 504
 505   /* Make a local copy of the old argv.  */
 506   old_argc = *pargc;
 507   old_argv = *pargv;
 508
 509   /* Initialize a new argv that contains no options.  */
 510   new_argv = xmalloc (sizeof (char *) * (old_argc + 1));
 511   new_argv[0] = old_argv[0];
 512   new_argc = 1;
 513   new_argv[new_argc] = NULL;
 514
 515   while (1)
 516     {
 517       /* getopt_long_only is like getopt_long, but '-' as well as '--' can
 518          indicate a long option.  */
 519       int longind;
 520       int optc = getopt_long_only (old_argc, old_argv, shortopts, longopts,
 521                                    &longind);
 522
 523       if (optc == -1)
 524         break;
 525
 526       switch (optc)
 527         {
 528         default:
 529           /* md_parse_option should return 1 if it recognizes optc,
 530              0 if not.  */
 531           if (md_parse_option (optc, optarg) != 0)
 532             break;
 533           /* `-v' isn't included in the general short_opts list, so check for
 534              it explicitly here before deciding we've gotten a bad argument.  */
 535           if (optc == 'v')
 536             {
 537 #ifdef VMS
 538               /* Telling getopt to treat -v's value as optional can result
 539                  in it picking up a following filename argument here.  The
 540                  VMS code in md_parse_option can return 0 in that case,
 541                  but it has no way of pushing the filename argument back.  */
 542               if (optarg && *optarg)
 543                 new_argv[new_argc++] = optarg, new_argv[new_argc] = NULL;
 544               else
 545 #else
 546               case 'v':
 547 #endif
 548               case OPTION_VERBOSE:
 549                 print_version_id ();
 550                 verbose = 1;
 551               break;
 552             }
 553           else
 554             as_bad (_("unrecognized option -%c%s"), optc, optarg ? optarg : "");
 555           /* Fall through.  */
 556
 557         case '?':
 558           exit (EXIT_FAILURE);
 559
 560         case 1:                 /* File name.  */
 561           if (!strcmp (optarg, "-"))
 562             optarg = "";
 563           new_argv[new_argc++] = optarg;
 564           new_argv[new_argc] = NULL;
 565           break;
 566
 567         case OPTION_TARGET_HELP:
 568           md_show_usage (stdout);
 569           exit (EXIT_SUCCESS);
 570
 571         case OPTION_HELP:
 572           show_usage (stdout);
 573           exit (EXIT_SUCCESS);
 574
 575         case OPTION_NOCPP:
 576           break;
 577
 578         case OPTION_STATISTICS:
 579           flag_print_statistics = 1;
 580           break;
 581
 582         case OPTION_STRIP_LOCAL_ABSOLUTE:
 583           flag_strip_local_absolute = 1;
 584           break;
 585
 586         case OPTION_TRADITIONAL_FORMAT:
 587           flag_traditional_format = 1;
 588           break;
 589
 590         case OPTION_VERSION:
 591           /* This output is intended to follow the GNU standards document.  */
 592           printf (_("GNU assembler %s\n"), BFD_VERSION_STRING);
 593           printf (_("Copyright 2005 Free Software Foundation, Inc.\n"));
 594           printf (_("\
 595 This program is free software; you may redistribute it under the terms of\n\
 596 the GNU General Public License.  This program has absolutely no warranty.\n"));
 597           printf (_("This assembler was configured for a target of `%s'.\n"),
 598                   TARGET_ALIAS);
 599           exit (EXIT_SUCCESS);
 600
 601         case OPTION_EMULATION:
 602 #ifdef USE_EMULATIONS
 603           if (strcmp (optarg, this_emulation->name))
 604             as_fatal (_("multiple emulation names specified"));
 605 #else
 606           as_fatal (_("emulations not handled in this configuration"));
 607 #endif
 608           break;
 609
 610         case OPTION_DUMPCONFIG:
 611           fprintf (stderr, _("alias = %s\n"), TARGET_ALIAS);
 612           fprintf (stderr, _("canonical = %s\n"), TARGET_CANONICAL);
 613           fprintf (stderr, _("cpu-type = %s\n"), TARGET_CPU);
 614 #ifdef TARGET_OBJ_FORMAT
 615           fprintf (stderr, _("format = %s\n"), TARGET_OBJ_FORMAT);
 616 #endif
 617 #ifdef TARGET_FORMAT
 618           fprintf (stderr, _("bfd-target = %s\n"), TARGET_FORMAT);
 619 #endif
 620           exit (EXIT_SUCCESS);
 621
 622         case OPTION_DEFSYM:
 623           {
 624             char *s;
 625             valueT i;
 626             struct defsym_list *n;
 627
 628             for (s = optarg; *s != '\0' && *s != '='; s++)
 629               ;
 630             if (*s == '\0')
 631               as_fatal (_("bad defsym; format is --defsym name=value"));
 632             *s++ = '\0';
 633             i = bfd_scan_vma (s, (const char **) NULL, 0);
 634             n = xmalloc (sizeof *n);
 635             n->next = defsyms;
 636             n->name = optarg;
 637             n->value = i;
 638             defsyms = n;
 639           }
 640           break;
 641
 642         case OPTION_INSTTBL:
 643         case 't':
 644           {
 645             /* optarg is the name of the file containing the instruction
 646                formats, opcodes, register names, etc.  */
 647             struct itbl_file_list *n;
 648
 649             if (optarg == NULL)
 650               {
 651                 as_warn (_("no file name following -t option"));
 652                 break;
 653               }
 654
 655             n = xmalloc (sizeof * n);
 656             n->next = itbl_files;
 657             n->name = optarg;
 658             itbl_files = n;
 659
 660             /* Parse the file and add the new instructions to our internal
 661                table.  If multiple instruction tables are specified, the
 662                information from this table gets appended onto the existing
 663                internal table.  */
 664             itbl_files->name = xstrdup (optarg);
 665             if (itbl_parse (itbl_files->name) != 0)
 666               as_fatal (_("failed to read instruction table %s\n"),
 667                         itbl_files->name);
 668           }
 669           break;
 670
 671         case OPTION_DEPFILE:
 672           start_dependencies (optarg);
 673           break;
 674
 675         case 'g':
 676           /* Some backends, eg Alpha and Mips, use the -g switch for their
 677              own purposes.  So we check here for an explicit -g and allow
 678              the backend to decide if it wants to process it.  */
 679           if (   old_argv[optind - 1][1] == 'g'
 680               && md_parse_option (optc, optarg))
 681             continue;
 682
 683           if (md_debug_format_selector)
 684             debug_type = md_debug_format_selector (& use_gnu_debug_info_extensions);
 685           else if (IS_ELF)
 686             debug_type = DEBUG_DWARF2;
 687           else
 688             debug_type = DEBUG_STABS;
 689           break;
 690
 691         case OPTION_GSTABS_PLUS:
 692           use_gnu_debug_info_extensions = 1;
 693           /* Fall through.  */
 694         case OPTION_GSTABS:
 695           debug_type = DEBUG_STABS;
 696           break;
 697
 698         case OPTION_GDWARF2:
 699           debug_type = DEBUG_DWARF2;
 700           break;
 701
 702         case 'J':
 703           flag_signed_overflow_ok = 1;
 704           break;
 705
 706 #ifndef WORKING_DOT_WORD
 707         case 'K':
 708           flag_warn_displacement = 1;
 709           break;
 710 #endif
 711         case 'L':
 712           flag_keep_locals = 1;
 713           break;
 714
 715         case OPTION_LISTING_LHS_WIDTH:
 716           listing_lhs_width = atoi (optarg);
 717           if (listing_lhs_width_second < listing_lhs_width)
 718             listing_lhs_width_second = listing_lhs_width;
 719           break;
 720         case OPTION_LISTING_LHS_WIDTH2:
 721           {
 722             int tmp = atoi (optarg);
 723
 724             if (tmp > listing_lhs_width)
 725               listing_lhs_width_second = tmp;
 726           }
 727           break;
 728         case OPTION_LISTING_RHS_WIDTH:
 729           listing_rhs_width = atoi (optarg);
 730           break;
 731         case OPTION_LISTING_CONT_LINES:
 732           listing_lhs_cont_lines = atoi (optarg);
 733           break;
 734
 735         case 'M':
 736           flag_mri = 1;
 737 #ifdef TC_M68K
 738           flag_m68k_mri = 1;
 739 #endif
 740           break;
 741
 742         case 'R':
 743           flag_readonly_data_in_text = 1;
 744           break;
 745
 746         case 'W':
 747           flag_no_warnings = 1;
 748           break;
 749
 750         case OPTION_WARN:
 751           flag_no_warnings = 0;
 752           flag_fatal_warnings = 0;
 753           break;
 754
 755         case OPTION_WARN_FATAL:
 756           flag_no_warnings = 0;
 757           flag_fatal_warnings = 1;
 758           break;
 759
 760 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 761         case OPTION_EXECSTACK:
 762           flag_execstack = 1;
 763           flag_noexecstack = 0;
 764           break;
 765
 766         case OPTION_NOEXECSTACK:
 767           flag_noexecstack = 1;
 768           flag_execstack = 0;
 769           break;
 770 #endif
 771         case 'Z':
 772           flag_always_generate_output = 1;
 773           break;
 774
 775         case OPTION_AL:
 776           listing |= LISTING_LISTING;
 777           if (optarg)
 778             listing_filename = xstrdup (optarg);
 779           break;
 780
 781         case OPTION_ALTERNATE:
 782           optarg = old_argv [optind - 1];
 783           while (* optarg == '-')
 784             optarg ++;
 785
 786           if (strcmp (optarg, "alternate") == 0)
 787             {
 788               flag_macro_alternate = 1;
 789               break;
 790             }
 791           optarg ++;
 792           /* Fall through.  */
 793
 794         case 'a':
 795           if (optarg)
 796             {
 797               if (optarg != old_argv[optind] && optarg[-1] == '=')
 798                 --optarg;
 799
 800               if (md_parse_option (optc, optarg) != 0)
 801                 break;
 802
 803               while (*optarg)
 804                 {
 805                   switch (*optarg)
 806                     {
 807                     case 'c':
 808                       listing |= LISTING_NOCOND;
 809                       break;
 810                     case 'd':
 811                       listing |= LISTING_NODEBUG;
 812                       break;
 813                     case 'h':
 814                       listing |= LISTING_HLL;
 815                       break;
 816                     case 'l':
 817                       listing |= LISTING_LISTING;
 818                       break;
 819                     case 'm':
 820                       listing |= LISTING_MACEXP;
 821                       break;
 822                     case 'n':
 823                       listing |= LISTING_NOFORM;
 824                       break;
 825                     case 's':
 826                       listing |= LISTING_SYMBOLS;
 827                       break;
 828                     case '=':
 829                       listing_filename = xstrdup (optarg + 1);
 830                       optarg += strlen (listing_filename);
 831                       break;
 832                     default:
 833                       as_fatal (_("invalid listing option `%c'"), *optarg);
 834                       break;
 835                     }
 836                   optarg++;
 837                 }
 838             }
 839           if (!listing)
 840             listing = LISTING_DEFAULT;
 841           break;
 842
 843         case 'D':
 844           /* DEBUG is implemented: it debugs different
 845              things from other people's assemblers.  */
 846           flag_debug = 1;
 847           break;
 848
 849         case 'f':
 850           flag_no_comments = 1;
 851           break;
 852
 853         case 'I':
 854           {                     /* Include file directory.  */
 855             char *temp = xstrdup (optarg);
 856
 857             add_include_dir (temp);
 858             break;
 859           }
 860
 861         case 'o':
 862           out_file_name = xstrdup (optarg);
 863           break;
 864
 865         case 'w':
 866           break;
 867
 868         case 'X':
 869           /* -X means treat warnings as errors.  */
 870           break;
 871
 872         case OPTION_REDUCE_MEMORY_OVERHEADS:
 873           /* The only change we make at the moment is to reduce
 874              the size of the hash tables that we use.  */
 875           set_gas_hash_table_size (4051);
 876           break;
 877
 878         case OPTION_HASH_TABLE_SIZE:
 879           {
 880             unsigned long new_size;
 881
 882             new_size = strtoul (optarg, NULL, 0);
 883             if (new_size)
 884               set_gas_hash_table_size (new_size);
 885             else
 886               as_fatal (_("--hash-size needs a numeric argument"));
 887             break;
 888           }
 889         }
 890     }
 891
 892   free (shortopts);
 893   free (longopts);
 894
 895   *pargc = new_argc;
 896   *pargv = new_argv;
 897
 898 #ifdef md_after_parse_args
 899   md_after_parse_args ();
 900 #endif
 901 }
 902
 903 static void
 904 dump_statistics (void)
 905 {
 906 #ifdef HAVE_SBRK
 907   char *lim = (char *) sbrk (0);
 908 #endif
 909   long run_time = get_run_time () - start_time;
 910
 911   fprintf (stderr, _("%s: total time in assembly: %ld.%06ld\n"),
 912            myname, run_time / 1000000, run_time % 1000000);
 913 #ifdef HAVE_SBRK
 914   fprintf (stderr, _("%s: data size %ld\n"),
 915            myname, (long) (lim - (char *) &environ));
 916 #endif
 917
 918   subsegs_print_statistics (stderr);
 919   write_print_statistics (stderr);
 920   symbol_print_statistics (stderr);
 921   read_print_statistics (stderr);
 922
 923 #ifdef tc_print_statistics
 924   tc_print_statistics (stderr);
 925 #endif
 926
 927 #ifdef obj_print_statistics
 928   obj_print_statistics (stderr);
 929 #endif
 930 }
 931
 932 #ifndef OBJ_VMS
 933 static void
 934 close_output_file (void)
 935 {
 936   output_file_close (out_file_name);
 937 }
 938 #endif
 939
 940 /* The interface between the macro code and gas expression handling.  */
 941
 942 static int
 943 macro_expr (const char *emsg, int idx, sb *in, int *val)
 944 {
 945   char *hold;
 946   expressionS ex;
 947
 948   sb_terminate (in);
 949
 950   hold = input_line_pointer;
 951   input_line_pointer = in->ptr + idx;
 952   expression_and_evaluate (&ex);
 953   idx = input_line_pointer - in->ptr;
 954   input_line_pointer = hold;
 955
 956   if (ex.X_op != O_constant)
 957     as_bad ("%s", emsg);
 958
 959   *val = (int) ex.X_add_number;
 960
 961   return idx;
 962 }
 963 \f
 964 /* Here to attempt 1 pass over each input file.
 965    We scan argv[*] looking for filenames or exactly "" which is
 966    shorthand for stdin. Any argv that is NULL is not a file-name.
 967    We set need_pass_2 TRUE if, after this, we still have unresolved
 968    expressions of the form (unknown value)+-(unknown value).
 969
 970    Note the un*x semantics: there is only 1 logical input file, but it
 971    may be a catenation of many 'physical' input files.  */
 972
 973 static void
 974 perform_an_assembly_pass (int argc, char ** argv)
 975 {
 976   int saw_a_file = 0;
 977   flagword applicable;
 978
 979   need_pass_2 = 0;
 980
 981   /* Create the standard sections, and those the assembler uses
 982      internally.  */
 983   text_section = subseg_new (TEXT_SECTION_NAME, 0);
 984   data_section = subseg_new (DATA_SECTION_NAME, 0);
 985   bss_section = subseg_new (BSS_SECTION_NAME, 0);
 986   /* @@ FIXME -- we're setting the RELOC flag so that sections are assumed
 987      to have relocs, otherwise we don't find out in time.  */
 988   applicable = bfd_applicable_section_flags (stdoutput);
 989   bfd_set_section_flags (stdoutput, text_section,
 990                          applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
 991                                        | SEC_CODE | SEC_READONLY));
 992   bfd_set_section_flags (stdoutput, data_section,
 993                          applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
 994                                        | SEC_DATA));
 995   bfd_set_section_flags (stdoutput, bss_section, applicable & SEC_ALLOC);
 996   seg_info (bss_section)->bss = 1;
 997   subseg_new (BFD_ABS_SECTION_NAME, 0);
 998   subseg_new (BFD_UND_SECTION_NAME, 0);
 999   reg_section = subseg_new ("*GAS `reg' section*", 0);
1000   expr_section = subseg_new ("*GAS `expr' section*", 0);
1001
1002   subseg_set (text_section, 0);
1003
1004   /* This may add symbol table entries, which requires having an open BFD,
1005      and sections already created.  */
1006   md_begin ();
1007
1008 #ifdef USING_CGEN
1009   gas_cgen_begin ();
1010 #endif
1011 #ifdef obj_begin
1012   obj_begin ();
1013 #endif
1014
1015   /* Skip argv[0].  */
1016   argv++;
1017   argc--;
1018
1019   while (argc--)
1020     {
1021       if (*argv)
1022         {                       /* Is it a file-name argument?  */
1023           PROGRESS (1);
1024           saw_a_file++;
1025           /* argv->"" if stdin desired, else->filename.  */
1026           read_a_source_file (*argv);
1027         }
1028       argv++;                   /* Completed that argv.  */
1029     }
1030   if (!saw_a_file)
1031     read_a_source_file ("");
1032 }
1033 \f
1034
1035 int
1036 main (int argc, char ** argv)
1037 {
1038   int macro_strip_at;
1039   int keep_it;
1040
1041   start_time = get_run_time ();
1042
1043 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
1044   setlocale (LC_MESSAGES, "");
1045 #endif
1046 #if defined (HAVE_SETLOCALE)
1047   setlocale (LC_CTYPE, "");
1048 #endif
1049   bindtextdomain (PACKAGE, LOCALEDIR);
1050   textdomain (PACKAGE);
1051
1052   if (debug_memory)
1053     chunksize = 64;
1054
1055 #ifdef HOST_SPECIAL_INIT
1056   HOST_SPECIAL_INIT (argc, argv);
1057 #endif
1058
1059   myname = argv[0];
1060   xmalloc_set_program_name (myname);
1061
1062   expandargv (&argc, &argv);
1063
1064   START_PROGRESS (myname, 0);
1065
1066 #ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME
1067 #define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out"
1068 #endif
1069
1070   out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME;
1071
1072   hex_init ();
1073   bfd_init ();
1074   bfd_set_error_program_name (myname);
1075
1076 #ifdef USE_EMULATIONS
1077   select_emulation_mode (argc, argv);
1078 #endif
1079
1080   PROGRESS (1);
1081   /* Call parse_args before any of the init/begin functions
1082      so that switches like --hash-size can be honored.  */
1083   parse_args (&argc, &argv);
1084   symbol_begin ();
1085   frag_init ();
1086   subsegs_begin ();
1087   read_begin ();
1088   input_scrub_begin ();
1089   expr_begin ();
1090
1091 #ifndef OBJ_VMS /* Does its own file handling.  */
1092   /* It has to be called after dump_statistics ().  */
1093   xatexit (close_output_file);
1094 #endif
1095
1096   if (flag_print_statistics)
1097     xatexit (dump_statistics);
1098
1099   macro_strip_at = 0;
1100 #ifdef TC_I960
1101   macro_strip_at = flag_mri;
1102 #endif
1103
1104   macro_init (flag_macro_alternate, flag_mri, macro_strip_at, macro_expr);
1105
1106   PROGRESS (1);
1107
1108   output_file_create (out_file_name);
1109   assert (stdoutput != 0);
1110
1111 #ifdef tc_init_after_args
1112   tc_init_after_args ();
1113 #endif
1114
1115   itbl_init ();
1116
1117   /* Now that we have fully initialized, and have created the output
1118      file, define any symbols requested by --defsym command line
1119      arguments.  */
1120   while (defsyms != NULL)
1121     {
1122       symbolS *sym;
1123       struct defsym_list *next;
1124
1125       sym = symbol_new (defsyms->name, absolute_section, defsyms->value,
1126                         &zero_address_frag);
1127       /* Make symbols defined on the command line volatile, so that they
1128          can be redefined inside a source file.  This makes this assembler's
1129          behaviour compatible with earlier versions, but it may not be
1130          completely intuitive.  */
1131       S_SET_VOLATILE (sym);
1132       symbol_table_insert (sym);
1133       next = defsyms->next;
1134       free (defsyms);
1135       defsyms = next;
1136     }
1137
1138   PROGRESS (1);
1139
1140   /* Assemble it.  */
1141   perform_an_assembly_pass (argc, argv);
1142
1143   cond_finish_check (-1);
1144
1145 #ifdef md_end
1146   md_end ();
1147 #endif
1148
1149 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
1150   if ((flag_execstack || flag_noexecstack)
1151       && OUTPUT_FLAVOR == bfd_target_elf_flavour)
1152     {
1153       segT gnustack;
1154
1155       gnustack = subseg_new (".note.GNU-stack", 0);
1156       bfd_set_section_flags (stdoutput, gnustack,
1157                              SEC_READONLY | (flag_execstack ? SEC_CODE : 0));
1158
1159     }
1160 #endif
1161
1162   /* If we've been collecting dwarf2 .debug_line info, either for
1163      assembly debugging or on behalf of the compiler, emit it now.  */
1164   dwarf2_finish ();
1165
1166   /* If we constructed dwarf2 .eh_frame info, either via .cfi
1167      directives from the user or by the backend, emit it now.  */
1168   cfi_finish ();
1169
1170   if (seen_at_least_1_file ()
1171       && (flag_always_generate_output || had_errors () == 0))
1172     keep_it = 1;
1173   else
1174     keep_it = 0;
1175
1176   /* This used to be done at the start of write_object_file in
1177      write.c, but that caused problems when doing listings when
1178      keep_it was zero.  This could probably be moved above md_end, but
1179      I didn't want to risk the change.  */
1180   subsegs_finish ();
1181
1182   if (keep_it)
1183     write_object_file ();
1184
1185 #ifndef NO_LISTING
1186   listing_print (listing_filename);
1187 #endif
1188
1189   if (flag_fatal_warnings && had_warnings () > 0 && had_errors () == 0)
1190     as_bad (_("%d warnings, treating warnings as errors"), had_warnings ());
1191
1192   if (had_errors () > 0 && ! flag_always_generate_output)
1193     keep_it = 0;
1194
1195   if (!keep_it)
1196     unlink_if_ordinary (out_file_name);
1197
1198   input_scrub_end ();
1199
1200   END_PROGRESS (myname);
1201
1202   /* Use xexit instead of return, because under VMS environments they
1203      may not place the same interpretation on the value given.  */
1204   if (had_errors () > 0)
1205     xexit (EXIT_FAILURE);
1206
1207   /* Only generate dependency file if assembler was successful.  */
1208   print_dependencies ();
1209
1210   xexit (EXIT_SUCCESS);
1211 }