1 /* Compiler driver program that can handle many languages.
2 Copyright (C) 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
3 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation,
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING. If not, write to the Free
20 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
23 This paragraph is here to try to keep Sun CC from dying.
24 The number of chars here seems crucial!!!! */
26 /* This program is the user interface to the C compiler and possibly to
27 other compilers. It is used because compilation is a complicated procedure
28 which involves running several programs and passing temporary files between
29 them, forwarding the users switches to those programs selectively,
30 and deleting the temporary files at the end.
32 CC recognizes how to compile each input file by suffixes in the file names.
33 Once it knows which kind of compilation to perform, the procedure for
34 compilation is specified by a string called a "spec". */
36 /* A Short Introduction to Adding a Command-Line Option.
38 Before adding a command-line option, consider if it is really
39 necessary. Each additional command-line option adds complexity and
40 is difficult to remove in subsequent versions.
42 In the following, consider adding the command-line argument
45 1. Each command-line option is specified in the specs file. The
46 notation is described below in the comment entitled "The Specs
49 2. In this file, add an entry to "option_map" equating the long
50 `--' argument version and any shorter, single letter version. Read
51 the comments in the declaration of "struct option_map" for an
52 explanation. Do not omit the first `-'.
54 3. Look in the "specs" file to determine which program or option
55 list should be given the argument, e.g., "cc1_options". Add the
56 appropriate syntax for the shorter option version to the
57 corresponding "const char *" entry in this file. Omit the first
58 `-' from the option. For example, use `-bar', rather than `--bar'.
60 4. If the argument takes an argument, e.g., `--baz argument1',
61 modify either DEFAULT_SWITCH_TAKES_ARG or
62 DEFAULT_WORD_SWITCH_TAKES_ARG in gcc.h. Omit the first `-'
65 5. Document the option in this file's display_help(). If the
66 option is passed to a subprogram, modify its corresponding
67 function, e.g., cppinit.c:print_help() or toplev.c:display_help(),
70 6. Compile and test. Make sure that your new specs file is being
71 read. For example, use a debugger to investigate the value of
72 "specs_file" in main(). */
76 #include "coretypes.h"
77 #include "multilib.h" /* before tm.h */
80 #if ! defined( SIGCHLD ) && defined( SIGCLD )
81 # define SIGCHLD SIGCLD
90 /* By default there is no special suffix for target executables. */
91 /* FIXME: when autoconf is fixed, remove the host check - dj */
92 #if defined(TARGET_EXECUTABLE_SUFFIX) && defined(HOST_EXECUTABLE_SUFFIX)
93 #define HAVE_TARGET_EXECUTABLE_SUFFIX
96 /* By default there is no special suffix for host executables. */
97 #ifdef HOST_EXECUTABLE_SUFFIX
98 #define HAVE_HOST_EXECUTABLE_SUFFIX
100 #define HOST_EXECUTABLE_SUFFIX ""
103 /* By default, the suffix for target object files is ".o". */
104 #ifdef TARGET_OBJECT_SUFFIX
105 #define HAVE_TARGET_OBJECT_SUFFIX
107 #define TARGET_OBJECT_SUFFIX ".o"
110 static const char dir_separator_str
[] = { DIR_SEPARATOR
, 0 };
112 /* Most every one is fine with LIBRARY_PATH. For some, it conflicts. */
113 #ifndef LIBRARY_PATH_ENV
114 #define LIBRARY_PATH_ENV "LIBRARY_PATH"
118 #define kill(p,s) raise(s)
121 /* If a stage of compilation returns an exit status >= 1,
122 compilation of that file ceases. */
124 #define MIN_FATAL_STATUS 1
126 /* Flag set by cppspec.c to 1. */
129 /* Flag saying to pass the greatest exit code returned by a sub-process
130 to the calling program. */
131 static int pass_exit_codes
;
133 /* Definition of string containing the arguments given to configure. */
134 #include "configargs.h"
136 /* Flag saying to print the directories gcc will search through looking for
137 programs, libraries, etc. */
139 static int print_search_dirs
;
141 /* Flag saying to print the full filename of this file
142 as found through our usual search mechanism. */
144 static const char *print_file_name
= NULL
;
146 /* As print_file_name, but search for executable file. */
148 static const char *print_prog_name
= NULL
;
150 /* Flag saying to print the relative path we'd use to
151 find libgcc.a given the current compiler flags. */
153 static int print_multi_directory
;
155 /* Flag saying to print the relative path we'd use to
156 find OS libraries given the current compiler flags. */
158 static int print_multi_os_directory
;
160 /* Flag saying to print the list of subdirectories and
161 compiler flags used to select them in a standard form. */
163 static int print_multi_lib
;
165 /* Flag saying to print the command line options understood by gcc and its
168 static int print_help_list
;
170 /* Flag indicating whether we should print the command and arguments */
172 static int verbose_flag
;
174 /* Flag indicating whether we should ONLY print the command and
175 arguments (like verbose_flag) without executing the command.
176 Displayed arguments are quoted so that the generated command
177 line is suitable for execution. This is intended for use in
178 shell scripts to capture the driver-generated command line. */
179 static int verbose_only_flag
;
181 /* Flag indicating to print target specific command line options. */
183 static int target_help_flag
;
185 /* Flag indicating whether we should report subprocess execution times
186 (if this is supported by the system - see pexecute.c). */
188 static int report_times
;
190 /* Nonzero means place this string before uses of /, so that include
191 and library files can be found in an alternate location. */
193 #ifdef TARGET_SYSTEM_ROOT
194 static const char *target_system_root
= TARGET_SYSTEM_ROOT
;
196 static const char *target_system_root
= 0;
199 /* Nonzero means pass the updated target_system_root to the compiler. */
201 static int target_system_root_changed
;
203 /* Nonzero means append this string to target_system_root. */
205 static const char *target_sysroot_suffix
= 0;
207 /* Nonzero means append this string to target_system_root for headers. */
209 static const char *target_sysroot_hdrs_suffix
= 0;
211 /* Nonzero means write "temp" files in source directory
212 and use the source file's name in them, and don't delete them. */
214 static int save_temps_flag
;
216 /* Nonzero means pass multiple source files to the compiler at one time. */
218 static int combine_flag
= 0;
220 /* Nonzero means use pipes to communicate between subprocesses.
221 Overridden by either of the above two flags. */
223 static int use_pipes
;
225 /* The compiler version. */
227 static const char *compiler_version
;
229 /* The target version specified with -V */
231 static const char *const spec_version
= DEFAULT_TARGET_VERSION
;
233 /* The target machine specified with -b. */
235 static const char *spec_machine
= DEFAULT_TARGET_MACHINE
;
237 /* Nonzero if cross-compiling.
238 When -b is used, the value comes from the `specs' file. */
241 static const char *cross_compile
= "1";
243 static const char *cross_compile
= "0";
246 #ifdef MODIFY_TARGET_NAME
248 /* Information on how to alter the target name based on a command-line
249 switch. The only case we support now is simply appending or deleting a
250 string to or from the end of the first part of the configuration name. */
252 static const struct modify_target
254 const char *const sw
;
255 const enum add_del
{ADD
, DELETE
} add_del
;
256 const char *const str
;
258 modify_target
[] = MODIFY_TARGET_NAME
;
261 /* The number of errors that have occurred; the link phase will not be
262 run if this is nonzero. */
263 static int error_count
= 0;
265 /* Greatest exit code of sub-processes that has been encountered up to
267 static int greatest_status
= 1;
269 /* This is the obstack which we use to allocate many strings. */
271 static struct obstack obstack
;
273 /* This is the obstack to build an environment variable to pass to
274 collect2 that describes all of the relevant switches of what to
275 pass the compiler in building the list of pointers to constructors
278 static struct obstack collect_obstack
;
280 /* Forward declaration for prototypes. */
284 static void init_spec (void);
285 static void store_arg (const char *, int, int);
286 static char *load_specs (const char *);
287 static void read_specs (const char *, int);
288 static void set_spec (const char *, const char *);
289 static struct compiler
*lookup_compiler (const char *, size_t, const char *);
290 static char *build_search_list (const struct path_prefix
*, const char *,
292 static void putenv_from_prefixes (const struct path_prefix
*, const char *,
294 static int access_check (const char *, int);
295 static char *find_a_file (const struct path_prefix
*, const char *, int, bool);
296 static void add_prefix (struct path_prefix
*, const char *, const char *,
298 static void add_sysrooted_prefix (struct path_prefix
*, const char *,
299 const char *, int, int, int);
300 static void translate_options (int *, const char *const **);
301 static char *skip_whitespace (char *);
302 static void delete_if_ordinary (const char *);
303 static void delete_temp_files (void);
304 static void delete_failure_queue (void);
305 static void clear_failure_queue (void);
306 static int check_live_switch (int, int);
307 static const char *handle_braces (const char *);
308 static inline bool input_suffix_matches (const char *, const char *);
309 static inline bool switch_matches (const char *, const char *, int);
310 static inline void mark_matching_switches (const char *, const char *, int);
311 static inline void process_marked_switches (void);
312 static const char *process_brace_body (const char *, const char *, const char *, int, int);
313 static const struct spec_function
*lookup_spec_function (const char *);
314 static const char *eval_spec_function (const char *, const char *);
315 static const char *handle_spec_function (const char *);
316 static char *save_string (const char *, int);
317 static void set_collect_gcc_options (void);
318 static int do_spec_1 (const char *, int, const char *);
319 static int do_spec_2 (const char *);
320 static void do_option_spec (const char *, const char *);
321 static void do_self_spec (const char *);
322 static const char *find_file (const char *);
323 static int is_directory (const char *, bool);
324 static const char *validate_switches (const char *);
325 static void validate_all_switches (void);
326 static inline void validate_switches_from_spec (const char *);
327 static void give_switch (int, int);
328 static int used_arg (const char *, int);
329 static int default_arg (const char *, int);
330 static void set_multilib_dir (void);
331 static void print_multilib_info (void);
332 static void perror_with_name (const char *);
333 static void notice (const char *, ...) ATTRIBUTE_PRINTF_1
;
334 static void display_help (void);
335 static void add_preprocessor_option (const char *, int);
336 static void add_assembler_option (const char *, int);
337 static void add_linker_option (const char *, int);
338 static void process_command (int, const char **);
339 static int execute (void);
340 static void alloc_args (void);
341 static void clear_args (void);
342 static void fatal_error (int);
343 #if defined(ENABLE_SHARED_LIBGCC) && !defined(REAL_LIBGCC_SPEC)
344 static void init_gcc_specs (struct obstack
*, const char *, const char *,
347 #if defined(HAVE_TARGET_OBJECT_SUFFIX) || defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
348 static const char *convert_filename (const char *, int, int);
351 static const char *if_exists_spec_function (int, const char **);
352 static const char *if_exists_else_spec_function (int, const char **);
353 static const char *replace_outfile_spec_function (int, const char **);
354 static const char *version_compare_spec_function (int, const char **);
356 /* The Specs Language
358 Specs are strings containing lines, each of which (if not blank)
359 is made up of a program name, and arguments separated by spaces.
360 The program name must be exact and start from root, since no path
361 is searched and it is unreliable to depend on the current working directory.
362 Redirection of input or output is not supported; the subprograms must
363 accept filenames saying what files to read and write.
365 In addition, the specs can contain %-sequences to substitute variable text
366 or for conditional text. Here is a table of all defined %-sequences.
367 Note that spaces are not generated automatically around the results of
368 expanding these sequences; therefore, you can concatenate them together
369 or with constant text in a single argument.
371 %% substitute one % into the program name or argument.
372 %i substitute the name of the input file being processed.
373 %b substitute the basename of the input file being processed.
374 This is the substring up to (and not including) the last period
375 and not including the directory.
376 %B same as %b, but include the file suffix (text after the last period).
378 substitute a file name that has suffix SUFFIX and is chosen
379 once per compilation, and mark the argument a la %d. To reduce
380 exposure to denial-of-service attacks, the file name is now
381 chosen in a way that is hard to predict even when previously
382 chosen file names are known. For example, `%g.s ... %g.o ... %g.s'
383 might turn into `ccUVUUAU.s ccXYAXZ12.o ccUVUUAU.s'. SUFFIX matches
384 the regexp "[.0-9A-Za-z]*%O"; "%O" is treated exactly as if it
385 had been pre-processed. Previously, %g was simply substituted
386 with a file name chosen once per compilation, without regard
387 to any appended suffix (which was therefore treated just like
388 ordinary text), making such attacks more likely to succeed.
390 like %g, but if -pipe is in effect, expands simply to "-".
392 like %g, but if -pipe is in effect, expands to nothing. (We have both
393 %| and %m to accommodate differences between system assemblers; see
394 the AS_NEEDS_DASH_FOR_PIPED_INPUT target macro.)
396 like %g, but generates a new temporary file name even if %uSUFFIX
399 substitutes the last file name generated with %uSUFFIX, generating a
400 new one if there is no such last file name. In the absence of any
401 %uSUFFIX, this is just like %gSUFFIX, except they don't share
402 the same suffix "space", so `%g.s ... %U.s ... %g.s ... %U.s'
403 would involve the generation of two distinct file names, one
404 for each `%g.s' and another for each `%U.s'. Previously, %U was
405 simply substituted with a file name chosen for the previous %u,
406 without regard to any appended suffix.
408 substitutes the name of the HOST_BIT_BUCKET, if any, and if it is
409 writable, and if save-temps is off; otherwise, substitute the name
410 of a temporary file, just like %u. This temporary file is not
411 meant for communication between processes, but rather as a junk
414 substitutes .SUFFIX for the suffixes of a matched switch's args when
415 it is subsequently output with %*. SUFFIX is terminated by the next
417 %d marks the argument containing or following the %d as a
418 temporary file name, so that that file will be deleted if CC exits
419 successfully. Unlike %g, this contributes no text to the argument.
420 %w marks the argument containing or following the %w as the
421 "output file" of this compilation. This puts the argument
422 into the sequence of arguments that %o will substitute later.
423 %V indicates that this compilation produces no "output file".
425 like %{...} but mark last argument supplied within
426 as a file to be deleted on failure.
427 %o substitutes the names of all the output files, with spaces
428 automatically placed around them. You should write spaces
429 around the %o as well or the results are undefined.
430 %o is for use in the specs for running the linker.
431 Input files whose names have no recognized suffix are not compiled
432 at all, but they are included among the output files, so they will
434 %O substitutes the suffix for object files. Note that this is
435 handled specially when it immediately follows %g, %u, or %U
436 (with or without a suffix argument) because of the need for
437 those to form complete file names. The handling is such that
438 %O is treated exactly as if it had already been substituted,
439 except that %g, %u, and %U do not currently support additional
440 SUFFIX characters following %O as they would following, for
442 %I Substitute any of -iprefix (made from GCC_EXEC_PREFIX), -isysroot
443 (made from TARGET_SYSTEM_ROOT), and -isystem (made from COMPILER_PATH
444 and -B options) as necessary.
445 %s current argument is the name of a library or startup file of some sort.
446 Search for that file in a standard list of directories
447 and substitute the full name found.
448 %eSTR Print STR as an error message. STR is terminated by a newline.
449 Use this when inconsistent options are detected.
450 %nSTR Print STR as a notice. STR is terminated by a newline.
451 %x{OPTION} Accumulate an option for %X.
452 %X Output the accumulated linker options specified by compilations.
453 %Y Output the accumulated assembler options specified by compilations.
454 %Z Output the accumulated preprocessor options specified by compilations.
455 %a process ASM_SPEC as a spec.
456 This allows config.h to specify part of the spec for running as.
457 %A process ASM_FINAL_SPEC as a spec. A capital A is actually
458 used here. This can be used to run a post-processor after the
459 assembler has done its job.
460 %D Dump out a -L option for each directory in startfile_prefixes.
461 If multilib_dir is set, extra entries are generated with it affixed.
462 %l process LINK_SPEC as a spec.
463 %L process LIB_SPEC as a spec.
464 %G process LIBGCC_SPEC as a spec.
465 %R Output the concatenation of target_system_root and
466 target_sysroot_suffix.
467 %S process STARTFILE_SPEC as a spec. A capital S is actually used here.
468 %E process ENDFILE_SPEC as a spec. A capital E is actually used here.
469 %C process CPP_SPEC as a spec.
470 %1 process CC1_SPEC as a spec.
471 %2 process CC1PLUS_SPEC as a spec.
472 %* substitute the variable part of a matched option. (See below.)
473 Note that each comma in the substituted string is replaced by
475 %<S remove all occurrences of -S from the command line.
476 Note - this command is position dependent. % commands in the
477 spec string before this one will see -S, % commands in the
478 spec string after this one will not.
479 %<S* remove all occurrences of all switches beginning with -S from the
482 Call the named function FUNCTION, passing it ARGS. ARGS is
483 first processed as a nested spec string, then split into an
484 argument vector in the usual fashion. The function returns
485 a string which is processed as if it had appeared literally
486 as part of the current spec.
487 %{S} substitutes the -S switch, if that switch was given to CC.
488 If that switch was not specified, this substitutes nothing.
489 Here S is a metasyntactic variable.
490 %{S*} substitutes all the switches specified to CC whose names start
491 with -S. This is used for -o, -I, etc; switches that take
492 arguments. CC considers `-o foo' as being one switch whose
493 name starts with `o'. %{o*} would substitute this text,
494 including the space; thus, two arguments would be generated.
495 %{S*&T*} likewise, but preserve order of S and T options (the order
496 of S and T in the spec is not significant). Can be any number
497 of ampersand-separated variables; for each the wild card is
498 optional. Useful for CPP as %{D*&U*&A*}.
500 %{S:X} substitutes X, if the -S switch was given to CC.
501 %{!S:X} substitutes X, if the -S switch was NOT given to CC.
502 %{S*:X} substitutes X if one or more switches whose names start
503 with -S was given to CC. Normally X is substituted only
504 once, no matter how many such switches appeared. However,
505 if %* appears somewhere in X, then X will be substituted
506 once for each matching switch, with the %* replaced by the
507 part of that switch that matched the '*'.
508 %{.S:X} substitutes X, if processing a file with suffix S.
509 %{!.S:X} substitutes X, if NOT processing a file with suffix S.
511 %{S|T:X} substitutes X if either -S or -T was given to CC. This may be
512 combined with !, ., and * as above binding stronger than the OR.
513 If %* appears in X, all of the alternatives must be starred, and
514 only the first matching alternative is substituted.
515 %{S:X; if S was given to CC, substitutes X;
516 T:Y; else if T was given to CC, substitutes Y;
517 :D} else substitutes D. There can be as many clauses as you need.
518 This may be combined with ., !, |, and * as above.
520 %(Spec) processes a specification defined in a specs file as *Spec:
521 %[Spec] as above, but put __ around -D arguments
523 The conditional text X in a %{S:X} or similar construct may contain
524 other nested % constructs or spaces, or even newlines. They are
525 processed as usual, as described above. Trailing white space in X is
526 ignored. White space may also appear anywhere on the left side of the
527 colon in these constructs, except between . or * and the corresponding
530 The -O, -f, -m, and -W switches are handled specifically in these
531 constructs. If another value of -O or the negated form of a -f, -m, or
532 -W switch is found later in the command line, the earlier switch
533 value is ignored, except with {S*} where S is just one letter; this
534 passes all matching options.
536 The character | at the beginning of the predicate text is used to indicate
537 that a command should be piped to the following command, but only if -pipe
540 Note that it is built into CC which switches take arguments and which
541 do not. You might think it would be useful to generalize this to
542 allow each compiler's spec to say which switches take arguments. But
543 this cannot be done in a consistent fashion. CC cannot even decide
544 which input files have been specified without knowing which switches
545 take arguments, and it must know which input files to compile in order
546 to tell which compilers to run.
548 CC also knows implicitly that arguments starting in `-l' are to be
549 treated as compiler output files, and passed to the linker in their
550 proper position among the other output files. */
552 /* Define the macros used for specs %a, %l, %L, %S, %C, %1. */
554 /* config.h can define ASM_SPEC to provide extra args to the assembler
555 or extra switch-translations. */
560 /* config.h can define ASM_FINAL_SPEC to run a post processor after
561 the assembler has run. */
562 #ifndef ASM_FINAL_SPEC
563 #define ASM_FINAL_SPEC ""
566 /* config.h can define CPP_SPEC to provide extra args to the C preprocessor
567 or extra switch-translations. */
572 /* config.h can define CC1_SPEC to provide extra args to cc1 and cc1plus
573 or extra switch-translations. */
578 /* config.h can define CC1PLUS_SPEC to provide extra args to cc1plus
579 or extra switch-translations. */
581 #define CC1PLUS_SPEC ""
584 /* config.h can define LINK_SPEC to provide extra args to the linker
585 or extra switch-translations. */
590 /* config.h can define LIB_SPEC to override the default libraries. */
592 #define LIB_SPEC "%{!shared:%{g*:-lg} %{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}}"
597 /* XXX: valid only for GNU ld */
598 /* XXX: should exactly match hooks provided by libmudflap.a */
599 #define MFWRAP_SPEC " %{static: %{fmudflap|fmudflapth: \
600 --wrap=malloc --wrap=free --wrap=calloc --wrap=realloc\
601 --wrap=mmap --wrap=munmap --wrap=alloca\
602 } %{fmudflapth: --wrap=pthread_create\
603 }} %{fmudflap|fmudflapth: --wrap=main}"
606 #define MFLIB_SPEC "%{fmudflap|fmudflapth: -export-dynamic}"
609 /* config.h can define LIBGCC_SPEC to override how and when libgcc.a is
612 #if defined(REAL_LIBGCC_SPEC)
613 #define LIBGCC_SPEC REAL_LIBGCC_SPEC
614 #elif defined(LINK_LIBGCC_SPECIAL_1)
615 /* Have gcc do the search for libgcc.a. */
616 #define LIBGCC_SPEC "libgcc.a%s"
618 #define LIBGCC_SPEC "-lgcc"
622 /* config.h can define STARTFILE_SPEC to override the default crt0 files. */
623 #ifndef STARTFILE_SPEC
624 #define STARTFILE_SPEC \
625 "%{!shared:%{pg:gcrt0%O%s}%{!pg:%{p:mcrt0%O%s}%{!p:crt0%O%s}}}"
628 /* config.h can define SWITCHES_NEED_SPACES to control which options
629 require spaces between the option and the argument. */
630 #ifndef SWITCHES_NEED_SPACES
631 #define SWITCHES_NEED_SPACES ""
634 /* config.h can define ENDFILE_SPEC to override the default crtn files. */
636 #define ENDFILE_SPEC ""
640 #define LINKER_NAME "collect2"
643 /* Define ASM_DEBUG_SPEC to be a spec suitable for translating '-g'
645 #ifndef ASM_DEBUG_SPEC
646 # if defined(DBX_DEBUGGING_INFO) && defined(DWARF2_DEBUGGING_INFO) \
647 && defined(HAVE_AS_GDWARF2_DEBUG_FLAG) && defined(HAVE_AS_GSTABS_DEBUG_FLAG)
648 # define ASM_DEBUG_SPEC \
649 (PREFERRED_DEBUGGING_TYPE == DBX_DEBUG \
650 ? "%{gdwarf-2*:--gdwarf2}%{!gdwarf-2*:%{g*:--gstabs}}" \
651 : "%{gstabs*:--gstabs}%{!gstabs*:%{g*:--gdwarf2}}")
653 # if defined(DBX_DEBUGGING_INFO) && defined(HAVE_AS_GSTABS_DEBUG_FLAG)
654 # define ASM_DEBUG_SPEC "%{g*:--gstabs}"
656 # if defined(DWARF2_DEBUGGING_INFO) && defined(HAVE_AS_GDWARF2_DEBUG_FLAG)
657 # define ASM_DEBUG_SPEC "%{g*:--gdwarf2}"
661 #ifndef ASM_DEBUG_SPEC
662 # define ASM_DEBUG_SPEC ""
665 /* Here is the spec for running the linker, after compiling all files. */
667 /* This is overridable by the target in case they need to specify the
668 -lgcc and -lc order specially, yet not require them to override all
669 of LINK_COMMAND_SPEC. */
670 #ifndef LINK_GCC_C_SEQUENCE_SPEC
671 #define LINK_GCC_C_SEQUENCE_SPEC "%G %L %G"
674 #ifndef LINK_SSP_SPEC
675 #ifdef TARGET_LIBC_PROVIDES_SSP
676 #define LINK_SSP_SPEC "%{fstack-protector:}"
678 #define LINK_SSP_SPEC "%{fstack-protector|fstack-protector-all:-lssp_nonshared -lssp}"
682 #ifndef LINK_PIE_SPEC
684 #define LINK_PIE_SPEC "%{pie:-pie} "
686 #define LINK_PIE_SPEC "%{pie:} "
690 /* -u* was put back because both BSD and SysV seem to support it. */
691 /* %{static:} simply prevents an error message if the target machine
692 doesn't handle -static. */
693 /* We want %{T*} after %{L*} and %D so that it can be used to specify linker
694 scripts which exist in user specified directories, or in standard
696 #ifndef LINK_COMMAND_SPEC
697 #define LINK_COMMAND_SPEC "\
698 %{!fsyntax-only:%{!c:%{!M:%{!MM:%{!E:%{!S:\
699 %(linker) %l " LINK_PIE_SPEC "%X %{o*} %{A} %{d} %{e*} %{m} %{N} %{n} %{r}\
700 %{s} %{t} %{u*} %{x} %{z} %{Z} %{!A:%{!nostdlib:%{!nostartfiles:%S}}}\
701 %{static:} %{L*} %(mfwrap) %(link_libgcc) %o %(mflib)\
702 %{fprofile-arcs|fprofile-generate|coverage:-lgcov}\
703 %{!nostdlib:%{!nodefaultlibs:%(link_ssp) %(link_gcc_c_sequence)}}\
704 %{!A:%{!nostdlib:%{!nostartfiles:%E}}} %{T*} }}}}}}"
707 #ifndef LINK_LIBGCC_SPEC
708 /* Generate -L options for startfile prefix list. */
709 # define LINK_LIBGCC_SPEC "%D"
712 #ifndef STARTFILE_PREFIX_SPEC
713 # define STARTFILE_PREFIX_SPEC ""
717 # define SYSROOT_SPEC "--sysroot=%R"
720 #ifndef SYSROOT_SUFFIX_SPEC
721 # define SYSROOT_SUFFIX_SPEC ""
724 #ifndef SYSROOT_HEADERS_SUFFIX_SPEC
725 # define SYSROOT_HEADERS_SUFFIX_SPEC ""
728 static const char *asm_debug
;
729 static const char *cpp_spec
= CPP_SPEC
;
730 static const char *cc1_spec
= CC1_SPEC
;
731 static const char *cc1plus_spec
= CC1PLUS_SPEC
;
732 static const char *link_gcc_c_sequence_spec
= LINK_GCC_C_SEQUENCE_SPEC
;
733 static const char *link_ssp_spec
= LINK_SSP_SPEC
;
734 static const char *asm_spec
= ASM_SPEC
;
735 static const char *asm_final_spec
= ASM_FINAL_SPEC
;
736 static const char *link_spec
= LINK_SPEC
;
737 static const char *lib_spec
= LIB_SPEC
;
738 static const char *mfwrap_spec
= MFWRAP_SPEC
;
739 static const char *mflib_spec
= MFLIB_SPEC
;
740 static const char *libgcc_spec
= LIBGCC_SPEC
;
741 static const char *endfile_spec
= ENDFILE_SPEC
;
742 static const char *startfile_spec
= STARTFILE_SPEC
;
743 static const char *switches_need_spaces
= SWITCHES_NEED_SPACES
;
744 static const char *linker_name_spec
= LINKER_NAME
;
745 static const char *link_command_spec
= LINK_COMMAND_SPEC
;
746 static const char *link_libgcc_spec
= LINK_LIBGCC_SPEC
;
747 static const char *startfile_prefix_spec
= STARTFILE_PREFIX_SPEC
;
748 static const char *sysroot_spec
= SYSROOT_SPEC
;
749 static const char *sysroot_suffix_spec
= SYSROOT_SUFFIX_SPEC
;
750 static const char *sysroot_hdrs_suffix_spec
= SYSROOT_HEADERS_SUFFIX_SPEC
;
752 /* Standard options to cpp, cc1, and as, to reduce duplication in specs.
753 There should be no need to override these in target dependent files,
754 but we need to copy them to the specs file so that newer versions
755 of the GCC driver can correctly drive older tool chains with the
756 appropriate -B options. */
758 /* When cpplib handles traditional preprocessing, get rid of this, and
759 call cc1 (or cc1obj in objc/lang-specs.h) from the main specs so
760 that we default the front end language better. */
761 static const char *trad_capable_cpp
=
762 "cc1 -E %{traditional|ftraditional|traditional-cpp:-traditional-cpp}";
764 /* We don't wrap .d files in %W{} since a missing .d file, and
765 therefore no dependency entry, confuses make into thinking a .o
766 file that happens to exist is up-to-date. */
767 static const char *cpp_unique_options
=
768 "%{C|CC:%{!E:%eGCC does not support -C or -CC without -E}}\
769 %{!Q:-quiet} %{nostdinc*} %{C} %{CC} %{v} %{I*&F*} %{P} %I\
770 %{MD:-MD %{!o:%b.d}%{o*:%.d%*}}\
771 %{MMD:-MMD %{!o:%b.d}%{o*:%.d%*}}\
772 %{M} %{MM} %{MF*} %{MG} %{MP} %{MQ*} %{MT*}\
773 %{!E:%{!M:%{!MM:%{MD|MMD:%{o*:-MQ %*}}}}}\
774 %{remap} %{g3:-dD} %{H} %C %{D*&U*&A*} %{i*} %Z %i\
775 %{fmudflap:-D_MUDFLAP -include mf-runtime.h}\
776 %{fmudflapth:-D_MUDFLAP -D_MUDFLAPTH -include mf-runtime.h}\
779 /* This contains cpp options which are common with cc1_options and are passed
780 only when preprocessing only to avoid duplication. We pass the cc1 spec
781 options to the preprocessor so that it the cc1 spec may manipulate
782 options used to set target flags. Those special target flags settings may
783 in turn cause preprocessor symbols to be defined specially. */
784 static const char *cpp_options
=
785 "%(cpp_unique_options) %1 %{m*} %{std*&ansi&trigraphs} %{W*&pedantic*} %{w}\
786 %{f*} %{g*:%{!g0:%{!fno-working-directory:-fworking-directory}}} %{O*}\
787 %{undef} %{save-temps:-fpch-preprocess}";
789 /* This contains cpp options which are not passed when the preprocessor
790 output will be used by another program. */
791 static const char *cpp_debug_options
= "%{d*}";
793 /* NB: This is shared amongst all front-ends. */
794 static const char *cc1_options
=
795 "%{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
796 %1 %{!Q:-quiet} -dumpbase %B %{d*} %{m*} %{a*}\
797 %{c|S:%{o*:-auxbase-strip %*}%{!o*:-auxbase %b}}%{!c:%{!S:-auxbase %b}}\
798 %{g*} %{O*} %{W*&pedantic*} %{w} %{std*&ansi&trigraphs}\
799 %{v:-version} %{pg:-p} %{p} %{f*} %{undef}\
800 %{Qn:-fno-ident} %{--help:--help}\
801 %{--target-help:--target-help}\
802 %{!fsyntax-only:%{S:%W{o*}%{!o*:-o %b.s}}}\
803 %{fsyntax-only:-o %j} %{-param*}\
804 %{fmudflap|fmudflapth:-fno-builtin -fno-merge-constants}\
805 %{coverage:-fprofile-arcs -ftest-coverage}";
807 static const char *asm_options
=
808 "%a %Y %{c:%W{o*}%{!o*:-o %w%b%O}}%{!c:-o %d%w%u%O}";
810 static const char *invoke_as
=
811 #ifdef AS_NEEDS_DASH_FOR_PIPED_INPUT
812 "%{!S:-o %|.s |\n as %(asm_options) %|.s %A }";
814 "%{!S:-o %|.s |\n as %(asm_options) %m.s %A }";
817 /* Some compilers have limits on line lengths, and the multilib_select
818 and/or multilib_matches strings can be very long, so we build them at
820 static struct obstack multilib_obstack
;
821 static const char *multilib_select
;
822 static const char *multilib_matches
;
823 static const char *multilib_defaults
;
824 static const char *multilib_exclusions
;
826 /* Check whether a particular argument is a default argument. */
828 #ifndef MULTILIB_DEFAULTS
829 #define MULTILIB_DEFAULTS { "" }
832 static const char *const multilib_defaults_raw
[] = MULTILIB_DEFAULTS
;
834 #ifndef DRIVER_SELF_SPECS
835 #define DRIVER_SELF_SPECS ""
838 static const char *const driver_self_specs
[] = { DRIVER_SELF_SPECS
};
840 #ifndef OPTION_DEFAULT_SPECS
841 #define OPTION_DEFAULT_SPECS { "", "" }
850 static const struct default_spec
851 option_default_specs
[] = { OPTION_DEFAULT_SPECS
};
855 struct user_specs
*next
;
856 const char *filename
;
859 static struct user_specs
*user_specs_head
, *user_specs_tail
;
861 #ifndef SWITCH_TAKES_ARG
862 #define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR)
865 #ifndef WORD_SWITCH_TAKES_ARG
866 #define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR)
869 #ifdef HAVE_TARGET_EXECUTABLE_SUFFIX
870 /* This defines which switches stop a full compilation. */
871 #define DEFAULT_SWITCH_CURTAILS_COMPILATION(CHAR) \
872 ((CHAR) == 'c' || (CHAR) == 'S')
874 #ifndef SWITCH_CURTAILS_COMPILATION
875 #define SWITCH_CURTAILS_COMPILATION(CHAR) \
876 DEFAULT_SWITCH_CURTAILS_COMPILATION(CHAR)
880 /* Record the mapping from file suffixes for compilation specs. */
884 const char *suffix
; /* Use this compiler for input files
885 whose names end in this suffix. */
887 const char *spec
; /* To use this compiler, run this spec. */
889 const char *cpp_spec
; /* If non-NULL, substitute this spec
890 for `%C', rather than the usual
892 const int combinable
; /* If nonzero, compiler can deal with
893 multiple source files at once (IMA). */
894 const int needs_preprocessing
; /* If nonzero, source files need to
895 be run through a preprocessor. */
898 /* Pointer to a vector of `struct compiler' that gives the spec for
899 compiling a file, based on its suffix.
900 A file that does not end in any of these suffixes will be passed
901 unchanged to the loader and nothing else will be done to it.
903 An entry containing two 0s is used to terminate the vector.
905 If multiple entries match a file, the last matching one is used. */
907 static struct compiler
*compilers
;
909 /* Number of entries in `compilers', not counting the null terminator. */
911 static int n_compilers
;
913 /* The default list of file name suffixes and their compilation specs. */
915 static const struct compiler default_compilers
[] =
917 /* Add lists of suffixes of known languages here. If those languages
918 were not present when we built the driver, we will hit these copies
919 and be given a more meaningful error than "file not used since
920 linking is not done". */
921 {".m", "#Objective-C", 0, 0, 0}, {".mi", "#Objective-C", 0, 0, 0},
922 {".mm", "#Objective-C++", 0, 0, 0}, {".M", "#Objective-C++", 0, 0, 0},
923 {".mii", "#Objective-C++", 0, 0, 0},
924 {".cc", "#C++", 0, 0, 0}, {".cxx", "#C++", 0, 0, 0},
925 {".cpp", "#C++", 0, 0, 0}, {".cp", "#C++", 0, 0, 0},
926 {".c++", "#C++", 0, 0, 0}, {".C", "#C++", 0, 0, 0},
927 {".CPP", "#C++", 0, 0, 0}, {".ii", "#C++", 0, 0, 0},
928 {".ads", "#Ada", 0, 0, 0}, {".adb", "#Ada", 0, 0, 0},
929 {".f", "#Fortran", 0, 0, 0}, {".for", "#Fortran", 0, 0, 0},
930 {".fpp", "#Fortran", 0, 0, 0}, {".F", "#Fortran", 0, 0, 0},
931 {".FOR", "#Fortran", 0, 0, 0}, {".FPP", "#Fortran", 0, 0, 0},
932 {".f90", "#Fortran", 0, 0, 0}, {".f95", "#Fortran", 0, 0, 0},
933 {".F90", "#Fortran", 0, 0, 0}, {".F95", "#Fortran", 0, 0, 0},
934 {".r", "#Ratfor", 0, 0, 0},
935 {".p", "#Pascal", 0, 0, 0}, {".pas", "#Pascal", 0, 0, 0},
936 {".java", "#Java", 0, 0, 0}, {".class", "#Java", 0, 0, 0},
937 {".zip", "#Java", 0, 0, 0}, {".jar", "#Java", 0, 0, 0},
938 /* Next come the entries for C. */
939 {".c", "@c", 0, 1, 1},
941 /* cc1 has an integrated ISO C preprocessor. We should invoke the
942 external preprocessor if -save-temps is given. */
943 "%{E|M|MM:%(trad_capable_cpp) %(cpp_options) %(cpp_debug_options)}\
945 %{traditional|ftraditional:\
946 %eGNU C no longer supports -traditional without -E}\
948 %{save-temps|traditional-cpp|no-integrated-cpp:%(trad_capable_cpp) \
949 %(cpp_options) -o %{save-temps:%b.i} %{!save-temps:%g.i} \n\
950 cc1 -fpreprocessed %{save-temps:%b.i} %{!save-temps:%g.i} \
952 %{!save-temps:%{!traditional-cpp:%{!no-integrated-cpp:\
953 cc1 %(cpp_unique_options) %(cc1_options)}}}\
954 %{!fsyntax-only:%(invoke_as)}} \
956 %{save-temps|traditional-cpp|no-integrated-cpp:%(trad_capable_cpp) \
957 %(cpp_options) -o %{save-temps:%b.i} %{!save-temps:%g.i}}\
958 %{!save-temps:%{!traditional-cpp:%{!no-integrated-cpp:\
959 cc1 %(cpp_unique_options) %(cc1_options)}}\
960 %{!fsyntax-only:%(invoke_as)}}}}}}", 0, 1, 1},
962 "%{!E:%e-E or -x required when input is from standard input}\
963 %(trad_capable_cpp) %(cpp_options) %(cpp_debug_options)", 0, 0, 0},
964 {".h", "@c-header", 0, 0, 0},
966 /* cc1 has an integrated ISO C preprocessor. We should invoke the
967 external preprocessor if -save-temps is given. */
968 "%{E|M|MM:%(trad_capable_cpp) %(cpp_options) %(cpp_debug_options)}\
970 %{save-temps|traditional-cpp|no-integrated-cpp:%(trad_capable_cpp) \
971 %(cpp_options) -o %{save-temps:%b.i} %{!save-temps:%g.i} \n\
972 cc1 -fpreprocessed %{save-temps:%b.i} %{!save-temps:%g.i} \
974 -o %g.s %{!o*:--output-pch=%i.gch}\
975 %W{o*:--output-pch=%*}%V}\
976 %{!save-temps:%{!traditional-cpp:%{!no-integrated-cpp:\
977 cc1 %(cpp_unique_options) %(cc1_options)\
978 -o %g.s %{!o*:--output-pch=%i.gch}\
979 %W{o*:--output-pch=%*}%V}}}}}}", 0, 0, 0},
980 {".i", "@cpp-output", 0, 1, 0},
982 "%{!M:%{!MM:%{!E:cc1 -fpreprocessed %i %(cc1_options) %{!fsyntax-only:%(invoke_as)}}}}", 0, 1, 0},
983 {".s", "@assembler", 0, 1, 0},
985 "%{!M:%{!MM:%{!E:%{!S:as %(asm_debug) %(asm_options) %i %A }}}}", 0, 1, 0},
986 {".S", "@assembler-with-cpp", 0, 1, 0},
987 {"@assembler-with-cpp",
988 #ifdef AS_NEEDS_DASH_FOR_PIPED_INPUT
989 "%(trad_capable_cpp) -lang-asm %(cpp_options)\
990 %{E|M|MM:%(cpp_debug_options)}\
991 %{!M:%{!MM:%{!E:%{!S:-o %|.s |\n\
992 as %(asm_debug) %(asm_options) %|.s %A }}}}"
994 "%(trad_capable_cpp) -lang-asm %(cpp_options)\
995 %{E|M|MM:%(cpp_debug_options)}\
996 %{!M:%{!MM:%{!E:%{!S:-o %|.s |\n\
997 as %(asm_debug) %(asm_options) %m.s %A }}}}"
1002 /* Mark end of table. */
1006 /* Number of elements in default_compilers, not counting the terminator. */
1008 static const int n_default_compilers
= ARRAY_SIZE (default_compilers
) - 1;
1010 /* A vector of options to give to the linker.
1011 These options are accumulated by %x,
1012 and substituted into the linker command with %X. */
1013 static int n_linker_options
;
1014 static char **linker_options
;
1016 /* A vector of options to give to the assembler.
1017 These options are accumulated by -Wa,
1018 and substituted into the assembler command with %Y. */
1019 static int n_assembler_options
;
1020 static char **assembler_options
;
1022 /* A vector of options to give to the preprocessor.
1023 These options are accumulated by -Wp,
1024 and substituted into the preprocessor command with %Z. */
1025 static int n_preprocessor_options
;
1026 static char **preprocessor_options
;
1028 /* Define how to map long options into short ones. */
1030 /* This structure describes one mapping. */
1033 /* The long option's name. */
1034 const char *const name
;
1035 /* The equivalent short option. */
1036 const char *const equivalent
;
1037 /* Argument info. A string of flag chars; NULL equals no options.
1038 a => argument required.
1039 o => argument optional.
1040 j => join argument to equivalent, making one word.
1041 * => require other text after NAME as an argument. */
1042 const char *const arg_info
;
1045 /* This is the table of mappings. Mappings are tried sequentially
1046 for each option encountered; the first one that matches, wins. */
1048 static const struct option_map option_map
[] =
1050 {"--all-warnings", "-Wall", 0},
1051 {"--ansi", "-ansi", 0},
1052 {"--assemble", "-S", 0},
1053 {"--assert", "-A", "a"},
1054 {"--classpath", "-fclasspath=", "aj"},
1055 {"--bootclasspath", "-fbootclasspath=", "aj"},
1056 {"--CLASSPATH", "-fclasspath=", "aj"},
1057 {"--combine", "-combine", 0},
1058 {"--comments", "-C", 0},
1059 {"--comments-in-macros", "-CC", 0},
1060 {"--compile", "-c", 0},
1061 {"--debug", "-g", "oj"},
1062 {"--define-macro", "-D", "aj"},
1063 {"--dependencies", "-M", 0},
1064 {"--dump", "-d", "a"},
1065 {"--dumpbase", "-dumpbase", "a"},
1066 {"--encoding", "-fencoding=", "aj"},
1067 {"--entry", "-e", 0},
1068 {"--extra-warnings", "-W", 0},
1069 {"--extdirs", "-fextdirs=", "aj"},
1070 {"--for-assembler", "-Wa", "a"},
1071 {"--for-linker", "-Xlinker", "a"},
1072 {"--force-link", "-u", "a"},
1073 {"--coverage", "-coverage", 0},
1074 {"--imacros", "-imacros", "a"},
1075 {"--include", "-include", "a"},
1076 {"--include-barrier", "-I-", 0},
1077 {"--include-directory", "-I", "aj"},
1078 {"--include-directory-after", "-idirafter", "a"},
1079 {"--include-prefix", "-iprefix", "a"},
1080 {"--include-with-prefix", "-iwithprefix", "a"},
1081 {"--include-with-prefix-before", "-iwithprefixbefore", "a"},
1082 {"--include-with-prefix-after", "-iwithprefix", "a"},
1083 {"--language", "-x", "a"},
1084 {"--library-directory", "-L", "a"},
1085 {"--machine", "-m", "aj"},
1086 {"--machine-", "-m", "*j"},
1087 {"--no-integrated-cpp", "-no-integrated-cpp", 0},
1088 {"--no-line-commands", "-P", 0},
1089 {"--no-precompiled-includes", "-noprecomp", 0},
1090 {"--no-standard-includes", "-nostdinc", 0},
1091 {"--no-standard-libraries", "-nostdlib", 0},
1092 {"--no-warnings", "-w", 0},
1093 {"--optimize", "-O", "oj"},
1094 {"--output", "-o", "a"},
1095 {"--output-class-directory", "-foutput-class-dir=", "ja"},
1096 {"--param", "--param", "a"},
1097 {"--pass-exit-codes", "-pass-exit-codes", 0},
1098 {"--pedantic", "-pedantic", 0},
1099 {"--pedantic-errors", "-pedantic-errors", 0},
1100 {"--pie", "-pie", 0},
1101 {"--pipe", "-pipe", 0},
1102 {"--prefix", "-B", "a"},
1103 {"--preprocess", "-E", 0},
1104 {"--print-search-dirs", "-print-search-dirs", 0},
1105 {"--print-file-name", "-print-file-name=", "aj"},
1106 {"--print-libgcc-file-name", "-print-libgcc-file-name", 0},
1107 {"--print-missing-file-dependencies", "-MG", 0},
1108 {"--print-multi-lib", "-print-multi-lib", 0},
1109 {"--print-multi-directory", "-print-multi-directory", 0},
1110 {"--print-multi-os-directory", "-print-multi-os-directory", 0},
1111 {"--print-prog-name", "-print-prog-name=", "aj"},
1112 {"--profile", "-p", 0},
1113 {"--profile-blocks", "-a", 0},
1114 {"--quiet", "-q", 0},
1115 {"--resource", "-fcompile-resource=", "aj"},
1116 {"--save-temps", "-save-temps", 0},
1117 {"--shared", "-shared", 0},
1118 {"--silent", "-q", 0},
1119 {"--specs", "-specs=", "aj"},
1120 {"--static", "-static", 0},
1121 {"--std", "-std=", "aj"},
1122 {"--symbolic", "-symbolic", 0},
1123 {"--sysroot", "--sysroot=", "aj"},
1124 {"--time", "-time", 0},
1125 {"--trace-includes", "-H", 0},
1126 {"--traditional", "-traditional", 0},
1127 {"--traditional-cpp", "-traditional-cpp", 0},
1128 {"--trigraphs", "-trigraphs", 0},
1129 {"--undefine-macro", "-U", "aj"},
1130 {"--user-dependencies", "-MM", 0},
1131 {"--verbose", "-v", 0},
1132 {"--warn-", "-W", "*j"},
1133 {"--write-dependencies", "-MD", 0},
1134 {"--write-user-dependencies", "-MMD", 0},
1139 #ifdef TARGET_OPTION_TRANSLATE_TABLE
1140 static const struct {
1141 const char *const option_found
;
1142 const char *const replacements
;
1143 } target_option_translations
[] =
1145 TARGET_OPTION_TRANSLATE_TABLE
,
1150 /* Translate the options described by *ARGCP and *ARGVP.
1151 Make a new vector and store it back in *ARGVP,
1152 and store its length in *ARGVC. */
1155 translate_options (int *argcp
, const char *const **argvp
)
1159 const char *const *argv
= *argvp
;
1160 int newvsize
= (argc
+ 2) * 2 * sizeof (const char *);
1161 const char **newv
= xmalloc (newvsize
);
1165 newv
[newindex
++] = argv
[i
++];
1169 #ifdef TARGET_OPTION_TRANSLATE_TABLE
1173 target_option_translations
[tott_idx
].option_found
;
1176 if (strcmp (target_option_translations
[tott_idx
].option_found
,
1183 for (sp
= target_option_translations
[tott_idx
].replacements
;
1190 newvsize
+= spaces
* sizeof (const char *);
1191 newv
= xrealloc (newv
, newvsize
);
1193 sp
= target_option_translations
[tott_idx
].replacements
;
1202 newv
[newindex
++] = np
;
1203 while (*np
!= ' ' && *np
)
1214 if (target_option_translations
[tott_idx
].option_found
)
1218 /* Translate -- options. */
1219 if (argv
[i
][0] == '-' && argv
[i
][1] == '-')
1222 /* Find a mapping that applies to this option. */
1223 for (j
= 0; j
< ARRAY_SIZE (option_map
); j
++)
1225 size_t optlen
= strlen (option_map
[j
].name
);
1226 size_t arglen
= strlen (argv
[i
]);
1227 size_t complen
= arglen
> optlen
? optlen
: arglen
;
1228 const char *arginfo
= option_map
[j
].arg_info
;
1233 if (!strncmp (argv
[i
], option_map
[j
].name
, complen
))
1235 const char *arg
= 0;
1237 if (arglen
< optlen
)
1240 for (k
= j
+ 1; k
< ARRAY_SIZE (option_map
); k
++)
1241 if (strlen (option_map
[k
].name
) >= arglen
1242 && !strncmp (argv
[i
], option_map
[k
].name
, arglen
))
1244 error ("ambiguous abbreviation %s", argv
[i
]);
1248 if (k
!= ARRAY_SIZE (option_map
))
1252 if (arglen
> optlen
)
1254 /* If the option has an argument, accept that. */
1255 if (argv
[i
][optlen
] == '=')
1256 arg
= argv
[i
] + optlen
+ 1;
1258 /* If this mapping requires extra text at end of name,
1259 accept that as "argument". */
1260 else if (strchr (arginfo
, '*') != 0)
1261 arg
= argv
[i
] + optlen
;
1263 /* Otherwise, extra text at end means mismatch.
1264 Try other mappings. */
1269 else if (strchr (arginfo
, '*') != 0)
1271 error ("incomplete '%s' option", option_map
[j
].name
);
1275 /* Handle arguments. */
1276 if (strchr (arginfo
, 'a') != 0)
1282 error ("missing argument to '%s' option",
1283 option_map
[j
].name
);
1290 else if (strchr (arginfo
, '*') != 0)
1292 else if (strchr (arginfo
, 'o') == 0)
1295 error ("extraneous argument to '%s' option",
1296 option_map
[j
].name
);
1300 /* Store the translation as one argv elt or as two. */
1301 if (arg
!= 0 && strchr (arginfo
, 'j') != 0)
1302 newv
[newindex
++] = concat (option_map
[j
].equivalent
, arg
,
1306 newv
[newindex
++] = option_map
[j
].equivalent
;
1307 newv
[newindex
++] = arg
;
1310 newv
[newindex
++] = option_map
[j
].equivalent
;
1318 /* Handle old-fashioned options--just copy them through,
1319 with their arguments. */
1320 else if (argv
[i
][0] == '-')
1322 const char *p
= argv
[i
] + 1;
1326 if (SWITCH_TAKES_ARG (c
) > (p
[1] != 0))
1327 nskip
+= SWITCH_TAKES_ARG (c
) - (p
[1] != 0);
1328 else if (WORD_SWITCH_TAKES_ARG (p
))
1329 nskip
+= WORD_SWITCH_TAKES_ARG (p
);
1330 else if ((c
== 'B' || c
== 'b' || c
== 'x')
1333 else if (! strcmp (p
, "Xlinker"))
1335 else if (! strcmp (p
, "Xpreprocessor"))
1337 else if (! strcmp (p
, "Xassembler"))
1340 /* Watch out for an option at the end of the command line that
1341 is missing arguments, and avoid skipping past the end of the
1343 if (nskip
+ i
> argc
)
1348 newv
[newindex
++] = argv
[i
++];
1353 /* Ordinary operands, or +e options. */
1354 newv
[newindex
++] = argv
[i
++];
1364 skip_whitespace (char *p
)
1368 /* A fully-blank line is a delimiter in the SPEC file and shouldn't
1369 be considered whitespace. */
1370 if (p
[0] == '\n' && p
[1] == '\n' && p
[2] == '\n')
1372 else if (*p
== '\n' || *p
== ' ' || *p
== '\t')
1386 /* Structures to keep track of prefixes to try when looking for files. */
1390 const char *prefix
; /* String to prepend to the path. */
1391 struct prefix_list
*next
; /* Next in linked list. */
1392 int require_machine_suffix
; /* Don't use without machine_suffix. */
1393 /* 2 means try both machine_suffix and just_machine_suffix. */
1394 int priority
; /* Sort key - priority within list. */
1395 int os_multilib
; /* 1 if OS multilib scheme should be used,
1396 0 for GCC multilib scheme. */
1401 struct prefix_list
*plist
; /* List of prefixes to try */
1402 int max_len
; /* Max length of a prefix in PLIST */
1403 const char *name
; /* Name of this list (used in config stuff) */
1406 /* List of prefixes to try when looking for executables. */
1408 static struct path_prefix exec_prefixes
= { 0, 0, "exec" };
1410 /* List of prefixes to try when looking for startup (crt0) files. */
1412 static struct path_prefix startfile_prefixes
= { 0, 0, "startfile" };
1414 /* List of prefixes to try when looking for include files. */
1416 static struct path_prefix include_prefixes
= { 0, 0, "include" };
1418 /* Suffix to attach to directories searched for commands.
1419 This looks like `MACHINE/VERSION/'. */
1421 static const char *machine_suffix
= 0;
1423 /* Suffix to attach to directories searched for commands.
1424 This is just `MACHINE/'. */
1426 static const char *just_machine_suffix
= 0;
1428 /* Adjusted value of GCC_EXEC_PREFIX envvar. */
1430 static const char *gcc_exec_prefix
;
1432 /* Adjusted value of standard_libexec_prefix. */
1434 static const char *gcc_libexec_prefix
;
1436 /* Default prefixes to attach to command names. */
1438 #ifndef STANDARD_STARTFILE_PREFIX_1
1439 #define STANDARD_STARTFILE_PREFIX_1 "/lib/"
1441 #ifndef STANDARD_STARTFILE_PREFIX_2
1442 #define STANDARD_STARTFILE_PREFIX_2 "/usr/lib/"
1445 #ifdef CROSS_COMPILE /* Don't use these prefixes for a cross compiler. */
1446 #undef MD_EXEC_PREFIX
1447 #undef MD_STARTFILE_PREFIX
1448 #undef MD_STARTFILE_PREFIX_1
1451 /* If no prefixes defined, use the null string, which will disable them. */
1452 #ifndef MD_EXEC_PREFIX
1453 #define MD_EXEC_PREFIX ""
1455 #ifndef MD_STARTFILE_PREFIX
1456 #define MD_STARTFILE_PREFIX ""
1458 #ifndef MD_STARTFILE_PREFIX_1
1459 #define MD_STARTFILE_PREFIX_1 ""
1462 static const char *const standard_exec_prefix
= STANDARD_EXEC_PREFIX
;
1463 static const char *const standard_exec_prefix_1
= "/usr/libexec/gcc/";
1464 static const char *const standard_exec_prefix_2
= "/usr/lib/gcc/";
1465 static const char *md_exec_prefix
= MD_EXEC_PREFIX
;
1467 static const char *md_startfile_prefix
= MD_STARTFILE_PREFIX
;
1468 static const char *md_startfile_prefix_1
= MD_STARTFILE_PREFIX_1
;
1469 static const char *const standard_startfile_prefix
= STANDARD_STARTFILE_PREFIX
;
1470 static const char *const standard_startfile_prefix_1
1471 = STANDARD_STARTFILE_PREFIX_1
;
1472 static const char *const standard_startfile_prefix_2
1473 = STANDARD_STARTFILE_PREFIX_2
;
1475 static const char *const tooldir_base_prefix
= TOOLDIR_BASE_PREFIX
;
1476 static const char *tooldir_prefix
;
1478 static const char *const standard_bindir_prefix
= STANDARD_BINDIR_PREFIX
;
1480 static const char *standard_libexec_prefix
= STANDARD_LIBEXEC_PREFIX
;
1482 /* Subdirectory to use for locating libraries. Set by
1483 set_multilib_dir based on the compilation options. */
1485 static const char *multilib_dir
;
1487 /* Subdirectory to use for locating libraries in OS conventions. Set by
1488 set_multilib_dir based on the compilation options. */
1490 static const char *multilib_os_dir
;
1492 /* Structure to keep track of the specs that have been defined so far.
1493 These are accessed using %(specname) or %[specname] in a compiler
1498 /* The following 2 fields must be first */
1499 /* to allow EXTRA_SPECS to be initialized */
1500 const char *name
; /* name of the spec. */
1501 const char *ptr
; /* available ptr if no static pointer */
1503 /* The following fields are not initialized */
1504 /* by EXTRA_SPECS */
1505 const char **ptr_spec
; /* pointer to the spec itself. */
1506 struct spec_list
*next
; /* Next spec in linked list. */
1507 int name_len
; /* length of the name */
1508 int alloc_p
; /* whether string was allocated */
1511 #define INIT_STATIC_SPEC(NAME,PTR) \
1512 { NAME, NULL, PTR, (struct spec_list *) 0, sizeof (NAME) - 1, 0 }
1514 /* List of statically defined specs. */
1515 static struct spec_list static_specs
[] =
1517 INIT_STATIC_SPEC ("asm", &asm_spec
),
1518 INIT_STATIC_SPEC ("asm_debug", &asm_debug
),
1519 INIT_STATIC_SPEC ("asm_final", &asm_final_spec
),
1520 INIT_STATIC_SPEC ("asm_options", &asm_options
),
1521 INIT_STATIC_SPEC ("invoke_as", &invoke_as
),
1522 INIT_STATIC_SPEC ("cpp", &cpp_spec
),
1523 INIT_STATIC_SPEC ("cpp_options", &cpp_options
),
1524 INIT_STATIC_SPEC ("cpp_debug_options", &cpp_debug_options
),
1525 INIT_STATIC_SPEC ("cpp_unique_options", &cpp_unique_options
),
1526 INIT_STATIC_SPEC ("trad_capable_cpp", &trad_capable_cpp
),
1527 INIT_STATIC_SPEC ("cc1", &cc1_spec
),
1528 INIT_STATIC_SPEC ("cc1_options", &cc1_options
),
1529 INIT_STATIC_SPEC ("cc1plus", &cc1plus_spec
),
1530 INIT_STATIC_SPEC ("link_gcc_c_sequence", &link_gcc_c_sequence_spec
),
1531 INIT_STATIC_SPEC ("link_ssp", &link_ssp_spec
),
1532 INIT_STATIC_SPEC ("endfile", &endfile_spec
),
1533 INIT_STATIC_SPEC ("link", &link_spec
),
1534 INIT_STATIC_SPEC ("lib", &lib_spec
),
1535 INIT_STATIC_SPEC ("mfwrap", &mfwrap_spec
),
1536 INIT_STATIC_SPEC ("mflib", &mflib_spec
),
1537 INIT_STATIC_SPEC ("libgcc", &libgcc_spec
),
1538 INIT_STATIC_SPEC ("startfile", &startfile_spec
),
1539 INIT_STATIC_SPEC ("switches_need_spaces", &switches_need_spaces
),
1540 INIT_STATIC_SPEC ("cross_compile", &cross_compile
),
1541 INIT_STATIC_SPEC ("version", &compiler_version
),
1542 INIT_STATIC_SPEC ("multilib", &multilib_select
),
1543 INIT_STATIC_SPEC ("multilib_defaults", &multilib_defaults
),
1544 INIT_STATIC_SPEC ("multilib_extra", &multilib_extra
),
1545 INIT_STATIC_SPEC ("multilib_matches", &multilib_matches
),
1546 INIT_STATIC_SPEC ("multilib_exclusions", &multilib_exclusions
),
1547 INIT_STATIC_SPEC ("multilib_options", &multilib_options
),
1548 INIT_STATIC_SPEC ("linker", &linker_name_spec
),
1549 INIT_STATIC_SPEC ("link_libgcc", &link_libgcc_spec
),
1550 INIT_STATIC_SPEC ("md_exec_prefix", &md_exec_prefix
),
1551 INIT_STATIC_SPEC ("md_startfile_prefix", &md_startfile_prefix
),
1552 INIT_STATIC_SPEC ("md_startfile_prefix_1", &md_startfile_prefix_1
),
1553 INIT_STATIC_SPEC ("startfile_prefix_spec", &startfile_prefix_spec
),
1554 INIT_STATIC_SPEC ("sysroot_spec", &sysroot_spec
),
1555 INIT_STATIC_SPEC ("sysroot_suffix_spec", &sysroot_suffix_spec
),
1556 INIT_STATIC_SPEC ("sysroot_hdrs_suffix_spec", &sysroot_hdrs_suffix_spec
),
1559 #ifdef EXTRA_SPECS /* additional specs needed */
1560 /* Structure to keep track of just the first two args of a spec_list.
1561 That is all that the EXTRA_SPECS macro gives us. */
1564 const char *const name
;
1565 const char *const ptr
;
1568 static const struct spec_list_1 extra_specs_1
[] = { EXTRA_SPECS
};
1569 static struct spec_list
*extra_specs
= (struct spec_list
*) 0;
1572 /* List of dynamically allocates specs that have been defined so far. */
1574 static struct spec_list
*specs
= (struct spec_list
*) 0;
1576 /* List of static spec functions. */
1578 static const struct spec_function static_spec_functions
[] =
1580 { "if-exists", if_exists_spec_function
},
1581 { "if-exists-else", if_exists_else_spec_function
},
1582 { "replace-outfile", replace_outfile_spec_function
},
1583 { "version-compare", version_compare_spec_function
},
1587 static int processing_spec_function
;
1589 /* Add appropriate libgcc specs to OBSTACK, taking into account
1590 various permutations of -shared-libgcc, -shared, and such. */
1592 #if defined(ENABLE_SHARED_LIBGCC) && !defined(REAL_LIBGCC_SPEC)
1594 #ifndef USE_LD_AS_NEEDED
1595 #define USE_LD_AS_NEEDED 0
1599 init_gcc_specs (struct obstack
*obstack
, const char *shared_name
,
1600 const char *static_name
, const char *eh_name
)
1604 buf
= concat ("%{static|static-libgcc:", static_name
, " ", eh_name
, "}"
1605 "%{!static:%{!static-libgcc:"
1606 #if USE_LD_AS_NEEDED
1607 "%{!shared-libgcc:",
1608 static_name
, " --as-needed ", shared_name
, " --no-as-needed"
1611 shared_name
, "%{!shared: ", static_name
, "}"
1615 "%{!shared-libgcc:", static_name
, " ", eh_name
, "}"
1616 "%{shared-libgcc:", shared_name
, " ", static_name
, "}"
1620 "%{shared-libgcc:", shared_name
, "}"
1621 "%{!shared-libgcc:", static_name
, "}"
1624 "%{shared:", shared_name
, "}"
1629 obstack_grow (obstack
, buf
, strlen (buf
));
1632 #endif /* ENABLE_SHARED_LIBGCC */
1634 /* Initialize the specs lookup routines. */
1639 struct spec_list
*next
= (struct spec_list
*) 0;
1640 struct spec_list
*sl
= (struct spec_list
*) 0;
1644 return; /* Already initialized. */
1647 notice ("Using built-in specs.\n");
1650 extra_specs
= xcalloc (sizeof (struct spec_list
),
1651 ARRAY_SIZE (extra_specs_1
));
1653 for (i
= ARRAY_SIZE (extra_specs_1
) - 1; i
>= 0; i
--)
1655 sl
= &extra_specs
[i
];
1656 sl
->name
= extra_specs_1
[i
].name
;
1657 sl
->ptr
= extra_specs_1
[i
].ptr
;
1659 sl
->name_len
= strlen (sl
->name
);
1660 sl
->ptr_spec
= &sl
->ptr
;
1665 /* Initialize here, not in definition. The IRIX 6 O32 cc sometimes chokes
1666 on ?: in file-scope variable initializations. */
1667 asm_debug
= ASM_DEBUG_SPEC
;
1669 for (i
= ARRAY_SIZE (static_specs
) - 1; i
>= 0; i
--)
1671 sl
= &static_specs
[i
];
1676 #if defined(ENABLE_SHARED_LIBGCC) && !defined(REAL_LIBGCC_SPEC)
1677 /* ??? If neither -shared-libgcc nor --static-libgcc was
1678 seen, then we should be making an educated guess. Some proposed
1679 heuristics for ELF include:
1681 (1) If "-Wl,--export-dynamic", then it's a fair bet that the
1682 program will be doing dynamic loading, which will likely
1683 need the shared libgcc.
1685 (2) If "-ldl", then it's also a fair bet that we're doing
1688 (3) For each ET_DYN we're linking against (either through -lfoo
1689 or /some/path/foo.so), check to see whether it or one of
1690 its dependencies depends on a shared libgcc.
1694 If the runtime is fixed to look for program headers instead
1695 of calling __register_frame_info at all, for each object,
1696 use the shared libgcc if any EH symbol referenced.
1698 If crtstuff is fixed to not invoke __register_frame_info
1699 automatically, for each object, use the shared libgcc if
1700 any non-empty unwind section found.
1702 Doing any of this probably requires invoking an external program to
1703 do the actual object file scanning. */
1705 const char *p
= libgcc_spec
;
1708 /* Transform the extant libgcc_spec into one that uses the shared libgcc
1709 when given the proper command line arguments. */
1712 if (in_sep
&& *p
== '-' && strncmp (p
, "-lgcc", 5) == 0)
1714 init_gcc_specs (&obstack
,
1716 #ifdef USE_LIBUNWIND_EXCEPTIONS
1722 #ifdef USE_LIBUNWIND_EXCEPTIONS
1723 # ifdef HAVE_LD_STATIC_DYNAMIC
1724 " %{!static:-Bstatic} -lunwind %{!static:-Bdynamic}"
1734 else if (in_sep
&& *p
== 'l' && strncmp (p
, "libgcc.a%s", 10) == 0)
1736 /* Ug. We don't know shared library extensions. Hope that
1737 systems that use this form don't do shared libraries. */
1738 init_gcc_specs (&obstack
,
1742 #ifdef USE_LIBUNWIND_EXCEPTIONS
1751 obstack_1grow (&obstack
, *p
);
1752 in_sep
= (*p
== ' ');
1757 obstack_1grow (&obstack
, '\0');
1758 libgcc_spec
= XOBFINISH (&obstack
, const char *);
1761 #ifdef USE_AS_TRADITIONAL_FORMAT
1762 /* Prepend "--traditional-format" to whatever asm_spec we had before. */
1764 static const char tf
[] = "--traditional-format ";
1765 obstack_grow (&obstack
, tf
, sizeof(tf
) - 1);
1766 obstack_grow0 (&obstack
, asm_spec
, strlen (asm_spec
));
1767 asm_spec
= XOBFINISH (&obstack
, const char *);
1771 /* Prepend LINK_EH_SPEC to whatever link_spec we had before. */
1772 obstack_grow (&obstack
, LINK_EH_SPEC
, sizeof(LINK_EH_SPEC
) - 1);
1773 obstack_grow0 (&obstack
, link_spec
, strlen (link_spec
));
1774 link_spec
= XOBFINISH (&obstack
, const char *);
1780 /* Change the value of spec NAME to SPEC. If SPEC is empty, then the spec is
1781 removed; If the spec starts with a + then SPEC is added to the end of the
1785 set_spec (const char *name
, const char *spec
)
1787 struct spec_list
*sl
;
1788 const char *old_spec
;
1789 int name_len
= strlen (name
);
1792 /* If this is the first call, initialize the statically allocated specs. */
1795 struct spec_list
*next
= (struct spec_list
*) 0;
1796 for (i
= ARRAY_SIZE (static_specs
) - 1; i
>= 0; i
--)
1798 sl
= &static_specs
[i
];
1805 /* See if the spec already exists. */
1806 for (sl
= specs
; sl
; sl
= sl
->next
)
1807 if (name_len
== sl
->name_len
&& !strcmp (sl
->name
, name
))
1812 /* Not found - make it. */
1813 sl
= xmalloc (sizeof (struct spec_list
));
1814 sl
->name
= xstrdup (name
);
1815 sl
->name_len
= name_len
;
1816 sl
->ptr_spec
= &sl
->ptr
;
1818 *(sl
->ptr_spec
) = "";
1823 old_spec
= *(sl
->ptr_spec
);
1824 *(sl
->ptr_spec
) = ((spec
[0] == '+' && ISSPACE ((unsigned char)spec
[1]))
1825 ? concat (old_spec
, spec
+ 1, NULL
)
1830 notice ("Setting spec %s to '%s'\n\n", name
, *(sl
->ptr_spec
));
1833 /* Free the old spec. */
1834 if (old_spec
&& sl
->alloc_p
)
1835 free ((void *) old_spec
);
1840 /* Accumulate a command (program name and args), and run it. */
1842 /* Vector of pointers to arguments in the current line of specifications. */
1844 static const char **argbuf
;
1846 /* Number of elements allocated in argbuf. */
1848 static int argbuf_length
;
1850 /* Number of elements in argbuf currently in use (containing args). */
1852 static int argbuf_index
;
1854 /* Position in the argbuf array containing the name of the output file
1855 (the value associated with the "-o" flag). */
1857 static int have_o_argbuf_index
= 0;
1859 /* Were the options -c or -S passed. */
1860 static int have_c
= 0;
1862 /* Was the option -o passed. */
1863 static int have_o
= 0;
1865 /* This is the list of suffixes and codes (%g/%u/%U/%j) and the associated
1866 temp file. If the HOST_BIT_BUCKET is used for %j, no entry is made for
1869 static struct temp_name
{
1870 const char *suffix
; /* suffix associated with the code. */
1871 int length
; /* strlen (suffix). */
1872 int unique
; /* Indicates whether %g or %u/%U was used. */
1873 const char *filename
; /* associated filename. */
1874 int filename_length
; /* strlen (filename). */
1875 struct temp_name
*next
;
1878 /* Number of commands executed so far. */
1880 static int execution_count
;
1882 /* Number of commands that exited with a signal. */
1884 static int signal_count
;
1886 /* Name with which this program was invoked. */
1888 static const char *programname
;
1890 /* Allocate the argument vector. */
1896 argbuf
= xmalloc (argbuf_length
* sizeof (const char *));
1899 /* Clear out the vector of arguments (after a command is executed). */
1907 /* Add one argument to the vector at the end.
1908 This is done when a space is seen or at the end of the line.
1909 If DELETE_ALWAYS is nonzero, the arg is a filename
1910 and the file should be deleted eventually.
1911 If DELETE_FAILURE is nonzero, the arg is a filename
1912 and the file should be deleted if this compilation fails. */
1915 store_arg (const char *arg
, int delete_always
, int delete_failure
)
1917 if (argbuf_index
+ 1 == argbuf_length
)
1918 argbuf
= xrealloc (argbuf
, (argbuf_length
*= 2) * sizeof (const char *));
1920 argbuf
[argbuf_index
++] = arg
;
1921 argbuf
[argbuf_index
] = 0;
1923 if (strcmp (arg
, "-o") == 0)
1924 have_o_argbuf_index
= argbuf_index
;
1925 if (delete_always
|| delete_failure
)
1926 record_temp_file (arg
, delete_always
, delete_failure
);
1929 /* Load specs from a file name named FILENAME, replacing occurrences of
1930 various different types of line-endings, \r\n, \n\r and just \r, with
1934 load_specs (const char *filename
)
1938 struct stat statbuf
;
1945 notice ("Reading specs from %s\n", filename
);
1947 /* Open and stat the file. */
1948 desc
= open (filename
, O_RDONLY
, 0);
1950 pfatal_with_name (filename
);
1951 if (stat (filename
, &statbuf
) < 0)
1952 pfatal_with_name (filename
);
1954 /* Read contents of file into BUFFER. */
1955 buffer
= xmalloc ((unsigned) statbuf
.st_size
+ 1);
1956 readlen
= read (desc
, buffer
, (unsigned) statbuf
.st_size
);
1958 pfatal_with_name (filename
);
1959 buffer
[readlen
] = 0;
1962 specs
= xmalloc (readlen
+ 1);
1964 for (buffer_p
= buffer
; buffer_p
&& *buffer_p
; buffer_p
++)
1970 if (buffer_p
> buffer
&& *(buffer_p
- 1) == '\n') /* \n\r */
1972 else if (*(buffer_p
+ 1) == '\n') /* \r\n */
1986 /* Read compilation specs from a file named FILENAME,
1987 replacing the default ones.
1989 A suffix which starts with `*' is a definition for
1990 one of the machine-specific sub-specs. The "suffix" should be
1991 *asm, *cc1, *cpp, *link, *startfile, etc.
1992 The corresponding spec is stored in asm_spec, etc.,
1993 rather than in the `compilers' vector.
1995 Anything invalid in the file is a fatal error. */
1998 read_specs (const char *filename
, int main_p
)
2003 buffer
= load_specs (filename
);
2005 /* Scan BUFFER for specs, putting them in the vector. */
2011 char *in
, *out
, *p1
, *p2
, *p3
;
2013 /* Advance P in BUFFER to the next nonblank nocomment line. */
2014 p
= skip_whitespace (p
);
2018 /* Is this a special command that starts with '%'? */
2019 /* Don't allow this for the main specs file, since it would
2020 encourage people to overwrite it. */
2021 if (*p
== '%' && !main_p
)
2024 while (*p
&& *p
!= '\n')
2030 if (!strncmp (p1
, "%include", sizeof ("%include") - 1)
2031 && (p1
[sizeof "%include" - 1] == ' '
2032 || p1
[sizeof "%include" - 1] == '\t'))
2036 p1
+= sizeof ("%include");
2037 while (*p1
== ' ' || *p1
== '\t')
2040 if (*p1
++ != '<' || p
[-2] != '>')
2041 fatal ("specs %%include syntax malformed after %ld characters",
2042 (long) (p1
- buffer
+ 1));
2045 new_filename
= find_a_file (&startfile_prefixes
, p1
, R_OK
, true);
2046 read_specs (new_filename
? new_filename
: p1
, FALSE
);
2049 else if (!strncmp (p1
, "%include_noerr", sizeof "%include_noerr" - 1)
2050 && (p1
[sizeof "%include_noerr" - 1] == ' '
2051 || p1
[sizeof "%include_noerr" - 1] == '\t'))
2055 p1
+= sizeof "%include_noerr";
2056 while (*p1
== ' ' || *p1
== '\t')
2059 if (*p1
++ != '<' || p
[-2] != '>')
2060 fatal ("specs %%include syntax malformed after %ld characters",
2061 (long) (p1
- buffer
+ 1));
2064 new_filename
= find_a_file (&startfile_prefixes
, p1
, R_OK
, true);
2066 read_specs (new_filename
, FALSE
);
2067 else if (verbose_flag
)
2068 notice ("could not find specs file %s\n", p1
);
2071 else if (!strncmp (p1
, "%rename", sizeof "%rename" - 1)
2072 && (p1
[sizeof "%rename" - 1] == ' '
2073 || p1
[sizeof "%rename" - 1] == '\t'))
2076 struct spec_list
*sl
;
2077 struct spec_list
*newsl
;
2079 /* Get original name. */
2080 p1
+= sizeof "%rename";
2081 while (*p1
== ' ' || *p1
== '\t')
2084 if (! ISALPHA ((unsigned char) *p1
))
2085 fatal ("specs %%rename syntax malformed after %ld characters",
2086 (long) (p1
- buffer
));
2089 while (*p2
&& !ISSPACE ((unsigned char) *p2
))
2092 if (*p2
!= ' ' && *p2
!= '\t')
2093 fatal ("specs %%rename syntax malformed after %ld characters",
2094 (long) (p2
- buffer
));
2098 while (*p2
== ' ' || *p2
== '\t')
2101 if (! ISALPHA ((unsigned char) *p2
))
2102 fatal ("specs %%rename syntax malformed after %ld characters",
2103 (long) (p2
- buffer
));
2105 /* Get new spec name. */
2107 while (*p3
&& !ISSPACE ((unsigned char) *p3
))
2111 fatal ("specs %%rename syntax malformed after %ld characters",
2112 (long) (p3
- buffer
));
2115 for (sl
= specs
; sl
; sl
= sl
->next
)
2116 if (name_len
== sl
->name_len
&& !strcmp (sl
->name
, p1
))
2120 fatal ("specs %s spec was not found to be renamed", p1
);
2122 if (strcmp (p1
, p2
) == 0)
2125 for (newsl
= specs
; newsl
; newsl
= newsl
->next
)
2126 if (strcmp (newsl
->name
, p2
) == 0)
2127 fatal ("%s: attempt to rename spec '%s' to already defined spec '%s'",
2132 notice ("rename spec %s to %s\n", p1
, p2
);
2134 notice ("spec is '%s'\n\n", *(sl
->ptr_spec
));
2138 set_spec (p2
, *(sl
->ptr_spec
));
2140 free ((void *) *(sl
->ptr_spec
));
2142 *(sl
->ptr_spec
) = "";
2147 fatal ("specs unknown %% command after %ld characters",
2148 (long) (p1
- buffer
));
2151 /* Find the colon that should end the suffix. */
2153 while (*p1
&& *p1
!= ':' && *p1
!= '\n')
2156 /* The colon shouldn't be missing. */
2158 fatal ("specs file malformed after %ld characters",
2159 (long) (p1
- buffer
));
2161 /* Skip back over trailing whitespace. */
2163 while (p2
> buffer
&& (p2
[-1] == ' ' || p2
[-1] == '\t'))
2166 /* Copy the suffix to a string. */
2167 suffix
= save_string (p
, p2
- p
);
2168 /* Find the next line. */
2169 p
= skip_whitespace (p1
+ 1);
2171 fatal ("specs file malformed after %ld characters",
2172 (long) (p
- buffer
));
2175 /* Find next blank line or end of string. */
2176 while (*p1
&& !(*p1
== '\n' && (p1
[1] == '\n' || p1
[1] == '\0')))
2179 /* Specs end at the blank line and do not include the newline. */
2180 spec
= save_string (p
, p1
- p
);
2183 /* Delete backslash-newline sequences from the spec. */
2188 if (in
[0] == '\\' && in
[1] == '\n')
2190 else if (in
[0] == '#')
2191 while (*in
&& *in
!= '\n')
2199 if (suffix
[0] == '*')
2201 if (! strcmp (suffix
, "*link_command"))
2202 link_command_spec
= spec
;
2204 set_spec (suffix
+ 1, spec
);
2208 /* Add this pair to the vector. */
2210 = xrealloc (compilers
,
2211 (n_compilers
+ 2) * sizeof (struct compiler
));
2213 compilers
[n_compilers
].suffix
= suffix
;
2214 compilers
[n_compilers
].spec
= spec
;
2216 memset (&compilers
[n_compilers
], 0, sizeof compilers
[n_compilers
]);
2220 link_command_spec
= spec
;
2223 if (link_command_spec
== 0)
2224 fatal ("spec file has no spec for linking");
2227 /* Record the names of temporary files we tell compilers to write,
2228 and delete them at the end of the run. */
2230 /* This is the common prefix we use to make temp file names.
2231 It is chosen once for each run of this program.
2232 It is substituted into a spec by %g or %j.
2233 Thus, all temp file names contain this prefix.
2234 In practice, all temp file names start with this prefix.
2236 This prefix comes from the envvar TMPDIR if it is defined;
2237 otherwise, from the P_tmpdir macro if that is defined;
2238 otherwise, in /usr/tmp or /tmp;
2239 or finally the current directory if all else fails. */
2241 static const char *temp_filename
;
2243 /* Length of the prefix. */
2245 static int temp_filename_length
;
2247 /* Define the list of temporary files to delete. */
2252 struct temp_file
*next
;
2255 /* Queue of files to delete on success or failure of compilation. */
2256 static struct temp_file
*always_delete_queue
;
2257 /* Queue of files to delete on failure of compilation. */
2258 static struct temp_file
*failure_delete_queue
;
2260 /* Record FILENAME as a file to be deleted automatically.
2261 ALWAYS_DELETE nonzero means delete it if all compilation succeeds;
2262 otherwise delete it in any case.
2263 FAIL_DELETE nonzero means delete it if a compilation step fails;
2264 otherwise delete it in any case. */
2267 record_temp_file (const char *filename
, int always_delete
, int fail_delete
)
2269 char *const name
= xstrdup (filename
);
2273 struct temp_file
*temp
;
2274 for (temp
= always_delete_queue
; temp
; temp
= temp
->next
)
2275 if (! strcmp (name
, temp
->name
))
2278 temp
= xmalloc (sizeof (struct temp_file
));
2279 temp
->next
= always_delete_queue
;
2281 always_delete_queue
= temp
;
2288 struct temp_file
*temp
;
2289 for (temp
= failure_delete_queue
; temp
; temp
= temp
->next
)
2290 if (! strcmp (name
, temp
->name
))
2293 temp
= xmalloc (sizeof (struct temp_file
));
2294 temp
->next
= failure_delete_queue
;
2296 failure_delete_queue
= temp
;
2302 /* Delete all the temporary files whose names we previously recorded. */
2304 #ifndef DELETE_IF_ORDINARY
2305 #define DELETE_IF_ORDINARY(NAME,ST,VERBOSE_FLAG) \
2308 if (stat (NAME, &ST) >= 0 && S_ISREG (ST.st_mode)) \
2309 if (unlink (NAME) < 0) \
2311 perror_with_name (NAME); \
2316 delete_if_ordinary (const char *name
)
2322 printf ("Delete %s? (y or n) ", name
);
2326 while ((c
= getchar ()) != '\n' && c
!= EOF
)
2329 if (i
== 'y' || i
== 'Y')
2331 DELETE_IF_ORDINARY (name
, st
, verbose_flag
);
2335 delete_temp_files (void)
2337 struct temp_file
*temp
;
2339 for (temp
= always_delete_queue
; temp
; temp
= temp
->next
)
2340 delete_if_ordinary (temp
->name
);
2341 always_delete_queue
= 0;
2344 /* Delete all the files to be deleted on error. */
2347 delete_failure_queue (void)
2349 struct temp_file
*temp
;
2351 for (temp
= failure_delete_queue
; temp
; temp
= temp
->next
)
2352 delete_if_ordinary (temp
->name
);
2356 clear_failure_queue (void)
2358 failure_delete_queue
= 0;
2361 /* Call CALLBACK for each path in PATHS, breaking out early if CALLBACK
2363 If DO_MULTI is true iterate over the paths twice, first with multilib
2364 suffix then without, otherwise iterate over the paths once without
2365 adding a multilib suffix. When DO_MULTI is true, some attempt is made
2366 to avoid visiting the same path twice, but we could do better. For
2367 instance, /usr/lib/../lib is considered different from /usr/lib.
2368 At least EXTRA_SPACE chars past the end of the path passed to
2369 CALLBACK are available for use by the callback.
2370 CALLBACK_INFO allows extra parameters to be passed to CALLBACK.
2372 Returns the value returned by CALLBACK. */
2375 for_each_path (const struct path_prefix
*paths
,
2378 void *(*callback
) (char *, void *),
2379 void *callback_info
)
2381 struct prefix_list
*pl
;
2382 const char *multi_dir
= NULL
;
2383 const char *multi_os_dir
= NULL
;
2384 const char *multi_suffix
;
2385 const char *just_multi_suffix
;
2388 bool skip_multi_dir
= false;
2389 bool skip_multi_os_dir
= false;
2391 multi_suffix
= machine_suffix
;
2392 just_multi_suffix
= just_machine_suffix
;
2393 if (do_multi
&& multilib_dir
&& strcmp (multilib_dir
, ".") != 0)
2395 multi_dir
= concat (multilib_dir
, dir_separator_str
, NULL
);
2396 multi_suffix
= concat (multi_suffix
, multi_dir
, NULL
);
2397 just_multi_suffix
= concat (just_multi_suffix
, multi_dir
, NULL
);
2399 if (do_multi
&& multilib_os_dir
&& strcmp (multilib_os_dir
, ".") != 0)
2400 multi_os_dir
= concat (multilib_os_dir
, dir_separator_str
, NULL
);
2404 size_t multi_dir_len
= 0;
2405 size_t multi_os_dir_len
= 0;
2407 size_t just_suffix_len
;
2411 multi_dir_len
= strlen (multi_dir
);
2413 multi_os_dir_len
= strlen (multi_os_dir
);
2414 suffix_len
= strlen (multi_suffix
);
2415 just_suffix_len
= strlen (just_multi_suffix
);
2419 len
= paths
->max_len
+ extra_space
+ 1;
2420 if (suffix_len
> multi_os_dir_len
)
2423 len
+= multi_os_dir_len
;
2424 path
= xmalloc (len
);
2427 for (pl
= paths
->plist
; pl
!= 0; pl
= pl
->next
)
2429 len
= strlen (pl
->prefix
);
2430 memcpy (path
, pl
->prefix
, len
);
2432 /* Look first in MACHINE/VERSION subdirectory. */
2433 if (!skip_multi_dir
)
2435 memcpy (path
+ len
, multi_suffix
, suffix_len
+ 1);
2436 ret
= callback (path
, callback_info
);
2441 /* Some paths are tried with just the machine (ie. target)
2442 subdir. This is used for finding as, ld, etc. */
2444 && pl
->require_machine_suffix
== 2)
2446 memcpy (path
+ len
, just_multi_suffix
, just_suffix_len
+ 1);
2447 ret
= callback (path
, callback_info
);
2452 /* Now try the base path. */
2453 if (!pl
->require_machine_suffix
2454 && !(pl
->os_multilib
? skip_multi_os_dir
: skip_multi_dir
))
2456 const char *this_multi
;
2457 size_t this_multi_len
;
2459 if (pl
->os_multilib
)
2461 this_multi
= multi_os_dir
;
2462 this_multi_len
= multi_os_dir_len
;
2466 this_multi
= multi_dir
;
2467 this_multi_len
= multi_dir_len
;
2471 memcpy (path
+ len
, this_multi
, this_multi_len
+ 1);
2475 ret
= callback (path
, callback_info
);
2483 if (multi_dir
== NULL
&& multi_os_dir
== NULL
)
2486 /* Run through the paths again, this time without multilibs.
2487 Don't repeat any we have already seen. */
2490 free ((char *) multi_dir
);
2492 free ((char *) multi_suffix
);
2493 multi_suffix
= machine_suffix
;
2494 free ((char *) just_multi_suffix
);
2495 just_multi_suffix
= just_machine_suffix
;
2498 skip_multi_dir
= true;
2501 free ((char *) multi_os_dir
);
2502 multi_os_dir
= NULL
;
2505 skip_multi_os_dir
= true;
2510 free ((char *) multi_dir
);
2511 free ((char *) multi_suffix
);
2512 free ((char *) just_multi_suffix
);
2515 free ((char *) multi_os_dir
);
2521 /* Callback for build_search_list. Adds path to obstack being built. */
2523 struct add_to_obstack_info
{
2530 add_to_obstack (char *path
, void *data
)
2532 struct add_to_obstack_info
*info
= data
;
2534 if (info
->check_dir
&& !is_directory (path
, false))
2537 if (!info
->first_time
)
2538 obstack_1grow (info
->ob
, PATH_SEPARATOR
);
2540 obstack_grow (info
->ob
, path
, strlen (path
));
2542 info
->first_time
= false;
2546 /* Build a list of search directories from PATHS.
2547 PREFIX is a string to prepend to the list.
2548 If CHECK_DIR_P is true we ensure the directory exists.
2549 If DO_MULTI is true, multilib paths are output first, then
2551 This is used mostly by putenv_from_prefixes so we use `collect_obstack'.
2552 It is also used by the --print-search-dirs flag. */
2555 build_search_list (const struct path_prefix
*paths
, const char *prefix
,
2556 bool check_dir
, bool do_multi
)
2558 struct add_to_obstack_info info
;
2560 info
.ob
= &collect_obstack
;
2561 info
.check_dir
= check_dir
;
2562 info
.first_time
= true;
2564 obstack_grow (&collect_obstack
, prefix
, strlen (prefix
));
2565 obstack_1grow (&collect_obstack
, '=');
2567 for_each_path (paths
, do_multi
, 0, add_to_obstack
, &info
);
2569 obstack_1grow (&collect_obstack
, '\0');
2570 return XOBFINISH (&collect_obstack
, char *);
2573 /* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
2577 putenv_from_prefixes (const struct path_prefix
*paths
, const char *env_var
,
2580 putenv (build_search_list (paths
, env_var
, true, do_multi
));
2583 /* Check whether NAME can be accessed in MODE. This is like access,
2584 except that it never considers directories to be executable. */
2587 access_check (const char *name
, int mode
)
2593 if (stat (name
, &st
) < 0
2594 || S_ISDIR (st
.st_mode
))
2598 return access (name
, mode
);
2601 /* Callback for find_a_file. Appends the file name to the directory
2602 path. If the resulting file exists in the right mode, return the
2603 full pathname to the file. */
2605 struct file_at_path_info
{
2614 file_at_path (char *path
, void *data
)
2616 struct file_at_path_info
*info
= data
;
2617 size_t len
= strlen (path
);
2619 memcpy (path
+ len
, info
->name
, info
->name_len
);
2620 len
+= info
->name_len
;
2622 /* Some systems have a suffix for executable files.
2623 So try appending that first. */
2624 if (info
->suffix_len
)
2626 memcpy (path
+ len
, info
->suffix
, info
->suffix_len
+ 1);
2627 if (access_check (path
, info
->mode
) == 0)
2632 if (access_check (path
, info
->mode
) == 0)
2638 /* Search for NAME using the prefix list PREFIXES. MODE is passed to
2639 access to check permissions. If DO_MULTI is true, search multilib
2640 paths then non-multilib paths, otherwise do not search multilib paths.
2641 Return 0 if not found, otherwise return its name, allocated with malloc. */
2644 find_a_file (const struct path_prefix
*pprefix
, const char *name
, int mode
,
2647 struct file_at_path_info info
;
2649 #ifdef DEFAULT_ASSEMBLER
2650 if (! strcmp (name
, "as") && access (DEFAULT_ASSEMBLER
, mode
) == 0)
2651 return xstrdup (DEFAULT_ASSEMBLER
);
2654 #ifdef DEFAULT_LINKER
2655 if (! strcmp(name
, "ld") && access (DEFAULT_LINKER
, mode
) == 0)
2656 return xstrdup (DEFAULT_LINKER
);
2659 /* Determine the filename to execute (special case for absolute paths). */
2661 if (IS_ABSOLUTE_PATH (name
))
2663 if (access (name
, mode
) == 0)
2664 return xstrdup (name
);
2670 info
.suffix
= (mode
& X_OK
) != 0 ? HOST_EXECUTABLE_SUFFIX
: "";
2671 info
.name_len
= strlen (info
.name
);
2672 info
.suffix_len
= strlen (info
.suffix
);
2675 return for_each_path (pprefix
, do_multi
, info
.name_len
+ info
.suffix_len
,
2676 file_at_path
, &info
);
2679 /* Ranking of prefixes in the sort list. -B prefixes are put before
2682 enum path_prefix_priority
2684 PREFIX_PRIORITY_B_OPT
,
2685 PREFIX_PRIORITY_LAST
2688 /* Add an entry for PREFIX in PLIST. The PLIST is kept in ascending
2689 order according to PRIORITY. Within each PRIORITY, new entries are
2692 If WARN is nonzero, we will warn if no file is found
2693 through this prefix. WARN should point to an int
2694 which will be set to 1 if this entry is used.
2696 COMPONENT is the value to be passed to update_path.
2698 REQUIRE_MACHINE_SUFFIX is 1 if this prefix can't be used without
2699 the complete value of machine_suffix.
2700 2 means try both machine_suffix and just_machine_suffix. */
2703 add_prefix (struct path_prefix
*pprefix
, const char *prefix
,
2704 const char *component
, /* enum prefix_priority */ int priority
,
2705 int require_machine_suffix
, int os_multilib
)
2707 struct prefix_list
*pl
, **prev
;
2710 for (prev
= &pprefix
->plist
;
2711 (*prev
) != NULL
&& (*prev
)->priority
<= priority
;
2712 prev
= &(*prev
)->next
)
2715 /* Keep track of the longest prefix. */
2717 prefix
= update_path (prefix
, component
);
2718 len
= strlen (prefix
);
2719 if (len
> pprefix
->max_len
)
2720 pprefix
->max_len
= len
;
2722 pl
= xmalloc (sizeof (struct prefix_list
));
2723 pl
->prefix
= prefix
;
2724 pl
->require_machine_suffix
= require_machine_suffix
;
2725 pl
->priority
= priority
;
2726 pl
->os_multilib
= os_multilib
;
2728 /* Insert after PREV. */
2733 /* Same as add_prefix, but prepending target_system_root to prefix. */
2735 add_sysrooted_prefix (struct path_prefix
*pprefix
, const char *prefix
,
2736 const char *component
,
2737 /* enum prefix_priority */ int priority
,
2738 int require_machine_suffix
, int os_multilib
)
2740 if (!IS_ABSOLUTE_PATH (prefix
))
2741 fatal ("system path '%s' is not absolute", prefix
);
2743 if (target_system_root
)
2745 if (target_sysroot_suffix
)
2746 prefix
= concat (target_sysroot_suffix
, prefix
, NULL
);
2747 prefix
= concat (target_system_root
, prefix
, NULL
);
2749 /* We have to override this because GCC's notion of sysroot
2750 moves along with GCC. */
2754 add_prefix (pprefix
, prefix
, component
, priority
,
2755 require_machine_suffix
, os_multilib
);
2758 /* Execute the command specified by the arguments on the current line of spec.
2759 When using pipes, this includes several piped-together commands
2760 with `|' between them.
2762 Return 0 if successful, -1 if failed. */
2768 int n_commands
; /* # of command. */
2770 struct pex_obj
*pex
;
2773 const char *prog
; /* program name. */
2774 const char **argv
; /* vector of args. */
2777 struct command
*commands
; /* each command buffer with above info. */
2779 gcc_assert (!processing_spec_function
);
2781 /* Count # of piped commands. */
2782 for (n_commands
= 1, i
= 0; i
< argbuf_index
; i
++)
2783 if (strcmp (argbuf
[i
], "|") == 0)
2786 /* Get storage for each command. */
2787 commands
= alloca (n_commands
* sizeof (struct command
));
2789 /* Split argbuf into its separate piped processes,
2790 and record info about each one.
2791 Also search for the programs that are to be run. */
2793 commands
[0].prog
= argbuf
[0]; /* first command. */
2794 commands
[0].argv
= &argbuf
[0];
2795 string
= find_a_file (&exec_prefixes
, commands
[0].prog
, X_OK
, false);
2798 commands
[0].argv
[0] = string
;
2800 for (n_commands
= 1, i
= 0; i
< argbuf_index
; i
++)
2801 if (strcmp (argbuf
[i
], "|") == 0)
2802 { /* each command. */
2803 #if defined (__MSDOS__) || defined (OS2) || defined (VMS)
2804 fatal ("-pipe not supported");
2806 argbuf
[i
] = 0; /* termination of command args. */
2807 commands
[n_commands
].prog
= argbuf
[i
+ 1];
2808 commands
[n_commands
].argv
= &argbuf
[i
+ 1];
2809 string
= find_a_file (&exec_prefixes
, commands
[n_commands
].prog
,
2812 commands
[n_commands
].argv
[0] = string
;
2816 argbuf
[argbuf_index
] = 0;
2818 /* If -v, print what we are about to do, and maybe query. */
2822 /* For help listings, put a blank line between sub-processes. */
2823 if (print_help_list
)
2824 fputc ('\n', stderr
);
2826 /* Print each piped command as a separate line. */
2827 for (i
= 0; i
< n_commands
; i
++)
2829 const char *const *j
;
2831 if (verbose_only_flag
)
2833 for (j
= commands
[i
].argv
; *j
; j
++)
2836 fprintf (stderr
, " \"");
2837 for (p
= *j
; *p
; ++p
)
2839 if (*p
== '"' || *p
== '\\' || *p
== '$')
2840 fputc ('\\', stderr
);
2843 fputc ('"', stderr
);
2847 for (j
= commands
[i
].argv
; *j
; j
++)
2848 fprintf (stderr
, " %s", *j
);
2850 /* Print a pipe symbol after all but the last command. */
2851 if (i
+ 1 != n_commands
)
2852 fprintf (stderr
, " |");
2853 fprintf (stderr
, "\n");
2856 if (verbose_only_flag
!= 0)
2858 /* verbose_only_flag should act as if the spec was
2859 executed, so increment execution_count before
2860 returning. This prevents spurious warnings about
2861 unused linker input files, etc. */
2866 notice ("\nGo ahead? (y or n) ");
2870 while (getchar () != '\n')
2873 if (i
!= 'y' && i
!= 'Y')
2878 #ifdef ENABLE_VALGRIND_CHECKING
2879 /* Run the each command through valgrind. To simplify prepending the
2880 path to valgrind and the option "-q" (for quiet operation unless
2881 something triggers), we allocate a separate argv array. */
2883 for (i
= 0; i
< n_commands
; i
++)
2889 for (argc
= 0; commands
[i
].argv
[argc
] != NULL
; argc
++)
2892 argv
= alloca ((argc
+ 3) * sizeof (char *));
2894 argv
[0] = VALGRIND_PATH
;
2896 for (j
= 2; j
< argc
+ 2; j
++)
2897 argv
[j
] = commands
[i
].argv
[j
- 2];
2900 commands
[i
].argv
= argv
;
2901 commands
[i
].prog
= argv
[0];
2905 /* Run each piped subprocess. */
2907 pex
= pex_init (PEX_USE_PIPES
| (report_times
? PEX_RECORD_TIMES
: 0),
2908 programname
, temp_filename
);
2910 pfatal_with_name (_("pex_init failed"));
2912 for (i
= 0; i
< n_commands
; i
++)
2916 const char *string
= commands
[i
].argv
[0];
2918 errmsg
= pex_run (pex
,
2919 ((i
+ 1 == n_commands
? PEX_LAST
: 0)
2920 | (string
== commands
[i
].prog
? PEX_SEARCH
: 0)),
2921 string
, (char * const *) commands
[i
].argv
,
2930 pfatal_with_name (errmsg
);
2934 if (string
!= commands
[i
].prog
)
2935 free ((void *) string
);
2940 /* Wait for all the subprocesses to finish. */
2944 struct pex_time
*times
= NULL
;
2947 statuses
= alloca (n_commands
* sizeof (int));
2948 if (!pex_get_status (pex
, n_commands
, statuses
))
2949 pfatal_with_name (_("failed to get exit status"));
2953 times
= alloca (n_commands
* sizeof (struct pex_time
));
2954 if (!pex_get_times (pex
, n_commands
, times
))
2955 pfatal_with_name (_("failed to get process times"));
2960 for (i
= 0; i
< n_commands
; ++i
)
2962 int status
= statuses
[i
];
2964 if (WIFSIGNALED (status
))
2967 /* SIGPIPE is a special case. It happens in -pipe mode
2968 when the compiler dies before the preprocessor is done,
2969 or the assembler dies before the compiler is done.
2970 There's generally been an error already, and this is
2971 just fallout. So don't generate another error unless
2972 we would otherwise have succeeded. */
2973 if (WTERMSIG (status
) == SIGPIPE
2974 && (signal_count
|| greatest_status
>= MIN_FATAL_STATUS
))
2982 Internal error: %s (program %s)\n\
2983 Please submit a full bug report.\n\
2984 See %s for instructions.",
2985 strsignal (WTERMSIG (status
)), commands
[i
].prog
,
2988 else if (WIFEXITED (status
)
2989 && WEXITSTATUS (status
) >= MIN_FATAL_STATUS
)
2991 if (WEXITSTATUS (status
) > greatest_status
)
2992 greatest_status
= WEXITSTATUS (status
);
2998 struct pex_time
*pt
= ×
[i
];
3001 ut
= ((double) pt
->user_seconds
3002 + (double) pt
->user_microseconds
/ 1.0e6
);
3003 st
= ((double) pt
->system_seconds
3004 + (double) pt
->system_microseconds
/ 1.0e6
);
3007 notice ("# %s %.2f %.2f\n", commands
[i
].prog
, ut
, st
);
3015 /* Find all the switches given to us
3016 and make a vector describing them.
3017 The elements of the vector are strings, one per switch given.
3018 If a switch uses following arguments, then the `part1' field
3019 is the switch itself and the `args' field
3020 is a null-terminated vector containing the following arguments.
3021 The `live_cond' field is:
3023 1 if the switch is true in a conditional spec,
3024 -1 if false (overridden by a later switch)
3025 -2 if this switch should be ignored (used in %<S)
3026 The `validated' field is nonzero if any spec has looked at this switch;
3027 if it remains zero at the end of the run, it must be meaningless. */
3030 #define SWITCH_FALSE -1
3031 #define SWITCH_IGNORE -2
3032 #define SWITCH_LIVE 1
3039 unsigned char validated
;
3040 unsigned char ordering
;
3043 static struct switchstr
*switches
;
3045 static int n_switches
;
3047 /* Language is one of three things:
3049 1) The name of a real programming language.
3050 2) NULL, indicating that no one has figured out
3052 3) '*', indicating that the file should be passed
3057 const char *language
;
3058 struct compiler
*incompiler
;
3063 /* Also a vector of input files specified. */
3065 static struct infile
*infiles
;
3069 /* True if multiple input files are being compiled to a single
3072 static bool combine_inputs
;
3074 /* This counts the number of libraries added by lang_specific_driver, so that
3075 we can tell if there were any user supplied any files or libraries. */
3077 static int added_libraries
;
3079 /* And a vector of corresponding output files is made up later. */
3081 const char **outfiles
;
3083 #if defined(HAVE_TARGET_OBJECT_SUFFIX) || defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
3085 /* Convert NAME to a new name if it is the standard suffix. DO_EXE
3086 is true if we should look for an executable suffix. DO_OBJ
3087 is true if we should look for an object suffix. */
3090 convert_filename (const char *name
, int do_exe ATTRIBUTE_UNUSED
,
3091 int do_obj ATTRIBUTE_UNUSED
)
3093 #if defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
3101 len
= strlen (name
);
3103 #ifdef HAVE_TARGET_OBJECT_SUFFIX
3104 /* Convert x.o to x.obj if TARGET_OBJECT_SUFFIX is ".obj". */
3105 if (do_obj
&& len
> 2
3106 && name
[len
- 2] == '.'
3107 && name
[len
- 1] == 'o')
3109 obstack_grow (&obstack
, name
, len
- 2);
3110 obstack_grow0 (&obstack
, TARGET_OBJECT_SUFFIX
, strlen (TARGET_OBJECT_SUFFIX
));
3111 name
= XOBFINISH (&obstack
, const char *);
3115 #if defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
3116 /* If there is no filetype, make it the executable suffix (which includes
3117 the "."). But don't get confused if we have just "-o". */
3118 if (! do_exe
|| TARGET_EXECUTABLE_SUFFIX
[0] == 0 || (len
== 2 && name
[0] == '-'))
3121 for (i
= len
- 1; i
>= 0; i
--)
3122 if (IS_DIR_SEPARATOR (name
[i
]))
3125 for (i
++; i
< len
; i
++)
3129 obstack_grow (&obstack
, name
, len
);
3130 obstack_grow0 (&obstack
, TARGET_EXECUTABLE_SUFFIX
,
3131 strlen (TARGET_EXECUTABLE_SUFFIX
));
3132 name
= XOBFINISH (&obstack
, const char *);
3139 /* Display the command line switches accepted by gcc. */
3143 printf (_("Usage: %s [options] file...\n"), programname
);
3144 fputs (_("Options:\n"), stdout
);
3146 fputs (_(" -pass-exit-codes Exit with highest error code from a phase\n"), stdout
);
3147 fputs (_(" --help Display this information\n"), stdout
);
3148 fputs (_(" --target-help Display target specific command line options\n"), stdout
);
3150 fputs (_(" (Use '-v --help' to display command line options of sub-processes)\n"), stdout
);
3151 fputs (_(" -dumpspecs Display all of the built in spec strings\n"), stdout
);
3152 fputs (_(" -dumpversion Display the version of the compiler\n"), stdout
);
3153 fputs (_(" -dumpmachine Display the compiler's target processor\n"), stdout
);
3154 fputs (_(" -print-search-dirs Display the directories in the compiler's search path\n"), stdout
);
3155 fputs (_(" -print-libgcc-file-name Display the name of the compiler's companion library\n"), stdout
);
3156 fputs (_(" -print-file-name=<lib> Display the full path to library <lib>\n"), stdout
);
3157 fputs (_(" -print-prog-name=<prog> Display the full path to compiler component <prog>\n"), stdout
);
3158 fputs (_(" -print-multi-directory Display the root directory for versions of libgcc\n"), stdout
);
3160 -print-multi-lib Display the mapping between command line options and\n\
3161 multiple library search directories\n"), stdout
);
3162 fputs (_(" -print-multi-os-directory Display the relative path to OS libraries\n"), stdout
);
3163 fputs (_(" -Wa,<options> Pass comma-separated <options> on to the assembler\n"), stdout
);
3164 fputs (_(" -Wp,<options> Pass comma-separated <options> on to the preprocessor\n"), stdout
);
3165 fputs (_(" -Wl,<options> Pass comma-separated <options> on to the linker\n"), stdout
);
3166 fputs (_(" -Xassembler <arg> Pass <arg> on to the assembler\n"), stdout
);
3167 fputs (_(" -Xpreprocessor <arg> Pass <arg> on to the preprocessor\n"), stdout
);
3168 fputs (_(" -Xlinker <arg> Pass <arg> on to the linker\n"), stdout
);
3169 fputs (_(" -combine Pass multiple source files to compiler at once\n"), stdout
);
3170 fputs (_(" -save-temps Do not delete intermediate files\n"), stdout
);
3171 fputs (_(" -pipe Use pipes rather than intermediate files\n"), stdout
);
3172 fputs (_(" -time Time the execution of each subprocess\n"), stdout
);
3173 fputs (_(" -specs=<file> Override built-in specs with the contents of <file>\n"), stdout
);
3174 fputs (_(" -std=<standard> Assume that the input sources are for <standard>\n"), stdout
);
3176 --sysroot=<directory> Use <directory> as the root directory for headers\n\
3177 for headers and libraries\n"), stdout
);
3178 fputs (_(" -B <directory> Add <directory> to the compiler's search paths\n"), stdout
);
3179 fputs (_(" -b <machine> Run gcc for target <machine>, if installed\n"), stdout
);
3180 fputs (_(" -V <version> Run gcc version number <version>, if installed\n"), stdout
);
3181 fputs (_(" -v Display the programs invoked by the compiler\n"), stdout
);
3182 fputs (_(" -### Like -v but options quoted and commands not executed\n"), stdout
);
3183 fputs (_(" -E Preprocess only; do not compile, assemble or link\n"), stdout
);
3184 fputs (_(" -S Compile only; do not assemble or link\n"), stdout
);
3185 fputs (_(" -c Compile and assemble, but do not link\n"), stdout
);
3186 fputs (_(" -o <file> Place the output into <file>\n"), stdout
);
3188 -x <language> Specify the language of the following input files\n\
3189 Permissible languages include: c c++ assembler none\n\
3190 'none' means revert to the default behavior of\n\
3191 guessing the language based on the file's extension\n\
3195 \nOptions starting with -g, -f, -m, -O, -W, or --param are automatically\n\
3196 passed on to the various sub-processes invoked by %s. In order to pass\n\
3197 other options on to these processes the -W<letter> options must be used.\n\
3200 /* The rest of the options are displayed by invocations of the various
3205 add_preprocessor_option (const char *option
, int len
)
3207 n_preprocessor_options
++;
3209 if (! preprocessor_options
)
3210 preprocessor_options
= xmalloc (n_preprocessor_options
* sizeof (char *));
3212 preprocessor_options
= xrealloc (preprocessor_options
,
3213 n_preprocessor_options
* sizeof (char *));
3215 preprocessor_options
[n_preprocessor_options
- 1] =
3216 save_string (option
, len
);
3220 add_assembler_option (const char *option
, int len
)
3222 n_assembler_options
++;
3224 if (! assembler_options
)
3225 assembler_options
= xmalloc (n_assembler_options
* sizeof (char *));
3227 assembler_options
= xrealloc (assembler_options
,
3228 n_assembler_options
* sizeof (char *));
3230 assembler_options
[n_assembler_options
- 1] = save_string (option
, len
);
3234 add_linker_option (const char *option
, int len
)
3238 if (! linker_options
)
3239 linker_options
= xmalloc (n_linker_options
* sizeof (char *));
3241 linker_options
= xrealloc (linker_options
,
3242 n_linker_options
* sizeof (char *));
3244 linker_options
[n_linker_options
- 1] = save_string (option
, len
);
3247 /* Create the vector `switches' and its contents.
3248 Store its length in `n_switches'. */
3251 process_command (int argc
, const char **argv
)
3256 const char *spec_lang
= 0;
3257 int last_language_n_infiles
;
3258 int lang_n_infiles
= 0;
3259 #ifdef MODIFY_TARGET_NAME
3260 int is_modify_target_name
;
3264 GET_ENVIRONMENT (gcc_exec_prefix
, "GCC_EXEC_PREFIX");
3268 added_libraries
= 0;
3270 /* Figure compiler version from version string. */
3272 compiler_version
= temp1
= xstrdup (version_string
);
3274 for (; *temp1
; ++temp1
)
3283 /* If there is a -V or -b option (or both), process it now, before
3284 trying to interpret the rest of the command line.
3285 Use heuristic that all configuration names must have at least
3286 one dash '-'. This allows us to pass options starting with -b. */
3287 if (argc
> 1 && argv
[1][0] == '-'
3288 && (argv
[1][1] == 'V' ||
3289 ((argv
[1][1] == 'b') && (NULL
!= strchr(argv
[1] + 2,'-')))))
3291 const char *new_version
= DEFAULT_TARGET_VERSION
;
3292 const char *new_machine
= DEFAULT_TARGET_MACHINE
;
3293 const char *progname
= argv
[0];
3298 while (argc
> 1 && argv
[1][0] == '-'
3299 && (argv
[1][1] == 'V' ||
3300 ((argv
[1][1] == 'b') && ( NULL
!= strchr(argv
[1] + 2,'-')))))
3302 char opt
= argv
[1][1];
3304 if (argv
[1][2] != '\0')
3317 fatal ("'-%c' option must have argument", opt
);
3324 for (baselen
= strlen (progname
); baselen
> 0; baselen
--)
3325 if (IS_DIR_SEPARATOR (progname
[baselen
-1]))
3327 new_argv0
= xmemdup (progname
, baselen
,
3328 baselen
+ concat_length (new_version
, new_machine
,
3329 "-gcc-", NULL
) + 1);
3330 strcpy (new_argv0
+ baselen
, new_machine
);
3331 strcat (new_argv0
, "-gcc-");
3332 strcat (new_argv0
, new_version
);
3334 new_argv
= xmemdup (argv
, (argc
+ 1) * sizeof (argv
[0]),
3335 (argc
+ 1) * sizeof (argv
[0]));
3336 new_argv
[0] = new_argv0
;
3338 execvp (new_argv0
, new_argv
);
3339 fatal ("couldn't run '%s': %s", new_argv0
, xstrerror (errno
));
3342 /* Set up the default search paths. If there is no GCC_EXEC_PREFIX,
3343 see if we can create it from the pathname specified in argv[0]. */
3345 gcc_libexec_prefix
= standard_libexec_prefix
;
3347 /* FIXME: make_relative_prefix doesn't yet work for VMS. */
3348 if (!gcc_exec_prefix
)
3350 gcc_exec_prefix
= make_relative_prefix (argv
[0], standard_bindir_prefix
,
3351 standard_exec_prefix
);
3352 gcc_libexec_prefix
= make_relative_prefix (argv
[0],
3353 standard_bindir_prefix
,
3354 standard_libexec_prefix
);
3355 if (gcc_exec_prefix
)
3356 putenv (concat ("GCC_EXEC_PREFIX=", gcc_exec_prefix
, NULL
));
3359 gcc_libexec_prefix
= make_relative_prefix (gcc_exec_prefix
,
3360 standard_exec_prefix
,
3361 standard_libexec_prefix
);
3365 if (gcc_exec_prefix
)
3367 int len
= strlen (gcc_exec_prefix
);
3369 if (len
> (int) sizeof ("/lib/gcc/") - 1
3370 && (IS_DIR_SEPARATOR (gcc_exec_prefix
[len
-1])))
3372 temp
= gcc_exec_prefix
+ len
- sizeof ("/lib/gcc/") + 1;
3373 if (IS_DIR_SEPARATOR (*temp
)
3374 && strncmp (temp
+ 1, "lib", 3) == 0
3375 && IS_DIR_SEPARATOR (temp
[4])
3376 && strncmp (temp
+ 5, "gcc", 3) == 0)
3377 len
-= sizeof ("/lib/gcc/") - 1;
3380 set_std_prefix (gcc_exec_prefix
, len
);
3381 add_prefix (&exec_prefixes
, gcc_libexec_prefix
, "GCC",
3382 PREFIX_PRIORITY_LAST
, 0, 0);
3383 add_prefix (&startfile_prefixes
, gcc_exec_prefix
, "GCC",
3384 PREFIX_PRIORITY_LAST
, 0, 0);
3387 /* COMPILER_PATH and LIBRARY_PATH have values
3388 that are lists of directory names with colons. */
3390 GET_ENVIRONMENT (temp
, "COMPILER_PATH");
3393 const char *startp
, *endp
;
3394 char *nstore
= alloca (strlen (temp
) + 3);
3396 startp
= endp
= temp
;
3399 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
3401 strncpy (nstore
, startp
, endp
- startp
);
3403 strcpy (nstore
, concat (".", dir_separator_str
, NULL
));
3404 else if (!IS_DIR_SEPARATOR (endp
[-1]))
3406 nstore
[endp
- startp
] = DIR_SEPARATOR
;
3407 nstore
[endp
- startp
+ 1] = 0;
3410 nstore
[endp
- startp
] = 0;
3411 add_prefix (&exec_prefixes
, nstore
, 0,
3412 PREFIX_PRIORITY_LAST
, 0, 0);
3413 add_prefix (&include_prefixes
, nstore
, 0,
3414 PREFIX_PRIORITY_LAST
, 0, 0);
3417 endp
= startp
= endp
+ 1;
3424 GET_ENVIRONMENT (temp
, LIBRARY_PATH_ENV
);
3425 if (temp
&& *cross_compile
== '0')
3427 const char *startp
, *endp
;
3428 char *nstore
= alloca (strlen (temp
) + 3);
3430 startp
= endp
= temp
;
3433 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
3435 strncpy (nstore
, startp
, endp
- startp
);
3437 strcpy (nstore
, concat (".", dir_separator_str
, NULL
));
3438 else if (!IS_DIR_SEPARATOR (endp
[-1]))
3440 nstore
[endp
- startp
] = DIR_SEPARATOR
;
3441 nstore
[endp
- startp
+ 1] = 0;
3444 nstore
[endp
- startp
] = 0;
3445 add_prefix (&startfile_prefixes
, nstore
, NULL
,
3446 PREFIX_PRIORITY_LAST
, 0, 1);
3449 endp
= startp
= endp
+ 1;
3456 /* Use LPATH like LIBRARY_PATH (for the CMU build program). */
3457 GET_ENVIRONMENT (temp
, "LPATH");
3458 if (temp
&& *cross_compile
== '0')
3460 const char *startp
, *endp
;
3461 char *nstore
= alloca (strlen (temp
) + 3);
3463 startp
= endp
= temp
;
3466 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
3468 strncpy (nstore
, startp
, endp
- startp
);
3470 strcpy (nstore
, concat (".", dir_separator_str
, NULL
));
3471 else if (!IS_DIR_SEPARATOR (endp
[-1]))
3473 nstore
[endp
- startp
] = DIR_SEPARATOR
;
3474 nstore
[endp
- startp
+ 1] = 0;
3477 nstore
[endp
- startp
] = 0;
3478 add_prefix (&startfile_prefixes
, nstore
, NULL
,
3479 PREFIX_PRIORITY_LAST
, 0, 1);
3482 endp
= startp
= endp
+ 1;
3489 /* Convert new-style -- options to old-style. */
3490 translate_options (&argc
, (const char *const **) &argv
);
3492 /* Do language-specific adjustment/addition of flags. */
3493 lang_specific_driver (&argc
, (const char *const **) &argv
, &added_libraries
);
3495 /* Scan argv twice. Here, the first time, just count how many switches
3496 there will be in their vector, and how many input files in theirs.
3497 Here we also parse the switches that cc itself uses (e.g. -v). */
3499 for (i
= 1; i
< argc
; i
++)
3501 if (! strcmp (argv
[i
], "-dumpspecs"))
3503 struct spec_list
*sl
;
3505 for (sl
= specs
; sl
; sl
= sl
->next
)
3506 printf ("*%s:\n%s\n\n", sl
->name
, *(sl
->ptr_spec
));
3507 if (link_command_spec
)
3508 printf ("*link_command:\n%s\n\n", link_command_spec
);
3511 else if (! strcmp (argv
[i
], "-dumpversion"))
3513 printf ("%s\n", spec_version
);
3516 else if (! strcmp (argv
[i
], "-dumpmachine"))
3518 printf ("%s\n", spec_machine
);
3521 else if (strcmp (argv
[i
], "-fversion") == 0)
3523 /* translate_options () has turned --version into -fversion. */
3524 printf (_("%s (GCC) %s\n"), programname
, version_string
);
3525 printf ("Copyright %s 2005 Free Software Foundation, Inc.\n",
3527 fputs (_("This is free software; see the source for copying conditions. There is NO\n\
3528 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n"),
3532 else if (strcmp (argv
[i
], "-fhelp") == 0)
3534 /* translate_options () has turned --help into -fhelp. */
3535 print_help_list
= 1;
3537 /* We will be passing a dummy file on to the sub-processes. */
3541 /* CPP driver cannot obtain switch from cc1_options. */
3543 add_preprocessor_option ("--help", 6);
3544 add_assembler_option ("--help", 6);
3545 add_linker_option ("--help", 6);
3547 else if (strcmp (argv
[i
], "-ftarget-help") == 0)
3549 /* translate_options() has turned --target-help into -ftarget-help. */
3550 target_help_flag
= 1;
3552 /* We will be passing a dummy file on to the sub-processes. */
3556 /* CPP driver cannot obtain switch from cc1_options. */
3558 add_preprocessor_option ("--target-help", 13);
3559 add_assembler_option ("--target-help", 13);
3560 add_linker_option ("--target-help", 13);
3562 else if (! strcmp (argv
[i
], "-pass-exit-codes"))
3564 pass_exit_codes
= 1;
3567 else if (! strcmp (argv
[i
], "-print-search-dirs"))
3568 print_search_dirs
= 1;
3569 else if (! strcmp (argv
[i
], "-print-libgcc-file-name"))
3570 print_file_name
= "libgcc.a";
3571 else if (! strncmp (argv
[i
], "-print-file-name=", 17))
3572 print_file_name
= argv
[i
] + 17;
3573 else if (! strncmp (argv
[i
], "-print-prog-name=", 17))
3574 print_prog_name
= argv
[i
] + 17;
3575 else if (! strcmp (argv
[i
], "-print-multi-lib"))
3576 print_multi_lib
= 1;
3577 else if (! strcmp (argv
[i
], "-print-multi-directory"))
3578 print_multi_directory
= 1;
3579 else if (! strcmp (argv
[i
], "-print-multi-os-directory"))
3580 print_multi_os_directory
= 1;
3581 else if (! strncmp (argv
[i
], "-Wa,", 4))
3584 /* Pass the rest of this option to the assembler. */
3586 /* Split the argument at commas. */
3588 for (j
= 4; argv
[i
][j
]; j
++)
3589 if (argv
[i
][j
] == ',')
3591 add_assembler_option (argv
[i
] + prev
, j
- prev
);
3595 /* Record the part after the last comma. */
3596 add_assembler_option (argv
[i
] + prev
, j
- prev
);
3598 else if (! strncmp (argv
[i
], "-Wp,", 4))
3601 /* Pass the rest of this option to the preprocessor. */
3603 /* Split the argument at commas. */
3605 for (j
= 4; argv
[i
][j
]; j
++)
3606 if (argv
[i
][j
] == ',')
3608 add_preprocessor_option (argv
[i
] + prev
, j
- prev
);
3612 /* Record the part after the last comma. */
3613 add_preprocessor_option (argv
[i
] + prev
, j
- prev
);
3615 else if (argv
[i
][0] == '+' && argv
[i
][1] == 'e')
3616 /* The +e options to the C++ front-end. */
3618 else if (strncmp (argv
[i
], "-Wl,", 4) == 0)
3621 /* Split the argument at commas. */
3622 for (j
= 3; argv
[i
][j
]; j
++)
3623 n_infiles
+= (argv
[i
][j
] == ',');
3625 else if (strcmp (argv
[i
], "-Xlinker") == 0)
3628 fatal ("argument to '-Xlinker' is missing");
3633 else if (strcmp (argv
[i
], "-Xpreprocessor") == 0)
3636 fatal ("argument to '-Xpreprocessor' is missing");
3638 add_preprocessor_option (argv
[i
+1], strlen (argv
[i
+1]));
3640 else if (strcmp (argv
[i
], "-Xassembler") == 0)
3643 fatal ("argument to '-Xassembler' is missing");
3645 add_assembler_option (argv
[i
+1], strlen (argv
[i
+1]));
3647 else if (strcmp (argv
[i
], "-l") == 0)
3650 fatal ("argument to '-l' is missing");
3655 else if (strncmp (argv
[i
], "-l", 2) == 0)
3657 else if (strcmp (argv
[i
], "-save-temps") == 0)
3659 save_temps_flag
= 1;
3662 else if (strcmp (argv
[i
], "-combine") == 0)
3667 else if (strcmp (argv
[i
], "-specs") == 0)
3669 struct user_specs
*user
= xmalloc (sizeof (struct user_specs
));
3671 fatal ("argument to '-specs' is missing");
3673 user
->next
= (struct user_specs
*) 0;
3674 user
->filename
= argv
[i
];
3675 if (user_specs_tail
)
3676 user_specs_tail
->next
= user
;
3678 user_specs_head
= user
;
3679 user_specs_tail
= user
;
3681 else if (strncmp (argv
[i
], "-specs=", 7) == 0)
3683 struct user_specs
*user
= xmalloc (sizeof (struct user_specs
));
3684 if (strlen (argv
[i
]) == 7)
3685 fatal ("argument to '-specs=' is missing");
3687 user
->next
= (struct user_specs
*) 0;
3688 user
->filename
= argv
[i
] + 7;
3689 if (user_specs_tail
)
3690 user_specs_tail
->next
= user
;
3692 user_specs_head
= user
;
3693 user_specs_tail
= user
;
3695 else if (strcmp (argv
[i
], "-time") == 0)
3697 else if (strcmp (argv
[i
], "-pipe") == 0)
3699 /* -pipe has to go into the switches array as well as
3704 else if (strcmp (argv
[i
], "-###") == 0)
3706 /* This is similar to -v except that there is no execution
3707 of the commands and the echoed arguments are quoted. It
3708 is intended for use in shell scripts to capture the
3709 driver-generated command line. */
3710 verbose_only_flag
++;
3713 else if (argv
[i
][0] == '-' && argv
[i
][1] != 0)
3715 const char *p
= &argv
[i
][1];
3721 if (NULL
== strchr(argv
[i
] + 2, '-')) break;
3723 fatal ("'-%c' must come at the start of the command line", c
);
3731 if (p
[1] == 0 && i
+ 1 == argc
)
3732 fatal ("argument to '-B' is missing");
3738 len
= strlen (value
);
3740 /* Catch the case where the user has forgotten to append a
3741 directory separator to the path. Note, they may be using
3742 -B to add an executable name prefix, eg "i386-elf-", in
3743 order to distinguish between multiple installations of
3744 GCC in the same directory. Hence we must check to see
3745 if appending a directory separator actually makes a
3746 valid directory name. */
3747 if (! IS_DIR_SEPARATOR (value
[len
- 1])
3748 && is_directory (value
, false))
3750 char *tmp
= xmalloc (len
+ 2);
3751 strcpy (tmp
, value
);
3752 tmp
[len
] = DIR_SEPARATOR
;
3757 /* As a kludge, if the arg is "[foo/]stageN/", just
3758 add "[foo/]include" to the include prefix. */
3761 && (IS_DIR_SEPARATOR (value
[len
- 8]))))
3762 && strncmp (value
+ len
- 7, "stage", 5) == 0
3763 && ISDIGIT (value
[len
- 2])
3764 && (IS_DIR_SEPARATOR (value
[len
- 1])))
3767 add_prefix (&include_prefixes
, "./", NULL
,
3768 PREFIX_PRIORITY_B_OPT
, 0, 0);
3771 char *string
= xmalloc (len
- 6);
3772 memcpy (string
, value
, len
- 7);
3773 string
[len
- 7] = 0;
3774 add_prefix (&include_prefixes
, string
, NULL
,
3775 PREFIX_PRIORITY_B_OPT
, 0, 0);
3779 add_prefix (&exec_prefixes
, value
, NULL
,
3780 PREFIX_PRIORITY_B_OPT
, 0, 0);
3781 add_prefix (&startfile_prefixes
, value
, NULL
,
3782 PREFIX_PRIORITY_B_OPT
, 0, 0);
3783 add_prefix (&include_prefixes
, value
, NULL
,
3784 PREFIX_PRIORITY_B_OPT
, 0, 0);
3789 case 'v': /* Print our subcommands and print versions. */
3791 /* If they do anything other than exactly `-v', don't set
3792 verbose_flag; rather, continue on to give the error. */
3810 #if defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
3815 /* Forward scan, just in case -S or -c is specified
3822 if (argv
[j
][0] == '-')
3824 if (SWITCH_CURTAILS_COMPILATION (argv
[j
][1])
3830 else if ((skip
= SWITCH_TAKES_ARG (argv
[j
][1])))
3831 j
+= skip
- (argv
[j
][2] != 0);
3832 else if ((skip
= WORD_SWITCH_TAKES_ARG (argv
[j
] + 1)))
3839 #if defined(HAVE_TARGET_EXECUTABLE_SUFFIX) || defined(HAVE_TARGET_OBJECT_SUFFIX)
3841 argv
[i
+ 1] = convert_filename (argv
[i
+ 1], ! have_c
, 0);
3843 argv
[i
] = convert_filename (argv
[i
], ! have_c
, 0);
3850 #ifdef MODIFY_TARGET_NAME
3851 is_modify_target_name
= 0;
3853 for (j
= 0; j
< ARRAY_SIZE (modify_target
); j
++)
3854 if (! strcmp (argv
[i
], modify_target
[j
].sw
))
3856 char *new_name
= xmalloc (strlen (modify_target
[j
].str
)
3857 + strlen (spec_machine
));
3860 int made_addition
= 0;
3862 is_modify_target_name
= 1;
3863 for (p
= spec_machine
, q
= new_name
; *p
!= 0; )
3865 if (modify_target
[j
].add_del
== DELETE
3866 && (! strncmp (q
, modify_target
[j
].str
,
3867 strlen (modify_target
[j
].str
))))
3868 p
+= strlen (modify_target
[j
].str
);
3869 else if (modify_target
[j
].add_del
== ADD
3870 && ! made_addition
&& *p
== '-')
3872 for (r
= modify_target
[j
].str
; *r
!= 0; )
3880 spec_machine
= new_name
;
3883 if (is_modify_target_name
)
3889 if (SWITCH_TAKES_ARG (c
) > (p
[1] != 0))
3890 i
+= SWITCH_TAKES_ARG (c
) - (p
[1] != 0);
3891 else if (WORD_SWITCH_TAKES_ARG (p
))
3892 i
+= WORD_SWITCH_TAKES_ARG (p
);
3902 if (save_temps_flag
&& use_pipes
)
3904 /* -save-temps overrides -pipe, so that temp files are produced */
3905 if (save_temps_flag
)
3906 error ("warning: -pipe ignored because -save-temps specified");
3910 /* Set up the search paths before we go looking for config files. */
3912 /* These come before the md prefixes so that we will find gcc's subcommands
3913 (such as cpp) rather than those of the host system. */
3914 /* Use 2 as fourth arg meaning try just the machine as a suffix,
3915 as well as trying the machine and the version. */
3917 add_prefix (&exec_prefixes
, standard_libexec_prefix
, "GCC",
3918 PREFIX_PRIORITY_LAST
, 1, 0);
3919 add_prefix (&exec_prefixes
, standard_libexec_prefix
, "BINUTILS",
3920 PREFIX_PRIORITY_LAST
, 2, 0);
3921 add_prefix (&exec_prefixes
, standard_exec_prefix
, "BINUTILS",
3922 PREFIX_PRIORITY_LAST
, 2, 0);
3923 add_prefix (&exec_prefixes
, standard_exec_prefix_1
, "BINUTILS",
3924 PREFIX_PRIORITY_LAST
, 2, 0);
3925 add_prefix (&exec_prefixes
, standard_exec_prefix_2
, "BINUTILS",
3926 PREFIX_PRIORITY_LAST
, 2, 0);
3929 add_prefix (&startfile_prefixes
, standard_exec_prefix
, "BINUTILS",
3930 PREFIX_PRIORITY_LAST
, 1, 0);
3931 add_prefix (&startfile_prefixes
, standard_exec_prefix_2
, "BINUTILS",
3932 PREFIX_PRIORITY_LAST
, 1, 0);
3934 tooldir_prefix
= concat (tooldir_base_prefix
, spec_machine
,
3935 dir_separator_str
, NULL
);
3937 /* If tooldir is relative, base it on exec_prefixes. A relative
3938 tooldir lets us move the installed tree as a unit.
3940 If GCC_EXEC_PREFIX is defined, then we want to add two relative
3941 directories, so that we can search both the user specified directory
3942 and the standard place. */
3944 if (!IS_ABSOLUTE_PATH (tooldir_prefix
))
3946 if (gcc_exec_prefix
)
3948 char *gcc_exec_tooldir_prefix
3949 = concat (gcc_exec_prefix
, spec_machine
, dir_separator_str
,
3950 spec_version
, dir_separator_str
, tooldir_prefix
, NULL
);
3952 add_prefix (&exec_prefixes
,
3953 concat (gcc_exec_tooldir_prefix
, "bin",
3954 dir_separator_str
, NULL
),
3955 NULL
, PREFIX_PRIORITY_LAST
, 0, 0);
3956 add_prefix (&startfile_prefixes
,
3957 concat (gcc_exec_tooldir_prefix
, "lib",
3958 dir_separator_str
, NULL
),
3959 NULL
, PREFIX_PRIORITY_LAST
, 0, 1);
3962 tooldir_prefix
= concat (standard_exec_prefix
, spec_machine
,
3963 dir_separator_str
, spec_version
,
3964 dir_separator_str
, tooldir_prefix
, NULL
);
3967 add_prefix (&exec_prefixes
,
3968 concat (tooldir_prefix
, "bin", dir_separator_str
, NULL
),
3969 "BINUTILS", PREFIX_PRIORITY_LAST
, 0, 0);
3970 add_prefix (&startfile_prefixes
,
3971 concat (tooldir_prefix
, "lib", dir_separator_str
, NULL
),
3972 "BINUTILS", PREFIX_PRIORITY_LAST
, 0, 1);
3974 #if defined(TARGET_SYSTEM_ROOT_RELOCATABLE) && !defined(VMS)
3975 /* If the normal TARGET_SYSTEM_ROOT is inside of $exec_prefix,
3976 then consider it to relocate with the rest of the GCC installation
3977 if GCC_EXEC_PREFIX is set.
3978 ``make_relative_prefix'' is not compiled for VMS, so don't call it. */
3979 if (target_system_root
&& gcc_exec_prefix
)
3981 char *tmp_prefix
= make_relative_prefix (argv
[0],
3982 standard_bindir_prefix
,
3983 target_system_root
);
3984 if (tmp_prefix
&& access_check (tmp_prefix
, F_OK
) == 0)
3986 target_system_root
= tmp_prefix
;
3987 target_system_root_changed
= 1;
3992 /* More prefixes are enabled in main, after we read the specs file
3993 and determine whether this is cross-compilation or not. */
3995 /* Then create the space for the vectors and scan again. */
3997 switches
= xmalloc ((n_switches
+ 1) * sizeof (struct switchstr
));
3998 infiles
= xmalloc ((n_infiles
+ 1) * sizeof (struct infile
));
4001 last_language_n_infiles
= -1;
4003 /* This, time, copy the text of each switch and store a pointer
4004 to the copy in the vector of switches.
4005 Store all the infiles in their vector. */
4007 for (i
= 1; i
< argc
; i
++)
4009 /* Just skip the switches that were handled by the preceding loop. */
4010 #ifdef MODIFY_TARGET_NAME
4011 is_modify_target_name
= 0;
4013 for (j
= 0; j
< ARRAY_SIZE (modify_target
); j
++)
4014 if (! strcmp (argv
[i
], modify_target
[j
].sw
))
4015 is_modify_target_name
= 1;
4017 if (is_modify_target_name
)
4021 if (! strncmp (argv
[i
], "-Wa,", 4))
4023 else if (! strncmp (argv
[i
], "-Wp,", 4))
4025 else if (! strcmp (argv
[i
], "-pass-exit-codes"))
4027 else if (! strcmp (argv
[i
], "-print-search-dirs"))
4029 else if (! strcmp (argv
[i
], "-print-libgcc-file-name"))
4031 else if (! strncmp (argv
[i
], "-print-file-name=", 17))
4033 else if (! strncmp (argv
[i
], "-print-prog-name=", 17))
4035 else if (! strcmp (argv
[i
], "-print-multi-lib"))
4037 else if (! strcmp (argv
[i
], "-print-multi-directory"))
4039 else if (! strcmp (argv
[i
], "-print-multi-os-directory"))
4041 else if (! strcmp (argv
[i
], "-ftarget-help"))
4043 else if (! strcmp (argv
[i
], "-fhelp"))
4045 else if (! strncmp (argv
[i
], "--sysroot=", strlen ("--sysroot=")))
4047 target_system_root
= argv
[i
] + strlen ("--sysroot=");
4048 target_system_root_changed
= 1;
4050 else if (argv
[i
][0] == '+' && argv
[i
][1] == 'e')
4052 /* Compensate for the +e options to the C++ front-end;
4053 they're there simply for cfront call-compatibility. We do
4054 some magic in default_compilers to pass them down properly.
4055 Note we deliberately start at the `+' here, to avoid passing
4056 -e0 or -e1 down into the linker. */
4057 switches
[n_switches
].part1
= &argv
[i
][0];
4058 switches
[n_switches
].args
= 0;
4059 switches
[n_switches
].live_cond
= SWITCH_OK
;
4060 switches
[n_switches
].validated
= 0;
4063 else if (strncmp (argv
[i
], "-Wl,", 4) == 0)
4066 /* Split the argument at commas. */
4068 for (j
= 4; argv
[i
][j
]; j
++)
4069 if (argv
[i
][j
] == ',')
4071 infiles
[n_infiles
].language
= "*";
4072 infiles
[n_infiles
++].name
4073 = save_string (argv
[i
] + prev
, j
- prev
);
4076 /* Record the part after the last comma. */
4077 infiles
[n_infiles
].language
= "*";
4078 infiles
[n_infiles
++].name
= argv
[i
] + prev
;
4080 else if (strcmp (argv
[i
], "-Xlinker") == 0)
4082 infiles
[n_infiles
].language
= "*";
4083 infiles
[n_infiles
++].name
= argv
[++i
];
4085 /* Xassembler and Xpreprocessor were already handled in the first argv
4086 scan, so all we need to do here is ignore them and their argument. */
4087 else if (strcmp (argv
[i
], "-Xassembler") == 0)
4089 else if (strcmp (argv
[i
], "-Xpreprocessor") == 0)
4091 else if (strcmp (argv
[i
], "-l") == 0)
4092 { /* POSIX allows separation of -l and the lib arg;
4093 canonicalize by concatenating -l with its arg */
4094 infiles
[n_infiles
].language
= "*";
4095 infiles
[n_infiles
++].name
= concat ("-l", argv
[++i
], NULL
);
4097 else if (strncmp (argv
[i
], "-l", 2) == 0)
4099 infiles
[n_infiles
].language
= "*";
4100 infiles
[n_infiles
++].name
= argv
[i
];
4102 else if (strcmp (argv
[i
], "-specs") == 0)
4104 else if (strncmp (argv
[i
], "-specs=", 7) == 0)
4106 else if (strcmp (argv
[i
], "-time") == 0)
4108 else if (strcmp (argv
[i
], "-###") == 0)
4110 else if (argv
[i
][0] == '-' && argv
[i
][1] != 0)
4112 const char *p
= &argv
[i
][1];
4117 if (p
[1] == 0 && i
+ 1 == argc
)
4118 fatal ("argument to '-x' is missing");
4120 spec_lang
= argv
[++i
];
4123 if (! strcmp (spec_lang
, "none"))
4124 /* Suppress the warning if -xnone comes after the last input
4125 file, because alternate command interfaces like g++ might
4126 find it useful to place -xnone after each input file. */
4129 last_language_n_infiles
= n_infiles
;
4132 switches
[n_switches
].part1
= p
;
4133 /* Deal with option arguments in separate argv elements. */
4134 if ((SWITCH_TAKES_ARG (c
) > (p
[1] != 0))
4135 || WORD_SWITCH_TAKES_ARG (p
))
4138 int n_args
= WORD_SWITCH_TAKES_ARG (p
);
4142 /* Count only the option arguments in separate argv elements. */
4143 n_args
= SWITCH_TAKES_ARG (c
) - (p
[1] != 0);
4145 if (i
+ n_args
>= argc
)
4146 fatal ("argument to '-%s' is missing", p
);
4147 switches
[n_switches
].args
4148 = xmalloc ((n_args
+ 1) * sizeof(const char *));
4150 switches
[n_switches
].args
[j
++] = argv
[++i
];
4151 /* Null-terminate the vector. */
4152 switches
[n_switches
].args
[j
] = 0;
4154 else if (strchr (switches_need_spaces
, c
))
4156 /* On some systems, ld cannot handle some options without
4157 a space. So split the option from its argument. */
4158 char *part1
= xmalloc (2);
4162 switches
[n_switches
].part1
= part1
;
4163 switches
[n_switches
].args
= xmalloc (2 * sizeof (const char *));
4164 switches
[n_switches
].args
[0] = xstrdup (p
+1);
4165 switches
[n_switches
].args
[1] = 0;
4168 switches
[n_switches
].args
= 0;
4170 switches
[n_switches
].live_cond
= SWITCH_OK
;
4171 switches
[n_switches
].validated
= 0;
4172 switches
[n_switches
].ordering
= 0;
4173 /* These are always valid, since gcc.c itself understands them. */
4174 if (!strcmp (p
, "save-temps")
4175 || !strcmp (p
, "static-libgcc")
4176 || !strcmp (p
, "shared-libgcc")
4177 || !strcmp (p
, "pipe"))
4178 switches
[n_switches
].validated
= 1;
4181 char ch
= switches
[n_switches
].part1
[0];
4183 switches
[n_switches
].validated
= 1;
4189 #ifdef HAVE_TARGET_OBJECT_SUFFIX
4190 argv
[i
] = convert_filename (argv
[i
], 0, access (argv
[i
], F_OK
));
4193 if (strcmp (argv
[i
], "-") != 0 && access (argv
[i
], F_OK
) < 0)
4195 perror_with_name (argv
[i
]);
4200 infiles
[n_infiles
].language
= spec_lang
;
4201 infiles
[n_infiles
++].name
= argv
[i
];
4206 if (n_infiles
== last_language_n_infiles
&& spec_lang
!= 0)
4207 error ("warning: '-x %s' after last input file has no effect", spec_lang
);
4209 /* Ensure we only invoke each subprocess once. */
4210 if (target_help_flag
|| print_help_list
)
4214 /* Create a dummy input file, so that we can pass --target-help on to
4215 the various sub-processes. */
4216 infiles
[0].language
= "c";
4217 infiles
[0].name
= "help-dummy";
4219 if (target_help_flag
)
4221 switches
[n_switches
].part1
= "--target-help";
4222 switches
[n_switches
].args
= 0;
4223 switches
[n_switches
].live_cond
= SWITCH_OK
;
4224 switches
[n_switches
].validated
= 0;
4229 if (print_help_list
)
4231 switches
[n_switches
].part1
= "--help";
4232 switches
[n_switches
].args
= 0;
4233 switches
[n_switches
].live_cond
= SWITCH_OK
;
4234 switches
[n_switches
].validated
= 0;
4240 switches
[n_switches
].part1
= 0;
4241 infiles
[n_infiles
].name
= 0;
4244 /* Store switches not filtered out by %<S in spec in COLLECT_GCC_OPTIONS
4245 and place that in the environment. */
4248 set_collect_gcc_options (void)
4253 /* Build COLLECT_GCC_OPTIONS to have all of the options specified to
4255 obstack_grow (&collect_obstack
, "COLLECT_GCC_OPTIONS=",
4256 sizeof ("COLLECT_GCC_OPTIONS=") - 1);
4259 for (i
= 0; (int) i
< n_switches
; i
++)
4261 const char *const *args
;
4264 obstack_grow (&collect_obstack
, " ", 1);
4268 /* Ignore elided switches. */
4269 if (switches
[i
].live_cond
== SWITCH_IGNORE
)
4272 obstack_grow (&collect_obstack
, "'-", 2);
4273 q
= switches
[i
].part1
;
4274 while ((p
= strchr (q
, '\'')))
4276 obstack_grow (&collect_obstack
, q
, p
- q
);
4277 obstack_grow (&collect_obstack
, "'\\''", 4);
4280 obstack_grow (&collect_obstack
, q
, strlen (q
));
4281 obstack_grow (&collect_obstack
, "'", 1);
4283 for (args
= switches
[i
].args
; args
&& *args
; args
++)
4285 obstack_grow (&collect_obstack
, " '", 2);
4287 while ((p
= strchr (q
, '\'')))
4289 obstack_grow (&collect_obstack
, q
, p
- q
);
4290 obstack_grow (&collect_obstack
, "'\\''", 4);
4293 obstack_grow (&collect_obstack
, q
, strlen (q
));
4294 obstack_grow (&collect_obstack
, "'", 1);
4297 obstack_grow (&collect_obstack
, "\0", 1);
4298 putenv (XOBFINISH (&collect_obstack
, char *));
4301 /* Process a spec string, accumulating and running commands. */
4303 /* These variables describe the input file name.
4304 input_file_number is the index on outfiles of this file,
4305 so that the output file name can be stored for later use by %o.
4306 input_basename is the start of the part of the input file
4307 sans all directory names, and basename_length is the number
4308 of characters starting there excluding the suffix .c or whatever. */
4310 static const char *input_filename
;
4311 static int input_file_number
;
4312 size_t input_filename_length
;
4313 static int basename_length
;
4314 static int suffixed_basename_length
;
4315 static const char *input_basename
;
4316 static const char *input_suffix
;
4317 #ifndef HOST_LACKS_INODE_NUMBERS
4318 static struct stat input_stat
;
4320 static int input_stat_set
;
4322 /* The compiler used to process the current input file. */
4323 static struct compiler
*input_file_compiler
;
4325 /* These are variables used within do_spec and do_spec_1. */
4327 /* Nonzero if an arg has been started and not yet terminated
4328 (with space, tab or newline). */
4329 static int arg_going
;
4331 /* Nonzero means %d or %g has been seen; the next arg to be terminated
4332 is a temporary file name. */
4333 static int delete_this_arg
;
4335 /* Nonzero means %w has been seen; the next arg to be terminated
4336 is the output file name of this compilation. */
4337 static int this_is_output_file
;
4339 /* Nonzero means %s has been seen; the next arg to be terminated
4340 is the name of a library file and we should try the standard
4341 search dirs for it. */
4342 static int this_is_library_file
;
4344 /* Nonzero means that the input of this command is coming from a pipe. */
4345 static int input_from_pipe
;
4347 /* Nonnull means substitute this for any suffix when outputting a switches
4349 static const char *suffix_subst
;
4351 /* Process the spec SPEC and run the commands specified therein.
4352 Returns 0 if the spec is successfully processed; -1 if failed. */
4355 do_spec (const char *spec
)
4359 value
= do_spec_2 (spec
);
4361 /* Force out any unfinished command.
4362 If -pipe, this forces out the last command if it ended in `|'. */
4365 if (argbuf_index
> 0 && !strcmp (argbuf
[argbuf_index
- 1], "|"))
4368 set_collect_gcc_options ();
4370 if (argbuf_index
> 0)
4378 do_spec_2 (const char *spec
)
4385 delete_this_arg
= 0;
4386 this_is_output_file
= 0;
4387 this_is_library_file
= 0;
4388 input_from_pipe
= 0;
4389 suffix_subst
= NULL
;
4391 result
= do_spec_1 (spec
, 0, NULL
);
4393 /* End any pending argument. */
4396 obstack_1grow (&obstack
, 0);
4397 string
= XOBFINISH (&obstack
, const char *);
4398 if (this_is_library_file
)
4399 string
= find_file (string
);
4400 store_arg (string
, delete_this_arg
, this_is_output_file
);
4401 if (this_is_output_file
)
4402 outfiles
[input_file_number
] = string
;
4410 /* Process the given spec string and add any new options to the end
4411 of the switches/n_switches array. */
4414 do_option_spec (const char *name
, const char *spec
)
4416 unsigned int i
, value_count
, value_len
;
4417 const char *p
, *q
, *value
;
4418 char *tmp_spec
, *tmp_spec_p
;
4420 if (configure_default_options
[0].name
== NULL
)
4423 for (i
= 0; i
< ARRAY_SIZE (configure_default_options
); i
++)
4424 if (strcmp (configure_default_options
[i
].name
, name
) == 0)
4426 if (i
== ARRAY_SIZE (configure_default_options
))
4429 value
= configure_default_options
[i
].value
;
4430 value_len
= strlen (value
);
4432 /* Compute the size of the final spec. */
4435 while ((p
= strstr (p
, "%(VALUE)")) != NULL
)
4441 /* Replace each %(VALUE) by the specified value. */
4442 tmp_spec
= alloca (strlen (spec
) + 1
4443 + value_count
* (value_len
- strlen ("%(VALUE)")));
4444 tmp_spec_p
= tmp_spec
;
4446 while ((p
= strstr (q
, "%(VALUE)")) != NULL
)
4448 memcpy (tmp_spec_p
, q
, p
- q
);
4449 tmp_spec_p
= tmp_spec_p
+ (p
- q
);
4450 memcpy (tmp_spec_p
, value
, value_len
);
4451 tmp_spec_p
+= value_len
;
4452 q
= p
+ strlen ("%(VALUE)");
4454 strcpy (tmp_spec_p
, q
);
4456 do_self_spec (tmp_spec
);
4459 /* Process the given spec string and add any new options to the end
4460 of the switches/n_switches array. */
4463 do_self_spec (const char *spec
)
4466 do_spec_1 (" ", 0, NULL
);
4468 if (argbuf_index
> 0)
4473 n_switches
+= argbuf_index
;
4474 switches
= xrealloc (switches
,
4475 sizeof (struct switchstr
) * (n_switches
+ 1));
4477 switches
[n_switches
] = switches
[first
];
4478 for (i
= 0; i
< argbuf_index
; i
++)
4480 struct switchstr
*sw
;
4482 /* Each switch should start with '-'. */
4483 if (argbuf
[i
][0] != '-')
4484 fatal ("switch '%s' does not start with '-'", argbuf
[i
]);
4486 sw
= &switches
[i
+ first
];
4487 sw
->part1
= &argbuf
[i
][1];
4489 sw
->live_cond
= SWITCH_OK
;
4496 /* Callback for processing %D and %I specs. */
4498 struct spec_path_info
{
4503 bool separate_options
;
4507 spec_path (char *path
, void *data
)
4509 struct spec_path_info
*info
= data
;
4513 if (info
->omit_relative
&& !IS_ABSOLUTE_PATH (path
))
4516 if (info
->append_len
!= 0)
4518 len
= strlen (path
);
4519 memcpy (path
+ len
, info
->append
, info
->append_len
+ 1);
4522 if (!is_directory (path
, true))
4525 do_spec_1 (info
->option
, 1, NULL
);
4526 if (info
->separate_options
)
4527 do_spec_1 (" ", 0, NULL
);
4529 if (info
->append_len
== 0)
4531 len
= strlen (path
);
4532 save
= path
[len
- 1];
4533 if (IS_DIR_SEPARATOR (path
[len
- 1]))
4534 path
[len
- 1] = '\0';
4537 do_spec_1 (path
, 1, NULL
);
4538 do_spec_1 (" ", 0, NULL
);
4540 /* Must not damage the original path. */
4541 if (info
->append_len
== 0)
4542 path
[len
- 1] = save
;
4547 /* Process the sub-spec SPEC as a portion of a larger spec.
4548 This is like processing a whole spec except that we do
4549 not initialize at the beginning and we do not supply a
4550 newline by default at the end.
4551 INSWITCH nonzero means don't process %-sequences in SPEC;
4552 in this case, % is treated as an ordinary character.
4553 This is used while substituting switches.
4554 INSWITCH nonzero also causes SPC not to terminate an argument.
4556 Value is zero unless a line was finished
4557 and the command on that line reported an error. */
4560 do_spec_1 (const char *spec
, int inswitch
, const char *soft_matched_part
)
4562 const char *p
= spec
;
4569 /* If substituting a switch, treat all chars like letters.
4570 Otherwise, NL, SPC, TAB and % are special. */
4571 switch (inswitch
? 'a' : c
)
4574 /* End of line: finish any pending argument,
4575 then run the pending command if one has been started. */
4578 obstack_1grow (&obstack
, 0);
4579 string
= XOBFINISH (&obstack
, const char *);
4580 if (this_is_library_file
)
4581 string
= find_file (string
);
4582 store_arg (string
, delete_this_arg
, this_is_output_file
);
4583 if (this_is_output_file
)
4584 outfiles
[input_file_number
] = string
;
4588 if (argbuf_index
> 0 && !strcmp (argbuf
[argbuf_index
- 1], "|"))
4590 /* A `|' before the newline means use a pipe here,
4591 but only if -pipe was specified.
4592 Otherwise, execute now and don't pass the `|' as an arg. */
4595 input_from_pipe
= 1;
4602 set_collect_gcc_options ();
4604 if (argbuf_index
> 0)
4610 /* Reinitialize for a new command, and for a new argument. */
4613 delete_this_arg
= 0;
4614 this_is_output_file
= 0;
4615 this_is_library_file
= 0;
4616 input_from_pipe
= 0;
4620 /* End any pending argument. */
4623 obstack_1grow (&obstack
, 0);
4624 string
= XOBFINISH (&obstack
, const char *);
4625 if (this_is_library_file
)
4626 string
= find_file (string
);
4627 store_arg (string
, delete_this_arg
, this_is_output_file
);
4628 if (this_is_output_file
)
4629 outfiles
[input_file_number
] = string
;
4633 obstack_1grow (&obstack
, c
);
4639 /* Space or tab ends an argument if one is pending. */
4642 obstack_1grow (&obstack
, 0);
4643 string
= XOBFINISH (&obstack
, const char *);
4644 if (this_is_library_file
)
4645 string
= find_file (string
);
4646 store_arg (string
, delete_this_arg
, this_is_output_file
);
4647 if (this_is_output_file
)
4648 outfiles
[input_file_number
] = string
;
4650 /* Reinitialize for a new argument. */
4652 delete_this_arg
= 0;
4653 this_is_output_file
= 0;
4654 this_is_library_file
= 0;
4661 fatal ("spec '%s' invalid", spec
);
4664 obstack_grow (&obstack
, input_basename
, basename_length
);
4669 obstack_grow (&obstack
, input_basename
, suffixed_basename_length
);
4674 delete_this_arg
= 2;
4677 /* Dump out the directories specified with LIBRARY_PATH,
4678 followed by the absolute directories
4679 that we search for startfiles. */
4682 struct spec_path_info info
;
4685 info
.append_len
= 0;
4686 #ifdef RELATIVE_PREFIX_NOT_LINKDIR
4687 /* Used on systems which record the specified -L dirs
4688 and use them to search for dynamic linking.
4689 Relative directories always come from -B,
4690 and it is better not to use them for searching
4691 at run time. In particular, stage1 loses. */
4692 info
.omit_relative
= true;
4694 info
.omit_relative
= false;
4696 info
.separate_options
= false;
4698 for_each_path (&startfile_prefixes
, true, 0, spec_path
, &info
);
4703 /* %efoo means report an error with `foo' as error message
4704 and don't execute any more commands for this file. */
4708 while (*p
!= 0 && *p
!= '\n')
4710 buf
= alloca (p
- q
+ 1);
4711 strncpy (buf
, q
, p
- q
);
4718 /* %nfoo means report a notice with `foo' on stderr. */
4722 while (*p
!= 0 && *p
!= '\n')
4724 buf
= alloca (p
- q
+ 1);
4725 strncpy (buf
, q
, p
- q
);
4727 notice ("%s\n", buf
);
4737 /* If save_temps_flag is off, and the HOST_BIT_BUCKET is
4738 defined, and it is not a directory, and it is
4739 writable, use it. Otherwise, treat this like any
4740 other temporary file. */
4742 if ((!save_temps_flag
)
4743 && (stat (HOST_BIT_BUCKET
, &st
) == 0) && (!S_ISDIR (st
.st_mode
))
4744 && (access (HOST_BIT_BUCKET
, W_OK
) == 0))
4746 obstack_grow (&obstack
, HOST_BIT_BUCKET
,
4747 strlen (HOST_BIT_BUCKET
));
4748 delete_this_arg
= 0;
4753 goto create_temp_file
;
4757 obstack_1grow (&obstack
, '-');
4758 delete_this_arg
= 0;
4761 /* consume suffix */
4762 while (*p
== '.' || ISALNUM ((unsigned char) *p
))
4764 if (p
[0] == '%' && p
[1] == 'O')
4769 goto create_temp_file
;
4773 /* consume suffix */
4774 while (*p
== '.' || ISALNUM ((unsigned char) *p
))
4776 if (p
[0] == '%' && p
[1] == 'O')
4781 goto create_temp_file
;
4787 struct temp_name
*t
;
4789 const char *suffix
= p
;
4790 char *saved_suffix
= NULL
;
4792 while (*p
== '.' || ISALNUM ((unsigned char) *p
))
4794 suffix_length
= p
- suffix
;
4795 if (p
[0] == '%' && p
[1] == 'O')
4798 /* We don't support extra suffix characters after %O. */
4799 if (*p
== '.' || ISALNUM ((unsigned char) *p
))
4800 fatal ("spec '%s' has invalid '%%0%c'", spec
, *p
);
4801 if (suffix_length
== 0)
4802 suffix
= TARGET_OBJECT_SUFFIX
;
4806 = xmalloc (suffix_length
4807 + strlen (TARGET_OBJECT_SUFFIX
));
4808 strncpy (saved_suffix
, suffix
, suffix_length
);
4809 strcpy (saved_suffix
+ suffix_length
,
4810 TARGET_OBJECT_SUFFIX
);
4812 suffix_length
+= strlen (TARGET_OBJECT_SUFFIX
);
4815 /* If the input_filename has the same suffix specified
4816 for the %g, %u, or %U, and -save-temps is specified,
4817 we could end up using that file as an intermediate
4818 thus clobbering the user's source file (.e.g.,
4819 gcc -save-temps foo.s would clobber foo.s with the
4820 output of cpp0). So check for this condition and
4821 generate a temp file as the intermediate. */
4823 if (save_temps_flag
)
4825 temp_filename_length
= basename_length
+ suffix_length
;
4826 temp_filename
= alloca (temp_filename_length
+ 1);
4827 strncpy ((char *) temp_filename
, input_basename
, basename_length
);
4828 strncpy ((char *) temp_filename
+ basename_length
, suffix
,
4830 *((char *) temp_filename
+ temp_filename_length
) = '\0';
4831 if (strcmp (temp_filename
, input_filename
) != 0)
4833 #ifndef HOST_LACKS_INODE_NUMBERS
4834 struct stat st_temp
;
4836 /* Note, set_input() resets input_stat_set to 0. */
4837 if (input_stat_set
== 0)
4839 input_stat_set
= stat (input_filename
, &input_stat
);
4840 if (input_stat_set
>= 0)
4844 /* If we have the stat for the input_filename
4845 and we can do the stat for the temp_filename
4846 then the they could still refer to the same
4847 file if st_dev/st_ino's are the same. */
4848 if (input_stat_set
!= 1
4849 || stat (temp_filename
, &st_temp
) < 0
4850 || input_stat
.st_dev
!= st_temp
.st_dev
4851 || input_stat
.st_ino
!= st_temp
.st_ino
)
4853 /* Just compare canonical pathnames. */
4854 char* input_realname
= lrealpath (input_filename
);
4855 char* temp_realname
= lrealpath (temp_filename
);
4856 bool files_differ
= strcmp (input_realname
, temp_realname
);
4857 free (input_realname
);
4858 free (temp_realname
);
4862 temp_filename
= save_string (temp_filename
,
4863 temp_filename_length
+ 1);
4864 obstack_grow (&obstack
, temp_filename
,
4865 temp_filename_length
);
4867 delete_this_arg
= 0;
4873 /* See if we already have an association of %g/%u/%U and
4875 for (t
= temp_names
; t
; t
= t
->next
)
4876 if (t
->length
== suffix_length
4877 && strncmp (t
->suffix
, suffix
, suffix_length
) == 0
4878 && t
->unique
== (c
== 'u' || c
== 'U' || c
== 'j'))
4881 /* Make a new association if needed. %u and %j
4883 if (t
== 0 || c
== 'u' || c
== 'j')
4887 t
= xmalloc (sizeof (struct temp_name
));
4888 t
->next
= temp_names
;
4891 t
->length
= suffix_length
;
4894 t
->suffix
= saved_suffix
;
4895 saved_suffix
= NULL
;
4898 t
->suffix
= save_string (suffix
, suffix_length
);
4899 t
->unique
= (c
== 'u' || c
== 'U' || c
== 'j');
4900 temp_filename
= make_temp_file (t
->suffix
);
4901 temp_filename_length
= strlen (temp_filename
);
4902 t
->filename
= temp_filename
;
4903 t
->filename_length
= temp_filename_length
;
4907 free (saved_suffix
);
4909 obstack_grow (&obstack
, t
->filename
, t
->filename_length
);
4910 delete_this_arg
= 1;
4918 for (i
= 0; (int) i
< n_infiles
; i
++)
4919 if ((!infiles
[i
].language
) || (infiles
[i
].language
[0] != '*'))
4920 if (infiles
[i
].incompiler
== input_file_compiler
)
4922 store_arg (infiles
[i
].name
, 0, 0);
4923 infiles
[i
].compiled
= true;
4928 obstack_grow (&obstack
, input_filename
, input_filename_length
);
4935 struct spec_path_info info
;
4937 if (gcc_exec_prefix
)
4939 do_spec_1 ("-iprefix", 1, NULL
);
4940 /* Make this a separate argument. */
4941 do_spec_1 (" ", 0, NULL
);
4942 do_spec_1 (gcc_exec_prefix
, 1, NULL
);
4943 do_spec_1 (" ", 0, NULL
);
4946 if (target_system_root_changed
||
4947 (target_system_root
&& target_sysroot_hdrs_suffix
))
4949 do_spec_1 ("-isysroot", 1, NULL
);
4950 /* Make this a separate argument. */
4951 do_spec_1 (" ", 0, NULL
);
4952 do_spec_1 (target_system_root
, 1, NULL
);
4953 if (target_sysroot_hdrs_suffix
)
4954 do_spec_1 (target_sysroot_hdrs_suffix
, 1, NULL
);
4955 do_spec_1 (" ", 0, NULL
);
4958 info
.option
= "-isystem";
4959 info
.append
= "include";
4960 info
.append_len
= strlen (info
.append
);
4961 info
.omit_relative
= false;
4962 info
.separate_options
= true;
4964 for_each_path (&include_prefixes
, false, info
.append_len
,
4971 int max
= n_infiles
;
4972 max
+= lang_specific_extra_outfiles
;
4974 for (i
= 0; i
< max
; i
++)
4976 store_arg (outfiles
[i
], 0, 0);
4981 obstack_grow (&obstack
, TARGET_OBJECT_SUFFIX
, strlen (TARGET_OBJECT_SUFFIX
));
4986 this_is_library_file
= 1;
4990 outfiles
[input_file_number
] = NULL
;
4994 this_is_output_file
= 1;
4999 int cur_index
= argbuf_index
;
5000 /* Handle the {...} following the %W. */
5002 fatal ("spec '%s' has invalid '%%W%c", spec
, *p
);
5003 p
= handle_braces (p
+ 1);
5006 /* End any pending argument. */
5009 obstack_1grow (&obstack
, 0);
5010 string
= XOBFINISH (&obstack
, const char *);
5011 if (this_is_library_file
)
5012 string
= find_file (string
);
5013 store_arg (string
, delete_this_arg
, this_is_output_file
);
5014 if (this_is_output_file
)
5015 outfiles
[input_file_number
] = string
;
5018 /* If any args were output, mark the last one for deletion
5020 if (argbuf_index
!= cur_index
)
5021 record_temp_file (argbuf
[argbuf_index
- 1], 0, 1);
5025 /* %x{OPTION} records OPTION for %X to output. */
5031 /* Skip past the option value and make a copy. */
5033 fatal ("spec '%s' has invalid '%%x%c'", spec
, *p
);
5036 string
= save_string (p1
+ 1, p
- p1
- 2);
5038 /* See if we already recorded this option. */
5039 for (i
= 0; i
< n_linker_options
; i
++)
5040 if (! strcmp (string
, linker_options
[i
]))
5046 /* This option is new; add it. */
5047 add_linker_option (string
, strlen (string
));
5051 /* Dump out the options accumulated previously using %x. */
5053 for (i
= 0; i
< n_linker_options
; i
++)
5055 do_spec_1 (linker_options
[i
], 1, NULL
);
5056 /* Make each accumulated option a separate argument. */
5057 do_spec_1 (" ", 0, NULL
);
5061 /* Dump out the options accumulated previously using -Wa,. */
5063 for (i
= 0; i
< n_assembler_options
; i
++)
5065 do_spec_1 (assembler_options
[i
], 1, NULL
);
5066 /* Make each accumulated option a separate argument. */
5067 do_spec_1 (" ", 0, NULL
);
5071 /* Dump out the options accumulated previously using -Wp,. */
5073 for (i
= 0; i
< n_preprocessor_options
; i
++)
5075 do_spec_1 (preprocessor_options
[i
], 1, NULL
);
5076 /* Make each accumulated option a separate argument. */
5077 do_spec_1 (" ", 0, NULL
);
5081 /* Here are digits and numbers that just process
5082 a certain constant string as a spec. */
5085 value
= do_spec_1 (cc1_spec
, 0, NULL
);
5091 value
= do_spec_1 (cc1plus_spec
, 0, NULL
);
5097 value
= do_spec_1 (asm_spec
, 0, NULL
);
5103 value
= do_spec_1 (asm_final_spec
, 0, NULL
);
5110 const char *const spec
5111 = (input_file_compiler
->cpp_spec
5112 ? input_file_compiler
->cpp_spec
5114 value
= do_spec_1 (spec
, 0, NULL
);
5121 value
= do_spec_1 (endfile_spec
, 0, NULL
);
5127 value
= do_spec_1 (link_spec
, 0, NULL
);
5133 value
= do_spec_1 (lib_spec
, 0, NULL
);
5139 value
= do_spec_1 (libgcc_spec
, 0, NULL
);
5145 /* We assume there is a directory
5146 separator at the end of this string. */
5147 if (target_system_root
)
5149 obstack_grow (&obstack
, target_system_root
,
5150 strlen (target_system_root
));
5151 if (target_sysroot_suffix
)
5152 obstack_grow (&obstack
, target_sysroot_suffix
,
5153 strlen (target_sysroot_suffix
));
5158 value
= do_spec_1 (startfile_spec
, 0, NULL
);
5163 /* Here we define characters other than letters and digits. */
5166 p
= handle_braces (p
);
5172 p
= handle_spec_function (p
);
5178 obstack_1grow (&obstack
, '%');
5185 while (p
[len
] && p
[len
] != ' ' && p
[len
] != '%')
5187 suffix_subst
= save_string (p
- 1, len
+ 1);
5192 /* Henceforth ignore the option(s) matching the pattern
5197 int have_wildcard
= 0;
5200 while (p
[len
] && p
[len
] != ' ' && p
[len
] != '\t')
5203 if (p
[len
-1] == '*')
5206 for (i
= 0; i
< n_switches
; i
++)
5207 if (!strncmp (switches
[i
].part1
, p
, len
- have_wildcard
)
5208 && (have_wildcard
|| switches
[i
].part1
[len
] == '\0'))
5210 switches
[i
].live_cond
= SWITCH_IGNORE
;
5211 switches
[i
].validated
= 1;
5219 if (soft_matched_part
)
5221 do_spec_1 (soft_matched_part
, 1, NULL
);
5222 do_spec_1 (" ", 0, NULL
);
5225 /* Catch the case where a spec string contains something like
5226 '%{foo:%*}'. i.e. there is no * in the pattern on the left
5227 hand side of the :. */
5228 error ("spec failure: '%%*' has not been initialized by pattern match");
5231 /* Process a string found as the value of a spec given by name.
5232 This feature allows individual machine descriptions
5233 to add and use their own specs.
5234 %[...] modifies -D options the way %P does;
5235 %(...) uses the spec unmodified. */
5237 error ("warning: use of obsolete %%[ operator in specs");
5240 const char *name
= p
;
5241 struct spec_list
*sl
;
5244 /* The string after the S/P is the name of a spec that is to be
5246 while (*p
&& *p
!= ')' && *p
!= ']')
5249 /* See if it's in the list. */
5250 for (len
= p
- name
, sl
= specs
; sl
; sl
= sl
->next
)
5251 if (sl
->name_len
== len
&& !strncmp (sl
->name
, name
, len
))
5253 name
= *(sl
->ptr_spec
);
5255 notice ("Processing spec %c%s%c, which is '%s'\n",
5256 c
, sl
->name
, (c
== '(') ? ')' : ']', name
);
5265 value
= do_spec_1 (name
, 0, NULL
);
5271 char *x
= alloca (strlen (name
) * 2 + 1);
5273 const char *y
= name
;
5276 /* Copy all of NAME into BUF, but put __ after
5277 every -D and at the end of each arg. */
5280 if (! strncmp (y
, "-D", 2))
5291 && (*y
== ' ' || *y
== '\t' || *y
== '='
5292 || *y
== '}' || *y
== 0))
5305 value
= do_spec_1 (buf
, 0, NULL
);
5311 /* Discard the closing paren or bracket. */
5318 error ("spec failure: unrecognized spec option '%c'", c
);
5324 /* Backslash: treat next character as ordinary. */
5329 /* Ordinary character: put it into the current argument. */
5330 obstack_1grow (&obstack
, c
);
5334 /* End of string. If we are processing a spec function, we need to
5335 end any pending argument. */
5336 if (processing_spec_function
&& arg_going
)
5338 obstack_1grow (&obstack
, 0);
5339 string
= XOBFINISH (&obstack
, const char *);
5340 if (this_is_library_file
)
5341 string
= find_file (string
);
5342 store_arg (string
, delete_this_arg
, this_is_output_file
);
5343 if (this_is_output_file
)
5344 outfiles
[input_file_number
] = string
;
5351 /* Look up a spec function. */
5353 static const struct spec_function
*
5354 lookup_spec_function (const char *name
)
5356 const struct spec_function
*sf
;
5358 for (sf
= static_spec_functions
; sf
->name
!= NULL
; sf
++)
5359 if (strcmp (sf
->name
, name
) == 0)
5365 /* Evaluate a spec function. */
5368 eval_spec_function (const char *func
, const char *args
)
5370 const struct spec_function
*sf
;
5371 const char *funcval
;
5373 /* Saved spec processing context. */
5374 int save_argbuf_index
;
5375 int save_argbuf_length
;
5376 const char **save_argbuf
;
5379 int save_delete_this_arg
;
5380 int save_this_is_output_file
;
5381 int save_this_is_library_file
;
5382 int save_input_from_pipe
;
5383 const char *save_suffix_subst
;
5386 sf
= lookup_spec_function (func
);
5388 fatal ("unknown spec function '%s'", func
);
5390 /* Push the spec processing context. */
5391 save_argbuf_index
= argbuf_index
;
5392 save_argbuf_length
= argbuf_length
;
5393 save_argbuf
= argbuf
;
5395 save_arg_going
= arg_going
;
5396 save_delete_this_arg
= delete_this_arg
;
5397 save_this_is_output_file
= this_is_output_file
;
5398 save_this_is_library_file
= this_is_library_file
;
5399 save_input_from_pipe
= input_from_pipe
;
5400 save_suffix_subst
= suffix_subst
;
5402 /* Create a new spec processing context, and build the function
5406 if (do_spec_2 (args
) < 0)
5407 fatal ("error in args to spec function '%s'", func
);
5409 /* argbuf_index is an index for the next argument to be inserted, and
5410 so contains the count of the args already inserted. */
5412 funcval
= (*sf
->func
) (argbuf_index
, argbuf
);
5414 /* Pop the spec processing context. */
5415 argbuf_index
= save_argbuf_index
;
5416 argbuf_length
= save_argbuf_length
;
5418 argbuf
= save_argbuf
;
5420 arg_going
= save_arg_going
;
5421 delete_this_arg
= save_delete_this_arg
;
5422 this_is_output_file
= save_this_is_output_file
;
5423 this_is_library_file
= save_this_is_library_file
;
5424 input_from_pipe
= save_input_from_pipe
;
5425 suffix_subst
= save_suffix_subst
;
5430 /* Handle a spec function call of the form:
5434 ARGS is processed as a spec in a separate context and split into an
5435 argument vector in the normal fashion. The function returns a string
5436 containing a spec which we then process in the caller's context, or
5437 NULL if no processing is required. */
5440 handle_spec_function (const char *p
)
5443 const char *endp
, *funcval
;
5446 processing_spec_function
++;
5448 /* Get the function name. */
5449 for (endp
= p
; *endp
!= '\0'; endp
++)
5451 if (*endp
== '(') /* ) */
5453 /* Only allow [A-Za-z0-9], -, and _ in function names. */
5454 if (!ISALNUM (*endp
) && !(*endp
== '-' || *endp
== '_'))
5455 fatal ("malformed spec function name");
5457 if (*endp
!= '(') /* ) */
5458 fatal ("no arguments for spec function");
5459 func
= save_string (p
, endp
- p
);
5462 /* Get the arguments. */
5463 for (count
= 0; *endp
!= '\0'; endp
++)
5472 else if (*endp
== '(') /* ) */
5477 fatal ("malformed spec function arguments");
5478 args
= save_string (p
, endp
- p
);
5481 /* p now points to just past the end of the spec function expression. */
5483 funcval
= eval_spec_function (func
, args
);
5484 if (funcval
!= NULL
&& do_spec_1 (funcval
, 0, NULL
) < 0)
5490 processing_spec_function
--;
5495 /* Inline subroutine of handle_braces. Returns true if the current
5496 input suffix matches the atom bracketed by ATOM and END_ATOM. */
5498 input_suffix_matches (const char *atom
, const char *end_atom
)
5500 /* We special case the semantics of {.s:...} and {.S:...} and their
5501 negative variants. Instead of testing the input filename suffix,
5502 we test whether the input source file is an assembler file or an
5503 assembler-with-cpp file respectively. This allows us to correctly
5504 handle the -x command line option. */
5506 if (atom
+ 1 == end_atom
5507 && input_file_compiler
5508 && input_file_compiler
->suffix
)
5511 return !strcmp (input_file_compiler
->suffix
, "@assembler");
5513 return !strcmp (input_file_compiler
->suffix
, "@assembler-with-cpp");
5516 return (input_suffix
5517 && !strncmp (input_suffix
, atom
, end_atom
- atom
)
5518 && input_suffix
[end_atom
- atom
] == '\0');
5521 /* Inline subroutine of handle_braces. Returns true if a switch
5522 matching the atom bracketed by ATOM and END_ATOM appeared on the
5525 switch_matches (const char *atom
, const char *end_atom
, int starred
)
5528 int len
= end_atom
- atom
;
5529 int plen
= starred
? len
: -1;
5531 for (i
= 0; i
< n_switches
; i
++)
5532 if (!strncmp (switches
[i
].part1
, atom
, len
)
5533 && (starred
|| switches
[i
].part1
[len
] == '\0')
5534 && check_live_switch (i
, plen
))
5540 /* Inline subroutine of handle_braces. Mark all of the switches which
5541 match ATOM (extends to END_ATOM; STARRED indicates whether there
5542 was a star after the atom) for later processing. */
5544 mark_matching_switches (const char *atom
, const char *end_atom
, int starred
)
5547 int len
= end_atom
- atom
;
5548 int plen
= starred
? len
: -1;
5550 for (i
= 0; i
< n_switches
; i
++)
5551 if (!strncmp (switches
[i
].part1
, atom
, len
)
5552 && (starred
|| switches
[i
].part1
[len
] == '\0')
5553 && check_live_switch (i
, plen
))
5554 switches
[i
].ordering
= 1;
5557 /* Inline subroutine of handle_braces. Process all the currently
5558 marked switches through give_switch, and clear the marks. */
5560 process_marked_switches (void)
5564 for (i
= 0; i
< n_switches
; i
++)
5565 if (switches
[i
].ordering
== 1)
5567 switches
[i
].ordering
= 0;
5572 /* Handle a %{ ... } construct. P points just inside the leading {.
5573 Returns a pointer one past the end of the brace block, or 0
5574 if we call do_spec_1 and that returns -1. */
5577 handle_braces (const char *p
)
5579 const char *atom
, *end_atom
;
5580 const char *d_atom
= NULL
, *d_end_atom
= NULL
;
5581 const char *orig
= p
;
5588 bool a_must_be_last
= false;
5589 bool ordered_set
= false;
5590 bool disjunct_set
= false;
5591 bool disj_matched
= false;
5592 bool disj_starred
= true;
5593 bool n_way_choice
= false;
5594 bool n_way_matched
= false;
5596 #define SKIP_WHITE() do { while (*p == ' ' || *p == '\t') p++; } while (0)
5603 /* Scan one "atom" (S in the description above of %{}, possibly
5604 with !, ., or * modifiers). */
5605 a_matched
= a_is_suffix
= a_is_starred
= a_is_negated
= false;
5609 p
++, a_is_negated
= true;
5613 p
++, a_is_suffix
= true;
5616 while (ISIDNUM(*p
) || *p
== '-' || *p
== '+' || *p
== '='
5617 || *p
== ',' || *p
== '.' || *p
== '@')
5622 p
++, a_is_starred
= 1;
5628 /* Substitute the switch(es) indicated by the current atom. */
5630 if (disjunct_set
|| n_way_choice
|| a_is_negated
|| a_is_suffix
5631 || atom
== end_atom
)
5634 mark_matching_switches (atom
, end_atom
, a_is_starred
);
5637 process_marked_switches ();
5641 /* Substitute some text if the current atom appears as a switch
5643 disjunct_set
= true;
5647 if (atom
== end_atom
)
5649 if (!n_way_choice
|| disj_matched
|| *p
== '|'
5650 || a_is_negated
|| a_is_suffix
|| a_is_starred
)
5653 /* An empty term may appear as the last choice of an
5654 N-way choice set; it means "otherwise". */
5655 a_must_be_last
= true;
5656 disj_matched
= !n_way_matched
;
5657 disj_starred
= false;
5661 if (a_is_suffix
&& a_is_starred
)
5665 disj_starred
= false;
5667 /* Don't bother testing this atom if we already have a
5669 if (!disj_matched
&& !n_way_matched
)
5672 a_matched
= input_suffix_matches (atom
, end_atom
);
5674 a_matched
= switch_matches (atom
, end_atom
, a_is_starred
);
5676 if (a_matched
!= a_is_negated
)
5678 disj_matched
= true;
5680 d_end_atom
= end_atom
;
5687 /* Found the body, that is, the text to substitute if the
5688 current disjunction matches. */
5689 p
= process_brace_body (p
+ 1, d_atom
, d_end_atom
, disj_starred
,
5690 disj_matched
&& !n_way_matched
);
5694 /* If we have an N-way choice, reset state for the next
5698 n_way_choice
= true;
5699 n_way_matched
|= disj_matched
;
5700 disj_matched
= false;
5701 disj_starred
= true;
5702 d_atom
= d_end_atom
= NULL
;
5711 while (*p
++ != '}');
5716 fatal ("braced spec '%s' is invalid at '%c'", orig
, *p
);
5721 /* Subroutine of handle_braces. Scan and process a brace substitution body
5722 (X in the description of %{} syntax). P points one past the colon;
5723 ATOM and END_ATOM bracket the first atom which was found to be true
5724 (present) in the current disjunction; STARRED indicates whether all
5725 the atoms in the current disjunction were starred (for syntax validation);
5726 MATCHED indicates whether the disjunction matched or not, and therefore
5727 whether or not the body is to be processed through do_spec_1 or just
5728 skipped. Returns a pointer to the closing } or ;, or 0 if do_spec_1
5732 process_brace_body (const char *p
, const char *atom
, const char *end_atom
,
5733 int starred
, int matched
)
5735 const char *body
, *end_body
;
5736 unsigned int nesting_level
;
5737 bool have_subst
= false;
5739 /* Locate the closing } or ;, honoring nested braces.
5740 Trim trailing whitespace. */
5749 if (!--nesting_level
)
5752 else if (*p
== ';' && nesting_level
== 1)
5754 else if (*p
== '%' && p
[1] == '*' && nesting_level
== 1)
5756 else if (*p
== '\0')
5762 while (end_body
[-1] == ' ' || end_body
[-1] == '\t')
5765 if (have_subst
&& !starred
)
5770 /* Copy the substitution body to permanent storage and execute it.
5771 If have_subst is false, this is a simple matter of running the
5772 body through do_spec_1... */
5773 char *string
= save_string (body
, end_body
- body
);
5776 if (do_spec_1 (string
, 0, NULL
) < 0)
5781 /* ... but if have_subst is true, we have to process the
5782 body once for each matching switch, with %* set to the
5783 variant part of the switch. */
5784 unsigned int hard_match_len
= end_atom
- atom
;
5787 for (i
= 0; i
< n_switches
; i
++)
5788 if (!strncmp (switches
[i
].part1
, atom
, hard_match_len
)
5789 && check_live_switch (i
, hard_match_len
))
5791 if (do_spec_1 (string
, 0,
5792 &switches
[i
].part1
[hard_match_len
]) < 0)
5794 /* Pass any arguments this switch has. */
5796 suffix_subst
= NULL
;
5804 fatal ("braced spec body '%s' is invalid", body
);
5807 /* Return 0 iff switch number SWITCHNUM is obsoleted by a later switch
5808 on the command line. PREFIX_LENGTH is the length of XXX in an {XXX*}
5809 spec, or -1 if either exact match or %* is used.
5811 A -O switch is obsoleted by a later -O switch. A -f, -m, or -W switch
5812 whose value does not begin with "no-" is obsoleted by the same value
5813 with the "no-", similarly for a switch with the "no-" prefix. */
5816 check_live_switch (int switchnum
, int prefix_length
)
5818 const char *name
= switches
[switchnum
].part1
;
5821 /* In the common case of {<at-most-one-letter>*}, a negating
5822 switch would always match, so ignore that case. We will just
5823 send the conflicting switches to the compiler phase. */
5824 if (prefix_length
>= 0 && prefix_length
<= 1)
5827 /* If we already processed this switch and determined if it was
5828 live or not, return our past determination. */
5829 if (switches
[switchnum
].live_cond
!= 0)
5830 return switches
[switchnum
].live_cond
> 0;
5832 /* Now search for duplicate in a manner that depends on the name. */
5836 for (i
= switchnum
+ 1; i
< n_switches
; i
++)
5837 if (switches
[i
].part1
[0] == 'O')
5839 switches
[switchnum
].validated
= 1;
5840 switches
[switchnum
].live_cond
= SWITCH_FALSE
;
5845 case 'W': case 'f': case 'm':
5846 if (! strncmp (name
+ 1, "no-", 3))
5848 /* We have Xno-YYY, search for XYYY. */
5849 for (i
= switchnum
+ 1; i
< n_switches
; i
++)
5850 if (switches
[i
].part1
[0] == name
[0]
5851 && ! strcmp (&switches
[i
].part1
[1], &name
[4]))
5853 switches
[switchnum
].validated
= 1;
5854 switches
[switchnum
].live_cond
= SWITCH_FALSE
;
5860 /* We have XYYY, search for Xno-YYY. */
5861 for (i
= switchnum
+ 1; i
< n_switches
; i
++)
5862 if (switches
[i
].part1
[0] == name
[0]
5863 && switches
[i
].part1
[1] == 'n'
5864 && switches
[i
].part1
[2] == 'o'
5865 && switches
[i
].part1
[3] == '-'
5866 && !strcmp (&switches
[i
].part1
[4], &name
[1]))
5868 switches
[switchnum
].validated
= 1;
5869 switches
[switchnum
].live_cond
= SWITCH_FALSE
;
5876 /* Otherwise the switch is live. */
5877 switches
[switchnum
].live_cond
= SWITCH_LIVE
;
5881 /* Pass a switch to the current accumulating command
5882 in the same form that we received it.
5883 SWITCHNUM identifies the switch; it is an index into
5884 the vector of switches gcc received, which is `switches'.
5885 This cannot fail since it never finishes a command line.
5887 If OMIT_FIRST_WORD is nonzero, then we omit .part1 of the argument. */
5890 give_switch (int switchnum
, int omit_first_word
)
5892 if (switches
[switchnum
].live_cond
== SWITCH_IGNORE
)
5895 if (!omit_first_word
)
5897 do_spec_1 ("-", 0, NULL
);
5898 do_spec_1 (switches
[switchnum
].part1
, 1, NULL
);
5901 if (switches
[switchnum
].args
!= 0)
5904 for (p
= switches
[switchnum
].args
; *p
; p
++)
5906 const char *arg
= *p
;
5908 do_spec_1 (" ", 0, NULL
);
5911 unsigned length
= strlen (arg
);
5914 while (length
-- && !IS_DIR_SEPARATOR (arg
[length
]))
5915 if (arg
[length
] == '.')
5917 ((char *)arg
)[length
] = 0;
5921 do_spec_1 (arg
, 1, NULL
);
5923 ((char *)arg
)[length
] = '.';
5924 do_spec_1 (suffix_subst
, 1, NULL
);
5927 do_spec_1 (arg
, 1, NULL
);
5931 do_spec_1 (" ", 0, NULL
);
5932 switches
[switchnum
].validated
= 1;
5935 /* Search for a file named NAME trying various prefixes including the
5936 user's -B prefix and some standard ones.
5937 Return the absolute file name found. If nothing is found, return NAME. */
5940 find_file (const char *name
)
5942 char *newname
= find_a_file (&startfile_prefixes
, name
, R_OK
, true);
5943 return newname
? newname
: name
;
5946 /* Determine whether a directory exists. If LINKER, return 0 for
5947 certain fixed names not needed by the linker. */
5950 is_directory (const char *path1
, bool linker
)
5957 /* Ensure the string ends with "/.". The resulting path will be a
5958 directory even if the given path is a symbolic link. */
5959 len1
= strlen (path1
);
5960 path
= alloca (3 + len1
);
5961 memcpy (path
, path1
, len1
);
5963 if (!IS_DIR_SEPARATOR (cp
[-1]))
5964 *cp
++ = DIR_SEPARATOR
;
5968 /* Exclude directories that the linker is known to search. */
5970 && IS_DIR_SEPARATOR (path
[0])
5972 && strncmp (path
+ 1, "lib", 3) == 0)
5974 && strncmp (path
+ 1, "usr", 3) == 0
5975 && IS_DIR_SEPARATOR (path
[4])
5976 && strncmp (path
+ 5, "lib", 3) == 0)))
5979 return (stat (path
, &st
) >= 0 && S_ISDIR (st
.st_mode
));
5982 /* Set up the various global variables to indicate that we're processing
5983 the input file named FILENAME. */
5986 set_input (const char *filename
)
5990 input_filename
= filename
;
5991 input_filename_length
= strlen (input_filename
);
5993 input_basename
= input_filename
;
5994 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
5995 /* Skip drive name so 'x:foo' is handled properly. */
5996 if (input_basename
[1] == ':')
5997 input_basename
+= 2;
5999 for (p
= input_basename
; *p
; p
++)
6000 if (IS_DIR_SEPARATOR (*p
))
6001 input_basename
= p
+ 1;
6003 /* Find a suffix starting with the last period,
6004 and set basename_length to exclude that suffix. */
6005 basename_length
= strlen (input_basename
);
6006 suffixed_basename_length
= basename_length
;
6007 p
= input_basename
+ basename_length
;
6008 while (p
!= input_basename
&& *p
!= '.')
6010 if (*p
== '.' && p
!= input_basename
)
6012 basename_length
= p
- input_basename
;
6013 input_suffix
= p
+ 1;
6018 /* If a spec for 'g', 'u', or 'U' is seen with -save-temps then
6019 we will need to do a stat on the input_filename. The
6020 INPUT_STAT_SET signals that the stat is needed. */
6024 /* On fatal signals, delete all the temporary files. */
6027 fatal_error (int signum
)
6029 signal (signum
, SIG_DFL
);
6030 delete_failure_queue ();
6031 delete_temp_files ();
6032 /* Get the same signal again, this time not handled,
6033 so its normal effect occurs. */
6034 kill (getpid (), signum
);
6037 extern int main (int, char **);
6040 main (int argc
, char **argv
)
6044 int linker_was_run
= 0;
6045 int lang_n_infiles
= 0;
6046 int num_linker_inputs
= 0;
6047 char *explicit_link_files
;
6050 struct user_specs
*uptr
;
6052 p
= argv
[0] + strlen (argv
[0]);
6053 while (p
!= argv
[0] && !IS_DIR_SEPARATOR (p
[-1]))
6057 xmalloc_set_program_name (programname
);
6059 expandargv (&argc
, &argv
);
6061 #ifdef GCC_DRIVER_HOST_INITIALIZATION
6062 /* Perform host dependent initialization when needed. */
6063 GCC_DRIVER_HOST_INITIALIZATION
;
6066 /* Unlock the stdio streams. */
6067 unlock_std_streams ();
6069 gcc_init_libintl ();
6071 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
6072 signal (SIGINT
, fatal_error
);
6074 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
6075 signal (SIGHUP
, fatal_error
);
6077 if (signal (SIGTERM
, SIG_IGN
) != SIG_IGN
)
6078 signal (SIGTERM
, fatal_error
);
6080 if (signal (SIGPIPE
, SIG_IGN
) != SIG_IGN
)
6081 signal (SIGPIPE
, fatal_error
);
6084 /* We *MUST* set SIGCHLD to SIG_DFL so that the wait4() call will
6085 receive the signal. A different setting is inheritable */
6086 signal (SIGCHLD
, SIG_DFL
);
6089 /* Allocate the argument vector. */
6092 obstack_init (&obstack
);
6094 /* Build multilib_select, et. al from the separate lines that make up each
6095 multilib selection. */
6097 const char *const *q
= multilib_raw
;
6100 obstack_init (&multilib_obstack
);
6101 while ((p
= *q
++) != (char *) 0)
6102 obstack_grow (&multilib_obstack
, p
, strlen (p
));
6104 obstack_1grow (&multilib_obstack
, 0);
6105 multilib_select
= XOBFINISH (&multilib_obstack
, const char *);
6107 q
= multilib_matches_raw
;
6108 while ((p
= *q
++) != (char *) 0)
6109 obstack_grow (&multilib_obstack
, p
, strlen (p
));
6111 obstack_1grow (&multilib_obstack
, 0);
6112 multilib_matches
= XOBFINISH (&multilib_obstack
, const char *);
6114 q
= multilib_exclusions_raw
;
6115 while ((p
= *q
++) != (char *) 0)
6116 obstack_grow (&multilib_obstack
, p
, strlen (p
));
6118 obstack_1grow (&multilib_obstack
, 0);
6119 multilib_exclusions
= XOBFINISH (&multilib_obstack
, const char *);
6122 for (i
= 0; i
< ARRAY_SIZE (multilib_defaults_raw
); i
++)
6125 obstack_1grow (&multilib_obstack
, ' ');
6126 obstack_grow (&multilib_obstack
,
6127 multilib_defaults_raw
[i
],
6128 strlen (multilib_defaults_raw
[i
]));
6132 obstack_1grow (&multilib_obstack
, 0);
6133 multilib_defaults
= XOBFINISH (&multilib_obstack
, const char *);
6136 /* Set up to remember the pathname of gcc and any options
6137 needed for collect. We use argv[0] instead of programname because
6138 we need the complete pathname. */
6139 obstack_init (&collect_obstack
);
6140 obstack_grow (&collect_obstack
, "COLLECT_GCC=", sizeof ("COLLECT_GCC=") - 1);
6141 obstack_grow (&collect_obstack
, argv
[0], strlen (argv
[0]) + 1);
6142 putenv (XOBFINISH (&collect_obstack
, char *));
6144 #ifdef INIT_ENVIRONMENT
6145 /* Set up any other necessary machine specific environment variables. */
6146 putenv (INIT_ENVIRONMENT
);
6149 /* Make a table of what switches there are (switches, n_switches).
6150 Make a table of specified input files (infiles, n_infiles).
6151 Decode switches that are handled locally. */
6153 process_command (argc
, (const char **) argv
);
6155 /* Initialize the vector of specs to just the default.
6156 This means one element containing 0s, as a terminator. */
6158 compilers
= xmalloc (sizeof default_compilers
);
6159 memcpy (compilers
, default_compilers
, sizeof default_compilers
);
6160 n_compilers
= n_default_compilers
;
6162 /* Read specs from a file if there is one. */
6164 machine_suffix
= concat (spec_machine
, dir_separator_str
,
6165 spec_version
, dir_separator_str
, NULL
);
6166 just_machine_suffix
= concat (spec_machine
, dir_separator_str
, NULL
);
6168 specs_file
= find_a_file (&startfile_prefixes
, "specs", R_OK
, true);
6169 /* Read the specs file unless it is a default one. */
6170 if (specs_file
!= 0 && strcmp (specs_file
, "specs"))
6171 read_specs (specs_file
, TRUE
);
6175 /* We need to check standard_exec_prefix/just_machine_suffix/specs
6176 for any override of as, ld and libraries. */
6177 specs_file
= alloca (strlen (standard_exec_prefix
)
6178 + strlen (just_machine_suffix
) + sizeof ("specs"));
6180 strcpy (specs_file
, standard_exec_prefix
);
6181 strcat (specs_file
, just_machine_suffix
);
6182 strcat (specs_file
, "specs");
6183 if (access (specs_file
, R_OK
) == 0)
6184 read_specs (specs_file
, TRUE
);
6186 /* Process any configure-time defaults specified for the command line
6187 options, via OPTION_DEFAULT_SPECS. */
6188 for (i
= 0; i
< ARRAY_SIZE (option_default_specs
); i
++)
6189 do_option_spec (option_default_specs
[i
].name
,
6190 option_default_specs
[i
].spec
);
6192 /* Process DRIVER_SELF_SPECS, adding any new options to the end
6193 of the command line. */
6195 for (i
= 0; i
< ARRAY_SIZE (driver_self_specs
); i
++)
6196 do_self_spec (driver_self_specs
[i
]);
6198 /* If not cross-compiling, look for executables in the standard
6200 if (*cross_compile
== '0')
6202 if (*md_exec_prefix
)
6204 add_prefix (&exec_prefixes
, md_exec_prefix
, "GCC",
6205 PREFIX_PRIORITY_LAST
, 0, 0);
6209 /* Process sysroot_suffix_spec. */
6210 if (*sysroot_suffix_spec
!= 0
6211 && do_spec_2 (sysroot_suffix_spec
) == 0)
6213 if (argbuf_index
> 1)
6214 error ("spec failure: more than one arg to SYSROOT_SUFFIX_SPEC");
6215 else if (argbuf_index
== 1)
6216 target_sysroot_suffix
= xstrdup (argbuf
[argbuf_index
-1]);
6219 #ifdef HAVE_LD_SYSROOT
6220 /* Pass the --sysroot option to the linker, if it supports that. If
6221 there is a sysroot_suffix_spec, it has already been processed by
6222 this point, so target_system_root really is the system root we
6224 if (target_system_root
)
6226 obstack_grow (&obstack
, "%(sysroot_spec) ", strlen ("%(sysroot_spec) "));
6227 obstack_grow0 (&obstack
, link_spec
, strlen (link_spec
));
6228 set_spec ("link", XOBFINISH (&obstack
, const char *));
6232 /* Process sysroot_hdrs_suffix_spec. */
6233 if (*sysroot_hdrs_suffix_spec
!= 0
6234 && do_spec_2 (sysroot_hdrs_suffix_spec
) == 0)
6236 if (argbuf_index
> 1)
6237 error ("spec failure: more than one arg to SYSROOT_HEADERS_SUFFIX_SPEC");
6238 else if (argbuf_index
== 1)
6239 target_sysroot_hdrs_suffix
= xstrdup (argbuf
[argbuf_index
-1]);
6242 /* Look for startfiles in the standard places. */
6243 if (*startfile_prefix_spec
!= 0
6244 && do_spec_2 (startfile_prefix_spec
) == 0
6245 && do_spec_1 (" ", 0, NULL
) == 0)
6248 for (ndx
= 0; ndx
< argbuf_index
; ndx
++)
6249 add_sysrooted_prefix (&startfile_prefixes
, argbuf
[ndx
], "BINUTILS",
6250 PREFIX_PRIORITY_LAST
, 0, 1);
6252 /* We should eventually get rid of all these and stick to
6253 startfile_prefix_spec exclusively. */
6254 else if (*cross_compile
== '0' || target_system_root
)
6256 if (*md_startfile_prefix
)
6257 add_sysrooted_prefix (&startfile_prefixes
, md_startfile_prefix
,
6258 "GCC", PREFIX_PRIORITY_LAST
, 0, 1);
6260 if (*md_startfile_prefix_1
)
6261 add_sysrooted_prefix (&startfile_prefixes
, md_startfile_prefix_1
,
6262 "GCC", PREFIX_PRIORITY_LAST
, 0, 1);
6264 /* If standard_startfile_prefix is relative, base it on
6265 standard_exec_prefix. This lets us move the installed tree
6266 as a unit. If GCC_EXEC_PREFIX is defined, base
6267 standard_startfile_prefix on that as well.
6269 If the prefix is relative, only search it for native compilers;
6270 otherwise we will search a directory containing host libraries. */
6271 if (IS_ABSOLUTE_PATH (standard_startfile_prefix
))
6272 add_sysrooted_prefix (&startfile_prefixes
,
6273 standard_startfile_prefix
, "BINUTILS",
6274 PREFIX_PRIORITY_LAST
, 0, 1);
6275 else if (*cross_compile
== '0')
6277 if (gcc_exec_prefix
)
6278 add_prefix (&startfile_prefixes
,
6279 concat (gcc_exec_prefix
, machine_suffix
,
6280 standard_startfile_prefix
, NULL
),
6281 NULL
, PREFIX_PRIORITY_LAST
, 0, 1);
6282 add_prefix (&startfile_prefixes
,
6283 concat (standard_exec_prefix
,
6285 standard_startfile_prefix
, NULL
),
6286 NULL
, PREFIX_PRIORITY_LAST
, 0, 1);
6289 if (*standard_startfile_prefix_1
)
6290 add_sysrooted_prefix (&startfile_prefixes
,
6291 standard_startfile_prefix_1
, "BINUTILS",
6292 PREFIX_PRIORITY_LAST
, 0, 1);
6293 if (*standard_startfile_prefix_2
)
6294 add_sysrooted_prefix (&startfile_prefixes
,
6295 standard_startfile_prefix_2
, "BINUTILS",
6296 PREFIX_PRIORITY_LAST
, 0, 1);
6299 /* Process any user specified specs in the order given on the command
6301 for (uptr
= user_specs_head
; uptr
; uptr
= uptr
->next
)
6303 char *filename
= find_a_file (&startfile_prefixes
, uptr
->filename
,
6305 read_specs (filename
? filename
: uptr
->filename
, FALSE
);
6308 /* If we have a GCC_EXEC_PREFIX envvar, modify it for cpp's sake. */
6309 if (gcc_exec_prefix
)
6310 gcc_exec_prefix
= concat (gcc_exec_prefix
, spec_machine
, dir_separator_str
,
6311 spec_version
, dir_separator_str
, NULL
);
6313 /* Now we have the specs.
6314 Set the `valid' bits for switches that match anything in any spec. */
6316 validate_all_switches ();
6318 /* Now that we have the switches and the specs, set
6319 the subdirectory based on the options. */
6320 set_multilib_dir ();
6322 /* Warn about any switches that no pass was interested in. */
6324 for (i
= 0; (int) i
< n_switches
; i
++)
6325 if (! switches
[i
].validated
)
6326 error ("unrecognized option '-%s'", switches
[i
].part1
);
6328 /* Obey some of the options. */
6330 if (print_search_dirs
)
6332 printf (_("install: %s%s\n"), standard_exec_prefix
, machine_suffix
);
6333 printf (_("programs: %s\n"),
6334 build_search_list (&exec_prefixes
, "", false, false));
6335 printf (_("libraries: %s\n"),
6336 build_search_list (&startfile_prefixes
, "", false, true));
6340 if (print_file_name
)
6342 printf ("%s\n", find_file (print_file_name
));
6346 if (print_prog_name
)
6348 char *newname
= find_a_file (&exec_prefixes
, print_prog_name
, X_OK
, 0);
6349 printf ("%s\n", (newname
? newname
: print_prog_name
));
6353 if (print_multi_lib
)
6355 print_multilib_info ();
6359 if (print_multi_directory
)
6361 if (multilib_dir
== NULL
)
6364 printf ("%s\n", multilib_dir
);
6368 if (print_multi_os_directory
)
6370 if (multilib_os_dir
== NULL
)
6373 printf ("%s\n", multilib_os_dir
);
6377 if (target_help_flag
)
6379 /* Print if any target specific options. */
6381 /* We do not exit here. Instead we have created a fake input file
6382 called 'target-dummy' which needs to be compiled, and we pass this
6383 on to the various sub-processes, along with the --target-help
6387 if (print_help_list
)
6393 printf (_("\nFor bug reporting instructions, please see:\n"));
6394 printf ("%s.\n", bug_report_url
);
6399 /* We do not exit here. Instead we have created a fake input file
6400 called 'help-dummy' which needs to be compiled, and we pass this
6401 on the various sub-processes, along with the --help switch. */
6409 notice ("Target: %s\n", spec_machine
);
6410 notice ("Configured with: %s\n", configuration_arguments
);
6412 #ifdef THREAD_MODEL_SPEC
6413 /* We could have defined THREAD_MODEL_SPEC to "%*" by default,
6414 but there's no point in doing all this processing just to get
6415 thread_model back. */
6416 obstack_init (&obstack
);
6417 do_spec_1 (THREAD_MODEL_SPEC
, 0, thread_model
);
6418 obstack_1grow (&obstack
, '\0');
6419 thrmod
= XOBFINISH (&obstack
, const char *);
6421 thrmod
= thread_model
;
6424 notice ("Thread model: %s\n", thrmod
);
6426 /* compiler_version is truncated at the first space when initialized
6427 from version string, so truncate version_string at the first space
6428 before comparing. */
6429 for (n
= 0; version_string
[n
]; n
++)
6430 if (version_string
[n
] == ' ')
6433 if (! strncmp (version_string
, compiler_version
, n
)
6434 && compiler_version
[n
] == 0)
6435 notice ("gcc version %s\n", version_string
);
6437 notice ("gcc driver version %s executing gcc version %s\n",
6438 version_string
, compiler_version
);
6444 if (n_infiles
== added_libraries
)
6445 fatal ("no input files");
6447 /* Make a place to record the compiler output file names
6448 that correspond to the input files. */
6451 i
+= lang_specific_extra_outfiles
;
6452 outfiles
= xcalloc (i
, sizeof (char *));
6454 /* Record which files were specified explicitly as link input. */
6456 explicit_link_files
= xcalloc (1, n_infiles
);
6459 combine_inputs
= true;
6461 combine_inputs
= false;
6463 for (i
= 0; (int) i
< n_infiles
; i
++)
6465 const char *name
= infiles
[i
].name
;
6466 struct compiler
*compiler
= lookup_compiler (name
,
6468 infiles
[i
].language
);
6470 if (compiler
&& !(compiler
->combinable
))
6471 combine_inputs
= false;
6473 if (lang_n_infiles
> 0 && compiler
!= input_file_compiler
6474 && infiles
[i
].language
&& infiles
[i
].language
[0] != '*')
6475 infiles
[i
].incompiler
= compiler
;
6479 input_file_compiler
= compiler
;
6480 infiles
[i
].incompiler
= compiler
;
6484 /* Since there is no compiler for this input file, assume it is a
6486 explicit_link_files
[i
] = 1;
6487 infiles
[i
].incompiler
= NULL
;
6489 infiles
[i
].compiled
= false;
6490 infiles
[i
].preprocessed
= false;
6493 if (!combine_inputs
&& have_c
&& have_o
&& lang_n_infiles
> 1)
6494 fatal ("cannot specify -o with -c or -S with multiple files");
6496 if (combine_flag
&& save_temps_flag
)
6498 bool save_combine_inputs
= combine_inputs
;
6499 /* Must do a separate pre-processing pass for C & Objective-C files, to
6500 obtain individual .i files. */
6502 combine_inputs
= false;
6503 for (i
= 0; (int) i
< n_infiles
; i
++)
6505 int this_file_error
= 0;
6507 input_file_number
= i
;
6508 set_input (infiles
[i
].name
);
6509 if (infiles
[i
].incompiler
6510 && (infiles
[i
].incompiler
)->needs_preprocessing
)
6511 input_file_compiler
= infiles
[i
].incompiler
;
6515 if (input_file_compiler
)
6517 if (input_file_compiler
->spec
[0] == '#')
6519 error ("%s: %s compiler not installed on this system",
6520 input_filename
, &input_file_compiler
->spec
[1]);
6521 this_file_error
= 1;
6525 value
= do_spec (input_file_compiler
->spec
);
6526 infiles
[i
].preprocessed
= true;
6527 if (!have_o_argbuf_index
)
6528 fatal ("spec '%s' is invalid", input_file_compiler
->spec
);
6529 infiles
[i
].name
= argbuf
[have_o_argbuf_index
];
6530 infiles
[i
].incompiler
6531 = lookup_compiler (infiles
[i
].name
,
6532 strlen (infiles
[i
].name
),
6533 infiles
[i
].language
);
6536 this_file_error
= 1;
6540 if (this_file_error
)
6542 delete_failure_queue ();
6546 clear_failure_queue ();
6548 combine_inputs
= save_combine_inputs
;
6551 for (i
= 0; (int) i
< n_infiles
; i
++)
6553 int this_file_error
= 0;
6555 /* Tell do_spec what to substitute for %i. */
6557 input_file_number
= i
;
6558 set_input (infiles
[i
].name
);
6560 if (infiles
[i
].compiled
)
6563 /* Use the same thing in %o, unless cp->spec says otherwise. */
6565 outfiles
[i
] = input_filename
;
6567 /* Figure out which compiler from the file's suffix. */
6569 if (! combine_inputs
)
6571 = lookup_compiler (infiles
[i
].name
, input_filename_length
,
6572 infiles
[i
].language
);
6574 input_file_compiler
= infiles
[i
].incompiler
;
6576 if (input_file_compiler
)
6578 /* Ok, we found an applicable compiler. Run its spec. */
6580 if (input_file_compiler
->spec
[0] == '#')
6582 error ("%s: %s compiler not installed on this system",
6583 input_filename
, &input_file_compiler
->spec
[1]);
6584 this_file_error
= 1;
6588 value
= do_spec (input_file_compiler
->spec
);
6589 infiles
[i
].compiled
= true;
6591 this_file_error
= 1;
6595 /* If this file's name does not contain a recognized suffix,
6596 record it as explicit linker input. */
6599 explicit_link_files
[i
] = 1;
6601 /* Clear the delete-on-failure queue, deleting the files in it
6602 if this compilation failed. */
6604 if (this_file_error
)
6606 delete_failure_queue ();
6609 /* If this compilation succeeded, don't delete those files later. */
6610 clear_failure_queue ();
6613 /* Reset the input file name to the first compile/object file name, for use
6614 with %b in LINK_SPEC. We use the first input file that we can find
6615 a compiler to compile it instead of using infiles.language since for
6616 languages other than C we use aliases that we then lookup later. */
6621 for (i
= 0; i
< n_infiles
; i
++)
6622 if (infiles
[i
].language
&& infiles
[i
].language
[0] != '*')
6624 set_input (infiles
[i
].name
);
6629 if (error_count
== 0)
6631 /* Make sure INPUT_FILE_NUMBER points to first available open
6633 input_file_number
= n_infiles
;
6634 if (lang_specific_pre_link ())
6638 /* Determine if there are any linker input files. */
6639 num_linker_inputs
= 0;
6640 for (i
= 0; (int) i
< n_infiles
; i
++)
6641 if (explicit_link_files
[i
] || outfiles
[i
] != NULL
)
6642 num_linker_inputs
++;
6644 /* Run ld to link all the compiler output files. */
6646 if (num_linker_inputs
> 0 && error_count
== 0)
6648 int tmp
= execution_count
;
6650 /* We'll use ld if we can't find collect2. */
6651 if (! strcmp (linker_name_spec
, "collect2"))
6653 char *s
= find_a_file (&exec_prefixes
, "collect2", X_OK
, false);
6655 linker_name_spec
= "ld";
6657 /* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
6659 putenv_from_prefixes (&exec_prefixes
, "COMPILER_PATH", false);
6660 putenv_from_prefixes (&startfile_prefixes
, LIBRARY_PATH_ENV
, true);
6662 value
= do_spec (link_command_spec
);
6665 linker_was_run
= (tmp
!= execution_count
);
6668 /* If options said don't run linker,
6669 complain about input files to be given to the linker. */
6671 if (! linker_was_run
&& error_count
== 0)
6672 for (i
= 0; (int) i
< n_infiles
; i
++)
6673 if (explicit_link_files
[i
])
6674 error ("%s: linker input file unused because linking not done",
6677 /* Delete some or all of the temporary files we made. */
6680 delete_failure_queue ();
6681 delete_temp_files ();
6683 if (print_help_list
)
6685 printf (("\nFor bug reporting instructions, please see:\n"));
6686 printf ("%s\n", bug_report_url
);
6689 return (signal_count
!= 0 ? 2
6690 : error_count
> 0 ? (pass_exit_codes
? greatest_status
: 1)
6694 /* Find the proper compilation spec for the file name NAME,
6695 whose length is LENGTH. LANGUAGE is the specified language,
6696 or 0 if this file is to be passed to the linker. */
6698 static struct compiler
*
6699 lookup_compiler (const char *name
, size_t length
, const char *language
)
6701 struct compiler
*cp
;
6703 /* If this was specified by the user to be a linker input, indicate that. */
6704 if (language
!= 0 && language
[0] == '*')
6707 /* Otherwise, look for the language, if one is spec'd. */
6710 for (cp
= compilers
+ n_compilers
- 1; cp
>= compilers
; cp
--)
6711 if (cp
->suffix
[0] == '@' && !strcmp (cp
->suffix
+ 1, language
))
6714 error ("language %s not recognized", language
);
6718 /* Look for a suffix. */
6719 for (cp
= compilers
+ n_compilers
- 1; cp
>= compilers
; cp
--)
6721 if (/* The suffix `-' matches only the file name `-'. */
6722 (!strcmp (cp
->suffix
, "-") && !strcmp (name
, "-"))
6723 || (strlen (cp
->suffix
) < length
6724 /* See if the suffix matches the end of NAME. */
6725 && !strcmp (cp
->suffix
,
6726 name
+ length
- strlen (cp
->suffix
))
6731 #if defined (OS2) ||defined (HAVE_DOS_BASED_FILE_SYSTEM)
6732 /* Look again, but case-insensitively this time. */
6734 for (cp
= compilers
+ n_compilers
- 1; cp
>= compilers
; cp
--)
6736 if (/* The suffix `-' matches only the file name `-'. */
6737 (!strcmp (cp
->suffix
, "-") && !strcmp (name
, "-"))
6738 || (strlen (cp
->suffix
) < length
6739 /* See if the suffix matches the end of NAME. */
6740 && ((!strcmp (cp
->suffix
,
6741 name
+ length
- strlen (cp
->suffix
))
6742 || !strpbrk (cp
->suffix
, "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
6743 && !strcasecmp (cp
->suffix
,
6744 name
+ length
- strlen (cp
->suffix
)))
6750 if (cp
>= compilers
)
6752 if (cp
->spec
[0] != '@')
6753 /* A non-alias entry: return it. */
6756 /* An alias entry maps a suffix to a language.
6757 Search for the language; pass 0 for NAME and LENGTH
6758 to avoid infinite recursion if language not found. */
6759 return lookup_compiler (NULL
, 0, cp
->spec
+ 1);
6765 save_string (const char *s
, int len
)
6767 char *result
= xmalloc (len
+ 1);
6769 memcpy (result
, s
, len
);
6775 pfatal_with_name (const char *name
)
6777 perror_with_name (name
);
6778 delete_temp_files ();
6783 perror_with_name (const char *name
)
6785 error ("%s: %s", name
, xstrerror (errno
));
6788 /* Output an error message and exit. */
6791 fancy_abort (const char *file
, int line
, const char *func
)
6793 fatal ("internal gcc abort in %s, at %s:%d", func
, file
, line
);
6796 /* Output an error message and exit. */
6799 fatal (const char *cmsgid
, ...)
6803 va_start (ap
, cmsgid
);
6805 fprintf (stderr
, "%s: ", programname
);
6806 vfprintf (stderr
, _(cmsgid
), ap
);
6808 fprintf (stderr
, "\n");
6809 delete_temp_files ();
6813 /* The argument is actually c-format, not gcc-internal-format,
6814 but because functions with identical names are used through
6815 the rest of the compiler with gcc-internal-format, we just
6816 need to hope all users of these functions use the common
6817 subset between c-format and gcc-internal-format. */
6820 error (const char *gmsgid
, ...)
6824 va_start (ap
, gmsgid
);
6825 fprintf (stderr
, "%s: ", programname
);
6826 vfprintf (stderr
, _(gmsgid
), ap
);
6829 fprintf (stderr
, "\n");
6833 notice (const char *cmsgid
, ...)
6837 va_start (ap
, cmsgid
);
6838 vfprintf (stderr
, _(cmsgid
), ap
);
6843 validate_switches_from_spec (const char *spec
)
6845 const char *p
= spec
;
6848 if (c
== '%' && (*p
== '{' || *p
== '<' || (*p
== 'W' && *++p
== '{')))
6849 /* We have a switch spec. */
6850 p
= validate_switches (p
+ 1);
6854 validate_all_switches (void)
6856 struct compiler
*comp
;
6857 struct spec_list
*spec
;
6859 for (comp
= compilers
; comp
->spec
; comp
++)
6860 validate_switches_from_spec (comp
->spec
);
6862 /* Look through the linked list of specs read from the specs file. */
6863 for (spec
= specs
; spec
; spec
= spec
->next
)
6864 validate_switches_from_spec (*spec
->ptr_spec
);
6866 validate_switches_from_spec (link_command_spec
);
6869 /* Look at the switch-name that comes after START
6870 and mark as valid all supplied switches that match it. */
6873 validate_switches (const char *start
)
6875 const char *p
= start
;
6879 bool suffix
= false;
6880 bool starred
= false;
6882 #define SKIP_WHITE() do { while (*p == ' ' || *p == '\t') p++; } while (0)
6895 while (ISIDNUM (*p
) || *p
== '-' || *p
== '+' || *p
== '='
6896 || *p
== ',' || *p
== '.' || *p
== '@')
6901 starred
= true, p
++;
6907 /* Mark all matching switches as valid. */
6908 for (i
= 0; i
< n_switches
; i
++)
6909 if (!strncmp (switches
[i
].part1
, atom
, len
)
6910 && (starred
|| switches
[i
].part1
[len
] == 0))
6911 switches
[i
].validated
= 1;
6915 if (*p
&& (p
[-1] == '|' || p
[-1] == '&'))
6918 if (*p
&& p
[-1] == ':')
6920 while (*p
&& *p
!= ';' && *p
!= '}')
6925 if (*p
== '{' || *p
== '<')
6926 p
= validate_switches (p
+1);
6927 else if (p
[0] == 'W' && p
[1] == '{')
6928 p
= validate_switches (p
+2);
6935 if (*p
&& p
[-1] == ';')
6949 static struct mdswitchstr
*mdswitches
;
6950 static int n_mdswitches
;
6952 /* Check whether a particular argument was used. The first time we
6953 canonicalize the switches to keep only the ones we care about. */
6956 used_arg (const char *p
, int len
)
6961 const char *replace
;
6966 static struct mswitchstr
*mswitches
;
6967 static int n_mswitches
;
6972 struct mswitchstr
*matches
;
6976 /* Break multilib_matches into the component strings of string
6977 and replacement string. */
6978 for (q
= multilib_matches
; *q
!= '\0'; q
++)
6982 matches
= alloca ((sizeof (struct mswitchstr
)) * cnt
);
6984 q
= multilib_matches
;
6993 fatal ("multilib spec '%s' is invalid", multilib_matches
);
6997 matches
[i
].len
= q
- matches
[i
].str
;
6999 matches
[i
].replace
= ++q
;
7000 while (*q
!= ';' && *q
!= '\0')
7003 goto invalid_matches
;
7006 matches
[i
].rep_len
= q
- matches
[i
].replace
;
7012 /* Now build a list of the replacement string for switches that we care
7013 about. Make sure we allocate at least one entry. This prevents
7014 xmalloc from calling fatal, and prevents us from re-executing this
7017 = xmalloc (sizeof (struct mswitchstr
)
7018 * (n_mdswitches
+ (n_switches
? n_switches
: 1)));
7019 for (i
= 0; i
< n_switches
; i
++)
7020 if (switches
[i
].live_cond
!= SWITCH_IGNORE
)
7022 int xlen
= strlen (switches
[i
].part1
);
7023 for (j
= 0; j
< cnt
; j
++)
7024 if (xlen
== matches
[j
].len
7025 && ! strncmp (switches
[i
].part1
, matches
[j
].str
, xlen
))
7027 mswitches
[n_mswitches
].str
= matches
[j
].replace
;
7028 mswitches
[n_mswitches
].len
= matches
[j
].rep_len
;
7029 mswitches
[n_mswitches
].replace
= (char *) 0;
7030 mswitches
[n_mswitches
].rep_len
= 0;
7036 /* Add MULTILIB_DEFAULTS switches too, as long as they were not present
7037 on the command line nor any options mutually incompatible with
7039 for (i
= 0; i
< n_mdswitches
; i
++)
7043 for (q
= multilib_options
; *q
!= '\0'; q
++)
7049 while (strncmp (q
, mdswitches
[i
].str
, mdswitches
[i
].len
) != 0
7050 || strchr (" /", q
[mdswitches
[i
].len
]) == NULL
)
7052 while (*q
!= ' ' && *q
!= '/' && *q
!= '\0')
7059 if (*q
!= ' ' && *q
!= '\0')
7061 while (*r
!= ' ' && *r
!= '\0')
7064 while (*q
!= ' ' && *q
!= '/' && *q
!= '\0')
7067 if (used_arg (r
, q
- r
))
7072 mswitches
[n_mswitches
].str
= mdswitches
[i
].str
;
7073 mswitches
[n_mswitches
].len
= mdswitches
[i
].len
;
7074 mswitches
[n_mswitches
].replace
= (char *) 0;
7075 mswitches
[n_mswitches
].rep_len
= 0;
7088 for (i
= 0; i
< n_mswitches
; i
++)
7089 if (len
== mswitches
[i
].len
&& ! strncmp (p
, mswitches
[i
].str
, len
))
7096 default_arg (const char *p
, int len
)
7100 for (i
= 0; i
< n_mdswitches
; i
++)
7101 if (len
== mdswitches
[i
].len
&& ! strncmp (p
, mdswitches
[i
].str
, len
))
7107 /* Work out the subdirectory to use based on the options. The format of
7108 multilib_select is a list of elements. Each element is a subdirectory
7109 name followed by a list of options followed by a semicolon. The format
7110 of multilib_exclusions is the same, but without the preceding
7111 directory. First gcc will check the exclusions, if none of the options
7112 beginning with an exclamation point are present, and all of the other
7113 options are present, then we will ignore this completely. Passing
7114 that, gcc will consider each multilib_select in turn using the same
7115 rules for matching the options. If a match is found, that subdirectory
7119 set_multilib_dir (void)
7122 unsigned int this_path_len
;
7123 const char *this_path
, *this_arg
;
7124 const char *start
, *end
;
7126 int ok
, ndfltok
, first
;
7129 start
= multilib_defaults
;
7130 while (*start
== ' ' || *start
== '\t')
7132 while (*start
!= '\0')
7135 while (*start
!= ' ' && *start
!= '\t' && *start
!= '\0')
7137 while (*start
== ' ' || *start
== '\t')
7145 mdswitches
= xmalloc (sizeof (struct mdswitchstr
) * n_mdswitches
);
7146 for (start
= multilib_defaults
; *start
!= '\0'; start
= end
+ 1)
7148 while (*start
== ' ' || *start
== '\t')
7154 for (end
= start
+ 1;
7155 *end
!= ' ' && *end
!= '\t' && *end
!= '\0'; end
++)
7158 obstack_grow (&multilib_obstack
, start
, end
- start
);
7159 obstack_1grow (&multilib_obstack
, 0);
7160 mdswitches
[i
].str
= XOBFINISH (&multilib_obstack
, const char *);
7161 mdswitches
[i
++].len
= end
- start
;
7168 p
= multilib_exclusions
;
7171 /* Ignore newlines. */
7178 /* Check the arguments. */
7185 fatal ("multilib exclusions '%s' is invalid",
7186 multilib_exclusions
);
7196 while (*p
!= ' ' && *p
!= ';')
7199 goto invalid_exclusions
;
7203 if (*this_arg
!= '!')
7211 ok
= used_arg (this_arg
, p
- this_arg
);
7226 p
= multilib_select
;
7229 /* Ignore newlines. */
7236 /* Get the initial path. */
7243 fatal ("multilib select '%s' is invalid",
7248 this_path_len
= p
- this_path
;
7250 /* Check the arguments. */
7257 goto invalid_select
;
7266 while (*p
!= ' ' && *p
!= ';')
7269 goto invalid_select
;
7273 if (*this_arg
!= '!')
7281 /* If this is a default argument, we can just ignore it.
7282 This is true even if this_arg begins with '!'. Beginning
7283 with '!' does not mean that this argument is necessarily
7284 inappropriate for this library: it merely means that
7285 there is a more specific library which uses this
7286 argument. If this argument is a default, we need not
7287 consider that more specific library. */
7288 ok
= used_arg (this_arg
, p
- this_arg
);
7295 if (default_arg (this_arg
, p
- this_arg
))
7304 if (this_path_len
!= 1
7305 || this_path
[0] != '.')
7307 char *new_multilib_dir
= xmalloc (this_path_len
+ 1);
7310 strncpy (new_multilib_dir
, this_path
, this_path_len
);
7311 new_multilib_dir
[this_path_len
] = '\0';
7312 q
= strchr (new_multilib_dir
, ':');
7315 multilib_dir
= new_multilib_dir
;
7322 const char *q
= this_path
, *end
= this_path
+ this_path_len
;
7324 while (q
< end
&& *q
!= ':')
7328 char *new_multilib_os_dir
= xmalloc (end
- q
);
7329 memcpy (new_multilib_os_dir
, q
+ 1, end
- q
- 1);
7330 new_multilib_os_dir
[end
- q
- 1] = '\0';
7331 multilib_os_dir
= new_multilib_os_dir
;
7339 if (multilib_dir
== NULL
&& multilib_os_dir
!= NULL
7340 && strcmp (multilib_os_dir
, ".") == 0)
7342 free ((char *) multilib_os_dir
);
7343 multilib_os_dir
= NULL
;
7345 else if (multilib_dir
!= NULL
&& multilib_os_dir
== NULL
)
7346 multilib_os_dir
= multilib_dir
;
7349 /* Print out the multiple library subdirectory selection
7350 information. This prints out a series of lines. Each line looks
7351 like SUBDIRECTORY;@OPTION@OPTION, with as many options as is
7352 required. Only the desired options are printed out, the negative
7353 matches. The options are print without a leading dash. There are
7354 no spaces to make it easy to use the information in the shell.
7355 Each subdirectory is printed only once. This assumes the ordering
7356 generated by the genmultilib script. Also, we leave out ones that match
7360 print_multilib_info (void)
7362 const char *p
= multilib_select
;
7363 const char *last_path
= 0, *this_path
;
7365 unsigned int last_path_len
= 0;
7370 /* Ignore newlines. */
7377 /* Get the initial path. */
7384 fatal ("multilib select '%s' is invalid", multilib_select
);
7390 /* When --disable-multilib was used but target defines
7391 MULTILIB_OSDIRNAMES, entries starting with .: are there just
7392 to find multilib_os_dir, so skip them from output. */
7393 if (this_path
[0] == '.' && this_path
[1] == ':')
7396 /* Check for matches with the multilib_exclusions. We don't bother
7397 with the '!' in either list. If any of the exclusion rules match
7398 all of its options with the select rule, we skip it. */
7400 const char *e
= multilib_exclusions
;
7401 const char *this_arg
;
7406 /* Ignore newlines. */
7413 /* Check the arguments. */
7422 fatal ("multilib exclusion '%s' is invalid",
7423 multilib_exclusions
);
7434 while (*e
!= ' ' && *e
!= ';')
7437 goto invalid_exclusion
;
7445 int len
= e
- this_arg
;
7448 goto invalid_select
;
7452 while (*q
!= ' ' && *q
!= ';')
7455 goto invalid_select
;
7459 if (! strncmp (arg
, this_arg
,
7460 (len
< q
- arg
) ? q
- arg
: len
)
7461 || default_arg (this_arg
, e
- this_arg
))
7491 /* If this is a duplicate, skip it. */
7492 skip
= (last_path
!= 0
7493 && (unsigned int) (p
- this_path
) == last_path_len
7494 && ! strncmp (last_path
, this_path
, last_path_len
));
7496 last_path
= this_path
;
7497 last_path_len
= p
- this_path
;
7500 /* If this directory requires any default arguments, we can skip
7501 it. We will already have printed a directory identical to
7502 this one which does not require that default argument. */
7513 goto invalid_select
;
7520 while (*q
!= ' ' && *q
!= ';')
7523 goto invalid_select
;
7528 && default_arg (arg
, q
- arg
))
7543 for (p1
= last_path
; p1
< p
&& *p1
!= ':'; p1
++)
7554 goto invalid_select
;
7562 use_arg
= *p
!= '!';
7567 while (*p
!= ' ' && *p
!= ';')
7570 goto invalid_select
;
7582 /* If there are extra options, print them now. */
7583 if (multilib_extra
&& *multilib_extra
)
7585 int print_at
= TRUE
;
7588 for (q
= multilib_extra
; *q
!= '\0'; q
++)
7609 /* if-exists built-in spec function.
7611 Checks to see if the file specified by the absolute pathname in
7612 ARGS exists. Returns that pathname if found.
7614 The usual use for this function is to check for a library file
7615 (whose name has been expanded with %s). */
7618 if_exists_spec_function (int argc
, const char **argv
)
7620 /* Must have only one argument. */
7621 if (argc
== 1 && IS_ABSOLUTE_PATH (argv
[0]) && ! access (argv
[0], R_OK
))
7627 /* if-exists-else built-in spec function.
7629 This is like if-exists, but takes an additional argument which
7630 is returned if the first argument does not exist. */
7633 if_exists_else_spec_function (int argc
, const char **argv
)
7635 /* Must have exactly two arguments. */
7639 if (IS_ABSOLUTE_PATH (argv
[0]) && ! access (argv
[0], R_OK
))
7645 /* replace-outfile built-in spec function.
7647 This looks for the first argument in the outfiles array's name and
7648 replaces it with the second argument. */
7651 replace_outfile_spec_function (int argc
, const char **argv
)
7654 /* Must have exactly two arguments. */
7658 for (i
= 0; i
< n_infiles
; i
++)
7660 if (outfiles
[i
] && !strcmp (outfiles
[i
], argv
[0]))
7661 outfiles
[i
] = xstrdup (argv
[1]);
7666 /* Given two version numbers, compares the two numbers.
7667 A version number must match the regular expression
7668 ([1-9][0-9]*|0)(\.([1-9][0-9]*|0))*
7671 compare_version_strings (const char *v1
, const char *v2
)
7676 if (regcomp (&r
, "^([1-9][0-9]*|0)(\\.([1-9][0-9]*|0))*$",
7677 REG_EXTENDED
| REG_NOSUB
) != 0)
7679 rresult
= regexec (&r
, v1
, 0, NULL
, 0);
7680 if (rresult
== REG_NOMATCH
)
7681 fatal ("invalid version number `%s'", v1
);
7682 else if (rresult
!= 0)
7684 rresult
= regexec (&r
, v2
, 0, NULL
, 0);
7685 if (rresult
== REG_NOMATCH
)
7686 fatal ("invalid version number `%s'", v2
);
7687 else if (rresult
!= 0)
7690 return strverscmp (v1
, v2
);
7694 /* version_compare built-in spec function.
7696 This takes an argument of the following form:
7698 <comparison-op> <arg1> [<arg2>] <switch> <result>
7700 and produces "result" if the comparison evaluates to true,
7701 and nothing if it doesn't.
7703 The supported <comparison-op> values are:
7705 >= true if switch is a later (or same) version than arg1
7707 < true if switch is an earlier version than arg1
7709 >< true if switch is arg1 or later, and earlier than arg2
7710 <> true if switch is earlier than arg1 or is arg2 or later
7712 If the switch is not present, the condition is false unless
7713 the first character of the <comparison-op> is '!'.
7716 %:version-compare(>= 10.3 mmacosx-version-min= -lmx)
7717 adds -lmx if -mmacosx-version-min=10.3.9 was passed. */
7720 version_compare_spec_function (int argc
, const char **argv
)
7724 const char *switch_value
= NULL
;
7729 fatal ("too few arguments to %%:version-compare");
7730 if (argv
[0][0] == '\0')
7732 if ((argv
[0][1] == '<' || argv
[0][1] == '>') && argv
[0][0] != '!')
7734 if (argc
!= nargs
+ 3)
7735 fatal ("too many arguments to %%:version-compare");
7737 switch_len
= strlen (argv
[nargs
+ 1]);
7738 for (i
= 0; i
< n_switches
; i
++)
7739 if (!strncmp (switches
[i
].part1
, argv
[nargs
+ 1], switch_len
)
7740 && check_live_switch (i
, switch_len
))
7741 switch_value
= switches
[i
].part1
+ switch_len
;
7743 if (switch_value
== NULL
)
7747 comp1
= compare_version_strings (switch_value
, argv
[1]);
7749 comp2
= compare_version_strings (switch_value
, argv
[2]);
7751 comp2
= -1; /* This value unused. */
7754 switch (argv
[0][0] << 8 | argv
[0][1])
7756 case '>' << 8 | '=':
7757 result
= comp1
>= 0;
7759 case '!' << 8 | '<':
7760 result
= comp1
>= 0 || switch_value
== NULL
;
7765 case '!' << 8 | '>':
7766 result
= comp1
< 0 || switch_value
== NULL
;
7768 case '>' << 8 | '<':
7769 result
= comp1
>= 0 && comp2
< 0;
7771 case '<' << 8 | '>':
7772 result
= comp1
< 0 || comp2
>= 0;
7776 fatal ("unknown operator '%s' in %%:version-compare", argv
[0]);
7781 return argv
[nargs
+ 2];