as.c revision 38889 
1/* as.c - GAS main program.
2   Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 96, 97, 1998
3   Free Software Foundation, Inc.
4
5   This file is part of GAS, the GNU Assembler.
6
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)
10   any later version.
11
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.
16
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
20   02111-1307, USA. */
21
22/*
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
26 * are shared.
27 *
28 *
29 *			bugs
30 *
31 * : initialisers
32 *	Since no-one else says they will support them in future: I
33 * don't support them now.
34 *
35 */
36
37#include "ansidecl.h"
38
39#define COMMON
40
41#include "as.h"
42#include "subsegs.h"
43#include "output-file.h"
44#include "sb.h"
45#include "macro.h"
46#ifndef HAVE_ITBL_CPU
47#define itbl_parse(itbl_file) 1
48#define itbl_init()
49#endif
50
51#ifdef HAVE_SBRK
52#ifdef NEED_DECLARATION_SBRK
53extern PTR sbrk ();
54#endif
55#endif
56
57static void show_usage PARAMS ((FILE *));
58static void parse_args PARAMS ((int *, char ***));
59static void dump_statistics PARAMS ((void));
60static void perform_an_assembly_pass PARAMS ((int argc, char **argv));
61static int macro_expr PARAMS ((const char *, int, sb *, int *));
62
63int listing;			/* true if a listing is wanted */
64
65static char *listing_filename = NULL;	/* Name of listing file.  */
66
67/* Type of debugging to generate.  */
68
69enum debug_info_type debug_type = DEBUG_NONE;
70
71/* Maximum level of macro nesting.  */
72
73int max_macro_nest = 100;
74
75char *myname;			/* argv[0] */
76#ifdef BFD_ASSEMBLER
77segT reg_section, expr_section;
78segT text_section, data_section, bss_section;
79#endif
80
81/* The default obstack chunk size.  If we set this to zero, the
82   obstack code will use whatever will fit in a 4096 byte block.  */
83int chunksize = 0;
84
85/* To monitor memory allocation more effectively, make this non-zero.
86   Then the chunk sizes for gas and bfd will be reduced.  */
87int debug_memory = 0;
88
89/* We build a list of defsyms as we read the options, and then define
90   them after we have initialized everything.  */
91
92struct defsym_list
93{
94  struct defsym_list *next;
95  char *name;
96  valueT value;
97};
98
99static struct defsym_list *defsyms;
100
101/* Keep a record of the itbl files we read in. */
102
103struct itbl_file_list
104{
105  struct itbl_file_list *next;
106  char *name;
107};
108
109static struct itbl_file_list *itbl_files;
110
111void
112print_version_id ()
113{
114  static int printed;
115  if (printed)
116    return;
117  printed = 1;
118
119  fprintf (stderr, "GNU assembler version %s (%s)", VERSION, TARGET_ALIAS);
120#ifdef BFD_ASSEMBLER
121  fprintf (stderr, ", using BFD version %s", BFD_VERSION);
122#endif
123  fprintf (stderr, "\n");
124}
125
126static void
127show_usage (stream)
128     FILE *stream;
129{
130  fprintf (stream, "Usage: %s [option...] [asmfile...]\n", myname);
131
132  fprintf (stream, "\
133Options:\n\
134-a[sub-option...]	turn on listings\n\
135  Sub-options [default hls]:\n\
136  c	omit false conditionals\n\
137  d	omit debugging directives\n\
138  h	include high-level source\n\
139  l	include assembly\n\
140  m     include macro expansions\n\
141  n	omit forms processing\n\
142  s	include symbols\n\
143  =file set listing file name (must be last sub-option)\n");
144  fprintf (stream, "\
145-D			produce assembler debugging messages\n\
146--defsym SYM=VAL	define symbol SYM to given value\n\
147-f			skip whitespace and comment preprocessing\n\
148--gstabs		generate stabs debugging information\n\
149--help			show this message and exit\n\
150-I DIR			add DIR to search list for .include directives\n\
151-J			don't warn about signed overflow\n\
152-K			warn when differences altered for long displacements\n\
153-L,--keep-locals	keep local symbols (e.g. starting with `L')\n");
154  fprintf (stream, "\
155-M,--mri		assemble in MRI compatibility mode\n\
156--MD FILE		write dependency information in FILE (default none)\n\
157-nocpp			ignored\n\
158-o OBJFILE		name the object-file output OBJFILE (default a.out)\n\
159-R			fold data section into text section\n\
160--statistics		print various measured statistics from execution\n\
161--strip-local-absolute	strip local absolute symbols\n\
162--traditional-format	Use same format as native assembler when possible\n\
163--version		print assembler version number and exit\n\
164-W			suppress warnings\n\
165--itbl INSTTBL		extend instruction set to include instructions\n\
166			matching the specifications defined in file INSTTBL\n\
167-w			ignored\n\
168-X			ignored\n\
169-Z			generate object file even after errors\n");
170  fprintf (stream, "\
171--listing-lhs-width	set the width in words of the output data column of\n\
172			the listing\n\
173--listing-lhs-width2	set the width in words of the continuation lines\n\
174			of the output data column; ignored if smaller than\n\
175			the width of the first line\n\
176--listing-rhs-width	set the max width in characters of the lines from\n\
177			the source file\n\
178--listing-cont-lines	set the maximum number of continuation lines used\n\
179			for the output data column of the listing\n");
180
181  md_show_usage (stream);
182
183  fprintf (stream, "\nReport bugs to bug-gnu-utils@gnu.org\n");
184}
185
186#ifdef USE_EMULATIONS
187#define EMULATION_ENVIRON "AS_EMULATION"
188
189extern struct emulation mipsbelf, mipslelf, mipself;
190extern struct emulation mipsbecoff, mipslecoff, mipsecoff;
191extern struct emulation i386coff, i386elf;
192
193static struct emulation *const emulations[] = { EMULATIONS };
194static const int n_emulations = sizeof (emulations) / sizeof (emulations[0]);
195
196static void select_emulation_mode PARAMS ((int, char **));
197
198static void
199select_emulation_mode (argc, argv)
200     int argc;
201     char **argv;
202{
203  int i;
204  char *p, *em = 0;
205
206  for (i = 1; i < argc; i++)
207    if (!strncmp ("--em", argv[i], 4))
208      break;
209
210  if (i == argc)
211    goto do_default;
212
213  p = strchr (argv[i], '=');
214  if (p)
215    p++;
216  else
217    p = argv[i+1];
218
219  if (!p || !*p)
220    as_fatal ("missing emulation mode name");
221  em = p;
222
223 do_default:
224  if (em == 0)
225    em = getenv (EMULATION_ENVIRON);
226  if (em == 0)
227    em = DEFAULT_EMULATION;
228
229  if (em)
230    {
231      for (i = 0; i < n_emulations; i++)
232	if (!strcmp (emulations[i]->name, em))
233	  break;
234      if (i == n_emulations)
235	as_fatal ("unrecognized emulation name `%s'", em);
236      this_emulation = emulations[i];
237    }
238  else
239    this_emulation = emulations[0];
240
241  this_emulation->init ();
242}
243
244const char *
245default_emul_bfd_name ()
246{
247  abort ();
248  return NULL;
249}
250
251void
252common_emul_init ()
253{
254  this_format = this_emulation->format;
255
256  if (this_emulation->leading_underscore == 2)
257    this_emulation->leading_underscore = this_format->dfl_leading_underscore;
258
259  if (this_emulation->default_endian != 2)
260    target_big_endian = this_emulation->default_endian;
261
262  if (this_emulation->fake_label_name == 0)
263    {
264      if (this_emulation->leading_underscore)
265	this_emulation->fake_label_name = "L0\001";
266      else
267	/* What other parameters should we test?  */
268	this_emulation->fake_label_name = ".L0\001";
269    }
270}
271#endif
272
273/*
274 * Since it is easy to do here we interpret the special arg "-"
275 * to mean "use stdin" and we set that argv[] pointing to "".
276 * After we have munged argv[], the only things left are source file
277 * name(s) and ""(s) denoting stdin. These file names are used
278 * (perhaps more than once) later.
279 *
280 * check for new machine-dep cmdline options in
281 * md_parse_option definitions in config/tc-*.c
282 */
283
284static void
285parse_args (pargc, pargv)
286     int *pargc;
287     char ***pargv;
288{
289  int old_argc, new_argc;
290  char **old_argv, **new_argv;
291
292  /* Starting the short option string with '-' is for programs that
293     expect options and other ARGV-elements in any order and that care about
294     the ordering of the two.  We describe each non-option ARGV-element
295     as if it were the argument of an option with character code 1.  */
296
297  char *shortopts;
298  extern CONST char *md_shortopts;
299  static const char std_shortopts[] =
300    {
301      '-', 'J',
302#ifndef WORKING_DOT_WORD
303      /* -K is not meaningful if .word is not being hacked.  */
304      'K',
305#endif
306      'L', 'M', 'R', 'W', 'Z', 'f', 'a', ':', ':', 'D', 'I', ':', 'o', ':',
307#ifndef VMS
308      /* -v takes an argument on VMS, so we don't make it a generic
309         option.  */
310      'v',
311#endif
312      'w', 'X',
313      /* New option for extending instruction set (see also --itbl below) */
314      't', ':',
315      '\0'
316    };
317  struct option *longopts;
318  extern struct option md_longopts[];
319  extern size_t md_longopts_size;
320  static const struct option std_longopts[] = {
321#define OPTION_HELP (OPTION_STD_BASE)
322    {"help", no_argument, NULL, OPTION_HELP},
323    {"keep-locals", no_argument, NULL, 'L'},
324    {"mri", no_argument, NULL, 'M'},
325#define OPTION_NOCPP (OPTION_STD_BASE + 1)
326    {"nocpp", no_argument, NULL, OPTION_NOCPP},
327#define OPTION_STATISTICS (OPTION_STD_BASE + 2)
328    {"statistics", no_argument, NULL, OPTION_STATISTICS},
329#define OPTION_VERSION (OPTION_STD_BASE + 3)
330    {"version", no_argument, NULL, OPTION_VERSION},
331#define OPTION_DUMPCONFIG (OPTION_STD_BASE + 4)
332    {"dump-config", no_argument, NULL, OPTION_DUMPCONFIG},
333#define OPTION_VERBOSE (OPTION_STD_BASE + 5)
334    {"verbose", no_argument, NULL, OPTION_VERBOSE},
335#define OPTION_EMULATION (OPTION_STD_BASE + 6)
336    {"emulation", required_argument, NULL, OPTION_EMULATION},
337#define OPTION_DEFSYM (OPTION_STD_BASE + 7)
338    {"defsym", required_argument, NULL, OPTION_DEFSYM},
339#define OPTION_INSTTBL (OPTION_STD_BASE + 8)
340    /* New option for extending instruction set (see also -t above).
341       The "-t file" or "--itbl file" option extends the basic set of
342       valid instructions by reading "file", a text file containing a
343       list of instruction formats.  The additional opcodes and their
344       formats are added to the built-in set of instructions, and
345       mnemonics for new registers may also be defined.  */
346    {"itbl", required_argument, NULL, OPTION_INSTTBL},
347#define OPTION_LISTING_LHS_WIDTH (OPTION_STD_BASE + 9)
348    {"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH},
349#define OPTION_LISTING_LHS_WIDTH2 (OPTION_STD_BASE + 10)
350    {"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH2},
351#define OPTION_LISTING_RHS_WIDTH (OPTION_STD_BASE + 11)
352    {"listing-rhs-width", required_argument, NULL, OPTION_LISTING_RHS_WIDTH},
353#define OPTION_LISTING_CONT_LINES (OPTION_STD_BASE + 12)
354    {"listing-cont-lines", required_argument, NULL, OPTION_LISTING_CONT_LINES},
355#define OPTION_DEPFILE (OPTION_STD_BASE + 13)
356    {"MD", required_argument, NULL, OPTION_DEPFILE},
357#define OPTION_GSTABS (OPTION_STD_BASE + 14)
358    {"gstabs", no_argument, NULL, OPTION_GSTABS},
359#define OPTION_STRIP_LOCAL_ABSOLUTE (OPTION_STD_BASE + 15)
360    {"strip-local-absolute", no_argument, NULL, OPTION_STRIP_LOCAL_ABSOLUTE},
361#define OPTION_TRADITIONAL_FORMAT (OPTION_STD_BASE + 16)
362    {"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT}
363  };
364
365  /* Construct the option lists from the standard list and the
366     target dependent list.  */
367  shortopts = concat (std_shortopts, md_shortopts, (char *) NULL);
368  longopts = (struct option *) xmalloc (sizeof (std_longopts) + md_longopts_size);
369  memcpy (longopts, std_longopts, sizeof (std_longopts));
370  memcpy ((char *) longopts + sizeof (std_longopts),
371	  md_longopts, md_longopts_size);
372
373  /* Make a local copy of the old argv.  */
374  old_argc = *pargc;
375  old_argv = *pargv;
376
377  /* Initialize a new argv that contains no options.  */
378  new_argv = (char **) xmalloc (sizeof (char *) * (old_argc + 1));
379  new_argv[0] = old_argv[0];
380  new_argc = 1;
381  new_argv[new_argc] = NULL;
382
383  while (1)
384    {
385      /* getopt_long_only is like getopt_long, but '-' as well as '--' can
386	 indicate a long option.  */
387      int longind;
388      int optc = getopt_long_only (old_argc, old_argv, shortopts, longopts,
389				   &longind);
390
391      if (optc == -1)
392	break;
393
394      switch (optc)
395	{
396	default:
397	  /* md_parse_option should return 1 if it recognizes optc,
398	     0 if not.  */
399	  if (md_parse_option (optc, optarg) != 0)
400	    break;
401	  /* `-v' isn't included in the general short_opts list, so check for
402	     it explicity here before deciding we've gotten a bad argument.  */
403	  if (optc == 'v')
404	    {
405#ifdef VMS
406	      /* Telling getopt to treat -v's value as optional can result
407		 in it picking up a following filename argument here.  The
408		 VMS code in md_parse_option can return 0 in that case,
409		 but it has no way of pushing the filename argument back.  */
410	      if (optarg && *optarg)
411		new_argv[new_argc++] = optarg,  new_argv[new_argc] = NULL;
412	      else
413#else
414	      case 'v':
415#endif
416	      case OPTION_VERBOSE:
417		print_version_id ();
418	      break;
419	    }
420	  /*FALLTHRU*/
421
422	case '?':
423	  exit (EXIT_FAILURE);
424
425	case 1:			/* File name.  */
426	  if (!strcmp (optarg, "-"))
427	    optarg = "";
428	  new_argv[new_argc++] = optarg;
429	  new_argv[new_argc] = NULL;
430	  break;
431
432	case OPTION_HELP:
433	  show_usage (stdout);
434	  exit (EXIT_SUCCESS);
435
436	case OPTION_NOCPP:
437	  break;
438
439	case OPTION_STATISTICS:
440	  flag_print_statistics = 1;
441	  break;
442
443	case OPTION_STRIP_LOCAL_ABSOLUTE:
444	  flag_strip_local_absolute = 1;
445	  break;
446
447	case OPTION_TRADITIONAL_FORMAT:
448	  flag_traditional_format = 1;
449	  break;
450
451	case OPTION_VERSION:
452	  /* This output is intended to follow the GNU standards document.  */
453	  printf ("GNU assembler %s\n", VERSION);
454	  printf ("Copyright 1997 Free Software Foundation, Inc.\n");
455	  printf ("\
456This program is free software; you may redistribute it under the terms of\n\
457the GNU General Public License.  This program has absolutely no warranty.\n");
458	  printf ("This assembler was configured for a target of `%s'.\n",
459		  TARGET_ALIAS);
460	  exit (EXIT_SUCCESS);
461
462	case OPTION_EMULATION:
463#ifdef USE_EMULATIONS
464	  if (strcmp (optarg, this_emulation->name))
465	    as_fatal ("multiple emulation names specified");
466#else
467	  as_fatal ("emulations not handled in this configuration");
468#endif
469	  break;
470
471	case OPTION_DUMPCONFIG:
472	  fprintf (stderr, "alias = %s\n", TARGET_ALIAS);
473	  fprintf (stderr, "canonical = %s\n", TARGET_CANONICAL);
474	  fprintf (stderr, "cpu-type = %s\n", TARGET_CPU);
475#ifdef TARGET_OBJ_FORMAT
476	  fprintf (stderr, "format = %s\n", TARGET_OBJ_FORMAT);
477#endif
478#ifdef TARGET_FORMAT
479	  fprintf (stderr, "bfd-target = %s\n", TARGET_FORMAT);
480#endif
481	  exit (EXIT_SUCCESS);
482
483	case OPTION_DEFSYM:
484	  {
485	    char *s;
486	    long i;
487	    struct defsym_list *n;
488
489	    for (s = optarg; *s != '\0' && *s != '='; s++)
490	      ;
491	    if (*s == '\0')
492	      as_fatal ("bad defsym; format is --defsym name=value");
493	    *s++ = '\0';
494	    i = strtol (s, (char **) NULL, 0);
495	    n = (struct defsym_list *) xmalloc (sizeof *n);
496	    n->next = defsyms;
497	    n->name = optarg;
498	    n->value = i;
499	    defsyms = n;
500	  }
501	  break;
502
503	case OPTION_INSTTBL:
504	case 't':
505	  {
506	    /* optarg is the name of the file containing the instruction
507	       formats, opcodes, register names, etc. */
508	    struct itbl_file_list *n;
509
510	    if (optarg == NULL)
511	      {
512		as_warn ( "No file name following -t option\n" );
513		break;
514	      }
515
516	    n = (struct itbl_file_list *) xmalloc (sizeof *n);
517	    n->next = itbl_files;
518	    n->name = optarg;
519	    itbl_files = n;
520
521	    /* Parse the file and add the new instructions to our internal
522	       table.  If multiple instruction tables are specified, the
523	       information from this table gets appended onto the existing
524	       internal table. */
525	    itbl_files->name = xstrdup (optarg);
526	    if (itbl_parse (itbl_files->name) != 0)
527	      {
528		fprintf (stderr, "Failed to read instruction table %s\n",
529			 itbl_files->name);
530		exit (EXIT_SUCCESS);
531	      }
532	  }
533	  break;
534
535	case OPTION_DEPFILE:
536	  start_dependencies (optarg);
537	  break;
538
539	case OPTION_GSTABS:
540	  debug_type = DEBUG_STABS;
541	  break;
542
543	case 'J':
544	  flag_signed_overflow_ok = 1;
545	  break;
546
547#ifndef WORKING_DOT_WORD
548	case 'K':
549	  flag_warn_displacement = 1;
550	  break;
551#endif
552
553	case 'L':
554	  flag_keep_locals = 1;
555	  break;
556
557	case OPTION_LISTING_LHS_WIDTH:
558	  listing_lhs_width = atoi(optarg);
559	  if (listing_lhs_width_second < listing_lhs_width)
560	    listing_lhs_width_second = listing_lhs_width;
561	  break;
562	case OPTION_LISTING_LHS_WIDTH2:
563	  {
564	    int tmp = atoi(optarg);
565	    if (tmp > listing_lhs_width)
566	      listing_lhs_width_second = tmp;
567	  }
568	  break;
569	case OPTION_LISTING_RHS_WIDTH:
570	  listing_rhs_width = atoi(optarg);
571	  break;
572	case OPTION_LISTING_CONT_LINES:
573	  listing_lhs_cont_lines = atoi(optarg);
574	  break;
575
576	case 'M':
577	  flag_mri = 1;
578#ifdef TC_M68K
579	  flag_m68k_mri = 1;
580#endif
581	  break;
582
583	case 'R':
584	  flag_readonly_data_in_text = 1;
585	  break;
586
587	case 'W':
588	  flag_no_warnings = 1;
589	  break;
590
591	case 'Z':
592	  flag_always_generate_output = 1;
593	  break;
594
595	case 'a':
596	  if (optarg)
597	    {
598	      while (*optarg)
599		{
600		  switch (*optarg)
601		    {
602		    case 'c':
603		      listing |= LISTING_NOCOND;
604		      break;
605		    case 'd':
606		      listing |= LISTING_NODEBUG;
607		      break;
608		    case 'h':
609		      listing |= LISTING_HLL;
610		      break;
611		    case 'l':
612		      listing |= LISTING_LISTING;
613		      break;
614		    case 'm':
615		      listing |= LISTING_MACEXP;
616		      break;
617		    case 'n':
618		      listing |= LISTING_NOFORM;
619		      break;
620		    case 's':
621		      listing |= LISTING_SYMBOLS;
622		      break;
623		    case '=':
624		      listing_filename = xstrdup (optarg + 1);
625		      optarg += strlen (listing_filename);
626		      break;
627		    default:
628		      as_fatal ("invalid listing option `%c'", *optarg);
629		      break;
630		    }
631		  optarg++;
632		}
633	    }
634	  if (!listing)
635	    listing = LISTING_DEFAULT;
636	  break;
637
638	case 'D':
639	  /* DEBUG is implemented: it debugs different */
640	  /* things from other people's assemblers. */
641	  flag_debug = 1;
642	  break;
643
644	case 'f':
645	  flag_no_comments = 1;
646	  break;
647
648	case 'I':
649	  {			/* Include file directory */
650	    char *temp = xstrdup (optarg);
651	    add_include_dir (temp);
652	    break;
653	  }
654
655	case 'o':
656	  out_file_name = xstrdup (optarg);
657	  break;
658
659	case 'w':
660	  break;
661
662	case 'X':
663	  /* -X means treat warnings as errors */
664	  break;
665	}
666    }
667
668  free (shortopts);
669  free (longopts);
670
671  *pargc = new_argc;
672  *pargv = new_argv;
673}
674
675static long start_time;
676
677int
678main (argc, argv)
679     int argc;
680     char **argv;
681{
682  int macro_alternate;
683  int macro_strip_at;
684  int keep_it;
685
686  start_time = get_run_time ();
687
688
689  if (debug_memory)
690    {
691#ifdef BFD_ASSEMBLER
692      extern long _bfd_chunksize;
693      _bfd_chunksize = 64;
694#endif
695      chunksize = 64;
696    }
697
698#ifdef HOST_SPECIAL_INIT
699  HOST_SPECIAL_INIT (argc, argv);
700#endif
701
702  myname = argv[0];
703  xmalloc_set_program_name (myname);
704
705  START_PROGRESS (myname, 0);
706
707#ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME
708#define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out"
709#endif
710
711  out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME;
712
713  hex_init ();
714#ifdef BFD_ASSEMBLER
715  bfd_init ();
716  bfd_set_error_program_name (myname);
717#endif
718
719#ifdef USE_EMULATIONS
720  select_emulation_mode (argc, argv);
721#endif
722
723  PROGRESS (1);
724  symbol_begin ();
725  frag_init ();
726  subsegs_begin ();
727  parse_args (&argc, &argv);
728  read_begin ();
729  input_scrub_begin ();
730  expr_begin ();
731
732  if (flag_print_statistics)
733    xatexit (dump_statistics);
734
735  macro_alternate = 0;
736  macro_strip_at = 0;
737#ifdef TC_I960
738  macro_strip_at = flag_mri;
739#endif
740#ifdef TC_A29K
741  /* For compatibility with the AMD 29K family macro assembler
742     specification.  */
743  macro_alternate = 1;
744  macro_strip_at = 1;
745#endif
746
747  macro_init (macro_alternate, flag_mri, macro_strip_at, macro_expr);
748
749  PROGRESS (1);
750
751#ifdef BFD_ASSEMBLER
752  output_file_create (out_file_name);
753  assert (stdoutput != 0);
754#endif
755
756#ifdef tc_init_after_args
757  tc_init_after_args ();
758#endif
759
760  itbl_init ();
761
762  /* Now that we have fully initialized, and have created the output
763     file, define any symbols requested by --defsym command line
764     arguments.  */
765  while (defsyms != NULL)
766    {
767      symbolS *sym;
768      struct defsym_list *next;
769
770      sym = symbol_new (defsyms->name, absolute_section, defsyms->value,
771			&zero_address_frag);
772      symbol_table_insert (sym);
773      next = defsyms->next;
774      free (defsyms);
775      defsyms = next;
776    }
777
778  PROGRESS (1);
779
780  perform_an_assembly_pass (argc, argv);	/* Assemble it. */
781
782  cond_finish_check (-1);
783
784#ifdef md_end
785  md_end ();
786#endif
787
788  if (seen_at_least_1_file ()
789      && (flag_always_generate_output || had_errors () == 0))
790    keep_it = 1;
791  else
792    keep_it = 0;
793
794#if defined (BFD_ASSEMBLER) || !defined (BFD)
795  /* This used to be done at the start of write_object_file in
796     write.c, but that caused problems when doing listings when
797     keep_it was zero.  This could probably be moved above md_end, but
798     I didn't want to risk the change.  */
799  subsegs_finish ();
800#endif
801
802  if (keep_it)
803    write_object_file ();
804
805#ifndef NO_LISTING
806  listing_print (listing_filename);
807#endif
808
809#ifndef OBJ_VMS /* does its own file handling */
810#ifndef BFD_ASSEMBLER
811  if (keep_it)
812#endif
813    output_file_close (out_file_name);
814#endif
815
816  if (had_errors () > 0 && ! flag_always_generate_output)
817    keep_it = 0;
818
819  if (!keep_it)
820    unlink (out_file_name);
821
822  input_scrub_end ();
823
824  END_PROGRESS (myname);
825
826  /* Use xexit instead of return, because under VMS environments they
827     may not place the same interpretation on the value given.  */
828  if (had_errors () > 0)
829    xexit (EXIT_FAILURE);
830
831  /* Only generate dependency file if assembler was successful.  */
832  print_dependencies ();
833
834  xexit (EXIT_SUCCESS);
835}
836
837static void
838dump_statistics ()
839{
840  extern char **environ;
841#ifdef HAVE_SBRK
842  char *lim = (char *) sbrk (0);
843#endif
844  long run_time = get_run_time () - start_time;
845
846  fprintf (stderr, "%s: total time in assembly: %ld.%06ld\n",
847	   myname, run_time / 1000000, run_time % 1000000);
848#ifdef HAVE_SBRK
849  fprintf (stderr, "%s: data size %ld\n",
850	   myname, (long) (lim - (char *) &environ));
851#endif
852
853  subsegs_print_statistics (stderr);
854  write_print_statistics (stderr);
855  symbol_print_statistics (stderr);
856  read_print_statistics (stderr);
857
858#ifdef tc_print_statistics
859  tc_print_statistics (stderr);
860#endif
861#ifdef obj_print_statistics
862  obj_print_statistics (stderr);
863#endif
864}
865
866
867/*			perform_an_assembly_pass()
868 *
869 * Here to attempt 1 pass over each input file.
870 * We scan argv[*] looking for filenames or exactly "" which is
871 * shorthand for stdin. Any argv that is NULL is not a file-name.
872 * We set need_pass_2 TRUE if, after this, we still have unresolved
873 * expressions of the form (unknown value)+-(unknown value).
874 *
875 * Note the un*x semantics: there is only 1 logical input file, but it
876 * may be a catenation of many 'physical' input files.
877 */
878static void
879perform_an_assembly_pass (argc, argv)
880     int argc;
881     char **argv;
882{
883  int saw_a_file = 0;
884#ifdef BFD_ASSEMBLER
885  flagword applicable;
886#endif
887
888  need_pass_2 = 0;
889
890#ifndef BFD_ASSEMBLER
891#ifdef MANY_SEGMENTS
892  {
893    unsigned int i;
894    for (i = SEG_E0; i < SEG_UNKNOWN; i++)
895      segment_info[i].fix_root = 0;
896  }
897  /* Create the three fixed ones */
898  {
899    segT seg;
900
901#ifdef TE_APOLLO
902    seg = subseg_new (".wtext", 0);
903#else
904    seg = subseg_new (".text", 0);
905#endif
906    assert (seg == SEG_E0);
907    seg = subseg_new (".data", 0);
908    assert (seg == SEG_E1);
909    seg = subseg_new (".bss", 0);
910    assert (seg == SEG_E2);
911#ifdef TE_APOLLO
912    create_target_segments ();
913#endif
914  }
915
916#else /* not MANY_SEGMENTS */
917  text_fix_root = NULL;
918  data_fix_root = NULL;
919  bss_fix_root = NULL;
920#endif /* not MANY_SEGMENTS */
921#else /* BFD_ASSEMBLER */
922  /* Create the standard sections, and those the assembler uses
923     internally.  */
924  text_section = subseg_new (TEXT_SECTION_NAME, 0);
925  data_section = subseg_new (DATA_SECTION_NAME, 0);
926  bss_section = subseg_new (BSS_SECTION_NAME, 0);
927  /* @@ FIXME -- we're setting the RELOC flag so that sections are assumed
928     to have relocs, otherwise we don't find out in time. */
929  applicable = bfd_applicable_section_flags (stdoutput);
930  bfd_set_section_flags (stdoutput, text_section,
931			 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC
932				       | SEC_CODE | SEC_READONLY));
933  /* @@ FIXME -- SEC_CODE seems to mean code only, rather than code possibly.*/
934  bfd_set_section_flags (stdoutput, data_section,
935			 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC));
936  bfd_set_section_flags (stdoutput, bss_section, applicable & SEC_ALLOC);
937  seg_info (bss_section)->bss = 1;
938  subseg_new (BFD_ABS_SECTION_NAME, 0);
939  subseg_new (BFD_UND_SECTION_NAME, 0);
940  reg_section = subseg_new ("*GAS `reg' section*", 0);
941  expr_section = subseg_new ("*GAS `expr' section*", 0);
942
943#endif /* BFD_ASSEMBLER */
944
945  subseg_set (text_section, 0);
946
947  /* This may add symbol table entries, which requires having an open BFD,
948     and sections already created, in BFD_ASSEMBLER mode.  */
949  md_begin ();
950
951#ifdef obj_begin
952  obj_begin ();
953#endif
954
955  argv++;			/* skip argv[0] */
956  argc--;			/* skip argv[0] */
957  while (argc--)
958    {
959      if (*argv)
960	{			/* Is it a file-name argument? */
961	  PROGRESS (1);
962	  saw_a_file++;
963	  /* argv->"" if stdin desired, else->filename */
964	  read_a_source_file (*argv);
965	}
966      argv++;			/* completed that argv */
967    }
968  if (!saw_a_file)
969    read_a_source_file ("");
970}				/* perform_an_assembly_pass() */
971
972/* The interface between the macro code and gas expression handling.  */
973
974static int
975macro_expr (emsg, idx, in, val)
976     const char *emsg;
977     int idx;
978     sb *in;
979     int *val;
980{
981  char *hold;
982  expressionS ex;
983
984  sb_terminate (in);
985
986  hold = input_line_pointer;
987  input_line_pointer = in->ptr + idx;
988  expression (&ex);
989  idx = input_line_pointer - in->ptr;
990  input_line_pointer = hold;
991
992  if (ex.X_op != O_constant)
993    as_bad ("%s", emsg);
994
995  *val = (int) ex.X_add_number;
996
997  return idx;
998}
999
1000/* end of as.c */
1001