1 /* as.c - GAS main program.
2 Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
4 Free Software Foundation, Inc.
6 This file is part of GAS, the GNU Assembler.
8 GAS is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2, or (at your option)
13 GAS is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GAS; see the file COPYING. If not, write to the Free
20 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
23 /* Main program for AS; a 32-bit assembler of GNU.
24 Understands command arguments.
25 Has a few routines that don't fit in other modules because they
31 Since no-one else says they will support them in future: I
32 don't support them now. */
40 #include "output-file.h"
43 #include "dwarf2dbg.h"
44 #include "dw2gencfi.h"
53 #define itbl_parse(itbl_file) 1
58 #ifdef NEED_DECLARATION_SBRK
64 /* Perform any cgen specific initialisation for gas. */
65 extern void gas_cgen_begin (void);
68 /* Keep a record of the itbl files we read in. */
71 struct itbl_file_list *next;
75 /* We build a list of defsyms as we read the options, and then define
76 them after we have initialized everything. */
79 struct defsym_list *next;
85 /* True if a listing is wanted. */
88 /* Type of debugging to generate. */
89 enum debug_info_type debug_type = DEBUG_UNSPECIFIED;
90 int use_gnu_debug_info_extensions = 0;
92 #ifndef MD_DEBUG_FORMAT_SELECTOR
93 #define MD_DEBUG_FORMAT_SELECTOR NULL
95 static enum debug_info_type (*md_debug_format_selector) (int *) = MD_DEBUG_FORMAT_SELECTOR;
97 /* Maximum level of macro nesting. */
98 int max_macro_nest = 100;
103 /* The default obstack chunk size. If we set this to zero, the
104 obstack code will use whatever will fit in a 4096 byte block. */
107 /* To monitor memory allocation more effectively, make this non-zero.
108 Then the chunk sizes for gas and bfd will be reduced. */
109 int debug_memory = 0;
111 /* Enable verbose mode. */
122 /* Name of listing file. */
123 static char *listing_filename = NULL;
125 static struct defsym_list *defsyms;
127 static struct itbl_file_list *itbl_files;
129 static long start_time;
131 static int flag_macro_alternate;
134 #ifdef USE_EMULATIONS
135 #define EMULATION_ENVIRON "AS_EMULATION"
137 extern struct emulation mipsbelf, mipslelf, mipself;
138 extern struct emulation mipsbecoff, mipslecoff, mipsecoff;
139 extern struct emulation i386coff, i386elf, i386aout;
140 extern struct emulation crisaout, criself;
142 static struct emulation *const emulations[] = { EMULATIONS };
143 static const int n_emulations = sizeof (emulations) / sizeof (emulations[0]);
146 select_emulation_mode (int argc, char **argv)
151 for (i = 1; i < argc; i++)
152 if (!strncmp ("--em", argv[i], 4))
158 p = strchr (argv[i], '=');
165 as_fatal (_("missing emulation mode name"));
170 em = getenv (EMULATION_ENVIRON);
172 em = DEFAULT_EMULATION;
176 for (i = 0; i < n_emulations; i++)
177 if (!strcmp (emulations[i]->name, em))
179 if (i == n_emulations)
180 as_fatal (_("unrecognized emulation name `%s'"), em);
181 this_emulation = emulations[i];
184 this_emulation = emulations[0];
186 this_emulation->init ();
190 default_emul_bfd_name (void)
197 common_emul_init (void)
199 this_format = this_emulation->format;
201 if (this_emulation->leading_underscore == 2)
202 this_emulation->leading_underscore = this_format->dfl_leading_underscore;
204 if (this_emulation->default_endian != 2)
205 target_big_endian = this_emulation->default_endian;
207 if (this_emulation->fake_label_name == 0)
209 if (this_emulation->leading_underscore)
210 this_emulation->fake_label_name = "L0\001";
212 /* What other parameters should we test? */
213 this_emulation->fake_label_name = ".L0\001";
219 print_version_id (void)
228 fprintf (stderr, _("GNU assembler version %s (%s) using BFD version %s"),
229 VERSION, TARGET_ALIAS, BFD_VERSION_STRING);
231 fprintf (stderr, _("GNU assembler version %s (%s)"), VERSION, TARGET_ALIAS);
233 fprintf (stderr, "\n");
237 show_usage (FILE * stream)
239 fprintf (stream, _("Usage: %s [option...] [asmfile...]\n"), myname);
241 fprintf (stream, _("\
243 -a[sub-option...] turn on listings\n\
244 Sub-options [default hls]:\n\
245 c omit false conditionals\n\
246 d omit debugging directives\n\
247 h include high-level source\n\
248 l include assembly\n\
249 m include macro expansions\n\
250 n omit forms processing\n\
252 =FILE list to FILE (must be last sub-option)\n"));
254 fprintf (stream, _("\
255 --alternate initially turn on alternate macro syntax\n"));
256 fprintf (stream, _("\
257 -D produce assembler debugging messages\n"));
258 fprintf (stream, _("\
259 --defsym SYM=VAL define symbol SYM to given value\n"));
260 #ifdef USE_EMULATIONS
267 for (i = 0; i < n_emulations - 1; i++)
268 fprintf (stream, "%s | ", emulations[i]->name);
269 fprintf (stream, "%s]\n", emulations[i]->name);
271 def_em = getenv (EMULATION_ENVIRON);
273 def_em = DEFAULT_EMULATION;
274 fprintf (stream, _("\
275 emulate output (default %s)\n"), def_em);
278 #if defined BFD_ASSEMBLER && (defined OBJ_ELF || defined OBJ_MAYBE_ELF)
279 fprintf (stream, _("\
280 --execstack require executable stack for this object\n"));
281 fprintf (stream, _("\
282 --noexecstack don't require executable stack for this object\n"));
284 fprintf (stream, _("\
285 -f skip whitespace and comment preprocessing\n"));
286 fprintf (stream, _("\
287 -g --gen-debug generate debugging information\n"));
288 fprintf (stream, _("\
289 --gstabs generate STABS debugging information\n"));
290 fprintf (stream, _("\
291 --gstabs+ generate STABS debug info with GNU extensions\n"));
292 fprintf (stream, _("\
293 --gdwarf-2 generate DWARF2 debugging information\n"));
294 fprintf (stream, _("\
295 --help show this message and exit\n"));
296 fprintf (stream, _("\
297 --target-help show target specific options\n"));
298 fprintf (stream, _("\
299 -I DIR add DIR to search list for .include directives\n"));
300 fprintf (stream, _("\
301 -J don't warn about signed overflow\n"));
302 fprintf (stream, _("\
303 -K warn when differences altered for long displacements\n"));
304 fprintf (stream, _("\
305 -L,--keep-locals keep local symbols (e.g. starting with `L')\n"));
306 fprintf (stream, _("\
307 -M,--mri assemble in MRI compatibility mode\n"));
308 fprintf (stream, _("\
309 --MD FILE write dependency information in FILE (default none)\n"));
310 fprintf (stream, _("\
312 fprintf (stream, _("\
313 -o OBJFILE name the object-file output OBJFILE (default a.out)\n"));
314 fprintf (stream, _("\
315 -R fold data section into text section\n"));
316 fprintf (stream, _("\
317 --statistics print various measured statistics from execution\n"));
318 fprintf (stream, _("\
319 --strip-local-absolute strip local absolute symbols\n"));
320 fprintf (stream, _("\
321 --traditional-format Use same format as native assembler when possible\n"));
322 fprintf (stream, _("\
323 --version print assembler version number and exit\n"));
324 fprintf (stream, _("\
325 -W --no-warn suppress warnings\n"));
326 fprintf (stream, _("\
327 --warn don't suppress warnings\n"));
328 fprintf (stream, _("\
329 --fatal-warnings treat warnings as errors\n"));
330 fprintf (stream, _("\
331 --itbl INSTTBL extend instruction set to include instructions\n\
332 matching the specifications defined in file INSTTBL\n"));
333 fprintf (stream, _("\
335 fprintf (stream, _("\
337 fprintf (stream, _("\
338 -Z generate object file even after errors\n"));
339 fprintf (stream, _("\
340 --listing-lhs-width set the width in words of the output data column of\n\
342 fprintf (stream, _("\
343 --listing-lhs-width2 set the width in words of the continuation lines\n\
344 of the output data column; ignored if smaller than\n\
345 the width of the first line\n"));
346 fprintf (stream, _("\
347 --listing-rhs-width set the max width in characters of the lines from\n\
348 the source file\n"));
349 fprintf (stream, _("\
350 --listing-cont-lines set the maximum number of continuation lines used\n\
351 for the output data column of the listing\n"));
353 md_show_usage (stream);
355 fputc ('\n', stream);
356 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
359 /* Since it is easy to do here we interpret the special arg "-"
360 to mean "use stdin" and we set that argv[] pointing to "".
361 After we have munged argv[], the only things left are source file
362 name(s) and ""(s) denoting stdin. These file names are used
363 (perhaps more than once) later.
365 check for new machine-dep cmdline options in
366 md_parse_option definitions in config/tc-*.c. */
369 parse_args (int * pargc, char *** pargv)
375 /* Starting the short option string with '-' is for programs that
376 expect options and other ARGV-elements in any order and that care about
377 the ordering of the two. We describe each non-option ARGV-element
378 as if it were the argument of an option with character code 1. */
380 extern const char *md_shortopts;
381 static const char std_shortopts[] =
384 #ifndef WORKING_DOT_WORD
385 /* -K is not meaningful if .word is not being hacked. */
388 'L', 'M', 'R', 'W', 'Z', 'a', ':', ':', 'D', 'f', 'g', 'I', ':', 'o', ':',
390 /* -v takes an argument on VMS, so we don't make it a generic
395 /* New option for extending instruction set (see also --itbl below). */
399 struct option *longopts;
400 extern struct option md_longopts[];
401 extern size_t md_longopts_size;
402 /* Codes used for the long options with no short synonyms. */
405 OPTION_HELP = OPTION_STD_BASE,
414 OPTION_LISTING_LHS_WIDTH,
415 OPTION_LISTING_LHS_WIDTH2,
416 OPTION_LISTING_RHS_WIDTH,
417 OPTION_LISTING_CONT_LINES,
422 OPTION_STRIP_LOCAL_ABSOLUTE,
423 OPTION_TRADITIONAL_FORMAT,
430 /* When you add options here, check that they do
431 not collide with OPTION_MD_BASE. See as.h. */
434 static const struct option std_longopts[] =
436 /* Note: commas are placed at the start of the line rather than
437 the end of the preceeding line so that it is simpler to
438 selectively add and remove lines from this list. */
439 {"alternate", no_argument, NULL, OPTION_ALTERNATE}
440 ,{"defsym", required_argument, NULL, OPTION_DEFSYM}
441 ,{"dump-config", no_argument, NULL, OPTION_DUMPCONFIG}
442 ,{"emulation", required_argument, NULL, OPTION_EMULATION}
443 #if defined BFD_ASSEMBLER && (defined OBJ_ELF || defined OBJ_MAYBE_ELF)
444 ,{"execstack", no_argument, NULL, OPTION_EXECSTACK}
445 ,{"noexecstack", no_argument, NULL, OPTION_NOEXECSTACK}
447 ,{"fatal-warnings", no_argument, NULL, OPTION_WARN_FATAL}
448 ,{"gdwarf-2", no_argument, NULL, OPTION_GDWARF2}
449 /* GCC uses --gdwarf-2 but GAS uses to use --gdwarf2,
450 so we keep it here for backwards compatibility. */
451 ,{"gdwarf2", no_argument, NULL, OPTION_GDWARF2}
452 ,{"gen-debug", no_argument, NULL, 'g'}
453 ,{"gstabs", no_argument, NULL, OPTION_GSTABS}
454 ,{"gstabs+", no_argument, NULL, OPTION_GSTABS_PLUS}
455 ,{"help", no_argument, NULL, OPTION_HELP}
456 /* New option for extending instruction set (see also -t above).
457 The "-t file" or "--itbl file" option extends the basic set of
458 valid instructions by reading "file", a text file containing a
459 list of instruction formats. The additional opcodes and their
460 formats are added to the built-in set of instructions, and
461 mnemonics for new registers may also be defined. */
462 ,{"itbl", required_argument, NULL, OPTION_INSTTBL}
463 /* getopt allows abbreviations, so we do this to stop it from
464 treating -k as an abbreviation for --keep-locals. Some
465 ports use -k to enable PIC assembly. */
466 ,{"keep-locals", no_argument, NULL, 'L'}
467 ,{"keep-locals", no_argument, NULL, 'L'}
468 ,{"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH}
469 ,{"listing-lhs-width2", required_argument, NULL, OPTION_LISTING_LHS_WIDTH2}
470 ,{"listing-rhs-width", required_argument, NULL, OPTION_LISTING_RHS_WIDTH}
471 ,{"listing-cont-lines", required_argument, NULL, OPTION_LISTING_CONT_LINES}
472 ,{"MD", required_argument, NULL, OPTION_DEPFILE}
473 ,{"mri", no_argument, NULL, 'M'}
474 ,{"nocpp", no_argument, NULL, OPTION_NOCPP}
475 ,{"no-warn", no_argument, NULL, 'W'}
476 ,{"statistics", no_argument, NULL, OPTION_STATISTICS}
477 ,{"strip-local-absolute", no_argument, NULL, OPTION_STRIP_LOCAL_ABSOLUTE}
478 ,{"version", no_argument, NULL, OPTION_VERSION}
479 ,{"verbose", no_argument, NULL, OPTION_VERBOSE}
480 ,{"target-help", no_argument, NULL, OPTION_TARGET_HELP}
481 ,{"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT}
482 ,{"warn", no_argument, NULL, OPTION_WARN}
485 /* Construct the option lists from the standard list and the target
486 dependent list. Include space for an extra NULL option and
487 always NULL terminate. */
488 shortopts = concat (std_shortopts, md_shortopts, (char *) NULL);
489 longopts = xmalloc (sizeof (std_longopts) + md_longopts_size + sizeof (struct option));
490 memcpy (longopts, std_longopts, sizeof (std_longopts));
491 memcpy (((char *) longopts) + sizeof (std_longopts), md_longopts, md_longopts_size);
492 memset (((char *) longopts) + sizeof (std_longopts) + md_longopts_size,
493 0, sizeof (struct option));
495 /* Make a local copy of the old argv. */
499 /* Initialize a new argv that contains no options. */
500 new_argv = xmalloc (sizeof (char *) * (old_argc + 1));
501 new_argv[0] = old_argv[0];
503 new_argv[new_argc] = NULL;
507 /* getopt_long_only is like getopt_long, but '-' as well as '--' can
508 indicate a long option. */
510 int optc = getopt_long_only (old_argc, old_argv, shortopts, longopts,
519 /* md_parse_option should return 1 if it recognizes optc,
521 if (md_parse_option (optc, optarg) != 0)
523 /* `-v' isn't included in the general short_opts list, so check for
524 it explicitly here before deciding we've gotten a bad argument. */
528 /* Telling getopt to treat -v's value as optional can result
529 in it picking up a following filename argument here. The
530 VMS code in md_parse_option can return 0 in that case,
531 but it has no way of pushing the filename argument back. */
532 if (optarg && *optarg)
533 new_argv[new_argc++] = optarg, new_argv[new_argc] = NULL;
544 as_bad (_("unrecognized option -%c%s"), optc, optarg ? optarg : "");
550 case 1: /* File name. */
551 if (!strcmp (optarg, "-"))
553 new_argv[new_argc++] = optarg;
554 new_argv[new_argc] = NULL;
557 case OPTION_TARGET_HELP:
558 md_show_usage (stdout);
568 case OPTION_STATISTICS:
569 flag_print_statistics = 1;
572 case OPTION_STRIP_LOCAL_ABSOLUTE:
573 flag_strip_local_absolute = 1;
576 case OPTION_TRADITIONAL_FORMAT:
577 flag_traditional_format = 1;
581 /* This output is intended to follow the GNU standards document. */
583 printf (_("GNU assembler %s\n"), BFD_VERSION_STRING);
585 printf (_("GNU assembler %s\n"), VERSION);
587 printf (_("Copyright 2002 Free Software Foundation, Inc.\n"));
589 This program is free software; you may redistribute it under the terms of\n\
590 the GNU General Public License. This program has absolutely no warranty.\n"));
591 printf (_("This assembler was configured for a target of `%s'.\n"),
595 case OPTION_EMULATION:
596 #ifdef USE_EMULATIONS
597 if (strcmp (optarg, this_emulation->name))
598 as_fatal (_("multiple emulation names specified"));
600 as_fatal (_("emulations not handled in this configuration"));
604 case OPTION_DUMPCONFIG:
605 fprintf (stderr, _("alias = %s\n"), TARGET_ALIAS);
606 fprintf (stderr, _("canonical = %s\n"), TARGET_CANONICAL);
607 fprintf (stderr, _("cpu-type = %s\n"), TARGET_CPU);
608 #ifdef TARGET_OBJ_FORMAT
609 fprintf (stderr, _("format = %s\n"), TARGET_OBJ_FORMAT);
612 fprintf (stderr, _("bfd-target = %s\n"), TARGET_FORMAT);
620 struct defsym_list *n;
622 for (s = optarg; *s != '\0' && *s != '='; s++)
625 as_fatal (_("bad defsym; format is --defsym name=value"));
628 i = bfd_scan_vma (s, (const char **) NULL, 0);
630 i = strtol (s, (char **) NULL, 0);
632 n = xmalloc (sizeof *n);
643 /* optarg is the name of the file containing the instruction
644 formats, opcodes, register names, etc. */
645 struct itbl_file_list *n;
649 as_warn (_("no file name following -t option"));
653 n = xmalloc (sizeof * n);
654 n->next = itbl_files;
658 /* Parse the file and add the new instructions to our internal
659 table. If multiple instruction tables are specified, the
660 information from this table gets appended onto the existing
662 itbl_files->name = xstrdup (optarg);
663 if (itbl_parse (itbl_files->name) != 0)
664 as_fatal (_("failed to read instruction table %s\n"),
670 start_dependencies (optarg);
674 /* Some backends, eg Alpha, use the -g switch for their own
675 purposes. So we check here for an explicit -g and allow
676 the backend to decide if it wants to process it. */
677 if ( old_argv[optind - 1][1] == 'g'
678 && old_argv[optind - 1][2] == 0
679 && md_parse_option (optc, optarg))
682 if (md_debug_format_selector)
683 debug_type = md_debug_format_selector (& use_gnu_debug_info_extensions);
685 debug_type = DEBUG_DWARF2;
687 debug_type = DEBUG_STABS;
690 case OPTION_GSTABS_PLUS:
691 use_gnu_debug_info_extensions = 1;
694 debug_type = DEBUG_STABS;
698 debug_type = DEBUG_DWARF2;
702 flag_signed_overflow_ok = 1;
705 #ifndef WORKING_DOT_WORD
707 flag_warn_displacement = 1;
711 flag_keep_locals = 1;
714 case OPTION_LISTING_LHS_WIDTH:
715 listing_lhs_width = atoi (optarg);
716 if (listing_lhs_width_second < listing_lhs_width)
717 listing_lhs_width_second = listing_lhs_width;
719 case OPTION_LISTING_LHS_WIDTH2:
721 int tmp = atoi (optarg);
723 if (tmp > listing_lhs_width)
724 listing_lhs_width_second = tmp;
727 case OPTION_LISTING_RHS_WIDTH:
728 listing_rhs_width = atoi (optarg);
730 case OPTION_LISTING_CONT_LINES:
731 listing_lhs_cont_lines = atoi (optarg);
742 flag_readonly_data_in_text = 1;
746 flag_no_warnings = 1;
750 flag_no_warnings = 0;
751 flag_fatal_warnings = 0;
754 case OPTION_WARN_FATAL:
755 flag_no_warnings = 0;
756 flag_fatal_warnings = 1;
759 #if defined BFD_ASSEMBLER && (defined OBJ_ELF || defined OBJ_MAYBE_ELF)
760 case OPTION_EXECSTACK:
762 flag_noexecstack = 0;
765 case OPTION_NOEXECSTACK:
766 flag_noexecstack = 1;
771 flag_always_generate_output = 1;
774 case OPTION_ALTERNATE:
775 optarg = old_argv [optind - 1];
776 while (* optarg == '-')
779 if (strcmp (optarg, "alternate") == 0)
781 flag_macro_alternate = 1;
790 if (md_parse_option (optc, optarg) != 0)
798 listing |= LISTING_NOCOND;
801 listing |= LISTING_NODEBUG;
804 listing |= LISTING_HLL;
807 listing |= LISTING_LISTING;
810 listing |= LISTING_MACEXP;
813 listing |= LISTING_NOFORM;
816 listing |= LISTING_SYMBOLS;
819 listing_filename = xstrdup (optarg + 1);
820 optarg += strlen (listing_filename);
823 as_fatal (_("invalid listing option `%c'"), *optarg);
830 listing = LISTING_DEFAULT;
834 /* DEBUG is implemented: it debugs different
835 things from other people's assemblers. */
840 flag_no_comments = 1;
844 { /* Include file directory. */
845 char *temp = xstrdup (optarg);
847 add_include_dir (temp);
852 out_file_name = xstrdup (optarg);
859 /* -X means treat warnings as errors. */
870 #ifdef md_after_parse_args
871 md_after_parse_args ();
876 dump_statistics (void)
879 char *lim = (char *) sbrk (0);
881 long run_time = get_run_time () - start_time;
883 fprintf (stderr, _("%s: total time in assembly: %ld.%06ld\n"),
884 myname, run_time / 1000000, run_time % 1000000);
886 fprintf (stderr, _("%s: data size %ld\n"),
887 myname, (long) (lim - (char *) &environ));
890 subsegs_print_statistics (stderr);
891 write_print_statistics (stderr);
892 symbol_print_statistics (stderr);
893 read_print_statistics (stderr);
895 #ifdef tc_print_statistics
896 tc_print_statistics (stderr);
899 #ifdef obj_print_statistics
900 obj_print_statistics (stderr);
904 /* The interface between the macro code and gas expression handling. */
907 macro_expr (const char *emsg, int idx, sb *in, int *val)
914 hold = input_line_pointer;
915 input_line_pointer = in->ptr + idx;
917 idx = input_line_pointer - in->ptr;
918 input_line_pointer = hold;
920 if (ex.X_op != O_constant)
923 *val = (int) ex.X_add_number;
928 /* Here to attempt 1 pass over each input file.
929 We scan argv[*] looking for filenames or exactly "" which is
930 shorthand for stdin. Any argv that is NULL is not a file-name.
931 We set need_pass_2 TRUE if, after this, we still have unresolved
932 expressions of the form (unknown value)+-(unknown value).
934 Note the un*x semantics: there is only 1 logical input file, but it
935 may be a catenation of many 'physical' input files. */
938 perform_an_assembly_pass (int argc, char ** argv)
947 #ifndef BFD_ASSEMBLER
951 for (i = SEG_E0; i < SEG_UNKNOWN; i++)
952 segment_info[i].fix_root = 0;
954 /* Create the three fixed ones. */
959 seg = subseg_new (".wtext", 0);
961 seg = subseg_new (".text", 0);
963 assert (seg == SEG_E0);
964 seg = subseg_new (".data", 0);
965 assert (seg == SEG_E1);
966 seg = subseg_new (".bss", 0);
967 assert (seg == SEG_E2);
969 create_target_segments ();
973 #else /* not MANY_SEGMENTS. */
974 text_fix_root = NULL;
975 data_fix_root = NULL;
977 #endif /* not MANY_SEGMENTS. */
978 #else /* BFD_ASSEMBLER. */
979 /* Create the standard sections, and those the assembler uses
981 text_section = subseg_new (TEXT_SECTION_NAME, 0);
982 data_section = subseg_new (DATA_SECTION_NAME, 0);
983 bss_section = subseg_new (BSS_SECTION_NAME, 0);
984 /* @@ FIXME -- we're setting the RELOC flag so that sections are assumed
985 to have relocs, otherwise we don't find out in time. */
986 applicable = bfd_applicable_section_flags (stdoutput);
987 bfd_set_section_flags (stdoutput, text_section,
988 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
989 | SEC_CODE | SEC_READONLY));
990 bfd_set_section_flags (stdoutput, data_section,
991 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
993 bfd_set_section_flags (stdoutput, bss_section, applicable & SEC_ALLOC);
994 seg_info (bss_section)->bss = 1;
995 subseg_new (BFD_ABS_SECTION_NAME, 0);
996 subseg_new (BFD_UND_SECTION_NAME, 0);
997 reg_section = subseg_new ("*GAS `reg' section*", 0);
998 expr_section = subseg_new ("*GAS `expr' section*", 0);
1000 #endif /* BFD_ASSEMBLER. */
1002 subseg_set (text_section, 0);
1004 /* This may add symbol table entries, which requires having an open BFD,
1005 and sections already created, in BFD_ASSEMBLER mode. */
1022 { /* Is it a file-name argument? */
1025 /* argv->"" if stdin desired, else->filename. */
1026 read_a_source_file (*argv);
1028 argv++; /* Completed that argv. */
1031 read_a_source_file ("");
1036 main (int argc, char ** argv)
1041 start_time = get_run_time ();
1043 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
1044 setlocale (LC_MESSAGES, "");
1046 #if defined (HAVE_SETLOCALE)
1047 setlocale (LC_CTYPE, "");
1049 bindtextdomain (PACKAGE, LOCALEDIR);
1050 textdomain (PACKAGE);
1055 #ifdef HOST_SPECIAL_INIT
1056 HOST_SPECIAL_INIT (argc, argv);
1060 xmalloc_set_program_name (myname);
1062 START_PROGRESS (myname, 0);
1064 #ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME
1065 #define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out"
1068 out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME;
1071 #ifdef BFD_ASSEMBLER
1073 bfd_set_error_program_name (myname);
1076 #ifdef USE_EMULATIONS
1077 select_emulation_mode (argc, argv);
1084 parse_args (&argc, &argv);
1086 input_scrub_begin ();
1089 if (flag_print_statistics)
1090 xatexit (dump_statistics);
1094 macro_strip_at = flag_mri;
1097 /* For compatibility with the AMD 29K family macro assembler
1099 flag_macro_alternate = 1;
1103 macro_init (flag_macro_alternate, flag_mri, macro_strip_at, macro_expr);
1107 #ifdef BFD_ASSEMBLER
1108 output_file_create (out_file_name);
1109 assert (stdoutput != 0);
1112 #ifdef tc_init_after_args
1113 tc_init_after_args ();
1118 /* Now that we have fully initialized, and have created the output
1119 file, define any symbols requested by --defsym command line
1121 while (defsyms != NULL)
1124 struct defsym_list *next;
1126 sym = symbol_new (defsyms->name, absolute_section, defsyms->value,
1127 &zero_address_frag);
1128 symbol_table_insert (sym);
1129 next = defsyms->next;
1137 perform_an_assembly_pass (argc, argv);
1139 cond_finish_check (-1);
1145 #if defined BFD_ASSEMBLER && (defined OBJ_ELF || defined OBJ_MAYBE_ELF)
1146 if ((flag_execstack || flag_noexecstack)
1147 && OUTPUT_FLAVOR == bfd_target_elf_flavour)
1151 gnustack = subseg_new (".note.GNU-stack", 0);
1152 bfd_set_section_flags (stdoutput, gnustack,
1153 SEC_READONLY | (flag_execstack ? SEC_CODE : 0));
1158 /* If we've been collecting dwarf2 .debug_line info, either for
1159 assembly debugging or on behalf of the compiler, emit it now. */
1162 /* If we constructed dwarf2 .eh_frame info, either via .cfi
1163 directives from the user or by the backend, emit it now. */
1166 if (seen_at_least_1_file ()
1167 && (flag_always_generate_output || had_errors () == 0))
1172 #if defined (BFD_ASSEMBLER) || !defined (BFD)
1173 /* This used to be done at the start of write_object_file in
1174 write.c, but that caused problems when doing listings when
1175 keep_it was zero. This could probably be moved above md_end, but
1176 I didn't want to risk the change. */
1181 write_object_file ();
1184 listing_print (listing_filename);
1187 #ifndef OBJ_VMS /* Does its own file handling. */
1188 #ifndef BFD_ASSEMBLER
1191 output_file_close (out_file_name);
1194 if (flag_fatal_warnings && had_warnings () > 0 && had_errors () == 0)
1195 as_bad (_("%d warnings, treating warnings as errors"), had_warnings ());
1197 if (had_errors () > 0 && ! flag_always_generate_output)
1201 unlink (out_file_name);
1205 END_PROGRESS (myname);
1207 /* Use xexit instead of return, because under VMS environments they
1208 may not place the same interpretation on the value given. */
1209 if (had_errors () > 0)
1210 xexit (EXIT_FAILURE);
1212 /* Only generate dependency file if assembler was successful. */
1213 print_dependencies ();
1215 xexit (EXIT_SUCCESS);