gas/as.c

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