1 /* as.c - GAS main program.
2 Copyright (C) 1987, 1990, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000
3 Free Software Foundation, Inc.
5 This file is part of GAS, the GNU Assembler.
7 GAS is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GAS is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GAS; see the file COPYING. If not, write to the Free
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
22 /* Main program for AS; a 32-bit assembler of GNU.
23 * Understands command arguments.
24 * Has a few routines that don't fit in other modules because they
30 * Since no-one else says they will support them in future: I
31 * don't support them now.
40 #include "output-file.h"
47 #define itbl_parse(itbl_file) 1
52 #ifdef NEED_DECLARATION_SBRK
57 static void show_usage PARAMS ((FILE *));
58 static void parse_args PARAMS ((int *, char ***));
59 static void dump_statistics PARAMS ((void));
60 static void perform_an_assembly_pass PARAMS ((int argc, char **argv));
61 static int macro_expr PARAMS ((const char *, int, sb *, int *));
63 /* True if a listing is wanted. */
66 /* Name of listing file. */
67 static char *listing_filename = NULL;
69 /* Type of debugging to generate. */
71 enum debug_info_type debug_type = DEBUG_UNSPECIFIED;
73 /* Maximum level of macro nesting. */
74 int max_macro_nest = 100;
79 segT reg_section, expr_section;
80 segT text_section, data_section, bss_section;
83 /* The default obstack chunk size. If we set this to zero, the
84 obstack code will use whatever will fit in a 4096 byte block. */
87 /* To monitor memory allocation more effectively, make this non-zero.
88 Then the chunk sizes for gas and bfd will be reduced. */
91 /* We build a list of defsyms as we read the options, and then define
92 them after we have initialized everything. */
95 struct defsym_list *next;
100 static struct defsym_list *defsyms;
102 /* Keep a record of the itbl files we read in. */
104 struct itbl_file_list {
105 struct itbl_file_list *next;
109 static struct itbl_file_list *itbl_files;
111 #ifdef USE_EMULATIONS
112 #define EMULATION_ENVIRON "AS_EMULATION"
114 extern struct emulation mipsbelf, mipslelf, mipself;
115 extern struct emulation mipsbecoff, mipslecoff, mipsecoff;
116 extern struct emulation i386coff, i386elf, i386aout;
117 extern struct emulation crisaout, criself;
119 static struct emulation *const emulations[] = { EMULATIONS };
120 static const int n_emulations = sizeof (emulations) / sizeof (emulations[0]);
122 static void select_emulation_mode PARAMS ((int, char **));
125 select_emulation_mode (argc, argv)
132 for (i = 1; i < argc; i++)
133 if (!strncmp ("--em", argv[i], 4))
139 p = strchr (argv[i], '=');
146 as_fatal (_("missing emulation mode name"));
151 em = getenv (EMULATION_ENVIRON);
153 em = DEFAULT_EMULATION;
157 for (i = 0; i < n_emulations; i++)
158 if (!strcmp (emulations[i]->name, em))
160 if (i == n_emulations)
161 as_fatal (_("unrecognized emulation name `%s'"), em);
162 this_emulation = emulations[i];
165 this_emulation = emulations[0];
167 this_emulation->init ();
171 default_emul_bfd_name ()
180 this_format = this_emulation->format;
182 if (this_emulation->leading_underscore == 2)
183 this_emulation->leading_underscore = this_format->dfl_leading_underscore;
185 if (this_emulation->default_endian != 2)
186 target_big_endian = this_emulation->default_endian;
188 if (this_emulation->fake_label_name == 0)
190 if (this_emulation->leading_underscore)
191 this_emulation->fake_label_name = "L0\001";
193 /* What other parameters should we test? */
194 this_emulation->fake_label_name = ".L0\001";
208 fprintf (stderr, _("GNU assembler version %s (%s) using BFD version %s"),
209 VERSION, TARGET_ALIAS, BFD_VERSION);
211 fprintf (stderr, _("GNU assembler version %s (%s)"), VERSION, TARGET_ALIAS);
213 fprintf (stderr, "\n");
220 fprintf (stream, _("Usage: %s [option...] [asmfile...]\n"), myname);
222 fprintf (stream, _("\
224 -a[sub-option...] turn on listings\n\
225 Sub-options [default hls]:\n\
226 c omit false conditionals\n\
227 d omit debugging directives\n\
228 h include high-level source\n\
229 l include assembly\n\
230 m include macro expansions\n\
231 n omit forms processing\n\
233 L include line debug statistics (if applicable)\n\
234 =FILE list to FILE (must be last sub-option)\n"));
236 fprintf (stream, _("\
237 -D produce assembler debugging messages\n"));
238 fprintf (stream, _("\
239 --defsym SYM=VAL define symbol SYM to given value\n"));
240 #ifdef USE_EMULATIONS
247 for (i = 0; i < n_emulations - 1; i++)
248 fprintf (stream, "%s | ", emulations[i]->name);
249 fprintf (stream, "%s]\n", emulations[i]->name);
251 def_em = getenv (EMULATION_ENVIRON);
253 def_em = DEFAULT_EMULATION;
254 fprintf (stream, _("\
255 emulate output (default %s)\n"), def_em);
258 fprintf (stream, _("\
259 -f skip whitespace and comment preprocessing\n"));
260 fprintf (stream, _("\
261 --gstabs generate stabs debugging information\n"));
262 fprintf (stream, _("\
263 --gdwarf2 generate DWARF2 debugging information\n"));
264 fprintf (stream, _("\
265 --help show this message and exit\n"));
266 fprintf (stream, _("\
267 --target-help show target specific options\n"));
268 fprintf (stream, _("\
269 -I DIR add DIR to search list for .include directives\n"));
270 fprintf (stream, _("\
271 -J don't warn about signed overflow\n"));
272 fprintf (stream, _("\
273 -K warn when differences altered for long displacements\n"));
274 fprintf (stream, _("\
275 -L,--keep-locals keep local symbols (e.g. starting with `L')\n"));
276 fprintf (stream, _("\
277 -M,--mri assemble in MRI compatibility mode\n"));
278 fprintf (stream, _("\
279 --MD FILE write dependency information in FILE (default none)\n"));
280 fprintf (stream, _("\
282 fprintf (stream, _("\
283 -o OBJFILE name the object-file output OBJFILE (default a.out)\n"));
284 fprintf (stream, _("\
285 -R fold data section into text section\n"));
286 fprintf (stream, _("\
287 --statistics print various measured statistics from execution\n"));
288 fprintf (stream, _("\
289 --strip-local-absolute strip local absolute symbols\n"));
290 fprintf (stream, _("\
291 --traditional-format Use same format as native assembler when possible\n"));
292 fprintf (stream, _("\
293 --version print assembler version number and exit\n"));
294 fprintf (stream, _("\
295 -W --no-warn suppress warnings\n"));
296 fprintf (stream, _("\
297 --warn don't suppress warnings\n"));
298 fprintf (stream, _("\
299 --fatal-warnings treat warnings as errors\n"));
300 fprintf (stream, _("\
301 --itbl INSTTBL extend instruction set to include instructions\n\
302 matching the specifications defined in file INSTTBL\n"));
303 fprintf (stream, _("\
305 fprintf (stream, _("\
307 fprintf (stream, _("\
308 -Z generate object file even after errors\n"));
309 fprintf (stream, _("\
310 --listing-lhs-width set the width in words of the output data column of\n\
312 fprintf (stream, _("\
313 --listing-lhs-width2 set the width in words of the continuation lines\n\
314 of the output data column; ignored if smaller than\n\
315 the width of the first line\n"));
316 fprintf (stream, _("\
317 --listing-rhs-width set the max width in characters of the lines from\n\
318 the source file\n"));
319 fprintf (stream, _("\
320 --listing-cont-lines set the maximum number of continuation lines used\n\
321 for the output data column of the listing\n"));
323 md_show_usage (stream);
325 fputc ('\n', stream);
326 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
329 /* Since it is easy to do here we interpret the special arg "-"
330 to mean "use stdin" and we set that argv[] pointing to "".
331 After we have munged argv[], the only things left are source file
332 name(s) and ""(s) denoting stdin. These file names are used
333 (perhaps more than once) later.
335 check for new machine-dep cmdline options in
336 md_parse_option definitions in config/tc-*.c. */
339 parse_args (pargc, pargv)
343 int old_argc, new_argc;
344 char **old_argv, **new_argv;
346 /* Starting the short option string with '-' is for programs that
347 expect options and other ARGV-elements in any order and that care about
348 the ordering of the two. We describe each non-option ARGV-element
349 as if it were the argument of an option with character code 1. */
352 extern CONST char *md_shortopts;
353 static const char std_shortopts[] = {
355 #ifndef WORKING_DOT_WORD
356 /* -K is not meaningful if .word is not being hacked. */
359 'L', 'M', 'R', 'W', 'Z', 'f', 'a', ':', ':', 'D', 'I', ':', 'o', ':',
361 /* -v takes an argument on VMS, so we don't make it a generic
366 /* New option for extending instruction set (see also --itbl below) */
370 struct option *longopts;
371 extern struct option md_longopts[];
372 extern size_t md_longopts_size;
373 static const struct option std_longopts[] = {
374 #define OPTION_HELP (OPTION_STD_BASE)
375 {"help", no_argument, NULL, OPTION_HELP},
376 {"keep-locals", no_argument, NULL, 'L'},
377 {"mri", no_argument, NULL, 'M'},
378 #define OPTION_NOCPP (OPTION_STD_BASE + 1)
379 {"nocpp", no_argument, NULL, OPTION_NOCPP},
380 #define OPTION_STATISTICS (OPTION_STD_BASE + 2)
381 {"statistics", no_argument, NULL, OPTION_STATISTICS},
382 #define OPTION_VERSION (OPTION_STD_BASE + 3)
383 {"version", no_argument, NULL, OPTION_VERSION},
384 #define OPTION_DUMPCONFIG (OPTION_STD_BASE + 4)
385 {"dump-config", no_argument, NULL, OPTION_DUMPCONFIG},
386 #define OPTION_VERBOSE (OPTION_STD_BASE + 5)
387 {"verbose", no_argument, NULL, OPTION_VERBOSE},
388 #define OPTION_EMULATION (OPTION_STD_BASE + 6)
389 {"emulation", required_argument, NULL, OPTION_EMULATION},
390 #define OPTION_DEFSYM (OPTION_STD_BASE + 7)
391 {"defsym", required_argument, NULL, OPTION_DEFSYM},
392 #define OPTION_INSTTBL (OPTION_STD_BASE + 8)
393 /* New option for extending instruction set (see also -t above).
394 The "-t file" or "--itbl file" option extends the basic set of
395 valid instructions by reading "file", a text file containing a
396 list of instruction formats. The additional opcodes and their
397 formats are added to the built-in set of instructions, and
398 mnemonics for new registers may also be defined. */
399 {"itbl", required_argument, NULL, OPTION_INSTTBL},
400 #define OPTION_LISTING_LHS_WIDTH (OPTION_STD_BASE + 9)
401 {"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH},
402 #define OPTION_LISTING_LHS_WIDTH2 (OPTION_STD_BASE + 10)
403 {"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH2},
404 #define OPTION_LISTING_RHS_WIDTH (OPTION_STD_BASE + 11)
405 {"listing-rhs-width", required_argument, NULL, OPTION_LISTING_RHS_WIDTH},
406 #define OPTION_LISTING_CONT_LINES (OPTION_STD_BASE + 12)
407 {"listing-cont-lines", required_argument, NULL, OPTION_LISTING_CONT_LINES},
408 #define OPTION_DEPFILE (OPTION_STD_BASE + 13)
409 {"MD", required_argument, NULL, OPTION_DEPFILE},
410 #define OPTION_GSTABS (OPTION_STD_BASE + 14)
411 {"gstabs", no_argument, NULL, OPTION_GSTABS},
412 #define OPTION_STRIP_LOCAL_ABSOLUTE (OPTION_STD_BASE + 15)
413 {"strip-local-absolute", no_argument, NULL, OPTION_STRIP_LOCAL_ABSOLUTE},
414 #define OPTION_TRADITIONAL_FORMAT (OPTION_STD_BASE + 16)
415 {"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT},
416 #define OPTION_GDWARF2 (OPTION_STD_BASE + 17)
417 {"gdwarf2", no_argument, NULL, OPTION_GDWARF2},
418 {"no-warn", no_argument, NULL, 'W'},
419 #define OPTION_WARN (OPTION_STD_BASE + 18)
420 {"warn", no_argument, NULL, OPTION_WARN},
421 #define OPTION_TARGET_HELP (OPTION_STD_BASE + 19)
422 {"target-help", no_argument, NULL, OPTION_TARGET_HELP},
423 #define OPTION_WARN_FATAL (OPTION_STD_BASE + 20)
424 {"fatal-warnings", no_argument, NULL, OPTION_WARN_FATAL}
425 /* When you add options here, check that they do not collide with
426 OPTION_MD_BASE. See as.h. */
429 /* Construct the option lists from the standard list and the target
430 dependent list. Include space for an extra NULL option and
431 always NULL terminate. */
432 shortopts = concat (std_shortopts, md_shortopts, (char *) NULL);
433 longopts = (struct option *) xmalloc (sizeof (std_longopts)
435 + sizeof (struct option));
436 memcpy (longopts, std_longopts, sizeof (std_longopts));
437 memcpy ((char *) longopts + sizeof (std_longopts),
438 md_longopts, md_longopts_size);
439 memset ((char *) longopts + sizeof (std_longopts) + md_longopts_size,
440 0, sizeof (struct option));
442 /* Make a local copy of the old argv. */
446 /* Initialize a new argv that contains no options. */
447 new_argv = (char **) xmalloc (sizeof (char *) * (old_argc + 1));
448 new_argv[0] = old_argv[0];
450 new_argv[new_argc] = NULL;
454 /* getopt_long_only is like getopt_long, but '-' as well as '--' can
455 indicate a long option. */
457 int optc = getopt_long_only (old_argc, old_argv, shortopts, longopts,
466 /* md_parse_option should return 1 if it recognizes optc,
468 if (md_parse_option (optc, optarg) != 0)
470 /* `-v' isn't included in the general short_opts list, so check for
471 it explicity here before deciding we've gotten a bad argument. */
475 /* Telling getopt to treat -v's value as optional can result
476 in it picking up a following filename argument here. The
477 VMS code in md_parse_option can return 0 in that case,
478 but it has no way of pushing the filename argument back. */
479 if (optarg && *optarg)
480 new_argv[new_argc++] = optarg, new_argv[new_argc] = NULL;
494 case 1: /* File name. */
495 if (!strcmp (optarg, "-"))
497 new_argv[new_argc++] = optarg;
498 new_argv[new_argc] = NULL;
501 case OPTION_TARGET_HELP:
502 md_show_usage (stdout);
512 case OPTION_STATISTICS:
513 flag_print_statistics = 1;
516 case OPTION_STRIP_LOCAL_ABSOLUTE:
517 flag_strip_local_absolute = 1;
520 case OPTION_TRADITIONAL_FORMAT:
521 flag_traditional_format = 1;
525 /* This output is intended to follow the GNU standards document. */
526 printf (_("GNU assembler %s\n"), VERSION);
527 printf (_("Copyright 2000 Free Software Foundation, Inc.\n"));
529 This program is free software; you may redistribute it under the terms of\n\
530 the GNU General Public License. This program has absolutely no warranty.\n"));
531 printf (_("This assembler was configured for a target of `%s'.\n"),
535 case OPTION_EMULATION:
536 #ifdef USE_EMULATIONS
537 if (strcmp (optarg, this_emulation->name))
538 as_fatal (_("multiple emulation names specified"));
540 as_fatal (_("emulations not handled in this configuration"));
544 case OPTION_DUMPCONFIG:
545 fprintf (stderr, _("alias = %s\n"), TARGET_ALIAS);
546 fprintf (stderr, _("canonical = %s\n"), TARGET_CANONICAL);
547 fprintf (stderr, _("cpu-type = %s\n"), TARGET_CPU);
548 #ifdef TARGET_OBJ_FORMAT
549 fprintf (stderr, _("format = %s\n"), TARGET_OBJ_FORMAT);
552 fprintf (stderr, _("bfd-target = %s\n"), TARGET_FORMAT);
560 struct defsym_list *n;
562 for (s = optarg; *s != '\0' && *s != '='; s++)
565 as_fatal (_("bad defsym; format is --defsym name=value"));
568 i = bfd_scan_vma (s, (const char **) NULL, 0);
570 i = strtol (s, (char **) NULL, 0);
572 n = (struct defsym_list *) xmalloc (sizeof *n);
583 /* optarg is the name of the file containing the instruction
584 formats, opcodes, register names, etc. */
585 struct itbl_file_list *n;
589 as_warn (_("No file name following -t option\n"));
593 n = (struct itbl_file_list *) xmalloc (sizeof *n);
594 n->next = itbl_files;
598 /* Parse the file and add the new instructions to our internal
599 table. If multiple instruction tables are specified, the
600 information from this table gets appended onto the existing
602 itbl_files->name = xstrdup (optarg);
603 if (itbl_parse (itbl_files->name) != 0)
605 fprintf (stderr, _("Failed to read instruction table %s\n"),
613 start_dependencies (optarg);
617 debug_type = DEBUG_STABS;
621 debug_type = DEBUG_DWARF2;
625 flag_signed_overflow_ok = 1;
628 #ifndef WORKING_DOT_WORD
630 flag_warn_displacement = 1;
635 flag_keep_locals = 1;
638 case OPTION_LISTING_LHS_WIDTH:
639 listing_lhs_width = atoi (optarg);
640 if (listing_lhs_width_second < listing_lhs_width)
641 listing_lhs_width_second = listing_lhs_width;
643 case OPTION_LISTING_LHS_WIDTH2:
645 int tmp = atoi (optarg);
646 if (tmp > listing_lhs_width)
647 listing_lhs_width_second = tmp;
650 case OPTION_LISTING_RHS_WIDTH:
651 listing_rhs_width = atoi (optarg);
653 case OPTION_LISTING_CONT_LINES:
654 listing_lhs_cont_lines = atoi (optarg);
665 flag_readonly_data_in_text = 1;
669 flag_no_warnings = 1;
673 flag_no_warnings = 0;
674 flag_fatal_warnings = 0;
677 case OPTION_WARN_FATAL:
678 flag_no_warnings = 0;
679 flag_fatal_warnings = 1;
683 flag_always_generate_output = 1;
689 if (md_parse_option (optc, optarg) != 0)
697 listing |= LISTING_NOCOND;
700 listing |= LISTING_NODEBUG;
703 listing |= LISTING_HLL;
706 listing |= LISTING_LISTING;
709 listing |= LISTING_MACEXP;
712 listing |= LISTING_NOFORM;
715 listing |= LISTING_SYMBOLS;
718 listing_filename = xstrdup (optarg + 1);
719 optarg += strlen (listing_filename);
722 as_fatal (_("invalid listing option `%c'"), *optarg);
729 listing = LISTING_DEFAULT;
733 /* DEBUG is implemented: it debugs different
734 things from other people's assemblers. */
739 flag_no_comments = 1;
743 { /* Include file directory. */
744 char *temp = xstrdup (optarg);
745 add_include_dir (temp);
750 out_file_name = xstrdup (optarg);
757 /* -X means treat warnings as errors. */
769 static long start_time;
780 start_time = get_run_time ();
782 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
783 setlocale (LC_MESSAGES, "");
785 bindtextdomain (PACKAGE, LOCALEDIR);
786 textdomain (PACKAGE);
791 extern long _bfd_chunksize;
797 #ifdef HOST_SPECIAL_INIT
798 HOST_SPECIAL_INIT (argc, argv);
802 xmalloc_set_program_name (myname);
804 START_PROGRESS (myname, 0);
806 #ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME
807 #define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out"
810 out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME;
815 bfd_set_error_program_name (myname);
818 #ifdef USE_EMULATIONS
819 select_emulation_mode (argc, argv);
826 parse_args (&argc, &argv);
828 input_scrub_begin ();
831 if (flag_print_statistics)
832 xatexit (dump_statistics);
837 macro_strip_at = flag_mri;
840 /* For compatibility with the AMD 29K family macro assembler
846 macro_init (macro_alternate, flag_mri, macro_strip_at, macro_expr);
851 output_file_create (out_file_name);
852 assert (stdoutput != 0);
855 #ifdef tc_init_after_args
856 tc_init_after_args ();
861 /* Now that we have fully initialized, and have created the output
862 file, define any symbols requested by --defsym command line
864 while (defsyms != NULL)
867 struct defsym_list *next;
869 sym = symbol_new (defsyms->name, absolute_section, defsyms->value,
871 symbol_table_insert (sym);
872 next = defsyms->next;
880 perform_an_assembly_pass (argc, argv);
882 cond_finish_check (-1);
888 /* If we've been collecting dwarf2 .debug_line info, either for
889 assembly debugging or on behalf of the compiler, emit it now. */
892 if (seen_at_least_1_file ()
893 && (flag_always_generate_output || had_errors () == 0))
898 #if defined (BFD_ASSEMBLER) || !defined (BFD)
899 /* This used to be done at the start of write_object_file in
900 write.c, but that caused problems when doing listings when
901 keep_it was zero. This could probably be moved above md_end, but
902 I didn't want to risk the change. */
907 write_object_file ();
910 listing_print (listing_filename);
913 #ifndef OBJ_VMS /* does its own file handling */
914 #ifndef BFD_ASSEMBLER
917 output_file_close (out_file_name);
920 if (flag_fatal_warnings && had_warnings () > 0 && had_errors () == 0)
921 as_bad (_("%d warnings, treating warnings as errors"), had_warnings ());
923 if (had_errors () > 0 && ! flag_always_generate_output)
927 unlink (out_file_name);
931 END_PROGRESS (myname);
933 /* Use xexit instead of return, because under VMS environments they
934 may not place the same interpretation on the value given. */
935 if (had_errors () > 0)
936 xexit (EXIT_FAILURE);
938 /* Only generate dependency file if assembler was successful. */
939 print_dependencies ();
941 xexit (EXIT_SUCCESS);
948 char *lim = (char *) sbrk (0);
950 long run_time = get_run_time () - start_time;
952 fprintf (stderr, _("%s: total time in assembly: %ld.%06ld\n"),
953 myname, run_time / 1000000, run_time % 1000000);
955 fprintf (stderr, _("%s: data size %ld\n"),
956 myname, (long) (lim - (char *) &environ));
959 subsegs_print_statistics (stderr);
960 write_print_statistics (stderr);
961 symbol_print_statistics (stderr);
962 read_print_statistics (stderr);
964 #ifdef tc_print_statistics
965 tc_print_statistics (stderr);
967 #ifdef obj_print_statistics
968 obj_print_statistics (stderr);
972 /* Here to attempt 1 pass over each input file.
973 We scan argv[*] looking for filenames or exactly "" which is
974 shorthand for stdin. Any argv that is NULL is not a file-name.
975 We set need_pass_2 TRUE if, after this, we still have unresolved
976 expressions of the form (unknown value)+-(unknown value).
978 Note the un*x semantics: there is only 1 logical input file, but it
979 may be a catenation of many 'physical' input files. */
982 perform_an_assembly_pass (argc, argv)
993 #ifndef BFD_ASSEMBLER
997 for (i = SEG_E0; i < SEG_UNKNOWN; i++)
998 segment_info[i].fix_root = 0;
1000 /* Create the three fixed ones. */
1005 seg = subseg_new (".wtext", 0);
1007 seg = subseg_new (".text", 0);
1009 assert (seg == SEG_E0);
1010 seg = subseg_new (".data", 0);
1011 assert (seg == SEG_E1);
1012 seg = subseg_new (".bss", 0);
1013 assert (seg == SEG_E2);
1015 create_target_segments ();
1019 #else /* not MANY_SEGMENTS */
1020 text_fix_root = NULL;
1021 data_fix_root = NULL;
1022 bss_fix_root = NULL;
1023 #endif /* not MANY_SEGMENTS */
1024 #else /* BFD_ASSEMBLER */
1025 /* Create the standard sections, and those the assembler uses
1027 text_section = subseg_new (TEXT_SECTION_NAME, 0);
1028 data_section = subseg_new (DATA_SECTION_NAME, 0);
1029 bss_section = subseg_new (BSS_SECTION_NAME, 0);
1030 /* @@ FIXME -- we're setting the RELOC flag so that sections are assumed
1031 to have relocs, otherwise we don't find out in time. */
1032 applicable = bfd_applicable_section_flags (stdoutput);
1033 bfd_set_section_flags (stdoutput, text_section,
1034 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
1035 | SEC_CODE | SEC_READONLY));
1036 bfd_set_section_flags (stdoutput, data_section,
1037 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
1039 bfd_set_section_flags (stdoutput, bss_section, applicable & SEC_ALLOC);
1040 seg_info (bss_section)->bss = 1;
1041 subseg_new (BFD_ABS_SECTION_NAME, 0);
1042 subseg_new (BFD_UND_SECTION_NAME, 0);
1043 reg_section = subseg_new ("*GAS `reg' section*", 0);
1044 expr_section = subseg_new ("*GAS `expr' section*", 0);
1046 #endif /* BFD_ASSEMBLER */
1048 subseg_set (text_section, 0);
1050 /* This may add symbol table entries, which requires having an open BFD,
1051 and sections already created, in BFD_ASSEMBLER mode. */
1065 { /* Is it a file-name argument? */
1068 /* argv->"" if stdin desired, else->filename */
1069 read_a_source_file (*argv);
1071 argv++; /* completed that argv */
1074 read_a_source_file ("");
1077 /* The interface between the macro code and gas expression handling. */
1080 macro_expr (emsg, idx, in, val)
1091 hold = input_line_pointer;
1092 input_line_pointer = in->ptr + idx;
1094 idx = input_line_pointer - in->ptr;
1095 input_line_pointer = hold;
1097 if (ex.X_op != O_constant)
1098 as_bad ("%s", emsg);
1100 *val = (int) ex.X_add_number;