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