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