/* as.c - GAS main program.   Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998,   1999, 2000, 2001   Free Software Foundation, Inc.   This file is part of GAS, the GNU Assembler.   GAS is free software; you can redistribute it and/or modify   it under the terms of the GNU General Public License as published by   the Free Software Foundation; either version 2, or (at your option)   any later version.   GAS is distributed in the hope that it will be useful,   but WITHOUT ANY WARRANTY; without even the implied warranty of   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the   GNU General Public License for more details.   You should have received a copy of the GNU General Public License   along with GAS; see the file COPYING.  If not, write to the Free   Software Foundation, 59 Temple Place - Suite 330, Boston, MA   02111-1307, USA.  *//* Main program for AS; a 32-bit assembler of GNU. * Understands command arguments. * Has a few routines that don't fit in other modules because they * are shared. * *			bugs * * : initialisers *	Since no-one else says they will support them in future: I * don't support them now. */#include "ansidecl.h"#define COMMON#include "as.h"#include "subsegs.h"#include "output-file.h"#include "sb.h"#include "macro.h"#include "dwarf2dbg.h"#ifdef HAVE_ITBL_CPU#include "itbl-ops.h"#else#define itbl_parse(itbl_file) 1#define itbl_init()#endif#ifdef HAVE_SBRK#ifdef NEED_DECLARATION_SBRKextern PTR sbrk ();#endif#endifstatic void show_usage PARAMS ((FILE *));static void parse_args PARAMS ((int *, char ***));static void dump_statistics PARAMS ((void));static void perform_an_assembly_pass PARAMS ((int argc, char **argv));static int macro_expr PARAMS ((const char *, int, sb *, int *));/* True if a listing is wanted.  */int listing;/* Name of listing file.  */static char *listing_filename = NULL;/* Type of debugging to generate.  */enum debug_info_type debug_type = DEBUG_UNSPECIFIED;/* Maximum level of macro nesting.  */int max_macro_nest = 100;/* argv[0]  */char *myname;#ifdef BFD_ASSEMBLERsegT reg_section, expr_section;segT text_section, data_section, bss_section;#endif/* The default obstack chunk size.  If we set this to zero, the   obstack code will use whatever will fit in a 4096 byte block.  */int chunksize = 0;/* To monitor memory allocation more effectively, make this non-zero.   Then the chunk sizes for gas and bfd will be reduced.  */int debug_memory = 0;/* We build a list of defsyms as we read the options, and then define   them after we have initialized everything.  */struct defsym_list {  struct defsym_list *next;  char *name;  valueT value;};static struct defsym_list *defsyms;/* Keep a record of the itbl files we read in.  */struct itbl_file_list {  struct itbl_file_list *next;  char *name;};static struct itbl_file_list *itbl_files;#ifdef USE_EMULATIONS#define EMULATION_ENVIRON "AS_EMULATION"extern struct emulation mipsbelf, mipslelf, mipself;extern struct emulation mipsbecoff, mipslecoff, mipsecoff;extern struct emulation i386coff, i386elf, i386aout;extern struct emulation crisaout, criself;static struct emulation *const emulations[] = { EMULATIONS };static const int n_emulations = sizeof (emulations) / sizeof (emulations[0]);static void select_emulation_mode PARAMS ((int, char **));static voidselect_emulation_mode (argc, argv)     int argc;     char **argv;{  int i;  char *p, *em = 0;  for (i = 1; i < argc; i++)    if (!strncmp ("--em", argv[i], 4))      break;  if (i == argc)    goto do_default;  p = strchr (argv[i], '=');  if (p)    p++;  else    p = argv[i + 1];  if (!p || !*p)    as_fatal (_("missing emulation mode name"));  em = p; do_default:  if (em == 0)    em = getenv (EMULATION_ENVIRON);  if (em == 0)    em = DEFAULT_EMULATION;  if (em)    {      for (i = 0; i < n_emulations; i++)	if (!strcmp (emulations[i]->name, em))	  break;      if (i == n_emulations)	as_fatal (_("unrecognized emulation name `%s'"), em);      this_emulation = emulations[i];    }  else    this_emulation = emulations[0];  this_emulation->init ();}const char *default_emul_bfd_name (){  abort ();  return NULL;}voidcommon_emul_init (){  this_format = this_emulation->format;  if (this_emulation->leading_underscore == 2)    this_emulation->leading_underscore = this_format->dfl_leading_underscore;  if (this_emulation->default_endian != 2)    target_big_endian = this_emulation->default_endian;  if (this_emulation->fake_label_name == 0)    {      if (this_emulation->leading_underscore)	this_emulation->fake_label_name = "L0\001";      else	/* What other parameters should we test?  */	this_emulation->fake_label_name = ".L0\001";    }}#endifvoidprint_version_id (){  static int printed;  if (printed)    return;  printed = 1;#ifdef BFD_ASSEMBLER  fprintf (stderr, _("GNU assembler version %s (%s) using BFD version %s"),	   VERSION, TARGET_ALIAS, BFD_VERSION);#else  fprintf (stderr, _("GNU assembler version %s (%s)"), VERSION, TARGET_ALIAS);#endif  fprintf (stderr, "\n");}static voidshow_usage (stream)     FILE *stream;{  fprintf (stream, _("Usage: %s [option...] [asmfile...]\n"), myname);  fprintf (stream, _("\Options:\n\  -a[sub-option...]	  turn on listings\n\                      	  Sub-options [default hls]:\n\                      	  c      omit false conditionals\n\                      	  d      omit debugging directives\n\                      	  h      include high-level source\n\                      	  l      include assembly\n\                      	  m      include macro expansions\n\                      	  n      omit forms processing\n\                      	  s      include symbols\n\                      	  =FILE  list to FILE (must be last sub-option)\n"));  fprintf (stream, _("\  -D                      produce assembler debugging messages\n"));  fprintf (stream, _("\  --defsym SYM=VAL        define symbol SYM to given value\n"));#ifdef USE_EMULATIONS  {    int i;    char *def_em;    fprintf (stream, "\  --em=[");    for (i = 0; i < n_emulations - 1; i++)      fprintf (stream, "%s | ", emulations[i]->name);    fprintf (stream, "%s]\n", emulations[i]->name);    def_em = getenv (EMULATION_ENVIRON);    if (!def_em)      def_em = DEFAULT_EMULATION;    fprintf (stream, _("\                          emulate output (default %s)\n"), def_em);  }#endif  fprintf (stream, _("\  -f                      skip whitespace and comment preprocessing\n"));  fprintf (stream, _("\  --gstabs                generate stabs debugging information\n"));  fprintf (stream, _("\  --gdwarf2               generate DWARF2 debugging information\n"));  fprintf (stream, _("\  --help                  show this message and exit\n"));  fprintf (stream, _("\  --target-help           show target specific options\n"));  fprintf (stream, _("\  -I DIR                  add DIR to search list for .include directives\n"));  fprintf (stream, _("\  -J                      don't warn about signed overflow\n"));  fprintf (stream, _("\  -K                      warn when differences altered for long displacements\n"));  fprintf (stream, _("\  -L,--keep-locals        keep local symbols (e.g. starting with `L')\n"));  fprintf (stream, _("\  -M,--mri                assemble in MRI compatibility mode\n"));  fprintf (stream, _("\  --MD FILE               write dependency information in FILE (default none)\n"));  fprintf (stream, _("\  -nocpp                  ignored\n"));  fprintf (stream, _("\  -o OBJFILE              name the object-file output OBJFILE (default a.out)\n"));  fprintf (stream, _("\  -R                      fold data section into text section\n"));  fprintf (stream, _("\  --statistics            print various measured statistics from execution\n"));  fprintf (stream, _("\  --strip-local-absolute  strip local absolute symbols\n"));  fprintf (stream, _("\  --traditional-format    Use same format as native assembler when possible\n"));  fprintf (stream, _("\  --version               print assembler version number and exit\n"));  fprintf (stream, _("\  -W  --no-warn           suppress warnings\n"));  fprintf (stream, _("\  --warn                  don't suppress warnings\n"));  fprintf (stream, _("\  --fatal-warnings        treat warnings as errors\n"));  fprintf (stream, _("\  --itbl INSTTBL          extend instruction set to include instructions\n\                          matching the specifications defined in file INSTTBL\n"));  fprintf (stream, _("\  -w                      ignored\n"));  fprintf (stream, _("\  -X                      ignored\n"));  fprintf (stream, _("\  -Z                      generate object file even after errors\n"));  fprintf (stream, _("\  --listing-lhs-width     set the width in words of the output data column of\n\                          the listing\n"));  fprintf (stream, _("\  --listing-lhs-width2    set the width in words of the continuation lines\n\                          of the output data column; ignored if smaller than\n\                          the width of the first line\n"));  fprintf (stream, _("\  --listing-rhs-width     set the max width in characters of the lines from\n\                          the source file\n"));  fprintf (stream, _("\  --listing-cont-lines    set the maximum number of continuation lines used\n\                          for the output data column of the listing\n"));  md_show_usage (stream);  fputc ('\n', stream);  fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);}/* Since it is easy to do here we interpret the special arg "-"   to mean "use stdin" and we set that argv[] pointing to "".   After we have munged argv[], the only things left are source file   name(s) and ""(s) denoting stdin. These file names are used   (perhaps more than once) later.   check for new machine-dep cmdline options in   md_parse_option definitions in config/tc-*.c.  */static voidparse_args (pargc, pargv)     int *pargc;     char ***pargv;{  int old_argc, new_argc;  char **old_argv, **new_argv;  /* Starting the short option string with '-' is for programs that     expect options and other ARGV-elements in any order and that care about     the ordering of the two.  We describe each non-option ARGV-element     as if it were the argument of an option with character code 1.  */  char *shortopts;  extern CONST char *md_shortopts;  static const char std_shortopts[] = {    '-', 'J',#ifndef WORKING_DOT_WORD    /* -K is not meaningful if .word is not being hacked.  */    'K',#endif    'L', 'M', 'R', 'W', 'Z', 'f', 'a', ':', ':', 'D', 'I', ':', 'o', ':',#ifndef VMS    /* -v takes an argument on VMS, so we don't make it a generic       option.  */    'v',#endif    'w', 'X',    /* New option for extending instruction set (see also --itbl below)  */    't', ':',    '\0'  };  struct option *longopts;  extern struct option md_longopts[];  extern size_t md_longopts_size;  static const struct option std_longopts[] = {#define OPTION_HELP (OPTION_STD_BASE)    {"help", no_argument, NULL, OPTION_HELP},    {"keep-locals", no_argument, NULL, 'L'},    {"mri", no_argument, NULL, 'M'},#define OPTION_NOCPP (OPTION_STD_BASE + 1)    {"nocpp", no_argument, NULL, OPTION_NOCPP},#define OPTION_STATISTICS (OPTION_STD_BASE + 2)    {"statistics", no_argument, NULL, OPTION_STATISTICS},#define OPTION_VERSION (OPTION_STD_BASE + 3)    {"version", no_argument, NULL, OPTION_VERSION},#define OPTION_DUMPCONFIG (OPTION_STD_BASE + 4)    {"dump-config", no_argument, NULL, OPTION_DUMPCONFIG},#define OPTION_VERBOSE (OPTION_STD_BASE + 5)    {"verbose", no_argument, NULL, OPTION_VERBOSE},#define OPTION_EMULATION (OPTION_STD_BASE + 6)    {"emulation", required_argument, NULL, OPTION_EMULATION},#define OPTION_DEFSYM (OPTION_STD_BASE + 7)    {"defsym", required_argument, NULL, OPTION_DEFSYM},#define OPTION_INSTTBL (OPTION_STD_BASE + 8)    /* New option for extending instruction set (see also -t above).       The "-t file" or "--itbl file" option extends the basic set of       valid instructions by reading "file", a text file containing a       list of instruction formats.  The additional opcodes and their       formats are added to the built-in set of instructions, and       mnemonics for new registers may also be defined.  */    {"itbl", required_argument, NULL, OPTION_INSTTBL},#define OPTION_LISTING_LHS_WIDTH (OPTION_STD_BASE + 9)    {"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH},#define OPTION_LISTING_LHS_WIDTH2 (OPTION_STD_BASE + 10)    {"listing-lhs-width2", required_argument, NULL, OPTION_LISTING_LHS_WIDTH2},#define OPTION_LISTING_RHS_WIDTH (OPTION_STD_BASE + 11)    {"listing-rhs-width", required_argument, NULL, OPTION_LISTING_RHS_WIDTH},#define OPTION_LISTING_CONT_LINES (OPTION_STD_BASE + 12)    {"listing-cont-lines", required_argument, NULL, OPTION_LISTING_CONT_LINES},#define OPTION_DEPFILE (OPTION_STD_BASE + 13)    {"MD", required_argument, NULL, OPTION_DEPFILE},#define OPTION_GSTABS (OPTION_STD_BASE + 14)    {"gstabs", no_argument, NULL, OPTION_GSTABS},#define OPTION_STRIP_LOCAL_ABSOLUTE (OPTION_STD_BASE + 15)    {"strip-local-absolute", no_argument, NULL, OPTION_STRIP_LOCAL_ABSOLUTE},#define OPTION_TRADITIONAL_FORMAT (OPTION_STD_BASE + 16)    {"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT},#define OPTION_GDWARF2 (OPTION_STD_BASE + 17)    {"gdwarf2", no_argument, NULL, OPTION_GDWARF2},    {"no-warn", no_argument, NULL, 'W'},#define OPTION_WARN (OPTION_STD_BASE + 18)    {"warn", no_argument, NULL, OPTION_WARN},#define OPTION_TARGET_HELP (OPTION_STD_BASE + 19)    {"target-help", no_argument, NULL, OPTION_TARGET_HELP},#define OPTION_WARN_FATAL (OPTION_STD_BASE + 20)    {"fatal-warnings", no_argument, NULL, OPTION_WARN_FATAL}    /* When you add options here, check that they do not collide with       OPTION_MD_BASE.  See as.h.  */  };  /* Construct the option lists from the standard list and the target     dependent list.  Include space for an extra NULL option and     always NULL terminate.  */  shortopts = concat (std_shortopts, md_shortopts, (char *) NULL);  longopts = (struct option *) xmalloc (sizeof (std_longopts)					+ md_longopts_size					+ sizeof (struct option));  memcpy (longopts, std_longopts, sizeof (std_longopts));  memcpy ((char *) longopts + sizeof (std_longopts),	  md_longopts, md_longopts_size);  memset ((char *) longopts + sizeof (std_longopts) + md_longopts_size,	  0, sizeof (struct option));  /* Make a local copy of the old argv.  */  old_argc = *pargc;  old_argv = *pargv;  /* Initialize a new argv that contains no options.  */  new_argv = (char **) xmalloc (sizeof (char *) * (old_argc + 1));  new_argv[0] = old_argv[0];  new_argc = 1;  new_argv[new_argc] = NULL;  while (1)    {      /* getopt_long_only is like getopt_long, but '-' as well as '--' can	 indicate a long option.  */      int longind;      int optc = getopt_long_only (old_argc, old_argv, shortopts, longopts,				   &longind);      if (optc == -1)	break;      switch (optc)	{	default:	  /* md_parse_option should return 1 if it recognizes optc,	     0 if not.  */	  if (md_parse_option (optc, optarg) != 0)	    break;	  /* `-v' isn't included in the general short_opts list, so check for	     it explicity here before deciding we've gotten a bad argument.  */	  if (optc == 'v')	    {#ifdef VMS	      /* Telling getopt to treat -v's value as optional can result		 in it picking up a following filename argument here.  The		 VMS code in md_parse_option can return 0 in that case,		 but it has no way of pushing the filename argument back.  */	      if (optarg && *optarg)		new_argv[new_argc++] = optarg, new_argv[new_argc] = NULL;	      else#else	      case 'v':#endif	      case OPTION_VERBOSE:		print_version_id ();	      break;	    }	  /* Fall through.  */	case '?':	  exit (EXIT_FAILURE);	case 1:			/* File name.  */	  if (!strcmp (optarg, "-"))	    optarg = "";	  new_argv[new_argc++] = optarg;	  new_argv[new_argc] = NULL;	  break;	case OPTION_TARGET_HELP:          md_show_usage (stdout);          exit (EXIT_SUCCESS);	case OPTION_HELP:	  show_usage (stdout);	  exit (EXIT_SUCCESS);	case OPTION_NOCPP:	  break;	case OPTION_STATISTICS:	  flag_print_statistics = 1;	  break;	case OPTION_STRIP_LOCAL_ABSOLUTE:	  flag_strip_local_absolute = 1;	  break;	case OPTION_TRADITIONAL_FORMAT:	  flag_traditional_format = 1;	  break;	case OPTION_VERSION:	  /* This output is intended to follow the GNU standards document.  */	  printf (_("GNU assembler %s\n"), VERSION);	  printf (_("Copyright 2001 Free Software Foundation, Inc.\n"));	  printf (_("\This program is free software; you may redistribute it under the terms of\n\the GNU General Public License.  This program has absolutely no warranty.\n"));	  printf (_("This assembler was configured for a target of `%s'.\n"),		  TARGET_ALIAS);	  exit (EXIT_SUCCESS);	case OPTION_EMULATION:#ifdef USE_EMULATIONS	  if (strcmp (optarg, this_emulation->name))	    as_fatal (_("multiple emulation names specified"));#else	  as_fatal (_("emulations not handled in this configuration"));#endif	  break;	case OPTION_DUMPCONFIG:	  fprintf (stderr, _("alias = %s\n"), TARGET_ALIAS);	  fprintf (stderr, _("canonical = %s\n"), TARGET_CANONICAL);	  fprintf (stderr, _("cpu-type = %s\n"), TARGET_CPU);#ifdef TARGET_OBJ_FORMAT	  fprintf (stderr, _("format = %s\n"), TARGET_OBJ_FORMAT);#endif#ifdef TARGET_FORMAT	  fprintf (stderr, _("bfd-target = %s\n"), TARGET_FORMAT);