1/* as.c - GAS main program. 2 Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 3 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 4 Free Software Foundation, Inc. 5 6 This file is part of GAS, the GNU Assembler. 7 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) 11 any later version. 12 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. 17 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, 51 Franklin Street - Fifth Floor, Boston, MA 21 02110-1301, USA. */ 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 bugs 29 30 : initialisers 31 Since no-one else says they will support them in future: I 32 don't support them now. */ 33 34#define COMMON 35 36#include "as.h" 37#include "subsegs.h" 38#include "output-file.h" 39#include "sb.h" 40#include "macro.h" 41#include "dwarf2dbg.h" 42#include "dw2gencfi.h" 43#include "bfdver.h" 44 45#ifdef HAVE_ITBL_CPU 46#include "itbl-ops.h" 47#else 48#define itbl_parse(itbl_file) 1 49#define itbl_init() 50#endif 51 52#ifdef HAVE_SBRK 53#ifdef NEED_DECLARATION_SBRK 54extern PTR sbrk (); 55#endif 56#endif 57 58#ifdef USING_CGEN 59/* Perform any cgen specific initialisation for gas. */ 60extern void gas_cgen_begin (void); 61#endif 62 63/* Keep a record of the itbl files we read in. */ 64struct itbl_file_list 65{ 66 struct itbl_file_list *next; 67 char *name; 68}; 69 70/* We build a list of defsyms as we read the options, and then define 71 them after we have initialized everything. */ 72struct defsym_list 73{ 74 struct defsym_list *next; 75 char *name; 76 valueT value; 77}; 78 79 80/* True if a listing is wanted. */ 81int listing; 82 83/* Type of debugging to generate. */ 84enum debug_info_type debug_type = DEBUG_UNSPECIFIED; 85int use_gnu_debug_info_extensions = 0; 86 87#ifndef MD_DEBUG_FORMAT_SELECTOR 88#define MD_DEBUG_FORMAT_SELECTOR NULL 89#endif 90static enum debug_info_type (*md_debug_format_selector) (int *) = MD_DEBUG_FORMAT_SELECTOR; 91 92/* Maximum level of macro nesting. */ 93int max_macro_nest = 100; 94 95/* argv[0] */ 96static char * myname; 97 98/* The default obstack chunk size. If we set this to zero, the 99 obstack code will use whatever will fit in a 4096 byte block. */ 100int chunksize = 0; 101 102/* To monitor memory allocation more effectively, make this non-zero. 103 Then the chunk sizes for gas and bfd will be reduced. */ 104int debug_memory = 0; 105 106/* Enable verbose mode. */ 107int verbose = 0; 108 109segT reg_section; 110segT expr_section; 111segT text_section; 112segT data_section; 113segT bss_section; 114 115/* Name of listing file. */ 116static char *listing_filename = NULL; 117 118static struct defsym_list *defsyms; 119 120static struct itbl_file_list *itbl_files; 121 122static long start_time; 123 124static int flag_macro_alternate; 125 126 127#ifdef USE_EMULATIONS 128#define EMULATION_ENVIRON "AS_EMULATION" 129 130extern struct emulation mipsbelf, mipslelf, mipself; 131extern struct emulation mipsbecoff, mipslecoff, mipsecoff; 132extern struct emulation i386coff, i386elf, i386aout; 133extern struct emulation crisaout, criself; 134 135static struct emulation *const emulations[] = { EMULATIONS }; 136static const int n_emulations = sizeof (emulations) / sizeof (emulations[0]); 137 138static void 139select_emulation_mode (int argc, char **argv) 140{ 141 int i; 142 char *p, *em = 0; 143 144 for (i = 1; i < argc; i++) 145 if (!strncmp ("--em", argv[i], 4)) 146 break; 147 148 if (i == argc) 149 goto do_default; 150 151 p = strchr (argv[i], '='); 152 if (p) 153 p++; 154 else 155 p = argv[i + 1]; 156 157 if (!p || !*p) 158 as_fatal (_("missing emulation mode name")); 159 em = p; 160 161 do_default: 162 if (em == 0) 163 em = getenv (EMULATION_ENVIRON); 164 if (em == 0) 165 em = DEFAULT_EMULATION; 166 167 if (em) 168 { 169 for (i = 0; i < n_emulations; i++) 170 if (!strcmp (emulations[i]->name, em)) 171 break; 172 if (i == n_emulations) 173 as_fatal (_("unrecognized emulation name `%s'"), em); 174 this_emulation = emulations[i]; 175 } 176 else 177 this_emulation = emulations[0]; 178 179 this_emulation->init (); 180} 181 182const char * 183default_emul_bfd_name (void) 184{ 185 abort (); 186 return NULL; 187} 188 189void 190common_emul_init (void) 191{ 192 this_format = this_emulation->format; 193 194 if (this_emulation->leading_underscore == 2) 195 this_emulation->leading_underscore = this_format->dfl_leading_underscore; 196 197 if (this_emulation->default_endian != 2) 198 target_big_endian = this_emulation->default_endian; 199 200 if (this_emulation->fake_label_name == 0) 201 { 202 if (this_emulation->leading_underscore) 203 this_emulation->fake_label_name = "L0\001"; 204 else 205 /* What other parameters should we test? */ 206 this_emulation->fake_label_name = ".L0\001"; 207 } 208} 209#endif 210 211void 212print_version_id (void) 213{ 214 static int printed; 215 216 if (printed) 217 return; 218 printed = 1; 219 220 fprintf (stderr, _("GNU assembler version %s (%s) using BFD version %s\n"), 221 VERSION, TARGET_ALIAS, BFD_VERSION_STRING); 222} 223 224static void 225show_usage (FILE * stream) 226{ 227 fprintf (stream, _("Usage: %s [option...] [asmfile...]\n"), myname); 228 229 fprintf (stream, _("\ 230Options:\n\ 231 -a[sub-option...] turn on listings\n\ 232 Sub-options [default hls]:\n\ 233 c omit false conditionals\n\ 234 d omit debugging directives\n\ 235 h include high-level source\n\ 236 l include assembly\n\ 237 m include macro expansions\n\ 238 n omit forms processing\n\ 239 s include symbols\n\ 240 =FILE list to FILE (must be last sub-option)\n")); 241 242 fprintf (stream, _("\ 243 --alternate initially turn on alternate macro syntax\n")); 244 fprintf (stream, _("\ 245 -D produce assembler debugging messages\n")); 246 fprintf (stream, _("\ 247 --defsym SYM=VAL define symbol SYM to given value\n")); 248#ifdef USE_EMULATIONS 249 { 250 int i; 251 char *def_em; 252 253 fprintf (stream, "\ 254 --em=["); 255 for (i = 0; i < n_emulations - 1; i++) 256 fprintf (stream, "%s | ", emulations[i]->name); 257 fprintf (stream, "%s]\n", emulations[i]->name); 258 259 def_em = getenv (EMULATION_ENVIRON); 260 if (!def_em) 261 def_em = DEFAULT_EMULATION; 262 fprintf (stream, _("\ 263 emulate output (default %s)\n"), def_em); 264 } 265#endif 266#if defined OBJ_ELF || defined OBJ_MAYBE_ELF 267 fprintf (stream, _("\ 268 --execstack require executable stack for this object\n")); 269 fprintf (stream, _("\ 270 --noexecstack don't require executable stack for this object\n")); 271#endif 272 fprintf (stream, _("\ 273 -f skip whitespace and comment preprocessing\n")); 274 fprintf (stream, _("\ 275 -g --gen-debug generate debugging information\n")); 276 fprintf (stream, _("\ 277 --gstabs generate STABS debugging information\n")); 278 fprintf (stream, _("\ 279 --gstabs+ generate STABS debug info with GNU extensions\n")); 280 fprintf (stream, _("\ 281 --gdwarf-2 generate DWARF2 debugging information\n")); 282 fprintf (stream, _("\ 283 --hash-size=<value> set the hash table size close to <value>\n")); 284 fprintf (stream, _("\ 285 --help show this message and exit\n")); 286 fprintf (stream, _("\ 287 --target-help show target specific options\n")); 288 fprintf (stream, _("\ 289 -I DIR add DIR to search list for .include directives\n")); 290 fprintf (stream, _("\ 291 -J don't warn about signed overflow\n")); 292 fprintf (stream, _("\ 293 -K warn when differences altered for long displacements\n")); 294 fprintf (stream, _("\ 295 -L,--keep-locals keep local symbols (e.g. starting with `L')\n")); 296 fprintf (stream, _("\ 297 -M,--mri assemble in MRI compatibility mode\n")); 298 fprintf (stream, _("\ 299 --MD FILE write dependency information in FILE (default none)\n")); 300 fprintf (stream, _("\ 301 -nocpp ignored\n")); 302 fprintf (stream, _("\ 303 -o OBJFILE name the object-file output OBJFILE (default a.out)\n")); 304 fprintf (stream, _("\ 305 -R fold data section into text section\n")); 306 fprintf (stream, _("\ 307 --reduce-memory-overheads \n\ 308 prefer smaller memory use at the cost of longer\n\ 309 assembly times\n")); 310 fprintf (stream, _("\ 311 --statistics print various measured statistics from execution\n")); 312 fprintf (stream, _("\ 313 --strip-local-absolute strip local absolute symbols\n")); 314 fprintf (stream, _("\ 315 --traditional-format Use same format as native assembler when possible\n")); 316 fprintf (stream, _("\ 317 --version print assembler version number and exit\n")); 318 fprintf (stream, _("\ 319 -W --no-warn suppress warnings\n")); 320 fprintf (stream, _("\ 321 --warn don't suppress warnings\n")); 322 fprintf (stream, _("\ 323 --fatal-warnings treat warnings as errors\n")); 324 fprintf (stream, _("\ 325 --itbl INSTTBL extend instruction set to include instructions\n\ 326 matching the specifications defined in file INSTTBL\n")); 327 fprintf (stream, _("\ 328 -w ignored\n")); 329 fprintf (stream, _("\ 330 -X ignored\n")); 331 fprintf (stream, _("\ 332 -Z generate object file even after errors\n")); 333 fprintf (stream, _("\ 334 --listing-lhs-width set the width in words of the output data column of\n\ 335 the listing\n")); 336 fprintf (stream, _("\ 337 --listing-lhs-width2 set the width in words of the continuation lines\n\ 338 of the output data column; ignored if smaller than\n\ 339 the width of the first line\n")); 340 fprintf (stream, _("\ 341 --listing-rhs-width set the max width in characters of the lines from\n\ 342 the source file\n")); 343 fprintf (stream, _("\ 344 --listing-cont-lines set the maximum number of continuation lines used\n\ 345 for the output data column of the listing\n")); 346 fprintf (stream, _("\ 347 @FILE read options from FILE\n")); 348 349 md_show_usage (stream); 350 351 fputc ('\n', stream); 352 353 if (REPORT_BUGS_TO[0] && stream == stdout) 354 fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO); 355} 356 357/* Since it is easy to do here we interpret the special arg "-" 358 to mean "use stdin" and we set that argv[] pointing to "". 359 After we have munged argv[], the only things left are source file 360 name(s) and ""(s) denoting stdin. These file names are used 361 (perhaps more than once) later. 362 363 check for new machine-dep cmdline options in 364 md_parse_option definitions in config/tc-*.c. */ 365 366static void 367parse_args (int * pargc, char *** pargv) 368{ 369 int old_argc; 370 int new_argc; 371 char ** old_argv; 372 char ** new_argv; 373 /* Starting the short option string with '-' is for programs that 374 expect options and other ARGV-elements in any order and that care about 375 the ordering of the two. We describe each non-option ARGV-element 376 as if it were the argument of an option with character code 1. */ 377 char *shortopts; 378 extern const char *md_shortopts; 379 static const char std_shortopts[] = 380 { 381 '-', 'J', 382#ifndef WORKING_DOT_WORD 383 /* -K is not meaningful if .word is not being hacked. */ 384 'K', 385#endif 386 'L', 'M', 'R', 'W', 'Z', 'a', ':', ':', 'D', 'f', 'g', ':',':', 'I', ':', 'o', ':', 387#ifndef VMS 388 /* -v takes an argument on VMS, so we don't make it a generic 389 option. */ 390 'v', 391#endif 392 'w', 'X', 393 /* New option for extending instruction set (see also --itbl below). */ 394 't', ':', 395 '\0' 396 }; 397 struct option *longopts; 398 extern struct option md_longopts[]; 399 extern size_t md_longopts_size; 400 /* Codes used for the long options with no short synonyms. */ 401 enum option_values 402 { 403 OPTION_HELP = OPTION_STD_BASE, 404 OPTION_NOCPP, 405 OPTION_STATISTICS, 406 OPTION_VERSION, 407 OPTION_DUMPCONFIG, 408 OPTION_VERBOSE, 409 OPTION_EMULATION, 410 OPTION_DEFSYM, 411 OPTION_INSTTBL, 412 OPTION_LISTING_LHS_WIDTH, 413 OPTION_LISTING_LHS_WIDTH2, 414 OPTION_LISTING_RHS_WIDTH, 415 OPTION_LISTING_CONT_LINES, 416 OPTION_DEPFILE, 417 OPTION_GSTABS, 418 OPTION_GSTABS_PLUS, 419 OPTION_GDWARF2, 420 OPTION_STRIP_LOCAL_ABSOLUTE, 421 OPTION_TRADITIONAL_FORMAT, 422 OPTION_WARN, 423 OPTION_TARGET_HELP, 424 OPTION_EXECSTACK, 425 OPTION_NOEXECSTACK, 426 OPTION_ALTERNATE, 427 OPTION_AL, 428 OPTION_HASH_TABLE_SIZE, 429 OPTION_REDUCE_MEMORY_OVERHEADS, 430 OPTION_WARN_FATAL 431 /* When you add options here, check that they do 432 not collide with OPTION_MD_BASE. See as.h. */ 433 }; 434 435 static const struct option std_longopts[] = 436 { 437 /* Note: commas are placed at the start of the line rather than 438 the end of the preceeding line so that it is simpler to 439 selectively add and remove lines from this list. */ 440 {"alternate", no_argument, NULL, OPTION_ALTERNATE} 441 /* The entry for "a" is here to prevent getopt_long_only() from 442 considering that -a is an abbreviation for --alternate. This is 443 necessary because -a=<FILE> is a valid switch but getopt would 444 normally reject it since --alternate does not take an argument. */ 445 ,{"a", optional_argument, NULL, 'a'} 446 /* Handle -al=<FILE>. */ 447 ,{"al", optional_argument, NULL, OPTION_AL} 448 ,{"defsym", required_argument, NULL, OPTION_DEFSYM} 449 ,{"dump-config", no_argument, NULL, OPTION_DUMPCONFIG} 450 ,{"emulation", required_argument, NULL, OPTION_EMULATION} 451#if defined OBJ_ELF || defined OBJ_MAYBE_ELF 452 ,{"execstack", no_argument, NULL, OPTION_EXECSTACK} 453 ,{"noexecstack", no_argument, NULL, OPTION_NOEXECSTACK} 454#endif 455 ,{"fatal-warnings", no_argument, NULL, OPTION_WARN_FATAL} 456 ,{"gdwarf-2", no_argument, NULL, OPTION_GDWARF2} 457 /* GCC uses --gdwarf-2 but GAS uses to use --gdwarf2, 458 so we keep it here for backwards compatibility. */ 459 ,{"gdwarf2", no_argument, NULL, OPTION_GDWARF2} 460 ,{"gen-debug", no_argument, NULL, 'g'} 461 ,{"gstabs", no_argument, NULL, OPTION_GSTABS} 462 ,{"gstabs+", no_argument, NULL, OPTION_GSTABS_PLUS} 463 ,{"hash-size", required_argument, NULL, OPTION_HASH_TABLE_SIZE} 464 ,{"help", no_argument, NULL, OPTION_HELP} 465 /* New option for extending instruction set (see also -t above). 466 The "-t file" or "--itbl file" option extends the basic set of 467 valid instructions by reading "file", a text file containing a 468 list of instruction formats. The additional opcodes and their 469 formats are added to the built-in set of instructions, and 470 mnemonics for new registers may also be defined. */ 471 ,{"itbl", required_argument, NULL, OPTION_INSTTBL} 472 /* getopt allows abbreviations, so we do this to stop it from 473 treating -k as an abbreviation for --keep-locals. Some 474 ports use -k to enable PIC assembly. */ 475 ,{"keep-locals", no_argument, NULL, 'L'} 476 ,{"keep-locals", no_argument, NULL, 'L'} 477 ,{"listing-lhs-width", required_argument, NULL, OPTION_LISTING_LHS_WIDTH} 478 ,{"listing-lhs-width2", required_argument, NULL, OPTION_LISTING_LHS_WIDTH2} 479 ,{"listing-rhs-width", required_argument, NULL, OPTION_LISTING_RHS_WIDTH} 480 ,{"listing-cont-lines", required_argument, NULL, OPTION_LISTING_CONT_LINES} 481 ,{"MD", required_argument, NULL, OPTION_DEPFILE} 482 ,{"mri", no_argument, NULL, 'M'} 483 ,{"nocpp", no_argument, NULL, OPTION_NOCPP} 484 ,{"no-warn", no_argument, NULL, 'W'} 485 ,{"reduce-memory-overheads", no_argument, NULL, OPTION_REDUCE_MEMORY_OVERHEADS} 486 ,{"statistics", no_argument, NULL, OPTION_STATISTICS} 487 ,{"strip-local-absolute", no_argument, NULL, OPTION_STRIP_LOCAL_ABSOLUTE} 488 ,{"version", no_argument, NULL, OPTION_VERSION} 489 ,{"verbose", no_argument, NULL, OPTION_VERBOSE} 490 ,{"target-help", no_argument, NULL, OPTION_TARGET_HELP} 491 ,{"traditional-format", no_argument, NULL, OPTION_TRADITIONAL_FORMAT} 492 ,{"warn", no_argument, NULL, OPTION_WARN} 493 }; 494 495 /* Construct the option lists from the standard list and the target 496 dependent list. Include space for an extra NULL option and 497 always NULL terminate. */ 498 shortopts = concat (std_shortopts, md_shortopts, (char *) NULL); 499 longopts = xmalloc (sizeof (std_longopts) + md_longopts_size + sizeof (struct option)); 500 memcpy (longopts, std_longopts, sizeof (std_longopts)); 501 memcpy (((char *) longopts) + sizeof (std_longopts), md_longopts, md_longopts_size); 502 memset (((char *) longopts) + sizeof (std_longopts) + md_longopts_size, 503 0, sizeof (struct option)); 504 505 /* Make a local copy of the old argv. */ 506 old_argc = *pargc; 507 old_argv = *pargv; 508 509 /* Initialize a new argv that contains no options. */ 510 new_argv = xmalloc (sizeof (char *) * (old_argc + 1)); 511 new_argv[0] = old_argv[0]; 512 new_argc = 1; 513 new_argv[new_argc] = NULL; 514 515 while (1) 516 { 517 /* getopt_long_only is like getopt_long, but '-' as well as '--' can 518 indicate a long option. */ 519 int longind; 520 int optc = getopt_long_only (old_argc, old_argv, shortopts, longopts, 521 &longind); 522 523 if (optc == -1) 524 break; 525 526 switch (optc) 527 { 528 default: 529 /* md_parse_option should return 1 if it recognizes optc, 530 0 if not. */ 531 if (md_parse_option (optc, optarg) != 0) 532 break; 533 /* `-v' isn't included in the general short_opts list, so check for 534 it explicitly here before deciding we've gotten a bad argument. */ 535 if (optc == 'v') 536 { 537#ifdef VMS 538 /* Telling getopt to treat -v's value as optional can result 539 in it picking up a following filename argument here. The 540 VMS code in md_parse_option can return 0 in that case, 541 but it has no way of pushing the filename argument back. */ 542 if (optarg && *optarg) 543 new_argv[new_argc++] = optarg, new_argv[new_argc] = NULL; 544 else 545#else 546 case 'v': 547#endif 548 case OPTION_VERBOSE: 549 print_version_id (); 550 verbose = 1; 551 break; 552 } 553 else 554 as_bad (_("unrecognized option -%c%s"), optc, optarg ? optarg : ""); 555 /* Fall through. */ 556 557 case '?': 558 exit (EXIT_FAILURE); 559 560 case 1: /* File name. */ 561 if (!strcmp (optarg, "-")) 562 optarg = ""; 563 new_argv[new_argc++] = optarg; 564 new_argv[new_argc] = NULL; 565 break; 566 567 case OPTION_TARGET_HELP: 568 md_show_usage (stdout); 569 exit (EXIT_SUCCESS); 570 571 case OPTION_HELP: 572 show_usage (stdout); 573 exit (EXIT_SUCCESS); 574 575 case OPTION_NOCPP: 576 break; 577 578 case OPTION_STATISTICS: 579 flag_print_statistics = 1; 580 break; 581 582 case OPTION_STRIP_LOCAL_ABSOLUTE: 583 flag_strip_local_absolute = 1; 584 break; 585 586 case OPTION_TRADITIONAL_FORMAT: 587 flag_traditional_format = 1; 588 break; 589 590 case OPTION_VERSION: 591 /* This output is intended to follow the GNU standards document. */ 592 printf (_("GNU assembler %s\n"), BFD_VERSION_STRING); 593 printf (_("Copyright 2007 Free Software Foundation, Inc.\n")); 594 printf (_("\ 595This program is free software; you may redistribute it under the terms of\n\ 596the GNU General Public License. This program has absolutely no warranty.\n")); 597 printf (_("This assembler was configured for a target of `%s'.\n"), 598 TARGET_ALIAS); 599 exit (EXIT_SUCCESS); 600 601 case OPTION_EMULATION: 602#ifdef USE_EMULATIONS 603 if (strcmp (optarg, this_emulation->name)) 604 as_fatal (_("multiple emulation names specified")); 605#else 606 as_fatal (_("emulations not handled in this configuration")); 607#endif 608 break; 609 610 case OPTION_DUMPCONFIG: 611 fprintf (stderr, _("alias = %s\n"), TARGET_ALIAS); 612 fprintf (stderr, _("canonical = %s\n"), TARGET_CANONICAL); 613 fprintf (stderr, _("cpu-type = %s\n"), TARGET_CPU); 614#ifdef TARGET_OBJ_FORMAT 615 fprintf (stderr, _("format = %s\n"), TARGET_OBJ_FORMAT); 616#endif 617#ifdef TARGET_FORMAT 618 fprintf (stderr, _("bfd-target = %s\n"), TARGET_FORMAT); 619#endif 620 exit (EXIT_SUCCESS); 621 622 case OPTION_DEFSYM: 623 { 624 char *s; 625 valueT i; 626 struct defsym_list *n; 627 628 for (s = optarg; *s != '\0' && *s != '='; s++) 629 ; 630 if (*s == '\0') 631 as_fatal (_("bad defsym; format is --defsym name=value")); 632 *s++ = '\0'; 633 i = bfd_scan_vma (s, (const char **) NULL, 0); 634 n = xmalloc (sizeof *n); 635 n->next = defsyms; 636 n->name = optarg; 637 n->value = i; 638 defsyms = n; 639 } 640 break; 641 642 case OPTION_INSTTBL: 643 case 't': 644 { 645 /* optarg is the name of the file containing the instruction 646 formats, opcodes, register names, etc. */ 647 struct itbl_file_list *n; 648 649 if (optarg == NULL) 650 { 651 as_warn (_("no file name following -t option")); 652 break; 653 } 654 655 n = xmalloc (sizeof * n); 656 n->next = itbl_files; 657 n->name = optarg; 658 itbl_files = n; 659 660 /* Parse the file and add the new instructions to our internal 661 table. If multiple instruction tables are specified, the 662 information from this table gets appended onto the existing 663 internal table. */ 664 itbl_files->name = xstrdup (optarg); 665 if (itbl_parse (itbl_files->name) != 0) 666 as_fatal (_("failed to read instruction table %s\n"), 667 itbl_files->name); 668 } 669 break; 670 671 case OPTION_DEPFILE: 672 start_dependencies (optarg); 673 break; 674 675 case 'g': 676 /* Some backends, eg Alpha and Mips, use the -g switch for their 677 own purposes. So we check here for an explicit -g and allow 678 the backend to decide if it wants to process it. */ 679 if ( old_argv[optind - 1][1] == 'g' 680 && md_parse_option (optc, optarg)) 681 continue; 682 683 if (md_debug_format_selector) 684 debug_type = md_debug_format_selector (& use_gnu_debug_info_extensions); 685 else if (IS_ELF) 686 debug_type = DEBUG_DWARF2; 687 else 688 debug_type = DEBUG_STABS; 689 break; 690 691 case OPTION_GSTABS_PLUS: 692 use_gnu_debug_info_extensions = 1; 693 /* Fall through. */ 694 case OPTION_GSTABS: 695 debug_type = DEBUG_STABS; 696 break; 697 698 case OPTION_GDWARF2: 699 debug_type = DEBUG_DWARF2; 700 break; 701 702 case 'J': 703 flag_signed_overflow_ok = 1; 704 break; 705 706#ifndef WORKING_DOT_WORD 707 case 'K': 708 flag_warn_displacement = 1; 709 break; 710#endif 711 case 'L': 712 flag_keep_locals = 1; 713 break; 714 715 case OPTION_LISTING_LHS_WIDTH: 716 listing_lhs_width = atoi (optarg); 717 if (listing_lhs_width_second < listing_lhs_width) 718 listing_lhs_width_second = listing_lhs_width; 719 break; 720 case OPTION_LISTING_LHS_WIDTH2: 721 { 722 int tmp = atoi (optarg); 723 724 if (tmp > listing_lhs_width) 725 listing_lhs_width_second = tmp; 726 } 727 break; 728 case OPTION_LISTING_RHS_WIDTH: 729 listing_rhs_width = atoi (optarg); 730 break; 731 case OPTION_LISTING_CONT_LINES: 732 listing_lhs_cont_lines = atoi (optarg); 733 break; 734 735 case 'M': 736 flag_mri = 1; 737#ifdef TC_M68K 738 flag_m68k_mri = 1; 739#endif 740 break; 741 742 case 'R': 743 flag_readonly_data_in_text = 1; 744 break; 745 746 case 'W': 747 flag_no_warnings = 1; 748 break; 749 750 case OPTION_WARN: 751 flag_no_warnings = 0; 752 flag_fatal_warnings = 0; 753 break; 754 755 case OPTION_WARN_FATAL: 756 flag_no_warnings = 0; 757 flag_fatal_warnings = 1; 758 break; 759 760#if defined OBJ_ELF || defined OBJ_MAYBE_ELF 761 case OPTION_EXECSTACK: 762 flag_execstack = 1; 763 flag_noexecstack = 0; 764 break; 765 766 case OPTION_NOEXECSTACK: 767 flag_noexecstack = 1; 768 flag_execstack = 0; 769 break; 770#endif 771 case 'Z': 772 flag_always_generate_output = 1; 773 break; 774 775 case OPTION_AL: 776 listing |= LISTING_LISTING; 777 if (optarg) 778 listing_filename = xstrdup (optarg); 779 break; 780 781 case OPTION_ALTERNATE: 782 optarg = old_argv [optind - 1]; 783 while (* optarg == '-') 784 optarg ++; 785 786 if (strcmp (optarg, "alternate") == 0) 787 { 788 flag_macro_alternate = 1; 789 break; 790 } 791 optarg ++; 792 /* Fall through. */ 793 794 case 'a': 795 if (optarg) 796 { 797 if (optarg != old_argv[optind] && optarg[-1] == '=') 798 --optarg; 799 800 if (md_parse_option (optc, optarg) != 0) 801 break; 802 803 while (*optarg) 804 { 805 switch (*optarg) 806 { 807 case 'c': 808 listing |= LISTING_NOCOND; 809 break; 810 case 'd': 811 listing |= LISTING_NODEBUG; 812 break; 813 case 'h': 814 listing |= LISTING_HLL; 815 break; 816 case 'l': 817 listing |= LISTING_LISTING; 818 break; 819 case 'm': 820 listing |= LISTING_MACEXP; 821 break; 822 case 'n': 823 listing |= LISTING_NOFORM; 824 break; 825 case 's': 826 listing |= LISTING_SYMBOLS; 827 break; 828 case '=': 829 listing_filename = xstrdup (optarg + 1); 830 optarg += strlen (listing_filename); 831 break; 832 default: 833 as_fatal (_("invalid listing option `%c'"), *optarg); 834 break; 835 } 836 optarg++; 837 } 838 } 839 if (!listing) 840 listing = LISTING_DEFAULT; 841 break; 842 843 case 'D': 844 /* DEBUG is implemented: it debugs different 845 things from other people's assemblers. */ 846 flag_debug = 1; 847 break; 848 849 case 'f': 850 flag_no_comments = 1; 851 break; 852 853 case 'I': 854 { /* Include file directory. */ 855 char *temp = xstrdup (optarg); 856 857 add_include_dir (temp); 858 break; 859 } 860 861 case 'o': 862 out_file_name = xstrdup (optarg); 863 break; 864 865 case 'w': 866 break; 867 868 case 'X': 869 /* -X means treat warnings as errors. */ 870 break; 871 872 case OPTION_REDUCE_MEMORY_OVERHEADS: 873 /* The only change we make at the moment is to reduce 874 the size of the hash tables that we use. */ 875 set_gas_hash_table_size (4051); 876 break; 877 878 case OPTION_HASH_TABLE_SIZE: 879 { 880 unsigned long new_size; 881 882 new_size = strtoul (optarg, NULL, 0); 883 if (new_size) 884 set_gas_hash_table_size (new_size); 885 else 886 as_fatal (_("--hash-size needs a numeric argument")); 887 break; 888 } 889 } 890 } 891 892 free (shortopts); 893 free (longopts); 894 895 *pargc = new_argc; 896 *pargv = new_argv; 897 898#ifdef md_after_parse_args 899 md_after_parse_args (); 900#endif 901} 902 903static void 904dump_statistics (void) 905{ 906#ifdef HAVE_SBRK 907 char *lim = (char *) sbrk (0); 908#endif 909 long run_time = get_run_time () - start_time; 910 911 fprintf (stderr, _("%s: total time in assembly: %ld.%06ld\n"), 912 myname, run_time / 1000000, run_time % 1000000); 913#ifdef HAVE_SBRK 914 fprintf (stderr, _("%s: data size %ld\n"), 915 myname, (long) (lim - (char *) &environ)); 916#endif 917 918 subsegs_print_statistics (stderr); 919 write_print_statistics (stderr); 920 symbol_print_statistics (stderr); 921 read_print_statistics (stderr); 922 923#ifdef tc_print_statistics 924 tc_print_statistics (stderr); 925#endif 926 927#ifdef obj_print_statistics 928 obj_print_statistics (stderr); 929#endif 930} 931 932#ifndef OBJ_VMS 933static void 934close_output_file (void) 935{ 936 output_file_close (out_file_name); 937} 938#endif 939 940/* The interface between the macro code and gas expression handling. */ 941 942static int 943macro_expr (const char *emsg, int idx, sb *in, int *val) 944{ 945 char *hold; 946 expressionS ex; 947 948 sb_terminate (in); 949 950 hold = input_line_pointer; 951 input_line_pointer = in->ptr + idx; 952 expression_and_evaluate (&ex); 953 idx = input_line_pointer - in->ptr; 954 input_line_pointer = hold; 955 956 if (ex.X_op != O_constant) 957 as_bad ("%s", emsg); 958 959 *val = (int) ex.X_add_number; 960 961 return idx; 962} 963 964/* Here to attempt 1 pass over each input file. 965 We scan argv[*] looking for filenames or exactly "" which is 966 shorthand for stdin. Any argv that is NULL is not a file-name. 967 We set need_pass_2 TRUE if, after this, we still have unresolved 968 expressions of the form (unknown value)+-(unknown value). 969 970 Note the un*x semantics: there is only 1 logical input file, but it 971 may be a catenation of many 'physical' input files. */ 972 973static void 974perform_an_assembly_pass (int argc, char ** argv) 975{ 976 int saw_a_file = 0; 977 flagword applicable; 978 979 need_pass_2 = 0; 980 981 /* Create the standard sections, and those the assembler uses 982 internally. */ 983 text_section = subseg_new (TEXT_SECTION_NAME, 0); 984 data_section = subseg_new (DATA_SECTION_NAME, 0); 985 bss_section = subseg_new (BSS_SECTION_NAME, 0); 986 /* @@ FIXME -- we're setting the RELOC flag so that sections are assumed 987 to have relocs, otherwise we don't find out in time. */ 988 applicable = bfd_applicable_section_flags (stdoutput); 989 bfd_set_section_flags (stdoutput, text_section, 990 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC 991 | SEC_CODE | SEC_READONLY)); 992 bfd_set_section_flags (stdoutput, data_section, 993 applicable & (SEC_ALLOC | SEC_LOAD | SEC_RELOC 994 | SEC_DATA)); 995 bfd_set_section_flags (stdoutput, bss_section, applicable & SEC_ALLOC); 996 seg_info (bss_section)->bss = 1; 997 subseg_new (BFD_ABS_SECTION_NAME, 0); 998 subseg_new (BFD_UND_SECTION_NAME, 0); 999 reg_section = subseg_new ("*GAS `reg' section*", 0); 1000 expr_section = subseg_new ("*GAS `expr' section*", 0); 1001 1002 subseg_set (text_section, 0); 1003 1004 /* This may add symbol table entries, which requires having an open BFD, 1005 and sections already created. */ 1006 md_begin (); 1007 1008#ifdef USING_CGEN 1009 gas_cgen_begin (); 1010#endif 1011#ifdef obj_begin 1012 obj_begin (); 1013#endif 1014 1015 /* Skip argv[0]. */ 1016 argv++; 1017 argc--; 1018 1019 while (argc--) 1020 { 1021 if (*argv) 1022 { /* Is it a file-name argument? */ 1023 PROGRESS (1); 1024 saw_a_file++; 1025 /* argv->"" if stdin desired, else->filename. */ 1026 read_a_source_file (*argv); 1027 } 1028 argv++; /* Completed that argv. */ 1029 } 1030 if (!saw_a_file) 1031 read_a_source_file (""); 1032} 1033 1034#ifdef OBJ_ELF 1035static void 1036create_obj_attrs_section (void) 1037{ 1038 segT s; 1039 char *p; 1040 addressT addr; 1041 offsetT size; 1042 const char *name; 1043 1044 size = bfd_elf_obj_attr_size (stdoutput); 1045 if (size) 1046 { 1047 name = get_elf_backend_data (stdoutput)->obj_attrs_section; 1048 if (!name) 1049 name = ".gnu.attributes"; 1050 s = subseg_new (name, 0); 1051 elf_section_type (s) 1052 = get_elf_backend_data (stdoutput)->obj_attrs_section_type; 1053 bfd_set_section_flags (stdoutput, s, SEC_READONLY | SEC_DATA); 1054 addr = frag_now_fix (); 1055 p = frag_more (size); 1056 bfd_elf_set_obj_attr_contents (stdoutput, (bfd_byte *)p, size); 1057 } 1058} 1059#endif 1060 1061 1062int 1063main (int argc, char ** argv) 1064{ 1065 int macro_strip_at; 1066 int keep_it; 1067 1068 start_time = get_run_time (); 1069 1070#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES) 1071 setlocale (LC_MESSAGES, ""); 1072#endif 1073#if defined (HAVE_SETLOCALE) 1074 setlocale (LC_CTYPE, ""); 1075#endif 1076 bindtextdomain (PACKAGE, LOCALEDIR); 1077 textdomain (PACKAGE); 1078 1079 if (debug_memory) 1080 chunksize = 64; 1081 1082#ifdef HOST_SPECIAL_INIT 1083 HOST_SPECIAL_INIT (argc, argv); 1084#endif 1085 1086 myname = argv[0]; 1087 xmalloc_set_program_name (myname); 1088 1089 expandargv (&argc, &argv); 1090 1091 START_PROGRESS (myname, 0); 1092 1093#ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME 1094#define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out" 1095#endif 1096 1097 out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME; 1098 1099 hex_init (); 1100 bfd_init (); 1101 bfd_set_error_program_name (myname); 1102 1103#ifdef USE_EMULATIONS 1104 select_emulation_mode (argc, argv); 1105#endif 1106 1107 PROGRESS (1); 1108 /* Call parse_args before any of the init/begin functions 1109 so that switches like --hash-size can be honored. */ 1110 parse_args (&argc, &argv); 1111 symbol_begin (); 1112 frag_init (); 1113 subsegs_begin (); 1114 read_begin (); 1115 input_scrub_begin (); 1116 expr_begin (); 1117 1118#ifndef OBJ_VMS /* Does its own file handling. */ 1119 /* It has to be called after dump_statistics (). */ 1120 xatexit (close_output_file); 1121#endif 1122 1123 if (flag_print_statistics) 1124 xatexit (dump_statistics); 1125 1126 macro_strip_at = 0; 1127#ifdef TC_I960 1128 macro_strip_at = flag_mri; 1129#endif 1130 1131 macro_init (flag_macro_alternate, flag_mri, macro_strip_at, macro_expr); 1132 1133 PROGRESS (1); 1134 1135 output_file_create (out_file_name); 1136 assert (stdoutput != 0); 1137 1138#ifdef tc_init_after_args 1139 tc_init_after_args (); 1140#endif 1141 1142 itbl_init (); 1143 1144 /* Now that we have fully initialized, and have created the output 1145 file, define any symbols requested by --defsym command line 1146 arguments. */ 1147 while (defsyms != NULL) 1148 { 1149 symbolS *sym; 1150 struct defsym_list *next; 1151 1152 sym = symbol_new (defsyms->name, absolute_section, defsyms->value, 1153 &zero_address_frag); 1154 /* Make symbols defined on the command line volatile, so that they 1155 can be redefined inside a source file. This makes this assembler's 1156 behaviour compatible with earlier versions, but it may not be 1157 completely intuitive. */ 1158 S_SET_VOLATILE (sym); 1159 symbol_table_insert (sym); 1160 next = defsyms->next; 1161 free (defsyms); 1162 defsyms = next; 1163 } 1164 1165 PROGRESS (1); 1166 1167 /* Assemble it. */ 1168 perform_an_assembly_pass (argc, argv); 1169 1170 cond_finish_check (-1); 1171 1172#ifdef md_end 1173 md_end (); 1174#endif 1175 1176#ifdef OBJ_ELF 1177 if (IS_ELF) 1178 create_obj_attrs_section (); 1179#endif 1180 1181#if defined OBJ_ELF || defined OBJ_MAYBE_ELF 1182 if ((flag_execstack || flag_noexecstack) 1183 && OUTPUT_FLAVOR == bfd_target_elf_flavour) 1184 { 1185 segT gnustack; 1186 1187 gnustack = subseg_new (".note.GNU-stack", 0); 1188 bfd_set_section_flags (stdoutput, gnustack, 1189 SEC_READONLY | (flag_execstack ? SEC_CODE : 0)); 1190 1191 } 1192#endif 1193 1194 /* If we've been collecting dwarf2 .debug_line info, either for 1195 assembly debugging or on behalf of the compiler, emit it now. */ 1196 dwarf2_finish (); 1197 1198 /* If we constructed dwarf2 .eh_frame info, either via .cfi 1199 directives from the user or by the backend, emit it now. */ 1200 cfi_finish (); 1201 1202 if (seen_at_least_1_file () 1203 && (flag_always_generate_output || had_errors () == 0)) 1204 keep_it = 1; 1205 else 1206 keep_it = 0; 1207 1208 /* This used to be done at the start of write_object_file in 1209 write.c, but that caused problems when doing listings when 1210 keep_it was zero. This could probably be moved above md_end, but 1211 I didn't want to risk the change. */ 1212 subsegs_finish (); 1213 1214 if (keep_it) 1215 write_object_file (); 1216 1217#ifndef NO_LISTING 1218 listing_print (listing_filename); 1219#endif 1220 1221 if (flag_fatal_warnings && had_warnings () > 0 && had_errors () == 0) 1222 as_bad (_("%d warnings, treating warnings as errors"), had_warnings ()); 1223 1224 if (had_errors () > 0 && ! flag_always_generate_output) 1225 keep_it = 0; 1226 1227 if (!keep_it) 1228 unlink_if_ordinary (out_file_name); 1229 1230 input_scrub_end (); 1231 1232 END_PROGRESS (myname); 1233 1234 /* Use xexit instead of return, because under VMS environments they 1235 may not place the same interpretation on the value given. */ 1236 if (had_errors () > 0) 1237 xexit (EXIT_FAILURE); 1238 1239 /* Only generate dependency file if assembler was successful. */ 1240 print_dependencies (); 1241 1242 xexit (EXIT_SUCCESS); 1243} 1244