gas/as.c

   1 /* as.c - GAS main program.
   2    Copyright (C) 1987-2023 Free Software Foundation, Inc.
   3
   4    This file is part of GAS, the GNU Assembler.
   5
   6    GAS is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3, or (at your option)
   9    any later version.
  10
  11    GAS is distributed in the hope that it will be useful, but WITHOUT
  12    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  13    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
  14    License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with GAS; see the file COPYING.  If not, write to the Free
  18    Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
  19    02110-1301, USA.  */
  20
  21 /* Main program for AS; a 32-bit assembler of GNU.
  22    Understands command arguments.
  23    Has a few routines that don't fit in other modules because they
  24    are shared.
  25
  26                         bugs
  27
  28    : initialisers
  29         Since no-one else says they will support them in future: I
  30    don't support them now.  */
  31
  32 #define COMMON
  33
  34 /* Disable code to set FAKE_LABEL_NAME in obj-multi.h, to avoid circular
  35    reference.  */
  36 #define INITIALIZING_EMULS
  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 #include "codeview.h"
  46 #include "bfdver.h"
  47 #include "write.h"
  48
  49 #ifdef HAVE_ITBL_CPU
  50 #include "itbl-ops.h"
  51 #else
  52 #define itbl_init()
  53 #endif
  54
  55 #ifdef USING_CGEN
  56 /* Perform any cgen specific initialisation for gas.  */
  57 extern void gas_cgen_begin (void);
  58 #endif
  59
  60 /* We build a list of defsyms as we read the options, and then define
  61    them after we have initialized everything.  */
  62 struct defsym_list
  63 {
  64   struct defsym_list *next;
  65   char *name;
  66   valueT value;
  67 };
  68
  69
  70 /* True if a listing is wanted.  */
  71 int listing;
  72
  73 /* Type of debugging to generate.  */
  74 enum debug_info_type debug_type = DEBUG_UNSPECIFIED;
  75 int use_gnu_debug_info_extensions = 0;
  76
  77 #ifndef MD_DEBUG_FORMAT_SELECTOR
  78 #define MD_DEBUG_FORMAT_SELECTOR NULL
  79 #endif
  80 static enum debug_info_type (*md_debug_format_selector) (int *) = MD_DEBUG_FORMAT_SELECTOR;
  81
  82 /* Maximum level of macro nesting.  */
  83 int max_macro_nest = 100;
  84
  85 /* argv[0]  */
  86 static char * myname;
  87
  88 /* The default obstack chunk size.  If we set this to zero, the
  89    obstack code will use whatever will fit in a 4096 byte block.  */
  90 int chunksize = 0;
  91
  92 /* To monitor memory allocation more effectively, make this non-zero.
  93    Then the chunk sizes for gas and bfd will be reduced.  */
  94 int debug_memory = 0;
  95
  96 /* Enable verbose mode.  */
  97 int verbose = 0;
  98
  99 /* Which version of DWARF CIE to produce.  This default value of -1
 100    indicates that this value has not been set yet, a default value is
 101    provided in dwarf2_init.  A different value can also be supplied by the
 102    command line flag --gdwarf-cie-version, or by a target in
 103    MD_AFTER_PARSE_ARGS.  */
 104 int flag_dwarf_cie_version = -1;
 105
 106 /* The maximum level of DWARF DEBUG information we should manufacture.
 107    This defaults to 3 unless overridden by a command line option.  */
 108 unsigned int dwarf_level = 3;
 109
 110 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 111 int flag_use_elf_stt_common = DEFAULT_GENERATE_ELF_STT_COMMON;
 112 bool flag_generate_build_notes = DEFAULT_GENERATE_BUILD_NOTES;
 113 #endif
 114
 115 segT reg_section;
 116 segT expr_section;
 117 segT text_section;
 118 segT data_section;
 119 segT bss_section;
 120
 121 /* Name of listing file.  */
 122 static char *listing_filename = NULL;
 123
 124 static struct defsym_list *defsyms;
 125
 126 static long start_time;
 127
 128 \f
 129 #ifdef USE_EMULATIONS
 130 #define EMULATION_ENVIRON "AS_EMULATION"
 131
 132 extern struct emulation mipsbelf, mipslelf, mipself;
 133 extern struct emulation i386coff, i386elf, i386aout;
 134 extern struct emulation crisaout, criself;
 135
 136 static struct emulation *const emulations[] = { EMULATIONS };
 137 static const int n_emulations = sizeof (emulations) / sizeof (emulations[0]);
 138
 139 static void
 140 select_emulation_mode (int argc, char **argv)
 141 {
 142   int i;
 143   char *p;
 144   const char *em = NULL;
 145
 146   for (i = 1; i < argc; i++)
 147     if (startswith (argv[i], "--em"))
 148       break;
 149
 150   if (i == argc)
 151     goto do_default;
 152
 153   p = strchr (argv[i], '=');
 154   if (p)
 155     p++;
 156   else
 157     p = argv[i + 1];
 158
 159   if (!p || !*p)
 160     as_fatal (_("missing emulation mode name"));
 161   em = p;
 162
 163  do_default:
 164   if (em == 0)
 165     em = getenv (EMULATION_ENVIRON);
 166   if (em == 0)
 167     em = DEFAULT_EMULATION;
 168
 169   if (em)
 170     {
 171       for (i = 0; i < n_emulations; i++)
 172         if (!strcmp (emulations[i]->name, em))
 173           break;
 174       if (i == n_emulations)
 175         as_fatal (_("unrecognized emulation name `%s'"), em);
 176       this_emulation = emulations[i];
 177     }
 178   else
 179     this_emulation = emulations[0];
 180
 181   this_emulation->init ();
 182 }
 183
 184 const char *
 185 default_emul_bfd_name (void)
 186 {
 187   abort ();
 188   return NULL;
 189 }
 190
 191 void
 192 common_emul_init (void)
 193 {
 194   this_format = this_emulation->format;
 195
 196   if (this_emulation->leading_underscore == 2)
 197     this_emulation->leading_underscore = this_format->dfl_leading_underscore;
 198
 199   if (this_emulation->default_endian != 2)
 200     target_big_endian = this_emulation->default_endian;
 201
 202   if (this_emulation->fake_label_name == 0)
 203     {
 204       if (this_emulation->leading_underscore)
 205         this_emulation->fake_label_name = FAKE_LABEL_NAME;
 206       else
 207         /* What other parameters should we test?  */
 208         this_emulation->fake_label_name = "." FAKE_LABEL_NAME;
 209     }
 210 }
 211 #endif
 212
 213 void
 214 print_version_id (void)
 215 {
 216   static int printed;
 217
 218   if (printed)
 219     return;
 220   printed = 1;
 221
 222   fprintf (stderr, _("GNU assembler version %s (%s) using BFD version %s\n"),
 223            VERSION, TARGET_ALIAS, BFD_VERSION_STRING);
 224 }
 225
 226 #ifdef DEFAULT_FLAG_COMPRESS_DEBUG
 227 enum compressed_debug_section_type flag_compress_debug
 228   = DEFAULT_COMPRESSED_DEBUG_ALGORITHM;
 229 #define DEFAULT_COMPRESSED_DEBUG_ALGORITHM_HELP \
 230         DEFAULT_COMPRESSED_DEBUG_ALGORITHM
 231 #else
 232 #define DEFAULT_COMPRESSED_DEBUG_ALGORITHM_HELP COMPRESS_DEBUG_NONE
 233 #endif
 234
 235 static void
 236 show_usage (FILE * stream)
 237 {
 238   fprintf (stream, _("Usage: %s [option...] [asmfile...]\n"), myname);
 239
 240   fprintf (stream, _("\
 241 Options:\n\
 242   -a[sub-option...]       turn on listings\n\
 243                           Sub-options [default hls]:\n\
 244                           c      omit false conditionals\n\
 245                           d      omit debugging directives\n\
 246                           g      include general info\n\
 247                           h      include high-level source\n\
 248                           l      include assembly\n\
 249                           m      include macro expansions\n\
 250                           n      omit forms processing\n\
 251                           s      include symbols\n\
 252                           =FILE  list to FILE (must be last sub-option)\n"));
 253
 254   fprintf (stream, _("\
 255   --alternate             initially turn on alternate macro syntax\n"));
 256   fprintf (stream, _("\
 257   --compress-debug-sections[={none|zlib|zlib-gnu|zlib-gabi|zstd}]\n\
 258                           compress DWARF debug sections\n")),
 259   fprintf (stream, _("\
 260                             Default: %s\n"),
 261            bfd_get_compression_algorithm_name
 262              (DEFAULT_COMPRESSED_DEBUG_ALGORITHM_HELP));
 263
 264   fprintf (stream, _("\
 265   --nocompress-debug-sections\n\
 266                           don't compress DWARF debug sections\n"));
 267   fprintf (stream, _("\
 268   -D                      produce assembler debugging messages\n"));
 269   fprintf (stream, _("\
 270   --dump-config           display how the assembler is configured and then exit\n"));
 271   fprintf (stream, _("\
 272   --debug-prefix-map OLD=NEW\n\
 273                           map OLD to NEW in debug information\n"));
 274   fprintf (stream, _("\
 275   --defsym SYM=VAL        define symbol SYM to given value\n"));
 276 #ifdef USE_EMULATIONS
 277   {
 278     int i;
 279     const char *def_em;
 280
 281     fprintf (stream, "\
 282   --emulation=[");
 283     for (i = 0; i < n_emulations - 1; i++)
 284       fprintf (stream, "%s | ", emulations[i]->name);
 285     fprintf (stream, "%s]\n", emulations[i]->name);
 286
 287     def_em = getenv (EMULATION_ENVIRON);
 288     if (!def_em)
 289       def_em = DEFAULT_EMULATION;
 290     fprintf (stream, _("\
 291                           emulate output (default %s)\n"), def_em);
 292   }
 293 #endif
 294 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 295   fprintf (stream, _("\
 296   --execstack             require executable stack for this object\n"));
 297   fprintf (stream, _("\
 298   --noexecstack           don't require executable stack for this object\n"));
 299   fprintf (stream, _("\
 300   --size-check=[error|warning]\n\
 301                           ELF .size directive check (default --size-check=error)\n"));
 302   fprintf (stream, _("\
 303   --elf-stt-common=[no|yes] "));
 304   if (DEFAULT_GENERATE_ELF_STT_COMMON)
 305     fprintf (stream, _("(default: yes)\n"));
 306   else
 307     fprintf (stream, _("(default: no)\n"));
 308   fprintf (stream, _("\
 309                           generate ELF common symbols with STT_COMMON type\n"));
 310   fprintf (stream, _("\
 311   --sectname-subst        enable section name substitution sequences\n"));
 312
 313   fprintf (stream, _("\
 314   --generate-missing-build-notes=[no|yes] "));
 315 #if DEFAULT_GENERATE_BUILD_NOTES
 316   fprintf (stream, _("(default: yes)\n"));
 317 #else
 318   fprintf (stream, _("(default: no)\n"));
 319 #endif
 320   fprintf (stream, _("\
 321                           generate GNU Build notes if none are present in the input\n"));
 322   fprintf (stream, _("\
 323   --gsframe               generate SFrame stack trace information\n"));
 324 #endif /* OBJ_ELF */
 325
 326   fprintf (stream, _("\
 327   -f                      skip whitespace and comment preprocessing\n"));
 328   fprintf (stream, _("\
 329   -g --gen-debug          generate debugging information\n"));
 330   fprintf (stream, _("\
 331   --gstabs                generate STABS debugging information\n"));
 332   fprintf (stream, _("\
 333   --gstabs+               generate STABS debug info with GNU extensions\n"));
 334   fprintf (stream, _("\
 335   --gdwarf-<N>            generate DWARF<N> debugging information. 2 <= <N> <= 5\n"));
 336   fprintf (stream, _("\
 337   --gdwarf-cie-version=<N> generate version 1, 3 or 4 DWARF CIEs\n"));
 338   fprintf (stream, _("\
 339   --gdwarf-sections       generate per-function section names for DWARF line information\n"));
 340 #if defined (TE_PE) && defined (O_secrel)
 341   fprintf (stream, _("\
 342   --gcodeview             generate CodeView debugging information\n"));
 343 #endif
 344   fprintf (stream, _("\
 345   --hash-size=<N>         ignored\n"));
 346   fprintf (stream, _("\
 347   --help                  show all assembler options\n"));
 348   fprintf (stream, _("\
 349   --target-help           show target specific options\n"));
 350   fprintf (stream, _("\
 351   -I DIR                  add DIR to search list for .include directives\n"));
 352   fprintf (stream, _("\
 353   -J                      don't warn about signed overflow\n"));
 354   fprintf (stream, _("\
 355   -K                      warn when differences altered for long displacements\n"));
 356   fprintf (stream, _("\
 357   -L,--keep-locals        keep local symbols (e.g. starting with `L')\n"));
 358   fprintf (stream, _("\
 359   -M,--mri                assemble in MRI compatibility mode\n"));
 360   fprintf (stream, _("\
 361   --MD FILE               write dependency information in FILE (default none)\n"));
 362   fprintf (stream, _("\
 363   --multibyte-handling=<method>\n\
 364                           what to do with multibyte characters encountered in the input\n"));
 365   fprintf (stream, _("\
 366   -nocpp                  ignored\n"));
 367   fprintf (stream, _("\
 368   -no-pad-sections        do not pad the end of sections to alignment boundaries\n"));
 369   fprintf (stream, _("\
 370   -o OBJFILE              name the object-file output OBJFILE (default a.out)\n"));
 371   fprintf (stream, _("\
 372   -R                      fold data section into text section\n"));
 373   fprintf (stream, _("\
 374   --reduce-memory-overheads ignored\n"));
 375   fprintf (stream, _("\
 376   --statistics            print various measured statistics from execution\n"));
 377   fprintf (stream, _("\
 378   --strip-local-absolute  strip local absolute symbols\n"));
 379   fprintf (stream, _("\
 380   --traditional-format    Use same format as native assembler when possible\n"));
 381   fprintf (stream, _("\
 382   --version               print assembler version number and exit\n"));
 383   fprintf (stream, _("\
 384   -W  --no-warn           suppress warnings\n"));
 385   fprintf (stream, _("\
 386   --warn                  don't suppress warnings\n"));
 387   fprintf (stream, _("\
 388   --fatal-warnings        treat warnings as errors\n"));
 389 #ifdef HAVE_ITBL_CPU
 390   fprintf (stream, _("\
 391   --itbl INSTTBL          extend instruction set to include instructions\n\
 392                           matching the specifications defined in file INSTTBL\n"));
 393 #endif
 394   fprintf (stream, _("\
 395   -w                      ignored\n"));
 396   fprintf (stream, _("\
 397   -X                      ignored\n"));
 398   fprintf (stream, _("\
 399   -Z                      generate object file even after errors\n"));
 400   fprintf (stream, _("\
 401   --listing-lhs-width     set the width in words of the output data column of\n\
 402                           the listing\n"));
 403   fprintf (stream, _("\
 404   --listing-lhs-width2    set the width in words of the continuation lines\n\
 405                           of the output data column; ignored if smaller than\n\
 406                           the width of the first line\n"));
 407   fprintf (stream, _("\
 408   --listing-rhs-width     set the max width in characters of the lines from\n\
 409                           the source file\n"));
 410   fprintf (stream, _("\
 411   --listing-cont-lines    set the maximum number of continuation lines used\n\
 412                           for the output data column of the listing\n"));
 413   fprintf (stream, _("\
 414   @FILE                   read options from FILE\n"));
 415
 416   md_show_usage (stream);
 417
 418   fputc ('\n', stream);
 419
 420   if (REPORT_BUGS_TO[0] && stream == stdout)
 421     fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
 422 }
 423
 424 /* Since it is easy to do here we interpret the special arg "-"
 425    to mean "use stdin" and we set that argv[] pointing to "".
 426    After we have munged argv[], the only things left are source file
 427    name(s) and ""(s) denoting stdin. These file names are used
 428    (perhaps more than once) later.
 429
 430    check for new machine-dep cmdline options in
 431    md_parse_option definitions in config/tc-*.c.  */
 432
 433 static void
 434 parse_args (int * pargc, char *** pargv)
 435 {
 436   int old_argc;
 437   int new_argc;
 438   char ** old_argv;
 439   char ** new_argv;
 440   /* Starting the short option string with '-' is for programs that
 441      expect options and other ARGV-elements in any order and that care about
 442      the ordering of the two.  We describe each non-option ARGV-element
 443      as if it were the argument of an option with character code 1.  */
 444   char *shortopts;
 445   extern const char *md_shortopts;
 446   static const char std_shortopts[] =
 447   {
 448     '-', 'J',
 449 #ifndef WORKING_DOT_WORD
 450     /* -K is not meaningful if .word is not being hacked.  */
 451     'K',
 452 #endif
 453     'L', 'M', 'R', 'W', 'Z', 'a', ':', ':', 'D', 'f', 'g', ':',':', 'I', ':', 'o', ':',
 454 #ifndef VMS
 455     /* -v takes an argument on VMS, so we don't make it a generic
 456        option.  */
 457     'v',
 458 #endif
 459     'w', 'X',
 460 #ifdef HAVE_ITBL_CPU
 461     /* New option for extending instruction set (see also --itbl below).  */
 462     't', ':',
 463 #endif
 464     '\0'
 465   };
 466   struct option *longopts;
 467   extern struct option md_longopts[];
 468   extern size_t md_longopts_size;
 469   /* Codes used for the long options with no short synonyms.  */
 470   enum option_values
 471     {
 472       OPTION_HELP = OPTION_STD_BASE,
 473       OPTION_NOCPP,
 474       OPTION_STATISTICS,
 475       OPTION_VERSION,
 476       OPTION_DUMPCONFIG,
 477       OPTION_VERBOSE,
 478       OPTION_EMULATION,
 479       OPTION_DEBUG_PREFIX_MAP,
 480       OPTION_DEFSYM,
 481       OPTION_LISTING_LHS_WIDTH,
 482       OPTION_LISTING_LHS_WIDTH2, /* = STD_BASE + 10 */
 483       OPTION_LISTING_RHS_WIDTH,
 484       OPTION_LISTING_CONT_LINES,
 485       OPTION_DEPFILE,
 486       OPTION_GSTABS,
 487       OPTION_GSTABS_PLUS,
 488       OPTION_GDWARF_2,
 489       OPTION_GDWARF_3,
 490       OPTION_GDWARF_4,
 491       OPTION_GDWARF_5,
 492       OPTION_GDWARF_SECTIONS, /* = STD_BASE + 20 */
 493       OPTION_GDWARF_CIE_VERSION,
 494       OPTION_GCODEVIEW,
 495       OPTION_STRIP_LOCAL_ABSOLUTE,
 496       OPTION_TRADITIONAL_FORMAT,
 497       OPTION_WARN,
 498       OPTION_TARGET_HELP,
 499       OPTION_EXECSTACK,
 500       OPTION_NOEXECSTACK,
 501       OPTION_SIZE_CHECK,
 502       OPTION_ELF_STT_COMMON,
 503       OPTION_ELF_BUILD_NOTES, /* = STD_BASE + 30 */
 504       OPTION_SECTNAME_SUBST,
 505       OPTION_ALTERNATE,
 506       OPTION_AL,
 507       OPTION_HASH_TABLE_SIZE,
 508       OPTION_REDUCE_MEMORY_OVERHEADS,
 509       OPTION_WARN_FATAL,
 510       OPTION_COMPRESS_DEBUG,
 511       OPTION_NOCOMPRESS_DEBUG,
 512       OPTION_NO_PAD_SECTIONS,
 513       OPTION_MULTIBYTE_HANDLING,  /* = STD_BASE + 40 */
 514       OPTION_SFRAME
 515     /* When you add options here, check that they do
 516        not collide with OPTION_MD_BASE.  See as.h.  */
 517     };
 518
 519   static const struct option std_longopts[] =
 520   {
 521     /* Note: commas are placed at the start of the line rather than
 522        the end of the preceding line so that it is simpler to
 523        selectively add and remove lines from this list.  */
 524     {"alternate", no_argument, NULL, OPTION_ALTERNATE}
 525     /* The entry for "a" is here to prevent getopt_long_only() from
 526        considering that -a is an abbreviation for --alternate.  This is
 527        necessary because -a=<FILE> is a valid switch but getopt would
 528        normally reject it since --alternate does not take an argument.  */
 529     ,{"a", optional_argument, NULL, 'a'}
 530     /* Handle -al=<FILE>.  */
 531     ,{"al", optional_argument, NULL, OPTION_AL}
 532     ,{"compress-debug-sections", optional_argument, NULL, OPTION_COMPRESS_DEBUG}
 533     ,{"nocompress-debug-sections", no_argument, NULL, OPTION_NOCOMPRESS_DEBUG}
 534     ,{"debug-prefix-map", required_argument, NULL, OPTION_DEBUG_PREFIX_MAP}
 535     ,{"defsym", required_argument, NULL, OPTION_DEFSYM}
 536     ,{"dump-config", no_argument, NULL, OPTION_DUMPCONFIG}
 537     ,{"emulation", required_argument, NULL, OPTION_EMULATION}
 538 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 539     ,{"execstack", no_argument, NULL, OPTION_EXECSTACK}
 540     ,{"noexecstack", no_argument, NULL, OPTION_NOEXECSTACK}
 541     ,{"size-check", required_argument, NULL, OPTION_SIZE_CHECK}
 542     ,{"elf-stt-common", required_argument, NULL, OPTION_ELF_STT_COMMON}
 543     ,{"sectname-subst", no_argument, NULL, OPTION_SECTNAME_SUBST}
 544     ,{"generate-missing-build-notes", required_argument, NULL, OPTION_ELF_BUILD_NOTES}
 545     ,{"gsframe", no_argument, NULL, OPTION_SFRAME}
 546 #endif
 547     ,{"fatal-warnings", no_argument, NULL, OPTION_WARN_FATAL}
 548     ,{"gdwarf-2", no_argument, NULL, OPTION_GDWARF_2}
 549     ,{"gdwarf-3", no_argument, NULL, OPTION_GDWARF_3}
 550     ,{"gdwarf-4", no_argument, NULL, OPTION_GDWARF_4}
 551     ,{"gdwarf-5", no_argument, NULL, OPTION_GDWARF_5}
 552     /* GCC uses --gdwarf-2 but GAS used to to use --gdwarf2,
 553        so we keep it here for backwards compatibility.  */
 554     ,{"gdwarf2", no_argument, NULL, OPTION_GDWARF_2}
 555     ,{"gdwarf-sections", no_argument, NULL, OPTION_GDWARF_SECTIONS}
 556     ,{"gdwarf-cie-version", required_argument, NULL, OPTION_GDWARF_CIE_VERSION}
 557 #if defined (TE_PE) && defined (O_secrel)
 558     ,{"gcodeview", no_argument, NULL, OPTION_GCODEVIEW}
 559 #endif
 560     ,{"gen-debug", no_argument, NULL, 'g'}
 561     ,{"gstabs", no_argument, NULL, OPTION_GSTABS}
 562     ,{"gstabs+", no_argument, NULL, OPTION_GSTABS_PLUS}
 563     ,{"hash-size", required_argument, NULL, OPTION_HASH_TABLE_SIZE}
 564     ,{"help", no_argument, NULL, OPTION_HELP}
 565 #ifdef HAVE_ITBL_CPU
 566     /* New option for extending instruction set (see also -t above).
 567        The "-t file" or "--itbl file" option extends the basic set of
 568        valid instructions by reading "file", a text file containing a
 569        list of instruction formats.  The additional opcodes and their
 570        formats are added to the built-in set of instructions, and
 571        mnemonics for new registers may also be defined.  */
 572     ,{"itbl", required_argument, NULL, 't'}
 573 #endif
 574     /* getopt allows abbreviations, so we do this to stop it from
 575        treating -k as an abbreviation for --keep-locals.  Some
 576        ports use -k to enable PIC assembly.  */
 577     ,{"keep-locals", no_argument, NULL, 'L'}
 578     ,{"keep-locals", no_argument, NULL, 'L'}
 579     ,{"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH}
 580     ,{"listing-lhs-width2", required_argument, NULL, OPTION_LISTING_LHS_WIDTH2}
 581     ,{"listing-rhs-width", required_argument, NULL, OPTION_LISTING_RHS_WIDTH}
 582     ,{"listing-cont-lines", required_argument, NULL, OPTION_LISTING_CONT_LINES}
 583     ,{"MD", required_argument, NULL, OPTION_DEPFILE}
 584     ,{"mri", no_argument, NULL, 'M'}
 585     ,{"nocpp", no_argument, NULL, OPTION_NOCPP}
 586     ,{"no-pad-sections", no_argument, NULL, OPTION_NO_PAD_SECTIONS}
 587     ,{"no-warn", no_argument, NULL, 'W'}
 588     ,{"reduce-memory-overheads", no_argument, NULL, OPTION_REDUCE_MEMORY_OVERHEADS}
 589     ,{"statistics", no_argument, NULL, OPTION_STATISTICS}
 590     ,{"strip-local-absolute", no_argument, NULL, OPTION_STRIP_LOCAL_ABSOLUTE}
 591     ,{"version", no_argument, NULL, OPTION_VERSION}
 592     ,{"verbose", no_argument, NULL, OPTION_VERBOSE}
 593     ,{"target-help", no_argument, NULL, OPTION_TARGET_HELP}
 594     ,{"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT}
 595     ,{"warn", no_argument, NULL, OPTION_WARN}
 596     ,{"multibyte-handling", required_argument, NULL, OPTION_MULTIBYTE_HANDLING}
 597   };
 598
 599   /* Construct the option lists from the standard list and the target
 600      dependent list.  Include space for an extra NULL option and
 601      always NULL terminate.  */
 602   shortopts = concat (std_shortopts, md_shortopts, (char *) NULL);
 603   longopts = (struct option *) xmalloc (sizeof (std_longopts)
 604                                         + md_longopts_size + sizeof (struct option));
 605   memcpy (longopts, std_longopts, sizeof (std_longopts));
 606   memcpy (((char *) longopts) + sizeof (std_longopts), md_longopts, md_longopts_size);
 607   memset (((char *) longopts) + sizeof (std_longopts) + md_longopts_size,
 608           0, sizeof (struct option));
 609
 610   /* Make a local copy of the old argv.  */
 611   old_argc = *pargc;
 612   old_argv = *pargv;
 613
 614   /* Initialize a new argv that contains no options.  */
 615   new_argv = notes_alloc (sizeof (char *) * (old_argc + 1));
 616   new_argv[0] = old_argv[0];
 617   new_argc = 1;
 618   new_argv[new_argc] = NULL;
 619
 620   while (1)
 621     {
 622       /* getopt_long_only is like getopt_long, but '-' as well as '--' can
 623          indicate a long option.  */
 624       int longind;
 625       int optc = getopt_long_only (old_argc, old_argv, shortopts, longopts,
 626                                    &longind);
 627
 628       if (optc == -1)
 629         break;
 630
 631       switch (optc)
 632         {
 633         default:
 634           /* md_parse_option should return 1 if it recognizes optc,
 635              0 if not.  */
 636           if (md_parse_option (optc, optarg) != 0)
 637             break;
 638           /* `-v' isn't included in the general short_opts list, so check for
 639              it explicitly here before deciding we've gotten a bad argument.  */
 640           if (optc == 'v')
 641             {
 642 #ifdef VMS
 643               /* Telling getopt to treat -v's value as optional can result
 644                  in it picking up a following filename argument here.  The
 645                  VMS code in md_parse_option can return 0 in that case,
 646                  but it has no way of pushing the filename argument back.  */
 647               if (optarg && *optarg)
 648                 new_argv[new_argc++] = optarg, new_argv[new_argc] = NULL;
 649               else
 650 #else
 651               case 'v':
 652 #endif
 653               case OPTION_VERBOSE:
 654                 print_version_id ();
 655                 verbose = 1;
 656               break;
 657             }
 658           else
 659             as_bad (_("unrecognized option -%c%s"), optc, optarg ? optarg : "");
 660           /* Fall through.  */
 661
 662         case '?':
 663           exit (EXIT_FAILURE);
 664
 665         case 1:                 /* File name.  */
 666           if (!strcmp (optarg, "-"))
 667             optarg = (char *) "";
 668           new_argv[new_argc++] = optarg;
 669           new_argv[new_argc] = NULL;
 670           break;
 671
 672         case OPTION_TARGET_HELP:
 673           md_show_usage (stdout);
 674           exit (EXIT_SUCCESS);
 675
 676         case OPTION_HELP:
 677           show_usage (stdout);
 678           exit (EXIT_SUCCESS);
 679
 680         case OPTION_NOCPP:
 681           break;
 682
 683         case OPTION_NO_PAD_SECTIONS:
 684           do_not_pad_sections_to_alignment = 1;
 685           break;
 686
 687         case OPTION_STATISTICS:
 688           flag_print_statistics = 1;
 689           break;
 690
 691         case OPTION_STRIP_LOCAL_ABSOLUTE:
 692           flag_strip_local_absolute = 1;
 693           break;
 694
 695         case OPTION_TRADITIONAL_FORMAT:
 696           flag_traditional_format = 1;
 697           break;
 698
 699         case OPTION_MULTIBYTE_HANDLING:
 700           if (strcmp (optarg, "allow") == 0)
 701             multibyte_handling = multibyte_allow;
 702           else if (strcmp (optarg, "warn") == 0)
 703             multibyte_handling = multibyte_warn;
 704           else if (strcmp (optarg, "warn-sym-only") == 0)
 705             multibyte_handling = multibyte_warn_syms;
 706           else if (strcmp (optarg, "warn_sym_only") == 0)
 707             multibyte_handling = multibyte_warn_syms;
 708           else
 709             as_fatal (_("unexpected argument to --multibyte-input-option: '%s'"), optarg);
 710           break;
 711
 712         case OPTION_VERSION:
 713           /* This output is intended to follow the GNU standards document.  */
 714           printf (_("GNU assembler %s\n"), BFD_VERSION_STRING);
 715           printf (_("Copyright (C) 2023 Free Software Foundation, Inc.\n"));
 716           printf (_("\
 717 This program is free software; you may redistribute it under the terms of\n\
 718 the GNU General Public License version 3 or later.\n\
 719 This program has absolutely no warranty.\n"));
 720 #ifdef TARGET_WITH_CPU
 721           printf (_("This assembler was configured for a target of `%s' "
 722                     "and default,\ncpu type `%s'.\n"),
 723                   TARGET_ALIAS, TARGET_WITH_CPU);
 724 #else
 725           printf (_("This assembler was configured for a target of `%s'.\n"),
 726                   TARGET_ALIAS);
 727 #endif
 728           exit (EXIT_SUCCESS);
 729
 730         case OPTION_EMULATION:
 731 #ifdef USE_EMULATIONS
 732           if (strcmp (optarg, this_emulation->name))
 733             as_fatal (_("multiple emulation names specified"));
 734 #else
 735           as_fatal (_("emulations not handled in this configuration"));
 736 #endif
 737           break;
 738
 739         case OPTION_DUMPCONFIG:
 740           fprintf (stderr, _("alias = %s\n"), TARGET_ALIAS);
 741           fprintf (stderr, _("canonical = %s\n"), TARGET_CANONICAL);
 742           fprintf (stderr, _("cpu-type = %s\n"), TARGET_CPU);
 743 #ifdef TARGET_OBJ_FORMAT
 744           fprintf (stderr, _("format = %s\n"), TARGET_OBJ_FORMAT);
 745 #endif
 746 #ifdef TARGET_FORMAT
 747           fprintf (stderr, _("bfd-target = %s\n"), TARGET_FORMAT);
 748 #endif
 749           exit (EXIT_SUCCESS);
 750
 751         case OPTION_COMPRESS_DEBUG:
 752           if (optarg)
 753             {
 754 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 755               flag_compress_debug = bfd_get_compression_algorithm (optarg);
 756 #ifndef HAVE_ZSTD
 757               if (flag_compress_debug == COMPRESS_DEBUG_ZSTD)
 758                   as_fatal (_ ("--compress-debug-sections=zstd: gas is not "
 759                                "built with zstd support"));
 760 #endif
 761               if (flag_compress_debug == COMPRESS_UNKNOWN)
 762                 as_fatal (_("Invalid --compress-debug-sections option: `%s'"),
 763                           optarg);
 764 #else
 765               as_fatal (_("--compress-debug-sections=%s is unsupported"),
 766                         optarg);
 767 #endif
 768             }
 769           else
 770             flag_compress_debug = DEFAULT_COMPRESSED_DEBUG_ALGORITHM;
 771           break;
 772
 773         case OPTION_NOCOMPRESS_DEBUG:
 774           flag_compress_debug = COMPRESS_DEBUG_NONE;
 775           break;
 776
 777         case OPTION_DEBUG_PREFIX_MAP:
 778           add_debug_prefix_map (optarg);
 779           break;
 780
 781         case OPTION_DEFSYM:
 782           {
 783             char *s;
 784             valueT i;
 785             struct defsym_list *n;
 786
 787             for (s = optarg; *s != '\0' && *s != '='; s++)
 788               ;
 789             if (*s == '\0')
 790               as_fatal (_("bad defsym; format is --defsym name=value"));
 791             *s++ = '\0';
 792             i = bfd_scan_vma (s, (const char **) NULL, 0);
 793             n = XNEW (struct defsym_list);
 794             n->next = defsyms;
 795             n->name = optarg;
 796             n->value = i;
 797             defsyms = n;
 798           }
 799           break;
 800
 801 #ifdef HAVE_ITBL_CPU
 802         case 't':
 803           {
 804             /* optarg is the name of the file containing the instruction
 805                formats, opcodes, register names, etc.  */
 806             if (optarg == NULL)
 807               {
 808                 as_warn (_("no file name following -t option"));
 809                 break;
 810               }
 811
 812             /* Parse the file and add the new instructions to our internal
 813                table.  If multiple instruction tables are specified, the
 814                information from this table gets appended onto the existing
 815                internal table.  */
 816             if (itbl_parse (optarg) != 0)
 817               as_fatal (_("failed to read instruction table %s\n"),
 818                         optarg);
 819           }
 820           break;
 821 #endif
 822
 823         case OPTION_DEPFILE:
 824           start_dependencies (optarg);
 825           break;
 826
 827         case 'g':
 828           /* Some backends, eg Alpha and Mips, use the -g switch for their
 829              own purposes.  So we check here for an explicit -g and allow
 830              the backend to decide if it wants to process it.  */
 831           if (   old_argv[optind - 1][1] == 'g'
 832               && md_parse_option (optc, optarg))
 833             continue;
 834
 835           /* We end up here for any -gsomething-not-already-a-long-option.
 836              give some useful feedback on not (yet) supported -gdwarfxxx
 837              versions/sections/options.  */
 838           if (startswith (old_argv[optind - 1], "-gdwarf"))
 839             as_fatal (_("unknown DWARF option %s\n"), old_argv[optind - 1]);
 840           else if (old_argv[optind - 1][1] == 'g' && optarg != NULL)
 841             as_fatal (_("unknown option `%s'"), old_argv[optind - 1]);
 842
 843           if (md_debug_format_selector)
 844             debug_type = md_debug_format_selector (& use_gnu_debug_info_extensions);
 845           else if (IS_ELF)
 846             {
 847               debug_type = DEBUG_DWARF2;
 848               dwarf_level = 2;
 849             }
 850           else
 851             debug_type = DEBUG_STABS;
 852           break;
 853
 854         case OPTION_GSTABS_PLUS:
 855           use_gnu_debug_info_extensions = 1;
 856           /* Fall through.  */
 857         case OPTION_GSTABS:
 858           debug_type = DEBUG_STABS;
 859           break;
 860
 861         case OPTION_GDWARF_2:
 862           debug_type = DEBUG_DWARF2;
 863           dwarf_level = 2;
 864           break;
 865
 866         case OPTION_GDWARF_3:
 867           debug_type = DEBUG_DWARF2;
 868           dwarf_level = 3;
 869           break;
 870
 871         case OPTION_GDWARF_4:
 872           debug_type = DEBUG_DWARF2;
 873           dwarf_level = 4;
 874           break;
 875
 876         case OPTION_GDWARF_5:
 877           debug_type = DEBUG_DWARF2;
 878           dwarf_level = 5;
 879           break;
 880
 881         case OPTION_GDWARF_SECTIONS:
 882           flag_dwarf_sections = true;
 883           break;
 884
 885 #if defined (TE_PE) && defined (O_secrel)
 886         case OPTION_GCODEVIEW:
 887           debug_type = DEBUG_CODEVIEW;
 888           break;
 889 #endif
 890
 891         case OPTION_GDWARF_CIE_VERSION:
 892           flag_dwarf_cie_version = atoi (optarg);
 893           /* The available CIE versions are 1 (DWARF 2), 3 (DWARF 3), and 4
 894              (DWARF 4 and 5).  */
 895           if (flag_dwarf_cie_version < 1
 896               || flag_dwarf_cie_version == 2
 897               || flag_dwarf_cie_version > 4)
 898             as_fatal (_("Invalid --gdwarf-cie-version `%s'"), optarg);
 899           switch (flag_dwarf_cie_version)
 900             {
 901             case 1:
 902               if (dwarf_level < 2)
 903                 dwarf_level = 2;
 904               break;
 905             case 3:
 906               if (dwarf_level < 3)
 907                 dwarf_level = 3;
 908               break;
 909             default:
 910               if (dwarf_level < 4)
 911                 dwarf_level = 4;
 912               break;
 913             }
 914           break;
 915
 916         case 'J':
 917           flag_signed_overflow_ok = 1;
 918           break;
 919
 920 #ifndef WORKING_DOT_WORD
 921         case 'K':
 922           flag_warn_displacement = 1;
 923           break;
 924 #endif
 925         case 'L':
 926           flag_keep_locals = 1;
 927           break;
 928
 929         case OPTION_LISTING_LHS_WIDTH:
 930           listing_lhs_width = atoi (optarg);
 931           if (listing_lhs_width_second < listing_lhs_width)
 932             listing_lhs_width_second = listing_lhs_width;
 933           break;
 934         case OPTION_LISTING_LHS_WIDTH2:
 935           {
 936             int tmp = atoi (optarg);
 937
 938             if (tmp > listing_lhs_width)
 939               listing_lhs_width_second = tmp;
 940           }
 941           break;
 942         case OPTION_LISTING_RHS_WIDTH:
 943           listing_rhs_width = atoi (optarg);
 944           break;
 945         case OPTION_LISTING_CONT_LINES:
 946           listing_lhs_cont_lines = atoi (optarg);
 947           break;
 948
 949         case 'M':
 950           flag_mri = 1;
 951 #ifdef TC_M68K
 952           flag_m68k_mri = 1;
 953 #endif
 954           break;
 955
 956         case 'R':
 957           flag_readonly_data_in_text = 1;
 958           break;
 959
 960         case 'W':
 961           flag_no_warnings = 1;
 962           break;
 963
 964         case OPTION_WARN:
 965           flag_no_warnings = 0;
 966           flag_fatal_warnings = 0;
 967           break;
 968
 969         case OPTION_WARN_FATAL:
 970           flag_no_warnings = 0;
 971           flag_fatal_warnings = 1;
 972           break;
 973
 974 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
 975         case OPTION_EXECSTACK:
 976           flag_execstack = 1;
 977           flag_noexecstack = 0;
 978           break;
 979
 980         case OPTION_NOEXECSTACK:
 981           flag_noexecstack = 1;
 982           flag_execstack = 0;
 983           break;
 984
 985         case OPTION_SIZE_CHECK:
 986           if (strcasecmp (optarg, "error") == 0)
 987             flag_allow_nonconst_size = false;
 988           else if (strcasecmp (optarg, "warning") == 0)
 989             flag_allow_nonconst_size = true;
 990           else
 991             as_fatal (_("Invalid --size-check= option: `%s'"), optarg);
 992           break;
 993
 994         case OPTION_ELF_STT_COMMON:
 995           if (strcasecmp (optarg, "no") == 0)
 996             flag_use_elf_stt_common = 0;
 997           else if (strcasecmp (optarg, "yes") == 0)
 998             flag_use_elf_stt_common = 1;
 999           else
1000             as_fatal (_("Invalid --elf-stt-common= option: `%s'"),
1001                       optarg);
1002           break;
1003
1004         case OPTION_SECTNAME_SUBST:
1005           flag_sectname_subst = 1;
1006           break;
1007
1008         case OPTION_ELF_BUILD_NOTES:
1009           if (strcasecmp (optarg, "no") == 0)
1010             flag_generate_build_notes = false;
1011           else if (strcasecmp (optarg, "yes") == 0)
1012             flag_generate_build_notes = true;
1013           else
1014             as_fatal (_("Invalid --generate-missing-build-notes option: `%s'"),
1015                       optarg);
1016           break;
1017
1018         case OPTION_SFRAME:
1019           flag_gen_sframe = 1;
1020           break;
1021
1022 #endif /* OBJ_ELF */
1023
1024         case 'Z':
1025           flag_always_generate_output = 1;
1026           break;
1027
1028         case OPTION_AL:
1029           listing |= LISTING_LISTING;
1030           if (optarg)
1031             listing_filename = notes_strdup (optarg);
1032           break;
1033
1034         case OPTION_ALTERNATE:
1035           optarg = old_argv [optind - 1];
1036           while (* optarg == '-')
1037             optarg ++;
1038
1039           if (strcmp (optarg, "alternate") == 0)
1040             {
1041               flag_macro_alternate = 1;
1042               break;
1043             }
1044           optarg ++;
1045           /* Fall through.  */
1046
1047         case 'a':
1048           if (optarg)
1049             {
1050               if (optarg != old_argv[optind] && optarg[-1] == '=')
1051                 --optarg;
1052
1053               if (md_parse_option (optc, optarg) != 0)
1054                 break;
1055
1056               while (*optarg)
1057                 {
1058                   switch (*optarg)
1059                     {
1060                     case 'c':
1061                       listing |= LISTING_NOCOND;
1062                       break;
1063                     case 'd':
1064                       listing |= LISTING_NODEBUG;
1065                       break;
1066                     case 'g':
1067                       listing |= LISTING_GENERAL;
1068                       break;
1069                     case 'h':
1070                       listing |= LISTING_HLL;
1071                       break;
1072                     case 'l':
1073                       listing |= LISTING_LISTING;
1074                       break;
1075                     case 'm':
1076                       listing |= LISTING_MACEXP;
1077                       break;
1078                     case 'n':
1079                       listing |= LISTING_NOFORM;
1080                       break;
1081                     case 's':
1082                       listing |= LISTING_SYMBOLS;
1083                       break;
1084                     case '=':
1085                       listing_filename = notes_strdup (optarg + 1);
1086                       optarg += strlen (listing_filename);
1087                       break;
1088                     default:
1089                       as_fatal (_("invalid listing option `%c'"), *optarg);
1090                       break;
1091                     }
1092                   optarg++;
1093                 }
1094             }
1095           if (!listing)
1096             listing = LISTING_DEFAULT;
1097           break;
1098
1099         case 'D':
1100           /* DEBUG is implemented: it debugs different
1101              things from other people's assemblers.  */
1102           flag_debug = 1;
1103           break;
1104
1105         case 'f':
1106           flag_no_comments = 1;
1107           break;
1108
1109         case 'I':
1110           {                     /* Include file directory.  */
1111             char *temp = notes_strdup (optarg);
1112
1113             add_include_dir (temp);
1114             break;
1115           }
1116
1117         case 'o':
1118           out_file_name = notes_strdup (optarg);
1119           break;
1120
1121         case 'w':
1122           break;
1123
1124         case 'X':
1125           /* -X means treat warnings as errors.  */
1126           break;
1127
1128         case OPTION_REDUCE_MEMORY_OVERHEADS:
1129           break;
1130
1131         case OPTION_HASH_TABLE_SIZE:
1132           break;
1133         }
1134     }
1135
1136   free (shortopts);
1137   free (longopts);
1138
1139   *pargc = new_argc;
1140   *pargv = new_argv;
1141
1142 #ifdef md_after_parse_args
1143   md_after_parse_args ();
1144 #endif
1145 }
1146
1147 static void
1148 dump_statistics (void)
1149 {
1150   long run_time = get_run_time () - start_time;
1151
1152   fprintf (stderr, _("%s: total time in assembly: %ld.%06ld\n"),
1153            myname, run_time / 1000000, run_time % 1000000);
1154
1155   subsegs_print_statistics (stderr);
1156   write_print_statistics (stderr);
1157   symbol_print_statistics (stderr);
1158   read_print_statistics (stderr);
1159
1160 #ifdef tc_print_statistics
1161   tc_print_statistics (stderr);
1162 #endif
1163
1164 #ifdef obj_print_statistics
1165   obj_print_statistics (stderr);
1166 #endif
1167 }
1168 \f
1169 /* Here to attempt 1 pass over each input file.
1170    We scan argv[*] looking for filenames or exactly "" which is
1171    shorthand for stdin. Any argv that is NULL is not a file-name.
1172    We set need_pass_2 TRUE if, after this, we still have unresolved
1173    expressions of the form (unknown value)+-(unknown value).
1174
1175    Note the un*x semantics: there is only 1 logical input file, but it
1176    may be a catenation of many 'physical' input files.  */
1177
1178 static void
1179 perform_an_assembly_pass (int argc, char ** argv)
1180 {
1181   int saw_a_file = 0;
1182 #ifndef OBJ_MACH_O
1183   flagword applicable;
1184 #endif
1185
1186   need_pass_2 = 0;
1187
1188 #ifndef OBJ_MACH_O
1189   /* Create the standard sections, and those the assembler uses
1190      internally.  */
1191   text_section = subseg_new (TEXT_SECTION_NAME, 0);
1192   data_section = subseg_new (DATA_SECTION_NAME, 0);
1193   bss_section = subseg_new (BSS_SECTION_NAME, 0);
1194   /* @@ FIXME -- we're setting the RELOC flag so that sections are assumed
1195      to have relocs, otherwise we don't find out in time.  */
1196   applicable = bfd_applicable_section_flags (stdoutput);
1197   bfd_set_section_flags (text_section,
1198                          applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
1199                                        | SEC_CODE | SEC_READONLY));
1200   bfd_set_section_flags (data_section,
1201                          applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
1202                                        | SEC_DATA));
1203   bfd_set_section_flags (bss_section, applicable & SEC_ALLOC);
1204   seg_info (bss_section)->bss = 1;
1205 #endif
1206   subseg_new (BFD_ABS_SECTION_NAME, 0);
1207   subseg_new (BFD_UND_SECTION_NAME, 0);
1208   reg_section = subseg_new ("*GAS `reg' section*", 0);
1209   expr_section = subseg_new ("*GAS `expr' section*", 0);
1210
1211 #ifndef OBJ_MACH_O
1212   subseg_set (text_section, 0);
1213 #endif
1214
1215   /* This may add symbol table entries, which requires having an open BFD,
1216      and sections already created.  */
1217   md_begin ();
1218
1219 #ifdef USING_CGEN
1220   gas_cgen_begin ();
1221 #endif
1222 #ifdef obj_begin
1223   obj_begin ();
1224 #endif
1225
1226   /* Skip argv[0].  */
1227   argv++;
1228   argc--;
1229
1230   while (argc--)
1231     {
1232       if (*argv)
1233         {                       /* Is it a file-name argument?  */
1234           saw_a_file++;
1235           /* argv->"" if stdin desired, else->filename.  */
1236           read_a_source_file (*argv);
1237         }
1238       argv++;                   /* Completed that argv.  */
1239     }
1240   if (!saw_a_file)
1241     read_a_source_file ("");
1242 }
1243
1244 static void
1245 free_notes (void)
1246 {
1247   _obstack_free (&notes, NULL);
1248 }
1249
1250 /* Early initialisation, before gas prints messages.  */
1251
1252 static void
1253 gas_early_init (int *argcp, char ***argvp)
1254 {
1255   start_time = get_run_time ();
1256   signal_init ();
1257
1258 #ifdef HAVE_LC_MESSAGES
1259   setlocale (LC_MESSAGES, "");
1260 #endif
1261   setlocale (LC_CTYPE, "");
1262   bindtextdomain (PACKAGE, LOCALEDIR);
1263   textdomain (PACKAGE);
1264
1265   if (debug_memory)
1266     chunksize = 64;
1267
1268 #ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME
1269 #define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out"
1270 #endif
1271
1272   out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME;
1273
1274   hex_init ();
1275   if (bfd_init () != BFD_INIT_MAGIC)
1276     as_fatal (_("libbfd ABI mismatch"));
1277
1278   obstack_begin (&notes, chunksize);
1279   xatexit (free_notes);
1280
1281   myname = **argvp;
1282   xmalloc_set_program_name (myname);
1283   bfd_set_error_program_name (myname);
1284
1285   expandargv (argcp, argvp);
1286
1287   init_include_dir ();
1288
1289 #ifdef HOST_SPECIAL_INIT
1290   HOST_SPECIAL_INIT (*argcp, *argvp);
1291 #endif
1292
1293 #ifdef USE_EMULATIONS
1294   select_emulation_mode (*argcp, *argvp);
1295 #endif
1296 }
1297
1298 /* The bulk of gas initialisation.  This is after args are parsed.  */
1299
1300 static void
1301 gas_init (void)
1302 {
1303   symbol_begin ();
1304   frag_init ();
1305   subsegs_begin ();
1306   read_begin ();
1307   input_scrub_begin ();
1308   expr_begin ();
1309   eh_begin ();
1310
1311   macro_init ();
1312
1313   dwarf2_init ();
1314
1315   local_symbol_make (".gasversion.", absolute_section,
1316                      &predefined_address_frag, BFD_VERSION / 10000UL);
1317
1318   /* Note: Put new initialisation calls that don't depend on stdoutput
1319      being open above this point.  stdoutput must be open for anything
1320      that might use stdoutput objalloc memory, eg. calling bfd_alloc
1321      or creating global symbols (via bfd_make_empty_symbol).  */
1322   xatexit (output_file_close);
1323   output_file_create (out_file_name);
1324   gas_assert (stdoutput != 0);
1325
1326   /* Must be called before output_file_close.  xexit calls the xatexit
1327      list in reverse order.  */
1328   if (flag_print_statistics)
1329     xatexit (dump_statistics);
1330
1331   dot_symbol_init ();
1332
1333 #ifdef tc_init_after_args
1334   tc_init_after_args ();
1335 #endif
1336
1337   itbl_init ();
1338
1339   /* Now that we have fully initialized, and have created the output
1340      file, define any symbols requested by --defsym command line
1341      arguments.  */
1342   while (defsyms != NULL)
1343     {
1344       symbolS *sym;
1345       struct defsym_list *next;
1346
1347       sym = symbol_new (defsyms->name, absolute_section,
1348                         &zero_address_frag, defsyms->value);
1349       /* Make symbols defined on the command line volatile, so that they
1350          can be redefined inside a source file.  This makes this assembler's
1351          behaviour compatible with earlier versions, but it may not be
1352          completely intuitive.  */
1353       S_SET_VOLATILE (sym);
1354       symbol_table_insert (sym);
1355       next = defsyms->next;
1356       free (defsyms);
1357       defsyms = next;
1358     }
1359 }
1360
1361 int
1362 main (int argc, char ** argv)
1363 {
1364   char ** argv_orig = argv;
1365   struct stat sob;
1366
1367   gas_early_init (&argc, &argv);
1368
1369   /* Call parse_args before gas_init so that switches like
1370      --hash-size can be honored.  */
1371   parse_args (&argc, &argv);
1372
1373   if (argc > 1 && stat (out_file_name, &sob) == 0)
1374     {
1375       int i;
1376
1377       for (i = 1; i < argc; ++i)
1378         {
1379           struct stat sib;
1380
1381           /* Check that the input file and output file are different.  */
1382           if (stat (argv[i], &sib) == 0
1383               && sib.st_ino == sob.st_ino
1384               /* POSIX emulating systems may support stat() but if the
1385                  underlying file system does not support a file serial number
1386                  of some kind then they will return 0 for the inode.  So
1387                  two files with an inode of 0 may not actually be the same.
1388                  On real POSIX systems no ordinary file will ever have an
1389                  inode of 0.  */
1390               && sib.st_ino != 0
1391               /* Different files may have the same inode number if they
1392                  reside on different devices, so check the st_dev field as
1393                  well.  */
1394               && sib.st_dev == sob.st_dev
1395               /* PR 25572: Only check regular files.  Devices, sockets and so
1396                  on might actually work as both input and output.  Plus there
1397                  is a use case for using /dev/null as both input and output
1398                  when checking for command line option support in a script:
1399                    as --foo /dev/null -o /dev/null; if $? then ...  */
1400               && S_ISREG (sib.st_mode))
1401             {
1402               const char *saved_out_file_name = out_file_name;
1403
1404               /* Don't let as_fatal remove the output file!  */
1405               out_file_name = NULL;
1406               as_fatal (_("The input '%s' and output '%s' files are the same"),
1407                         argv[i], saved_out_file_name);
1408             }
1409         }
1410     }
1411
1412   gas_init ();
1413
1414   /* Assemble it.  */
1415   perform_an_assembly_pass (argc, argv);
1416
1417   cond_finish_check (-1);
1418
1419 #ifdef md_finish
1420   md_finish ();
1421 #endif
1422
1423 #if defined OBJ_ELF || defined OBJ_MAYBE_ELF
1424   if ((flag_execstack || flag_noexecstack)
1425       && OUTPUT_FLAVOR == bfd_target_elf_flavour)
1426     {
1427       segT gnustack;
1428
1429       gnustack = subseg_new (".note.GNU-stack", 0);
1430       bfd_set_section_flags (gnustack,
1431                              SEC_READONLY | (flag_execstack ? SEC_CODE : 0));
1432
1433     }
1434 #endif
1435
1436   codeview_finish ();
1437
1438   /* If we've been collecting dwarf2 .debug_line info, either for
1439      assembly debugging or on behalf of the compiler, emit it now.  */
1440   dwarf2_finish ();
1441
1442   /* If we constructed dwarf2 .eh_frame info, either via .cfi
1443      directives from the user or by the backend, emit it now.  */
1444   cfi_finish ();
1445
1446   keep_it = 0;
1447   if (seen_at_least_1_file ())
1448     {
1449       int n_warns, n_errs;
1450       char warn_msg[50];
1451       char err_msg[50];
1452
1453       write_object_file ();
1454
1455       n_warns = had_warnings ();
1456       n_errs = had_errors ();
1457
1458       sprintf (warn_msg,
1459                ngettext ("%d warning", "%d warnings", n_warns), n_warns);
1460       sprintf (err_msg,
1461                ngettext ("%d error", "%d errors", n_errs), n_errs);
1462       if (flag_fatal_warnings && n_warns != 0)
1463         {
1464           if (n_errs == 0)
1465             as_bad (_("%s, treating warnings as errors"), warn_msg);
1466           n_errs += n_warns;
1467         }
1468
1469       if (n_errs == 0)
1470         keep_it = 1;
1471       else if (flag_always_generate_output)
1472         {
1473           /* The -Z flag indicates that an object file should be generated,
1474              regardless of warnings and errors.  */
1475           keep_it = 1;
1476           fprintf (stderr, _("%s, %s, generating bad object file\n"),
1477                    err_msg, warn_msg);
1478         }
1479     }
1480
1481   fflush (stderr);
1482
1483 #ifndef NO_LISTING
1484   listing_print (listing_filename, argv_orig);
1485 #endif
1486
1487   input_scrub_end ();
1488
1489   /* Use xexit instead of return, because under VMS environments they
1490      may not place the same interpretation on the value given.  */
1491   if (had_errors () != 0)
1492     xexit (EXIT_FAILURE);
1493
1494   /* Only generate dependency file if assembler was successful.  */
1495   print_dependencies ();
1496
1497   xexit (EXIT_SUCCESS);
1498 }