OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [gcc.c] - Blame information for rev 791

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 684 jeremybenn
/* 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, 2006, 2007, 2008, 2009,
4
   2010, 2011, 2012
5
   Free Software Foundation, Inc.
6
 
7
This file is part of GCC.
8
 
9
GCC is free software; you can redistribute it and/or modify it under
10
the terms of the GNU General Public License as published by the Free
11
Software Foundation; either version 3, or (at your option) any later
12
version.
13
 
14
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
15
WARRANTY; without even the implied warranty of MERCHANTABILITY or
16
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
17
for more details.
18
 
19
You should have received a copy of the GNU General Public License
20
along with GCC; see the file COPYING3.  If not see
21
<http://www.gnu.org/licenses/>.  */
22
 
23
/* This program is the user interface to the C compiler and possibly to
24
other compilers.  It is used because compilation is a complicated procedure
25
which involves running several programs and passing temporary files between
26
them, forwarding the users switches to those programs selectively,
27
and deleting the temporary files at the end.
28
 
29
CC recognizes how to compile each input file by suffixes in the file names.
30
Once it knows which kind of compilation to perform, the procedure for
31
compilation is specified by a string called a "spec".  */
32
 
33
#include "config.h"
34
#include "system.h"
35
#include "coretypes.h"
36
#include "multilib.h" /* before tm.h */
37
#include "tm.h"
38
#include "xregex.h"
39
#include "obstack.h"
40
#include "intl.h"
41
#include "prefix.h"
42
#include "gcc.h"
43
#include "diagnostic.h"
44
#include "flags.h"
45
#include "opts.h"
46
#include "params.h"
47
#include "vec.h"
48
#include "filenames.h"
49
 
50
/* By default there is no special suffix for target executables.  */
51
/* FIXME: when autoconf is fixed, remove the host check - dj */
52
#if defined(TARGET_EXECUTABLE_SUFFIX) && defined(HOST_EXECUTABLE_SUFFIX)
53
#define HAVE_TARGET_EXECUTABLE_SUFFIX
54
#endif
55
 
56
/* By default there is no special suffix for host executables.  */
57
#ifdef HOST_EXECUTABLE_SUFFIX
58
#define HAVE_HOST_EXECUTABLE_SUFFIX
59
#else
60
#define HOST_EXECUTABLE_SUFFIX ""
61
#endif
62
 
63
/* By default, the suffix for target object files is ".o".  */
64
#ifdef TARGET_OBJECT_SUFFIX
65
#define HAVE_TARGET_OBJECT_SUFFIX
66
#else
67
#define TARGET_OBJECT_SUFFIX ".o"
68
#endif
69
 
70
static const char dir_separator_str[] = { DIR_SEPARATOR, 0 };
71
 
72
/* Most every one is fine with LIBRARY_PATH.  For some, it conflicts.  */
73
#ifndef LIBRARY_PATH_ENV
74
#define LIBRARY_PATH_ENV "LIBRARY_PATH"
75
#endif
76
 
77
/* If a stage of compilation returns an exit status >= 1,
78
   compilation of that file ceases.  */
79
 
80
#define MIN_FATAL_STATUS 1
81
 
82
/* Flag set by cppspec.c to 1.  */
83
int is_cpp_driver;
84
 
85
/* Flag set to nonzero if an @file argument has been supplied to gcc.  */
86
static bool at_file_supplied;
87
 
88
/* Definition of string containing the arguments given to configure.  */
89
#include "configargs.h"
90
 
91
/* Flag saying to print the command line options understood by gcc and its
92
   sub-processes.  */
93
 
94
static int print_help_list;
95
 
96
/* Flag saying to print the version of gcc and its sub-processes.  */
97
 
98
static int print_version;
99
 
100
/* Flag indicating whether we should ONLY print the command and
101
   arguments (like verbose_flag) without executing the command.
102
   Displayed arguments are quoted so that the generated command
103
   line is suitable for execution.  This is intended for use in
104
   shell scripts to capture the driver-generated command line.  */
105
static int verbose_only_flag;
106
 
107
/* Flag indicating how to print command line options of sub-processes.  */
108
 
109
static int print_subprocess_help;
110
 
111
/* Whether we should report subprocess execution times to a file.  */
112
 
113
FILE *report_times_to_file = NULL;
114
 
115
/* Nonzero means place this string before uses of /, so that include
116
   and library files can be found in an alternate location.  */
117
 
118
#ifdef TARGET_SYSTEM_ROOT
119
static const char *target_system_root = TARGET_SYSTEM_ROOT;
120
#else
121
static const char *target_system_root = 0;
122
#endif
123
 
124
/* Nonzero means pass the updated target_system_root to the compiler.  */
125
 
126
static int target_system_root_changed;
127
 
128
/* Nonzero means append this string to target_system_root.  */
129
 
130
static const char *target_sysroot_suffix = 0;
131
 
132
/* Nonzero means append this string to target_system_root for headers.  */
133
 
134
static const char *target_sysroot_hdrs_suffix = 0;
135
 
136
/* Nonzero means write "temp" files in source directory
137
   and use the source file's name in them, and don't delete them.  */
138
 
139
static enum save_temps {
140
  SAVE_TEMPS_NONE,              /* no -save-temps */
141
  SAVE_TEMPS_CWD,               /* -save-temps in current directory */
142
  SAVE_TEMPS_OBJ                /* -save-temps in object directory */
143
} save_temps_flag;
144
 
145
/* Output file to use to get the object directory for -save-temps=obj  */
146
static char *save_temps_prefix = 0;
147
static size_t save_temps_length = 0;
148
 
149
/* The compiler version.  */
150
 
151
static const char *compiler_version;
152
 
153
/* The target version.  */
154
 
155
static const char *const spec_version = DEFAULT_TARGET_VERSION;
156
 
157
/* The target machine.  */
158
 
159
static const char *spec_machine = DEFAULT_TARGET_MACHINE;
160
 
161
/* Nonzero if cross-compiling.
162
   When -b is used, the value comes from the `specs' file.  */
163
 
164
#ifdef CROSS_DIRECTORY_STRUCTURE
165
static const char *cross_compile = "1";
166
#else
167
static const char *cross_compile = "0";
168
#endif
169
 
170
/* Greatest exit code of sub-processes that has been encountered up to
171
   now.  */
172
static int greatest_status = 1;
173
 
174
/* This is the obstack which we use to allocate many strings.  */
175
 
176
static struct obstack obstack;
177
 
178
/* This is the obstack to build an environment variable to pass to
179
   collect2 that describes all of the relevant switches of what to
180
   pass the compiler in building the list of pointers to constructors
181
   and destructors.  */
182
 
183
static struct obstack collect_obstack;
184
 
185
/* Forward declaration for prototypes.  */
186
struct path_prefix;
187
struct prefix_list;
188
 
189
static void init_spec (void);
190
static void store_arg (const char *, int, int);
191
static void insert_wrapper (const char *);
192
static char *load_specs (const char *);
193
static void read_specs (const char *, int);
194
static void set_spec (const char *, const char *);
195
static struct compiler *lookup_compiler (const char *, size_t, const char *);
196
static char *build_search_list (const struct path_prefix *, const char *,
197
                                bool, bool);
198
static void xputenv (const char *);
199
static void putenv_from_prefixes (const struct path_prefix *, const char *,
200
                                  bool);
201
static int access_check (const char *, int);
202
static char *find_a_file (const struct path_prefix *, const char *, int, bool);
203
static void add_prefix (struct path_prefix *, const char *, const char *,
204
                        int, int, int);
205
static void add_sysrooted_prefix (struct path_prefix *, const char *,
206
                                  const char *, int, int, int);
207
static char *skip_whitespace (char *);
208
static void delete_if_ordinary (const char *);
209
static void delete_temp_files (void);
210
static void delete_failure_queue (void);
211
static void clear_failure_queue (void);
212
static int check_live_switch (int, int);
213
static const char *handle_braces (const char *);
214
static inline bool input_suffix_matches (const char *, const char *);
215
static inline bool switch_matches (const char *, const char *, int);
216
static inline void mark_matching_switches (const char *, const char *, int);
217
static inline void process_marked_switches (void);
218
static const char *process_brace_body (const char *, const char *, const char *, int, int);
219
static const struct spec_function *lookup_spec_function (const char *);
220
static const char *eval_spec_function (const char *, const char *);
221
static const char *handle_spec_function (const char *);
222
static char *save_string (const char *, int);
223
static void set_collect_gcc_options (void);
224
static int do_spec_1 (const char *, int, const char *);
225
static int do_spec_2 (const char *);
226
static void do_option_spec (const char *, const char *);
227
static void do_self_spec (const char *);
228
static const char *find_file (const char *);
229
static int is_directory (const char *, bool);
230
static const char *validate_switches (const char *);
231
static void validate_all_switches (void);
232
static inline void validate_switches_from_spec (const char *);
233
static void give_switch (int, int);
234
static int used_arg (const char *, int);
235
static int default_arg (const char *, int);
236
static void set_multilib_dir (void);
237
static void print_multilib_info (void);
238
static void perror_with_name (const char *);
239
static void display_help (void);
240
static void add_preprocessor_option (const char *, int);
241
static void add_assembler_option (const char *, int);
242
static void add_linker_option (const char *, int);
243
static void process_command (unsigned int, struct cl_decoded_option *);
244
static int execute (void);
245
static void alloc_args (void);
246
static void clear_args (void);
247
static void fatal_signal (int);
248
#if defined(ENABLE_SHARED_LIBGCC) && !defined(REAL_LIBGCC_SPEC)
249
static void init_gcc_specs (struct obstack *, const char *, const char *,
250
                            const char *);
251
#endif
252
#if defined(HAVE_TARGET_OBJECT_SUFFIX) || defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
253
static const char *convert_filename (const char *, int, int);
254
#endif
255
 
256
static const char *getenv_spec_function (int, const char **);
257
static const char *if_exists_spec_function (int, const char **);
258
static const char *if_exists_else_spec_function (int, const char **);
259
static const char *replace_outfile_spec_function (int, const char **);
260
static const char *remove_outfile_spec_function (int, const char **);
261
static const char *version_compare_spec_function (int, const char **);
262
static const char *include_spec_function (int, const char **);
263
static const char *find_file_spec_function (int, const char **);
264
static const char *find_plugindir_spec_function (int, const char **);
265
static const char *print_asm_header_spec_function (int, const char **);
266
static const char *compare_debug_dump_opt_spec_function (int, const char **);
267
static const char *compare_debug_self_opt_spec_function (int, const char **);
268
static const char *compare_debug_auxbase_opt_spec_function (int, const char **);
269
static const char *pass_through_libs_spec_func (int, const char **);
270
 
271
/* The Specs Language
272
 
273
Specs are strings containing lines, each of which (if not blank)
274
is made up of a program name, and arguments separated by spaces.
275
The program name must be exact and start from root, since no path
276
is searched and it is unreliable to depend on the current working directory.
277
Redirection of input or output is not supported; the subprograms must
278
accept filenames saying what files to read and write.
279
 
280
In addition, the specs can contain %-sequences to substitute variable text
281
or for conditional text.  Here is a table of all defined %-sequences.
282
Note that spaces are not generated automatically around the results of
283
expanding these sequences; therefore, you can concatenate them together
284
or with constant text in a single argument.
285
 
286
 %%     substitute one % into the program name or argument.
287
 %i     substitute the name of the input file being processed.
288
 %b     substitute the basename of the input file being processed.
289
        This is the substring up to (and not including) the last period
290
        and not including the directory unless -save-temps was specified
291
        to put temporaries in a different location.
292
 %B     same as %b, but include the file suffix (text after the last period).
293
 %gSUFFIX
294
        substitute a file name that has suffix SUFFIX and is chosen
295
        once per compilation, and mark the argument a la %d.  To reduce
296
        exposure to denial-of-service attacks, the file name is now
297
        chosen in a way that is hard to predict even when previously
298
        chosen file names are known.  For example, `%g.s ... %g.o ... %g.s'
299
        might turn into `ccUVUUAU.s ccXYAXZ12.o ccUVUUAU.s'.  SUFFIX matches
300
        the regexp "[.0-9A-Za-z]*%O"; "%O" is treated exactly as if it
301
        had been pre-processed.  Previously, %g was simply substituted
302
        with a file name chosen once per compilation, without regard
303
        to any appended suffix (which was therefore treated just like
304
        ordinary text), making such attacks more likely to succeed.
305
 %|SUFFIX
306
        like %g, but if -pipe is in effect, expands simply to "-".
307
 %mSUFFIX
308
        like %g, but if -pipe is in effect, expands to nothing.  (We have both
309
        %| and %m to accommodate differences between system assemblers; see
310
        the AS_NEEDS_DASH_FOR_PIPED_INPUT target macro.)
311
 %uSUFFIX
312
        like %g, but generates a new temporary file name even if %uSUFFIX
313
        was already seen.
314
 %USUFFIX
315
        substitutes the last file name generated with %uSUFFIX, generating a
316
        new one if there is no such last file name.  In the absence of any
317
        %uSUFFIX, this is just like %gSUFFIX, except they don't share
318
        the same suffix "space", so `%g.s ... %U.s ... %g.s ... %U.s'
319
        would involve the generation of two distinct file names, one
320
        for each `%g.s' and another for each `%U.s'.  Previously, %U was
321
        simply substituted with a file name chosen for the previous %u,
322
        without regard to any appended suffix.
323
 %jSUFFIX
324
        substitutes the name of the HOST_BIT_BUCKET, if any, and if it is
325
        writable, and if save-temps is off; otherwise, substitute the name
326
        of a temporary file, just like %u.  This temporary file is not
327
        meant for communication between processes, but rather as a junk
328
        disposal mechanism.
329
 %.SUFFIX
330
        substitutes .SUFFIX for the suffixes of a matched switch's args when
331
        it is subsequently output with %*. SUFFIX is terminated by the next
332
        space or %.
333
 %d     marks the argument containing or following the %d as a
334
        temporary file name, so that that file will be deleted if GCC exits
335
        successfully.  Unlike %g, this contributes no text to the argument.
336
 %w     marks the argument containing or following the %w as the
337
        "output file" of this compilation.  This puts the argument
338
        into the sequence of arguments that %o will substitute later.
339
 %V     indicates that this compilation produces no "output file".
340
 %W{...}
341
        like %{...} but mark last argument supplied within
342
        as a file to be deleted on failure.
343
 %o     substitutes the names of all the output files, with spaces
344
        automatically placed around them.  You should write spaces
345
        around the %o as well or the results are undefined.
346
        %o is for use in the specs for running the linker.
347
        Input files whose names have no recognized suffix are not compiled
348
        at all, but they are included among the output files, so they will
349
        be linked.
350
 %O     substitutes the suffix for object files.  Note that this is
351
        handled specially when it immediately follows %g, %u, or %U
352
        (with or without a suffix argument) because of the need for
353
        those to form complete file names.  The handling is such that
354
        %O is treated exactly as if it had already been substituted,
355
        except that %g, %u, and %U do not currently support additional
356
        SUFFIX characters following %O as they would following, for
357
        example, `.o'.
358
 %I     Substitute any of -iprefix (made from GCC_EXEC_PREFIX), -isysroot
359
        (made from TARGET_SYSTEM_ROOT), -isystem (made from COMPILER_PATH
360
        and -B options) and -imultilib as necessary.
361
 %s     current argument is the name of a library or startup file of some sort.
362
        Search for that file in a standard list of directories
363
        and substitute the full name found.
364
 %eSTR  Print STR as an error message.  STR is terminated by a newline.
365
        Use this when inconsistent options are detected.
366
 %nSTR  Print STR as a notice.  STR is terminated by a newline.
367
 %x{OPTION}     Accumulate an option for %X.
368
 %X     Output the accumulated linker options specified by compilations.
369
 %Y     Output the accumulated assembler options specified by compilations.
370
 %Z     Output the accumulated preprocessor options specified by compilations.
371
 %a     process ASM_SPEC as a spec.
372
        This allows config.h to specify part of the spec for running as.
373
 %A     process ASM_FINAL_SPEC as a spec.  A capital A is actually
374
        used here.  This can be used to run a post-processor after the
375
        assembler has done its job.
376
 %D     Dump out a -L option for each directory in startfile_prefixes.
377
        If multilib_dir is set, extra entries are generated with it affixed.
378
 %l     process LINK_SPEC as a spec.
379
 %L     process LIB_SPEC as a spec.
380
 %G     process LIBGCC_SPEC as a spec.
381
 %R     Output the concatenation of target_system_root and
382
        target_sysroot_suffix.
383
 %S     process STARTFILE_SPEC as a spec.  A capital S is actually used here.
384
 %E     process ENDFILE_SPEC as a spec.  A capital E is actually used here.
385
 %C     process CPP_SPEC as a spec.
386
 %1     process CC1_SPEC as a spec.
387
 %2     process CC1PLUS_SPEC as a spec.
388
 %*     substitute the variable part of a matched option.  (See below.)
389
        Note that each comma in the substituted string is replaced by
390
        a single space.
391
 %<S    remove all occurrences of -S from the command line.
392
        Note - this command is position dependent.  % commands in the
393
        spec string before this one will see -S, % commands in the
394
        spec string after this one will not.
395
 %>S    Similar to "%<S", but keep it in the GCC command line.
396
 %<S*   remove all occurrences of all switches beginning with -S from the
397
        command line.
398
 %:function(args)
399
        Call the named function FUNCTION, passing it ARGS.  ARGS is
400
        first processed as a nested spec string, then split into an
401
        argument vector in the usual fashion.  The function returns
402
        a string which is processed as if it had appeared literally
403
        as part of the current spec.
404
 %{S}   substitutes the -S switch, if that switch was given to GCC.
405
        If that switch was not specified, this substitutes nothing.
406
        Here S is a metasyntactic variable.
407
 %{S*}  substitutes all the switches specified to GCC whose names start
408
        with -S.  This is used for -o, -I, etc; switches that take
409
        arguments.  GCC considers `-o foo' as being one switch whose
410
        name starts with `o'.  %{o*} would substitute this text,
411
        including the space; thus, two arguments would be generated.
412
 %{S*&T*} likewise, but preserve order of S and T options (the order
413
        of S and T in the spec is not significant).  Can be any number
414
        of ampersand-separated variables; for each the wild card is
415
        optional.  Useful for CPP as %{D*&U*&A*}.
416
 
417
 %{S:X}   substitutes X, if the -S switch was given to GCC.
418
 %{!S:X}  substitutes X, if the -S switch was NOT given to GCC.
419
 %{S*:X}  substitutes X if one or more switches whose names start
420
          with -S was given to GCC.  Normally X is substituted only
421
          once, no matter how many such switches appeared.  However,
422
          if %* appears somewhere in X, then X will be substituted
423
          once for each matching switch, with the %* replaced by the
424
          part of that switch that matched the '*'.
425
 %{.S:X}  substitutes X, if processing a file with suffix S.
426
 %{!.S:X} substitutes X, if NOT processing a file with suffix S.
427
 %{,S:X}  substitutes X, if processing a file which will use spec S.
428
 %{!,S:X} substitutes X, if NOT processing a file which will use spec S.
429
 
430
 %{S|T:X} substitutes X if either -S or -T was given to GCC.  This may be
431
          combined with '!', '.', ',', and '*' as above binding stronger
432
          than the OR.
433
          If %* appears in X, all of the alternatives must be starred, and
434
          only the first matching alternative is substituted.
435
 %{S:X;   if S was given to GCC, substitutes X;
436
   T:Y;   else if T was given to GCC, substitutes Y;
437
    :D}   else substitutes D.  There can be as many clauses as you need.
438
          This may be combined with '.', '!', ',', '|', and '*' as above.
439
 
440
 %(Spec) processes a specification defined in a specs file as *Spec:
441
 
442
The conditional text X in a %{S:X} or similar construct may contain
443
other nested % constructs or spaces, or even newlines.  They are
444
processed as usual, as described above.  Trailing white space in X is
445
ignored.  White space may also appear anywhere on the left side of the
446
colon in these constructs, except between . or * and the corresponding
447
word.
448
 
449
The -O, -f, -m, and -W switches are handled specifically in these
450
constructs.  If another value of -O or the negated form of a -f, -m, or
451
-W switch is found later in the command line, the earlier switch
452
value is ignored, except with {S*} where S is just one letter; this
453
passes all matching options.
454
 
455
The character | at the beginning of the predicate text is used to indicate
456
that a command should be piped to the following command, but only if -pipe
457
is specified.
458
 
459
Note that it is built into GCC which switches take arguments and which
460
do not.  You might think it would be useful to generalize this to
461
allow each compiler's spec to say which switches take arguments.  But
462
this cannot be done in a consistent fashion.  GCC cannot even decide
463
which input files have been specified without knowing which switches
464
take arguments, and it must know which input files to compile in order
465
to tell which compilers to run.
466
 
467
GCC also knows implicitly that arguments starting in `-l' are to be
468
treated as compiler output files, and passed to the linker in their
469
proper position among the other output files.  */
470
 
471
/* Define the macros used for specs %a, %l, %L, %S, %C, %1.  */
472
 
473
/* config.h can define ASM_SPEC to provide extra args to the assembler
474
   or extra switch-translations.  */
475
#ifndef ASM_SPEC
476
#define ASM_SPEC ""
477
#endif
478
 
479
/* config.h can define ASM_FINAL_SPEC to run a post processor after
480
   the assembler has run.  */
481
#ifndef ASM_FINAL_SPEC
482
#define ASM_FINAL_SPEC ""
483
#endif
484
 
485
/* config.h can define CPP_SPEC to provide extra args to the C preprocessor
486
   or extra switch-translations.  */
487
#ifndef CPP_SPEC
488
#define CPP_SPEC ""
489
#endif
490
 
491
/* config.h can define CC1_SPEC to provide extra args to cc1 and cc1plus
492
   or extra switch-translations.  */
493
#ifndef CC1_SPEC
494
#define CC1_SPEC ""
495
#endif
496
 
497
/* config.h can define CC1PLUS_SPEC to provide extra args to cc1plus
498
   or extra switch-translations.  */
499
#ifndef CC1PLUS_SPEC
500
#define CC1PLUS_SPEC ""
501
#endif
502
 
503
/* config.h can define LINK_SPEC to provide extra args to the linker
504
   or extra switch-translations.  */
505
#ifndef LINK_SPEC
506
#define LINK_SPEC ""
507
#endif
508
 
509
/* config.h can define LIB_SPEC to override the default libraries.  */
510
#ifndef LIB_SPEC
511
#define LIB_SPEC "%{!shared:%{g*:-lg} %{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}}"
512
#endif
513
 
514
/* mudflap specs */
515
#ifndef MFWRAP_SPEC
516
/* XXX: valid only for GNU ld */
517
/* XXX: should exactly match hooks provided by libmudflap.a */
518
#define MFWRAP_SPEC " %{static: %{fmudflap|fmudflapth: \
519
 --wrap=malloc --wrap=free --wrap=calloc --wrap=realloc\
520
 --wrap=mmap --wrap=mmap64 --wrap=munmap --wrap=alloca\
521
} %{fmudflapth: --wrap=pthread_create\
522
}} %{fmudflap|fmudflapth: --wrap=main}"
523
#endif
524
#ifndef MFLIB_SPEC
525
#define MFLIB_SPEC "%{fmudflap|fmudflapth: -export-dynamic}"
526
#endif
527
 
528
/* When using -fsplit-stack we need to wrap pthread_create, in order
529
   to initialize the stack guard.  We always use wrapping, rather than
530
   shared library ordering, and we keep the wrapper function in
531
   libgcc.  This is not yet a real spec, though it could become one;
532
   it is currently just stuffed into LINK_SPEC.  FIXME: This wrapping
533
   only works with GNU ld and gold.  FIXME: This is incompatible with
534
   -fmudflap when linking statically, which wants to do its own
535
   wrapping.  */
536
#define STACK_SPLIT_SPEC " %{fsplit-stack: --wrap=pthread_create}"
537
 
538
/* config.h can define LIBGCC_SPEC to override how and when libgcc.a is
539
   included.  */
540
#ifndef LIBGCC_SPEC
541
#if defined(REAL_LIBGCC_SPEC)
542
#define LIBGCC_SPEC REAL_LIBGCC_SPEC
543
#elif defined(LINK_LIBGCC_SPECIAL_1)
544
/* Have gcc do the search for libgcc.a.  */
545
#define LIBGCC_SPEC "libgcc.a%s"
546
#else
547
#define LIBGCC_SPEC "-lgcc"
548
#endif
549
#endif
550
 
551
/* config.h can define STARTFILE_SPEC to override the default crt0 files.  */
552
#ifndef STARTFILE_SPEC
553
#define STARTFILE_SPEC  \
554
  "%{!shared:%{pg:gcrt0%O%s}%{!pg:%{p:mcrt0%O%s}%{!p:crt0%O%s}}}"
555
#endif
556
 
557
/* config.h can define ENDFILE_SPEC to override the default crtn files.  */
558
#ifndef ENDFILE_SPEC
559
#define ENDFILE_SPEC ""
560
#endif
561
 
562
#ifndef LINKER_NAME
563
#define LINKER_NAME "collect2"
564
#endif
565
 
566
#ifdef HAVE_AS_DEBUG_PREFIX_MAP
567
#define ASM_MAP " %{fdebug-prefix-map=*:--debug-prefix-map %*}"
568
#else
569
#define ASM_MAP ""
570
#endif
571
 
572
/* Define ASM_DEBUG_SPEC to be a spec suitable for translating '-g'
573
   to the assembler.  */
574
#ifndef ASM_DEBUG_SPEC
575
# if defined(DBX_DEBUGGING_INFO) && defined(DWARF2_DEBUGGING_INFO) \
576
     && defined(HAVE_AS_GDWARF2_DEBUG_FLAG) && defined(HAVE_AS_GSTABS_DEBUG_FLAG)
577
#  define ASM_DEBUG_SPEC                                                \
578
      (PREFERRED_DEBUGGING_TYPE == DBX_DEBUG                            \
579
       ? "%{!g0:%{gdwarf-2*:--gdwarf2}%{!gdwarf-2*:%{g*:--gstabs}}}" ASM_MAP    \
580
       : "%{!g0:%{gstabs*:--gstabs}%{!gstabs*:%{g*:--gdwarf2}}}" ASM_MAP)
581
# else
582
#  if defined(DBX_DEBUGGING_INFO) && defined(HAVE_AS_GSTABS_DEBUG_FLAG)
583
#   define ASM_DEBUG_SPEC "%{g*:%{!g0:--gstabs}}" ASM_MAP
584
#  endif
585
#  if defined(DWARF2_DEBUGGING_INFO) && defined(HAVE_AS_GDWARF2_DEBUG_FLAG)
586
#   define ASM_DEBUG_SPEC "%{g*:%{!g0:--gdwarf2}}" ASM_MAP
587
#  endif
588
# endif
589
#endif
590
#ifndef ASM_DEBUG_SPEC
591
# define ASM_DEBUG_SPEC ""
592
#endif
593
 
594
/* Here is the spec for running the linker, after compiling all files.  */
595
 
596
/* This is overridable by the target in case they need to specify the
597
   -lgcc and -lc order specially, yet not require them to override all
598
   of LINK_COMMAND_SPEC.  */
599
#ifndef LINK_GCC_C_SEQUENCE_SPEC
600
#define LINK_GCC_C_SEQUENCE_SPEC "%G %L %G"
601
#endif
602
 
603
#ifndef LINK_SSP_SPEC
604
#ifdef TARGET_LIBC_PROVIDES_SSP
605
#define LINK_SSP_SPEC "%{fstack-protector:}"
606
#else
607
#define LINK_SSP_SPEC "%{fstack-protector|fstack-protector-all:-lssp_nonshared -lssp}"
608
#endif
609
#endif
610
 
611
#ifndef LINK_PIE_SPEC
612
#ifdef HAVE_LD_PIE
613
#define LINK_PIE_SPEC "%{pie:-pie} "
614
#else
615
#define LINK_PIE_SPEC "%{pie:} "
616
#endif
617
#endif
618
 
619
#ifndef LINK_BUILDID_SPEC
620
# if defined(HAVE_LD_BUILDID) && defined(ENABLE_LD_BUILDID)
621
#  define LINK_BUILDID_SPEC "%{!r:--build-id} "
622
# endif
623
#endif
624
 
625
/* Conditional to test whether the LTO plugin is used or not.
626
   FIXME: For slim LTO we will need to enable plugin unconditionally.  This
627
   still cause problems with PLUGIN_LD != LD and when plugin is built but
628
   not useable.  For GCC 4.6 we don't support slim LTO and thus we can enable
629
   plugin only when LTO is enabled.  We still honor explicit
630
   -fuse-linker-plugin if the linker used understands -plugin.  */
631
 
632
/* The linker has some plugin support.  */
633
#if HAVE_LTO_PLUGIN > 0
634
/* The linker used has full plugin support, use LTO plugin by default.  */
635
#if HAVE_LTO_PLUGIN == 2
636
#define PLUGIN_COND "!fno-use-linker-plugin:%{flto|flto=*|fuse-linker-plugin"
637
#define PLUGIN_COND_CLOSE "}"
638
#else
639
/* The linker used has limited plugin support, use LTO plugin with explicit
640
   -fuse-linker-plugin.  */
641
#define PLUGIN_COND "fuse-linker-plugin"
642
#define PLUGIN_COND_CLOSE ""
643
#endif
644
#define LINK_PLUGIN_SPEC \
645
    "%{"PLUGIN_COND": \
646
    -plugin %(linker_plugin_file) \
647
    -plugin-opt=%(lto_wrapper) \
648
    -plugin-opt=-fresolution=%u.res \
649
    %{!nostdlib:%{!nodefaultlibs:%:pass-through-libs(%(link_gcc_c_sequence))}} \
650
    }"PLUGIN_COND_CLOSE
651
#else
652
/* The linker used doesn't support -plugin, reject -fuse-linker-plugin.  */
653
#define LINK_PLUGIN_SPEC "%{fuse-linker-plugin:\
654
    %e-fuse-linker-plugin is not supported in this configuration}"
655
#endif
656
 
657
 
658
/* -u* was put back because both BSD and SysV seem to support it.  */
659
/* %{static:} simply prevents an error message if the target machine
660
   doesn't handle -static.  */
661
/* We want %{T*} after %{L*} and %D so that it can be used to specify linker
662
   scripts which exist in user specified directories, or in standard
663
   directories.  */
664
/* We pass any -flto flags on to the linker, which is expected
665
   to understand them.  In practice, this means it had better be collect2.  */
666
/* %{e*} includes -export-dynamic; see comment in common.opt.  */
667
#ifndef LINK_COMMAND_SPEC
668
#define LINK_COMMAND_SPEC "\
669
%{!fsyntax-only:%{!c:%{!M:%{!MM:%{!E:%{!S:\
670
    %(linker) " \
671
    LINK_PLUGIN_SPEC \
672
    "%{flto|flto=*:%<fcompare-debug*} \
673
    %{flto} %{flto=*} %l " LINK_PIE_SPEC \
674
   "%X %{o*} %{e*} %{N} %{n} %{r}\
675
    %{s} %{t} %{u*} %{z} %{Z} %{!nostdlib:%{!nostartfiles:%S}}\
676
    %{static:} %{L*} %(mfwrap) %(link_libgcc) %o\
677
    %{fopenmp|ftree-parallelize-loops=*:%:include(libgomp.spec)%(link_gomp)}\
678
    %{fgnu-tm:%:include(libitm.spec)%(link_itm)}\
679
    %(mflib) " STACK_SPLIT_SPEC "\
680
    %{fprofile-arcs|fprofile-generate*|coverage:-lgcov}\
681
    %{!nostdlib:%{!nodefaultlibs:%(link_ssp) %(link_gcc_c_sequence)}}\
682
    %{!nostdlib:%{!nostartfiles:%E}} %{T*} }}}}}}"
683
#endif
684
 
685
#ifndef LINK_LIBGCC_SPEC
686
/* Generate -L options for startfile prefix list.  */
687
# define LINK_LIBGCC_SPEC "%D"
688
#endif
689
 
690
#ifndef STARTFILE_PREFIX_SPEC
691
# define STARTFILE_PREFIX_SPEC ""
692
#endif
693
 
694
#ifndef SYSROOT_SPEC
695
# define SYSROOT_SPEC "--sysroot=%R"
696
#endif
697
 
698
#ifndef SYSROOT_SUFFIX_SPEC
699
# define SYSROOT_SUFFIX_SPEC ""
700
#endif
701
 
702
#ifndef SYSROOT_HEADERS_SUFFIX_SPEC
703
# define SYSROOT_HEADERS_SUFFIX_SPEC ""
704
#endif
705
 
706
static const char *asm_debug;
707
static const char *cpp_spec = CPP_SPEC;
708
static const char *cc1_spec = CC1_SPEC;
709
static const char *cc1plus_spec = CC1PLUS_SPEC;
710
static const char *link_gcc_c_sequence_spec = LINK_GCC_C_SEQUENCE_SPEC;
711
static const char *link_ssp_spec = LINK_SSP_SPEC;
712
static const char *asm_spec = ASM_SPEC;
713
static const char *asm_final_spec = ASM_FINAL_SPEC;
714
static const char *link_spec = LINK_SPEC;
715
static const char *lib_spec = LIB_SPEC;
716
static const char *mfwrap_spec = MFWRAP_SPEC;
717
static const char *mflib_spec = MFLIB_SPEC;
718
static const char *link_gomp_spec = "";
719
static const char *libgcc_spec = LIBGCC_SPEC;
720
static const char *endfile_spec = ENDFILE_SPEC;
721
static const char *startfile_spec = STARTFILE_SPEC;
722
static const char *linker_name_spec = LINKER_NAME;
723
static const char *linker_plugin_file_spec = "";
724
static const char *lto_wrapper_spec = "";
725
static const char *lto_gcc_spec = "";
726
static const char *link_command_spec = LINK_COMMAND_SPEC;
727
static const char *link_libgcc_spec = LINK_LIBGCC_SPEC;
728
static const char *startfile_prefix_spec = STARTFILE_PREFIX_SPEC;
729
static const char *sysroot_spec = SYSROOT_SPEC;
730
static const char *sysroot_suffix_spec = SYSROOT_SUFFIX_SPEC;
731
static const char *sysroot_hdrs_suffix_spec = SYSROOT_HEADERS_SUFFIX_SPEC;
732
static const char *self_spec = "";
733
 
734
/* Standard options to cpp, cc1, and as, to reduce duplication in specs.
735
   There should be no need to override these in target dependent files,
736
   but we need to copy them to the specs file so that newer versions
737
   of the GCC driver can correctly drive older tool chains with the
738
   appropriate -B options.  */
739
 
740
/* When cpplib handles traditional preprocessing, get rid of this, and
741
   call cc1 (or cc1obj in objc/lang-specs.h) from the main specs so
742
   that we default the front end language better.  */
743
static const char *trad_capable_cpp =
744
"cc1 -E %{traditional|traditional-cpp:-traditional-cpp}";
745
 
746
/* We don't wrap .d files in %W{} since a missing .d file, and
747
   therefore no dependency entry, confuses make into thinking a .o
748
   file that happens to exist is up-to-date.  */
749
static const char *cpp_unique_options =
750
"%{!Q:-quiet} %{nostdinc*} %{C} %{CC} %{v} %{I*&F*} %{P} %I\
751
 %{MD:-MD %{!o:%b.d}%{o*:%.d%*}}\
752
 %{MMD:-MMD %{!o:%b.d}%{o*:%.d%*}}\
753
 %{M} %{MM} %{MF*} %{MG} %{MP} %{MQ*} %{MT*}\
754
 %{!E:%{!M:%{!MM:%{!MT:%{!MQ:%{MD|MMD:%{o*:-MQ %*}}}}}}}\
755
 %{remap} %{g3|ggdb3|gstabs3|gcoff3|gxcoff3|gvms3:-dD}\
756
 %{!iplugindir*:%{fplugin*:%:find-plugindir()}}\
757
 %{H} %C %{D*&U*&A*} %{i*} %Z %i\
758
 %{fmudflap:-D_MUDFLAP -include mf-runtime.h}\
759
 %{fmudflapth:-D_MUDFLAP -D_MUDFLAPTH -include mf-runtime.h}\
760
 %{E|M|MM:%W{o*}}";
761
 
762
/* This contains cpp options which are common with cc1_options and are passed
763
   only when preprocessing only to avoid duplication.  We pass the cc1 spec
764
   options to the preprocessor so that it the cc1 spec may manipulate
765
   options used to set target flags.  Those special target flags settings may
766
   in turn cause preprocessor symbols to be defined specially.  */
767
static const char *cpp_options =
768
"%(cpp_unique_options) %1 %{m*} %{std*&ansi&trigraphs} %{W*&pedantic*} %{w}\
769
 %{f*} %{g*:%{!g0:%{g*} %{!fno-working-directory:-fworking-directory}}} %{O*}\
770
 %{undef} %{save-temps*:-fpch-preprocess}";
771
 
772
/* This contains cpp options which are not passed when the preprocessor
773
   output will be used by another program.  */
774
static const char *cpp_debug_options = "%{d*}";
775
 
776
/* NB: This is shared amongst all front-ends, except for Ada.  */
777
static const char *cc1_options =
778
"%{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
779
 %{!iplugindir*:%{fplugin*:%:find-plugindir()}}\
780
 %1 %{!Q:-quiet} %{!dumpbase:-dumpbase %B} %{d*} %{m*} %{aux-info*}\
781
 %{fcompare-debug-second:%:compare-debug-auxbase-opt(%b)} \
782
 %{!fcompare-debug-second:%{c|S:%{o*:-auxbase-strip %*}%{!o*:-auxbase %b}}}%{!c:%{!S:-auxbase %b}} \
783
 %{g*} %{O*} %{W*&pedantic*} %{w} %{std*&ansi&trigraphs}\
784
 %{v:-version} %{pg:-p} %{p} %{f*} %{undef}\
785
 %{Qn:-fno-ident} %{Qy:} %{-help:--help}\
786
 %{-target-help:--target-help}\
787
 %{-version:--version}\
788
 %{-help=*:--help=%*}\
789
 %{!fsyntax-only:%{S:%W{o*}%{!o*:-o %b.s}}}\
790
 %{fsyntax-only:-o %j} %{-param*}\
791
 %{fmudflap|fmudflapth:-fno-builtin -fno-merge-constants}\
792
 %{coverage:-fprofile-arcs -ftest-coverage}";
793
 
794
static const char *asm_options =
795
"%{-target-help:%:print-asm-header()} "
796
#if HAVE_GNU_AS
797
/* If GNU AS is used, then convert -w (no warnings), -I, and -v
798
   to the assembler equivalents.  */
799
"%{v} %{w:-W} %{I*} "
800
#endif
801
"%a %Y %{c:%W{o*}%{!o*:-o %w%b%O}}%{!c:-o %d%w%u%O}";
802
 
803
static const char *invoke_as =
804
#ifdef AS_NEEDS_DASH_FOR_PIPED_INPUT
805
"%{!fwpa:\
806
   %{fcompare-debug=*|fdump-final-insns=*:%:compare-debug-dump-opt()}\
807
   %{!S:-o %|.s |\n as %(asm_options) %|.s %A }\
808
  }";
809
#else
810
"%{!fwpa:\
811
   %{fcompare-debug=*|fdump-final-insns=*:%:compare-debug-dump-opt()}\
812
   %{!S:-o %|.s |\n as %(asm_options) %m.s %A }\
813
  }";
814
#endif
815
 
816
/* Some compilers have limits on line lengths, and the multilib_select
817
   and/or multilib_matches strings can be very long, so we build them at
818
   run time.  */
819
static struct obstack multilib_obstack;
820
static const char *multilib_select;
821
static const char *multilib_matches;
822
static const char *multilib_defaults;
823
static const char *multilib_exclusions;
824
 
825
/* Check whether a particular argument is a default argument.  */
826
 
827
#ifndef MULTILIB_DEFAULTS
828
#define MULTILIB_DEFAULTS { "" }
829
#endif
830
 
831
static const char *const multilib_defaults_raw[] = MULTILIB_DEFAULTS;
832
 
833
#ifndef DRIVER_SELF_SPECS
834
#define DRIVER_SELF_SPECS ""
835
#endif
836
 
837
/* Adding -fopenmp should imply pthreads.  This is particularly important
838
   for targets that use different start files and suchlike.  */
839
#ifndef GOMP_SELF_SPECS
840
#define GOMP_SELF_SPECS "%{fopenmp|ftree-parallelize-loops=*: -pthread}"
841
#endif
842
 
843
/* Likewise for -fgnu-tm.  */
844
#ifndef GTM_SELF_SPECS
845
#define GTM_SELF_SPECS "%{fgnu-tm: -pthread}"
846
#endif
847
 
848
static const char *const driver_self_specs[] = {
849
  "%{fdump-final-insns:-fdump-final-insns=.} %<fdump-final-insns",
850
  DRIVER_SELF_SPECS, CONFIGURE_SPECS, GOMP_SELF_SPECS, GTM_SELF_SPECS
851
};
852
 
853
#ifndef OPTION_DEFAULT_SPECS
854
#define OPTION_DEFAULT_SPECS { "", "" }
855
#endif
856
 
857
struct default_spec
858
{
859
  const char *name;
860
  const char *spec;
861
};
862
 
863
static const struct default_spec
864
  option_default_specs[] = { OPTION_DEFAULT_SPECS };
865
 
866
struct user_specs
867
{
868
  struct user_specs *next;
869
  const char *filename;
870
};
871
 
872
static struct user_specs *user_specs_head, *user_specs_tail;
873
 
874
 
875
/* Record the mapping from file suffixes for compilation specs.  */
876
 
877
struct compiler
878
{
879
  const char *suffix;           /* Use this compiler for input files
880
                                   whose names end in this suffix.  */
881
 
882
  const char *spec;             /* To use this compiler, run this spec.  */
883
 
884
  const char *cpp_spec;         /* If non-NULL, substitute this spec
885
                                   for `%C', rather than the usual
886
                                   cpp_spec.  */
887
  const int combinable;          /* If nonzero, compiler can deal with
888
                                    multiple source files at once (IMA).  */
889
  const int needs_preprocessing; /* If nonzero, source files need to
890
                                    be run through a preprocessor.  */
891
};
892
 
893
/* Pointer to a vector of `struct compiler' that gives the spec for
894
   compiling a file, based on its suffix.
895
   A file that does not end in any of these suffixes will be passed
896
   unchanged to the loader and nothing else will be done to it.
897
 
898
   An entry containing two 0s is used to terminate the vector.
899
 
900
   If multiple entries match a file, the last matching one is used.  */
901
 
902
static struct compiler *compilers;
903
 
904
/* Number of entries in `compilers', not counting the null terminator.  */
905
 
906
static int n_compilers;
907
 
908
/* The default list of file name suffixes and their compilation specs.  */
909
 
910
static const struct compiler default_compilers[] =
911
{
912
  /* Add lists of suffixes of known languages here.  If those languages
913
     were not present when we built the driver, we will hit these copies
914
     and be given a more meaningful error than "file not used since
915
     linking is not done".  */
916
  {".m",  "#Objective-C", 0, 0, 0}, {".mi",  "#Objective-C", 0, 0, 0},
917
  {".mm", "#Objective-C++", 0, 0, 0}, {".M", "#Objective-C++", 0, 0, 0},
918
  {".mii", "#Objective-C++", 0, 0, 0},
919
  {".cc", "#C++", 0, 0, 0}, {".cxx", "#C++", 0, 0, 0},
920
  {".cpp", "#C++", 0, 0, 0}, {".cp", "#C++", 0, 0, 0},
921
  {".c++", "#C++", 0, 0, 0}, {".C", "#C++", 0, 0, 0},
922
  {".CPP", "#C++", 0, 0, 0}, {".ii", "#C++", 0, 0, 0},
923
  {".ads", "#Ada", 0, 0, 0}, {".adb", "#Ada", 0, 0, 0},
924
  {".f", "#Fortran", 0, 0, 0}, {".F", "#Fortran", 0, 0, 0},
925
  {".for", "#Fortran", 0, 0, 0}, {".FOR", "#Fortran", 0, 0, 0},
926
  {".ftn", "#Fortran", 0, 0, 0}, {".FTN", "#Fortran", 0, 0, 0},
927
  {".fpp", "#Fortran", 0, 0, 0}, {".FPP", "#Fortran", 0, 0, 0},
928
  {".f90", "#Fortran", 0, 0, 0}, {".F90", "#Fortran", 0, 0, 0},
929
  {".f95", "#Fortran", 0, 0, 0}, {".F95", "#Fortran", 0, 0, 0},
930
  {".f03", "#Fortran", 0, 0, 0}, {".F03", "#Fortran", 0, 0, 0},
931
  {".f08", "#Fortran", 0, 0, 0}, {".F08", "#Fortran", 0, 0, 0},
932
  {".r", "#Ratfor", 0, 0, 0},
933
  {".p", "#Pascal", 0, 0, 0}, {".pas", "#Pascal", 0, 0, 0},
934
  {".java", "#Java", 0, 0, 0}, {".class", "#Java", 0, 0, 0},
935
  {".zip", "#Java", 0, 0, 0}, {".jar", "#Java", 0, 0, 0},
936
  {".go", "#Go", 0, 1, 0},
937
  /* Next come the entries for C.  */
938
  {".c", "@c", 0, 0, 1},
939
  {"@c",
940
   /* cc1 has an integrated ISO C preprocessor.  We should invoke the
941
      external preprocessor if -save-temps is given.  */
942
     "%{E|M|MM:%(trad_capable_cpp) %(cpp_options) %(cpp_debug_options)}\
943
      %{!E:%{!M:%{!MM:\
944
          %{traditional:\
945
%eGNU C no longer supports -traditional without -E}\
946
      %{save-temps*|traditional-cpp|no-integrated-cpp:%(trad_capable_cpp) \
947
          %(cpp_options) -o %{save-temps*:%b.i} %{!save-temps*:%g.i} \n\
948
            cc1 -fpreprocessed %{save-temps*:%b.i} %{!save-temps*:%g.i} \
949
          %(cc1_options)}\
950
      %{!save-temps*:%{!traditional-cpp:%{!no-integrated-cpp:\
951
          cc1 %(cpp_unique_options) %(cc1_options)}}}\
952
      %{!fsyntax-only:%(invoke_as)}}}}", 0, 0, 1},
953
  {"-",
954
   "%{!E:%e-E or -x required when input is from standard input}\
955
    %(trad_capable_cpp) %(cpp_options) %(cpp_debug_options)", 0, 0, 0},
956
  {".h", "@c-header", 0, 0, 0},
957
  {"@c-header",
958
   /* cc1 has an integrated ISO C preprocessor.  We should invoke the
959
      external preprocessor if -save-temps is given.  */
960
     "%{E|M|MM:%(trad_capable_cpp) %(cpp_options) %(cpp_debug_options)}\
961
      %{!E:%{!M:%{!MM:\
962
          %{save-temps*|traditional-cpp|no-integrated-cpp:%(trad_capable_cpp) \
963
                %(cpp_options) -o %{save-temps*:%b.i} %{!save-temps*:%g.i} \n\
964
                    cc1 -fpreprocessed %{save-temps*:%b.i} %{!save-temps*:%g.i} \
965
                        %(cc1_options)\
966
                        %{!fdump-ada-spec*:-o %g.s %{!o*:--output-pch=%i.gch}\
967
                        %W{o*:--output-pch=%*}}%V}\
968
          %{!save-temps*:%{!traditional-cpp:%{!no-integrated-cpp:\
969
                cc1 %(cpp_unique_options) %(cc1_options)\
970
                    %{!fdump-ada-spec*:-o %g.s %{!o*:--output-pch=%i.gch}\
971
                    %W{o*:--output-pch=%*}}%V}}}}}}", 0, 0, 0},
972
  {".i", "@cpp-output", 0, 0, 0},
973
  {"@cpp-output",
974
   "%{!M:%{!MM:%{!E:cc1 -fpreprocessed %i %(cc1_options) %{!fsyntax-only:%(invoke_as)}}}}", 0, 0, 0},
975
  {".s", "@assembler", 0, 0, 0},
976
  {"@assembler",
977
   "%{!M:%{!MM:%{!E:%{!S:as %(asm_debug) %(asm_options) %i %A }}}}", 0, 0, 0},
978
  {".sx", "@assembler-with-cpp", 0, 0, 0},
979
  {".S", "@assembler-with-cpp", 0, 0, 0},
980
  {"@assembler-with-cpp",
981
#ifdef AS_NEEDS_DASH_FOR_PIPED_INPUT
982
   "%(trad_capable_cpp) -lang-asm %(cpp_options) -fno-directives-only\
983
      %{E|M|MM:%(cpp_debug_options)}\
984
      %{!M:%{!MM:%{!E:%{!S:-o %|.s |\n\
985
       as %(asm_debug) %(asm_options) %|.s %A }}}}"
986
#else
987
   "%(trad_capable_cpp) -lang-asm %(cpp_options) -fno-directives-only\
988
      %{E|M|MM:%(cpp_debug_options)}\
989
      %{!M:%{!MM:%{!E:%{!S:-o %|.s |\n\
990
       as %(asm_debug) %(asm_options) %m.s %A }}}}"
991
#endif
992
   , 0, 0, 0},
993
 
994
#include "specs.h"
995
  /* Mark end of table.  */
996
  {0, 0, 0, 0, 0}
997
};
998
 
999
/* Number of elements in default_compilers, not counting the terminator.  */
1000
 
1001
static const int n_default_compilers = ARRAY_SIZE (default_compilers) - 1;
1002
 
1003
typedef char *char_p; /* For DEF_VEC_P.  */
1004
DEF_VEC_P(char_p);
1005
DEF_VEC_ALLOC_P(char_p,heap);
1006
 
1007
/* A vector of options to give to the linker.
1008
   These options are accumulated by %x,
1009
   and substituted into the linker command with %X.  */
1010
static VEC(char_p,heap) *linker_options;
1011
 
1012
/* A vector of options to give to the assembler.
1013
   These options are accumulated by -Wa,
1014
   and substituted into the assembler command with %Y.  */
1015
static VEC(char_p,heap) *assembler_options;
1016
 
1017
/* A vector of options to give to the preprocessor.
1018
   These options are accumulated by -Wp,
1019
   and substituted into the preprocessor command with %Z.  */
1020
static VEC(char_p,heap) *preprocessor_options;
1021
 
1022
static char *
1023
skip_whitespace (char *p)
1024
{
1025
  while (1)
1026
    {
1027
      /* A fully-blank line is a delimiter in the SPEC file and shouldn't
1028
         be considered whitespace.  */
1029
      if (p[0] == '\n' && p[1] == '\n' && p[2] == '\n')
1030
        return p + 1;
1031
      else if (*p == '\n' || *p == ' ' || *p == '\t')
1032
        p++;
1033
      else if (*p == '#')
1034
        {
1035
          while (*p != '\n')
1036
            p++;
1037
          p++;
1038
        }
1039
      else
1040
        break;
1041
    }
1042
 
1043
  return p;
1044
}
1045
/* Structures to keep track of prefixes to try when looking for files.  */
1046
 
1047
struct prefix_list
1048
{
1049
  const char *prefix;         /* String to prepend to the path.  */
1050
  struct prefix_list *next;   /* Next in linked list.  */
1051
  int require_machine_suffix; /* Don't use without machine_suffix.  */
1052
  /* 2 means try both machine_suffix and just_machine_suffix.  */
1053
  int priority;               /* Sort key - priority within list.  */
1054
  int os_multilib;            /* 1 if OS multilib scheme should be used,
1055
 
1056
};
1057
 
1058
struct path_prefix
1059
{
1060
  struct prefix_list *plist;  /* List of prefixes to try */
1061
  int max_len;                /* Max length of a prefix in PLIST */
1062
  const char *name;           /* Name of this list (used in config stuff) */
1063
};
1064
 
1065
/* List of prefixes to try when looking for executables.  */
1066
 
1067
static struct path_prefix exec_prefixes = { 0, 0, "exec" };
1068
 
1069
/* List of prefixes to try when looking for startup (crt0) files.  */
1070
 
1071
static struct path_prefix startfile_prefixes = { 0, 0, "startfile" };
1072
 
1073
/* List of prefixes to try when looking for include files.  */
1074
 
1075
static struct path_prefix include_prefixes = { 0, 0, "include" };
1076
 
1077
/* Suffix to attach to directories searched for commands.
1078
   This looks like `MACHINE/VERSION/'.  */
1079
 
1080
static const char *machine_suffix = 0;
1081
 
1082
/* Suffix to attach to directories searched for commands.
1083
   This is just `MACHINE/'.  */
1084
 
1085
static const char *just_machine_suffix = 0;
1086
 
1087
/* Adjusted value of GCC_EXEC_PREFIX envvar.  */
1088
 
1089
static const char *gcc_exec_prefix;
1090
 
1091
/* Adjusted value of standard_libexec_prefix.  */
1092
 
1093
static const char *gcc_libexec_prefix;
1094
 
1095
/* Default prefixes to attach to command names.  */
1096
 
1097
#ifndef STANDARD_STARTFILE_PREFIX_1
1098
#define STANDARD_STARTFILE_PREFIX_1 "/lib/"
1099
#endif
1100
#ifndef STANDARD_STARTFILE_PREFIX_2
1101
#define STANDARD_STARTFILE_PREFIX_2 "/usr/lib/"
1102
#endif
1103
 
1104
#ifdef CROSS_DIRECTORY_STRUCTURE  /* Don't use these prefixes for a cross compiler.  */
1105
#undef MD_EXEC_PREFIX
1106
#undef MD_STARTFILE_PREFIX
1107
#undef MD_STARTFILE_PREFIX_1
1108
#endif
1109
 
1110
/* If no prefixes defined, use the null string, which will disable them.  */
1111
#ifndef MD_EXEC_PREFIX
1112
#define MD_EXEC_PREFIX ""
1113
#endif
1114
#ifndef MD_STARTFILE_PREFIX
1115
#define MD_STARTFILE_PREFIX ""
1116
#endif
1117
#ifndef MD_STARTFILE_PREFIX_1
1118
#define MD_STARTFILE_PREFIX_1 ""
1119
#endif
1120
 
1121
/* These directories are locations set at configure-time based on the
1122
   --prefix option provided to configure.  Their initializers are
1123
   defined in Makefile.in.  These paths are not *directly* used when
1124
   gcc_exec_prefix is set because, in that case, we know where the
1125
   compiler has been installed, and use paths relative to that
1126
   location instead.  */
1127
static const char *const standard_exec_prefix = STANDARD_EXEC_PREFIX;
1128
static const char *const standard_libexec_prefix = STANDARD_LIBEXEC_PREFIX;
1129
static const char *const standard_bindir_prefix = STANDARD_BINDIR_PREFIX;
1130
static const char *const standard_startfile_prefix = STANDARD_STARTFILE_PREFIX;
1131
 
1132
/* For native compilers, these are well-known paths containing
1133
   components that may be provided by the system.  For cross
1134
   compilers, these paths are not used.  */
1135
static const char *md_exec_prefix = MD_EXEC_PREFIX;
1136
static const char *md_startfile_prefix = MD_STARTFILE_PREFIX;
1137
static const char *md_startfile_prefix_1 = MD_STARTFILE_PREFIX_1;
1138
static const char *const standard_startfile_prefix_1
1139
  = STANDARD_STARTFILE_PREFIX_1;
1140
static const char *const standard_startfile_prefix_2
1141
  = STANDARD_STARTFILE_PREFIX_2;
1142
 
1143
/* A relative path to be used in finding the location of tools
1144
   relative to the driver.  */
1145
static const char *const tooldir_base_prefix = TOOLDIR_BASE_PREFIX;
1146
 
1147
/* Subdirectory to use for locating libraries.  Set by
1148
   set_multilib_dir based on the compilation options.  */
1149
 
1150
static const char *multilib_dir;
1151
 
1152
/* Subdirectory to use for locating libraries in OS conventions.  Set by
1153
   set_multilib_dir based on the compilation options.  */
1154
 
1155
static const char *multilib_os_dir;
1156
 
1157
/* Structure to keep track of the specs that have been defined so far.
1158
   These are accessed using %(specname) in a compiler or link
1159
   spec.  */
1160
 
1161
struct spec_list
1162
{
1163
                                /* The following 2 fields must be first */
1164
                                /* to allow EXTRA_SPECS to be initialized */
1165
  const char *name;             /* name of the spec.  */
1166
  const char *ptr;              /* available ptr if no static pointer */
1167
 
1168
                                /* The following fields are not initialized */
1169
                                /* by EXTRA_SPECS */
1170
  const char **ptr_spec;        /* pointer to the spec itself.  */
1171
  struct spec_list *next;       /* Next spec in linked list.  */
1172
  int name_len;                 /* length of the name */
1173
  int alloc_p;                  /* whether string was allocated */
1174
};
1175
 
1176
#define INIT_STATIC_SPEC(NAME,PTR) \
1177
{ NAME, NULL, PTR, (struct spec_list *) 0, sizeof (NAME) - 1, 0 }
1178
 
1179
/* List of statically defined specs.  */
1180
static struct spec_list static_specs[] =
1181
{
1182
  INIT_STATIC_SPEC ("asm",                      &asm_spec),
1183
  INIT_STATIC_SPEC ("asm_debug",                &asm_debug),
1184
  INIT_STATIC_SPEC ("asm_final",                &asm_final_spec),
1185
  INIT_STATIC_SPEC ("asm_options",              &asm_options),
1186
  INIT_STATIC_SPEC ("invoke_as",                &invoke_as),
1187
  INIT_STATIC_SPEC ("cpp",                      &cpp_spec),
1188
  INIT_STATIC_SPEC ("cpp_options",              &cpp_options),
1189
  INIT_STATIC_SPEC ("cpp_debug_options",        &cpp_debug_options),
1190
  INIT_STATIC_SPEC ("cpp_unique_options",       &cpp_unique_options),
1191
  INIT_STATIC_SPEC ("trad_capable_cpp",         &trad_capable_cpp),
1192
  INIT_STATIC_SPEC ("cc1",                      &cc1_spec),
1193
  INIT_STATIC_SPEC ("cc1_options",              &cc1_options),
1194
  INIT_STATIC_SPEC ("cc1plus",                  &cc1plus_spec),
1195
  INIT_STATIC_SPEC ("link_gcc_c_sequence",      &link_gcc_c_sequence_spec),
1196
  INIT_STATIC_SPEC ("link_ssp",                 &link_ssp_spec),
1197
  INIT_STATIC_SPEC ("endfile",                  &endfile_spec),
1198
  INIT_STATIC_SPEC ("link",                     &link_spec),
1199
  INIT_STATIC_SPEC ("lib",                      &lib_spec),
1200
  INIT_STATIC_SPEC ("mfwrap",                   &mfwrap_spec),
1201
  INIT_STATIC_SPEC ("mflib",                    &mflib_spec),
1202
  INIT_STATIC_SPEC ("link_gomp",                &link_gomp_spec),
1203
  INIT_STATIC_SPEC ("libgcc",                   &libgcc_spec),
1204
  INIT_STATIC_SPEC ("startfile",                &startfile_spec),
1205
  INIT_STATIC_SPEC ("cross_compile",            &cross_compile),
1206
  INIT_STATIC_SPEC ("version",                  &compiler_version),
1207
  INIT_STATIC_SPEC ("multilib",                 &multilib_select),
1208
  INIT_STATIC_SPEC ("multilib_defaults",        &multilib_defaults),
1209
  INIT_STATIC_SPEC ("multilib_extra",           &multilib_extra),
1210
  INIT_STATIC_SPEC ("multilib_matches",         &multilib_matches),
1211
  INIT_STATIC_SPEC ("multilib_exclusions",      &multilib_exclusions),
1212
  INIT_STATIC_SPEC ("multilib_options",         &multilib_options),
1213
  INIT_STATIC_SPEC ("linker",                   &linker_name_spec),
1214
  INIT_STATIC_SPEC ("linker_plugin_file",       &linker_plugin_file_spec),
1215
  INIT_STATIC_SPEC ("lto_wrapper",              &lto_wrapper_spec),
1216
  INIT_STATIC_SPEC ("lto_gcc",                  &lto_gcc_spec),
1217
  INIT_STATIC_SPEC ("link_libgcc",              &link_libgcc_spec),
1218
  INIT_STATIC_SPEC ("md_exec_prefix",           &md_exec_prefix),
1219
  INIT_STATIC_SPEC ("md_startfile_prefix",      &md_startfile_prefix),
1220
  INIT_STATIC_SPEC ("md_startfile_prefix_1",    &md_startfile_prefix_1),
1221
  INIT_STATIC_SPEC ("startfile_prefix_spec",    &startfile_prefix_spec),
1222
  INIT_STATIC_SPEC ("sysroot_spec",             &sysroot_spec),
1223
  INIT_STATIC_SPEC ("sysroot_suffix_spec",      &sysroot_suffix_spec),
1224
  INIT_STATIC_SPEC ("sysroot_hdrs_suffix_spec", &sysroot_hdrs_suffix_spec),
1225
  INIT_STATIC_SPEC ("self_spec",                &self_spec),
1226
};
1227
 
1228
#ifdef EXTRA_SPECS              /* additional specs needed */
1229
/* Structure to keep track of just the first two args of a spec_list.
1230
   That is all that the EXTRA_SPECS macro gives us.  */
1231
struct spec_list_1
1232
{
1233
  const char *const name;
1234
  const char *const ptr;
1235
};
1236
 
1237
static const struct spec_list_1 extra_specs_1[] = { EXTRA_SPECS };
1238
static struct spec_list *extra_specs = (struct spec_list *) 0;
1239
#endif
1240
 
1241
/* List of dynamically allocates specs that have been defined so far.  */
1242
 
1243
static struct spec_list *specs = (struct spec_list *) 0;
1244
 
1245
/* List of static spec functions.  */
1246
 
1247
static const struct spec_function static_spec_functions[] =
1248
{
1249
  { "getenv",                   getenv_spec_function },
1250
  { "if-exists",                if_exists_spec_function },
1251
  { "if-exists-else",           if_exists_else_spec_function },
1252
  { "replace-outfile",          replace_outfile_spec_function },
1253
  { "remove-outfile",           remove_outfile_spec_function },
1254
  { "version-compare",          version_compare_spec_function },
1255
  { "include",                  include_spec_function },
1256
  { "find-file",                find_file_spec_function },
1257
  { "find-plugindir",           find_plugindir_spec_function },
1258
  { "print-asm-header",         print_asm_header_spec_function },
1259
  { "compare-debug-dump-opt",   compare_debug_dump_opt_spec_function },
1260
  { "compare-debug-self-opt",   compare_debug_self_opt_spec_function },
1261
  { "compare-debug-auxbase-opt", compare_debug_auxbase_opt_spec_function },
1262
  { "pass-through-libs",        pass_through_libs_spec_func },
1263
#ifdef EXTRA_SPEC_FUNCTIONS
1264
  EXTRA_SPEC_FUNCTIONS
1265
#endif
1266
  { 0, 0 }
1267
};
1268
 
1269
static int processing_spec_function;
1270
 
1271
/* Add appropriate libgcc specs to OBSTACK, taking into account
1272
   various permutations of -shared-libgcc, -shared, and such.  */
1273
 
1274
#if defined(ENABLE_SHARED_LIBGCC) && !defined(REAL_LIBGCC_SPEC)
1275
 
1276
#ifndef USE_LD_AS_NEEDED
1277
#define USE_LD_AS_NEEDED 0
1278
#endif
1279
 
1280
static void
1281
init_gcc_specs (struct obstack *obstack, const char *shared_name,
1282
                const char *static_name, const char *eh_name)
1283
{
1284
  char *buf;
1285
 
1286
  buf = concat ("%{static|static-libgcc:", static_name, " ", eh_name, "}"
1287
                "%{!static:%{!static-libgcc:"
1288
#if USE_LD_AS_NEEDED
1289
                "%{!shared-libgcc:",
1290
                static_name, " --as-needed ", shared_name, " --no-as-needed"
1291
                "}"
1292
                "%{shared-libgcc:",
1293
                shared_name, "%{!shared: ", static_name, "}"
1294
                "}"
1295
#else
1296
                "%{!shared:"
1297
                "%{!shared-libgcc:", static_name, " ", eh_name, "}"
1298
                "%{shared-libgcc:", shared_name, " ", static_name, "}"
1299
                "}"
1300
#ifdef LINK_EH_SPEC
1301
                "%{shared:"
1302
                "%{shared-libgcc:", shared_name, "}"
1303
                "%{!shared-libgcc:", static_name, "}"
1304
                "}"
1305
#else
1306
                "%{shared:", shared_name, "}"
1307
#endif
1308
#endif
1309
                "}}", NULL);
1310
 
1311
  obstack_grow (obstack, buf, strlen (buf));
1312
  free (buf);
1313
}
1314
#endif /* ENABLE_SHARED_LIBGCC */
1315
 
1316
/* Initialize the specs lookup routines.  */
1317
 
1318
static void
1319
init_spec (void)
1320
{
1321
  struct spec_list *next = (struct spec_list *) 0;
1322
  struct spec_list *sl   = (struct spec_list *) 0;
1323
  int i;
1324
 
1325
  if (specs)
1326
    return;                     /* Already initialized.  */
1327
 
1328
  if (verbose_flag)
1329
    fnotice (stderr, "Using built-in specs.\n");
1330
 
1331
#ifdef EXTRA_SPECS
1332
  extra_specs = XCNEWVEC (struct spec_list, ARRAY_SIZE (extra_specs_1));
1333
 
1334
  for (i = ARRAY_SIZE (extra_specs_1) - 1; i >= 0; i--)
1335
    {
1336
      sl = &extra_specs[i];
1337
      sl->name = extra_specs_1[i].name;
1338
      sl->ptr = extra_specs_1[i].ptr;
1339
      sl->next = next;
1340
      sl->name_len = strlen (sl->name);
1341
      sl->ptr_spec = &sl->ptr;
1342
      next = sl;
1343
    }
1344
#endif
1345
 
1346
  for (i = ARRAY_SIZE (static_specs) - 1; i >= 0; i--)
1347
    {
1348
      sl = &static_specs[i];
1349
      sl->next = next;
1350
      next = sl;
1351
    }
1352
 
1353
#if defined(ENABLE_SHARED_LIBGCC) && !defined(REAL_LIBGCC_SPEC)
1354
  /* ??? If neither -shared-libgcc nor --static-libgcc was
1355
     seen, then we should be making an educated guess.  Some proposed
1356
     heuristics for ELF include:
1357
 
1358
        (1) If "-Wl,--export-dynamic", then it's a fair bet that the
1359
            program will be doing dynamic loading, which will likely
1360
            need the shared libgcc.
1361
 
1362
        (2) If "-ldl", then it's also a fair bet that we're doing
1363
            dynamic loading.
1364
 
1365
        (3) For each ET_DYN we're linking against (either through -lfoo
1366
            or /some/path/foo.so), check to see whether it or one of
1367
            its dependencies depends on a shared libgcc.
1368
 
1369
        (4) If "-shared"
1370
 
1371
            If the runtime is fixed to look for program headers instead
1372
            of calling __register_frame_info at all, for each object,
1373
            use the shared libgcc if any EH symbol referenced.
1374
 
1375
            If crtstuff is fixed to not invoke __register_frame_info
1376
            automatically, for each object, use the shared libgcc if
1377
            any non-empty unwind section found.
1378
 
1379
     Doing any of this probably requires invoking an external program to
1380
     do the actual object file scanning.  */
1381
  {
1382
    const char *p = libgcc_spec;
1383
    int in_sep = 1;
1384
 
1385
    /* Transform the extant libgcc_spec into one that uses the shared libgcc
1386
       when given the proper command line arguments.  */
1387
    while (*p)
1388
      {
1389
        if (in_sep && *p == '-' && strncmp (p, "-lgcc", 5) == 0)
1390
          {
1391
            init_gcc_specs (&obstack,
1392
                            "-lgcc_s"
1393
#ifdef USE_LIBUNWIND_EXCEPTIONS
1394
                            " -lunwind"
1395
#endif
1396
                            ,
1397
                            "-lgcc",
1398
                            "-lgcc_eh"
1399
#ifdef USE_LIBUNWIND_EXCEPTIONS
1400
# ifdef HAVE_LD_STATIC_DYNAMIC
1401
                            " %{!static:" LD_STATIC_OPTION "} -lunwind"
1402
                            " %{!static:" LD_DYNAMIC_OPTION "}"
1403
# else
1404
                            " -lunwind"
1405
# endif
1406
#endif
1407
                            );
1408
 
1409
            p += 5;
1410
            in_sep = 0;
1411
          }
1412
        else if (in_sep && *p == 'l' && strncmp (p, "libgcc.a%s", 10) == 0)
1413
          {
1414
            /* Ug.  We don't know shared library extensions.  Hope that
1415
               systems that use this form don't do shared libraries.  */
1416
            init_gcc_specs (&obstack,
1417
                            "-lgcc_s",
1418
                            "libgcc.a%s",
1419
                            "libgcc_eh.a%s"
1420
#ifdef USE_LIBUNWIND_EXCEPTIONS
1421
                            " -lunwind"
1422
#endif
1423
                            );
1424
            p += 10;
1425
            in_sep = 0;
1426
          }
1427
        else
1428
          {
1429
            obstack_1grow (&obstack, *p);
1430
            in_sep = (*p == ' ');
1431
            p += 1;
1432
          }
1433
      }
1434
 
1435
    obstack_1grow (&obstack, '\0');
1436
    libgcc_spec = XOBFINISH (&obstack, const char *);
1437
  }
1438
#endif
1439
#ifdef USE_AS_TRADITIONAL_FORMAT
1440
  /* Prepend "--traditional-format" to whatever asm_spec we had before.  */
1441
  {
1442
    static const char tf[] = "--traditional-format ";
1443
    obstack_grow (&obstack, tf, sizeof(tf) - 1);
1444
    obstack_grow0 (&obstack, asm_spec, strlen (asm_spec));
1445
    asm_spec = XOBFINISH (&obstack, const char *);
1446
  }
1447
#endif
1448
 
1449
#if defined LINK_EH_SPEC || defined LINK_BUILDID_SPEC || \
1450
    defined LINKER_HASH_STYLE
1451
# ifdef LINK_BUILDID_SPEC
1452
  /* Prepend LINK_BUILDID_SPEC to whatever link_spec we had before.  */
1453
  obstack_grow (&obstack, LINK_BUILDID_SPEC, sizeof(LINK_BUILDID_SPEC) - 1);
1454
# endif
1455
# ifdef LINK_EH_SPEC
1456
  /* Prepend LINK_EH_SPEC to whatever link_spec we had before.  */
1457
  obstack_grow (&obstack, LINK_EH_SPEC, sizeof(LINK_EH_SPEC) - 1);
1458
# endif
1459
# ifdef LINKER_HASH_STYLE
1460
  /* Prepend --hash-style=LINKER_HASH_STYLE to whatever link_spec we had
1461
     before.  */
1462
  {
1463
    static const char hash_style[] = "--hash-style=";
1464
    obstack_grow (&obstack, hash_style, sizeof(hash_style) - 1);
1465
    obstack_grow (&obstack, LINKER_HASH_STYLE, sizeof(LINKER_HASH_STYLE) - 1);
1466
    obstack_1grow (&obstack, ' ');
1467
  }
1468
# endif
1469
  obstack_grow0 (&obstack, link_spec, strlen (link_spec));
1470
  link_spec = XOBFINISH (&obstack, const char *);
1471
#endif
1472
 
1473
  specs = sl;
1474
}
1475
 
1476
/* Change the value of spec NAME to SPEC.  If SPEC is empty, then the spec is
1477
   removed; If the spec starts with a + then SPEC is added to the end of the
1478
   current spec.  */
1479
 
1480
static void
1481
set_spec (const char *name, const char *spec)
1482
{
1483
  struct spec_list *sl;
1484
  const char *old_spec;
1485
  int name_len = strlen (name);
1486
  int i;
1487
 
1488
  /* If this is the first call, initialize the statically allocated specs.  */
1489
  if (!specs)
1490
    {
1491
      struct spec_list *next = (struct spec_list *) 0;
1492
      for (i = ARRAY_SIZE (static_specs) - 1; i >= 0; i--)
1493
        {
1494
          sl = &static_specs[i];
1495
          sl->next = next;
1496
          next = sl;
1497
        }
1498
      specs = sl;
1499
    }
1500
 
1501
  /* See if the spec already exists.  */
1502
  for (sl = specs; sl; sl = sl->next)
1503
    if (name_len == sl->name_len && !strcmp (sl->name, name))
1504
      break;
1505
 
1506
  if (!sl)
1507
    {
1508
      /* Not found - make it.  */
1509
      sl = XNEW (struct spec_list);
1510
      sl->name = xstrdup (name);
1511
      sl->name_len = name_len;
1512
      sl->ptr_spec = &sl->ptr;
1513
      sl->alloc_p = 0;
1514
      *(sl->ptr_spec) = "";
1515
      sl->next = specs;
1516
      specs = sl;
1517
    }
1518
 
1519
  old_spec = *(sl->ptr_spec);
1520
  *(sl->ptr_spec) = ((spec[0] == '+' && ISSPACE ((unsigned char)spec[1]))
1521
                     ? concat (old_spec, spec + 1, NULL)
1522
                     : xstrdup (spec));
1523
 
1524
#ifdef DEBUG_SPECS
1525
  if (verbose_flag)
1526
    fnotice (stderr, "Setting spec %s to '%s'\n\n", name, *(sl->ptr_spec));
1527
#endif
1528
 
1529
  /* Free the old spec.  */
1530
  if (old_spec && sl->alloc_p)
1531
    free (CONST_CAST(char *, old_spec));
1532
 
1533
  sl->alloc_p = 1;
1534
}
1535
 
1536
/* Accumulate a command (program name and args), and run it.  */
1537
 
1538
typedef const char *const_char_p; /* For DEF_VEC_P.  */
1539
DEF_VEC_P(const_char_p);
1540
DEF_VEC_ALLOC_P(const_char_p,heap);
1541
 
1542
/* Vector of pointers to arguments in the current line of specifications.  */
1543
 
1544
static VEC(const_char_p,heap) *argbuf;
1545
 
1546
/* Position in the argbuf vector containing the name of the output file
1547
   (the value associated with the "-o" flag).  */
1548
 
1549
static int have_o_argbuf_index = 0;
1550
 
1551
/* Were the options -c, -S or -E passed.  */
1552
static int have_c = 0;
1553
 
1554
/* Was the option -o passed.  */
1555
static int have_o = 0;
1556
 
1557
/* This is the list of suffixes and codes (%g/%u/%U/%j) and the associated
1558
   temp file.  If the HOST_BIT_BUCKET is used for %j, no entry is made for
1559
   it here.  */
1560
 
1561
static struct temp_name {
1562
  const char *suffix;   /* suffix associated with the code.  */
1563
  int length;           /* strlen (suffix).  */
1564
  int unique;           /* Indicates whether %g or %u/%U was used.  */
1565
  const char *filename; /* associated filename.  */
1566
  int filename_length;  /* strlen (filename).  */
1567
  struct temp_name *next;
1568
} *temp_names;
1569
 
1570
/* Number of commands executed so far.  */
1571
 
1572
static int execution_count;
1573
 
1574
/* Number of commands that exited with a signal.  */
1575
 
1576
static int signal_count;
1577
 
1578
/* Allocate the argument vector.  */
1579
 
1580
static void
1581
alloc_args (void)
1582
{
1583
  argbuf = VEC_alloc (const_char_p, heap, 10);
1584
}
1585
 
1586
/* Clear out the vector of arguments (after a command is executed).  */
1587
 
1588
static void
1589
clear_args (void)
1590
{
1591
  VEC_truncate (const_char_p, argbuf, 0);
1592
}
1593
 
1594
/* Add one argument to the vector at the end.
1595
   This is done when a space is seen or at the end of the line.
1596
   If DELETE_ALWAYS is nonzero, the arg is a filename
1597
    and the file should be deleted eventually.
1598
   If DELETE_FAILURE is nonzero, the arg is a filename
1599
    and the file should be deleted if this compilation fails.  */
1600
 
1601
static void
1602
store_arg (const char *arg, int delete_always, int delete_failure)
1603
{
1604
  VEC_safe_push (const_char_p, heap, argbuf, arg);
1605
 
1606
  if (strcmp (arg, "-o") == 0)
1607
    have_o_argbuf_index = VEC_length (const_char_p, argbuf);
1608
  if (delete_always || delete_failure)
1609
    {
1610
      const char *p;
1611
      /* If the temporary file we should delete is specified as
1612
         part of a joined argument extract the filename.  */
1613
      if (arg[0] == '-'
1614
          && (p = strrchr (arg, '=')))
1615
        arg = p + 1;
1616
      record_temp_file (arg, delete_always, delete_failure);
1617
    }
1618
}
1619
 
1620
/* Load specs from a file name named FILENAME, replacing occurrences of
1621
   various different types of line-endings, \r\n, \n\r and just \r, with
1622
   a single \n.  */
1623
 
1624
static char *
1625
load_specs (const char *filename)
1626
{
1627
  int desc;
1628
  int readlen;
1629
  struct stat statbuf;
1630
  char *buffer;
1631
  char *buffer_p;
1632
  char *specs;
1633
  char *specs_p;
1634
 
1635
  if (verbose_flag)
1636
    fnotice (stderr, "Reading specs from %s\n", filename);
1637
 
1638
  /* Open and stat the file.  */
1639
  desc = open (filename, O_RDONLY, 0);
1640
  if (desc < 0)
1641
    pfatal_with_name (filename);
1642
  if (stat (filename, &statbuf) < 0)
1643
    pfatal_with_name (filename);
1644
 
1645
  /* Read contents of file into BUFFER.  */
1646
  buffer = XNEWVEC (char, statbuf.st_size + 1);
1647
  readlen = read (desc, buffer, (unsigned) statbuf.st_size);
1648
  if (readlen < 0)
1649
    pfatal_with_name (filename);
1650
  buffer[readlen] = 0;
1651
  close (desc);
1652
 
1653
  specs = XNEWVEC (char, readlen + 1);
1654
  specs_p = specs;
1655
  for (buffer_p = buffer; buffer_p && *buffer_p; buffer_p++)
1656
    {
1657
      int skip = 0;
1658
      char c = *buffer_p;
1659
      if (c == '\r')
1660
        {
1661
          if (buffer_p > buffer && *(buffer_p - 1) == '\n')     /* \n\r */
1662
            skip = 1;
1663
          else if (*(buffer_p + 1) == '\n')                     /* \r\n */
1664
            skip = 1;
1665
          else                                                  /* \r */
1666
            c = '\n';
1667
        }
1668
      if (! skip)
1669
        *specs_p++ = c;
1670
    }
1671
  *specs_p = '\0';
1672
 
1673
  free (buffer);
1674
  return (specs);
1675
}
1676
 
1677
/* Read compilation specs from a file named FILENAME,
1678
   replacing the default ones.
1679
 
1680
   A suffix which starts with `*' is a definition for
1681
   one of the machine-specific sub-specs.  The "suffix" should be
1682
   *asm, *cc1, *cpp, *link, *startfile, etc.
1683
   The corresponding spec is stored in asm_spec, etc.,
1684
   rather than in the `compilers' vector.
1685
 
1686
   Anything invalid in the file is a fatal error.  */
1687
 
1688
static void
1689
read_specs (const char *filename, int main_p)
1690
{
1691
  char *buffer;
1692
  char *p;
1693
 
1694
  buffer = load_specs (filename);
1695
 
1696
  /* Scan BUFFER for specs, putting them in the vector.  */
1697
  p = buffer;
1698
  while (1)
1699
    {
1700
      char *suffix;
1701
      char *spec;
1702
      char *in, *out, *p1, *p2, *p3;
1703
 
1704
      /* Advance P in BUFFER to the next nonblank nocomment line.  */
1705
      p = skip_whitespace (p);
1706
      if (*p == 0)
1707
        break;
1708
 
1709
      /* Is this a special command that starts with '%'? */
1710
      /* Don't allow this for the main specs file, since it would
1711
         encourage people to overwrite it.  */
1712
      if (*p == '%' && !main_p)
1713
        {
1714
          p1 = p;
1715
          while (*p && *p != '\n')
1716
            p++;
1717
 
1718
          /* Skip '\n'.  */
1719
          p++;
1720
 
1721
          if (!strncmp (p1, "%include", sizeof ("%include") - 1)
1722
              && (p1[sizeof "%include" - 1] == ' '
1723
                  || p1[sizeof "%include" - 1] == '\t'))
1724
            {
1725
              char *new_filename;
1726
 
1727
              p1 += sizeof ("%include");
1728
              while (*p1 == ' ' || *p1 == '\t')
1729
                p1++;
1730
 
1731
              if (*p1++ != '<' || p[-2] != '>')
1732
                fatal_error ("specs %%include syntax malformed after "
1733
                             "%ld characters",
1734
                             (long) (p1 - buffer + 1));
1735
 
1736
              p[-2] = '\0';
1737
              new_filename = find_a_file (&startfile_prefixes, p1, R_OK, true);
1738
              read_specs (new_filename ? new_filename : p1, FALSE);
1739
              continue;
1740
            }
1741
          else if (!strncmp (p1, "%include_noerr", sizeof "%include_noerr" - 1)
1742
                   && (p1[sizeof "%include_noerr" - 1] == ' '
1743
                       || p1[sizeof "%include_noerr" - 1] == '\t'))
1744
            {
1745
              char *new_filename;
1746
 
1747
              p1 += sizeof "%include_noerr";
1748
              while (*p1 == ' ' || *p1 == '\t')
1749
                p1++;
1750
 
1751
              if (*p1++ != '<' || p[-2] != '>')
1752
                fatal_error ("specs %%include syntax malformed after "
1753
                             "%ld characters",
1754
                             (long) (p1 - buffer + 1));
1755
 
1756
              p[-2] = '\0';
1757
              new_filename = find_a_file (&startfile_prefixes, p1, R_OK, true);
1758
              if (new_filename)
1759
                read_specs (new_filename, FALSE);
1760
              else if (verbose_flag)
1761
                fnotice (stderr, "could not find specs file %s\n", p1);
1762
              continue;
1763
            }
1764
          else if (!strncmp (p1, "%rename", sizeof "%rename" - 1)
1765
                   && (p1[sizeof "%rename" - 1] == ' '
1766
                       || p1[sizeof "%rename" - 1] == '\t'))
1767
            {
1768
              int name_len;
1769
              struct spec_list *sl;
1770
              struct spec_list *newsl;
1771
 
1772
              /* Get original name.  */
1773
              p1 += sizeof "%rename";
1774
              while (*p1 == ' ' || *p1 == '\t')
1775
                p1++;
1776
 
1777
              if (! ISALPHA ((unsigned char) *p1))
1778
                fatal_error ("specs %%rename syntax malformed after "
1779
                             "%ld characters",
1780
                             (long) (p1 - buffer));
1781
 
1782
              p2 = p1;
1783
              while (*p2 && !ISSPACE ((unsigned char) *p2))
1784
                p2++;
1785
 
1786
              if (*p2 != ' ' && *p2 != '\t')
1787
                fatal_error ("specs %%rename syntax malformed after "
1788
                             "%ld characters",
1789
                             (long) (p2 - buffer));
1790
 
1791
              name_len = p2 - p1;
1792
              *p2++ = '\0';
1793
              while (*p2 == ' ' || *p2 == '\t')
1794
                p2++;
1795
 
1796
              if (! ISALPHA ((unsigned char) *p2))
1797
                fatal_error ("specs %%rename syntax malformed after "
1798
                             "%ld characters",
1799
                             (long) (p2 - buffer));
1800
 
1801
              /* Get new spec name.  */
1802
              p3 = p2;
1803
              while (*p3 && !ISSPACE ((unsigned char) *p3))
1804
                p3++;
1805
 
1806
              if (p3 != p - 1)
1807
                fatal_error ("specs %%rename syntax malformed after "
1808
                             "%ld characters",
1809
                             (long) (p3 - buffer));
1810
              *p3 = '\0';
1811
 
1812
              for (sl = specs; sl; sl = sl->next)
1813
                if (name_len == sl->name_len && !strcmp (sl->name, p1))
1814
                  break;
1815
 
1816
              if (!sl)
1817
                fatal_error ("specs %s spec was not found to be renamed", p1);
1818
 
1819
              if (strcmp (p1, p2) == 0)
1820
                continue;
1821
 
1822
              for (newsl = specs; newsl; newsl = newsl->next)
1823
                if (strcmp (newsl->name, p2) == 0)
1824
                  fatal_error ("%s: attempt to rename spec %qs to "
1825
                               "already defined spec %qs",
1826
                    filename, p1, p2);
1827
 
1828
              if (verbose_flag)
1829
                {
1830
                  fnotice (stderr, "rename spec %s to %s\n", p1, p2);
1831
#ifdef DEBUG_SPECS
1832
                  fnotice (stderr, "spec is '%s'\n\n", *(sl->ptr_spec));
1833
#endif
1834
                }
1835
 
1836
              set_spec (p2, *(sl->ptr_spec));
1837
              if (sl->alloc_p)
1838
                free (CONST_CAST (char *, *(sl->ptr_spec)));
1839
 
1840
              *(sl->ptr_spec) = "";
1841
              sl->alloc_p = 0;
1842
              continue;
1843
            }
1844
          else
1845
            fatal_error ("specs unknown %% command after %ld characters",
1846
                         (long) (p1 - buffer));
1847
        }
1848
 
1849
      /* Find the colon that should end the suffix.  */
1850
      p1 = p;
1851
      while (*p1 && *p1 != ':' && *p1 != '\n')
1852
        p1++;
1853
 
1854
      /* The colon shouldn't be missing.  */
1855
      if (*p1 != ':')
1856
        fatal_error ("specs file malformed after %ld characters",
1857
                     (long) (p1 - buffer));
1858
 
1859
      /* Skip back over trailing whitespace.  */
1860
      p2 = p1;
1861
      while (p2 > buffer && (p2[-1] == ' ' || p2[-1] == '\t'))
1862
        p2--;
1863
 
1864
      /* Copy the suffix to a string.  */
1865
      suffix = save_string (p, p2 - p);
1866
      /* Find the next line.  */
1867
      p = skip_whitespace (p1 + 1);
1868
      if (p[1] == 0)
1869
        fatal_error ("specs file malformed after %ld characters",
1870
                     (long) (p - buffer));
1871
 
1872
      p1 = p;
1873
      /* Find next blank line or end of string.  */
1874
      while (*p1 && !(*p1 == '\n' && (p1[1] == '\n' || p1[1] == '\0')))
1875
        p1++;
1876
 
1877
      /* Specs end at the blank line and do not include the newline.  */
1878
      spec = save_string (p, p1 - p);
1879
      p = p1;
1880
 
1881
      /* Delete backslash-newline sequences from the spec.  */
1882
      in = spec;
1883
      out = spec;
1884
      while (*in != 0)
1885
        {
1886
          if (in[0] == '\\' && in[1] == '\n')
1887
            in += 2;
1888
          else if (in[0] == '#')
1889
            while (*in && *in != '\n')
1890
              in++;
1891
 
1892
          else
1893
            *out++ = *in++;
1894
        }
1895
      *out = 0;
1896
 
1897
      if (suffix[0] == '*')
1898
        {
1899
          if (! strcmp (suffix, "*link_command"))
1900
            link_command_spec = spec;
1901
          else
1902
            set_spec (suffix + 1, spec);
1903
        }
1904
      else
1905
        {
1906
          /* Add this pair to the vector.  */
1907
          compilers
1908
            = XRESIZEVEC (struct compiler, compilers, n_compilers + 2);
1909
 
1910
          compilers[n_compilers].suffix = suffix;
1911
          compilers[n_compilers].spec = spec;
1912
          n_compilers++;
1913
          memset (&compilers[n_compilers], 0, sizeof compilers[n_compilers]);
1914
        }
1915
 
1916
      if (*suffix == 0)
1917
        link_command_spec = spec;
1918
    }
1919
 
1920
  if (link_command_spec == 0)
1921
    fatal_error ("spec file has no spec for linking");
1922
}
1923
 
1924
/* Record the names of temporary files we tell compilers to write,
1925
   and delete them at the end of the run.  */
1926
 
1927
/* This is the common prefix we use to make temp file names.
1928
   It is chosen once for each run of this program.
1929
   It is substituted into a spec by %g or %j.
1930
   Thus, all temp file names contain this prefix.
1931
   In practice, all temp file names start with this prefix.
1932
 
1933
   This prefix comes from the envvar TMPDIR if it is defined;
1934
   otherwise, from the P_tmpdir macro if that is defined;
1935
   otherwise, in /usr/tmp or /tmp;
1936
   or finally the current directory if all else fails.  */
1937
 
1938
static const char *temp_filename;
1939
 
1940
/* Length of the prefix.  */
1941
 
1942
static int temp_filename_length;
1943
 
1944
/* Define the list of temporary files to delete.  */
1945
 
1946
struct temp_file
1947
{
1948
  const char *name;
1949
  struct temp_file *next;
1950
};
1951
 
1952
/* Queue of files to delete on success or failure of compilation.  */
1953
static struct temp_file *always_delete_queue;
1954
/* Queue of files to delete on failure of compilation.  */
1955
static struct temp_file *failure_delete_queue;
1956
 
1957
/* Record FILENAME as a file to be deleted automatically.
1958
   ALWAYS_DELETE nonzero means delete it if all compilation succeeds;
1959
   otherwise delete it in any case.
1960
   FAIL_DELETE nonzero means delete it if a compilation step fails;
1961
   otherwise delete it in any case.  */
1962
 
1963
void
1964
record_temp_file (const char *filename, int always_delete, int fail_delete)
1965
{
1966
  char *const name = xstrdup (filename);
1967
 
1968
  if (always_delete)
1969
    {
1970
      struct temp_file *temp;
1971
      for (temp = always_delete_queue; temp; temp = temp->next)
1972
        if (! filename_cmp (name, temp->name))
1973
          goto already1;
1974
 
1975
      temp = XNEW (struct temp_file);
1976
      temp->next = always_delete_queue;
1977
      temp->name = name;
1978
      always_delete_queue = temp;
1979
 
1980
    already1:;
1981
    }
1982
 
1983
  if (fail_delete)
1984
    {
1985
      struct temp_file *temp;
1986
      for (temp = failure_delete_queue; temp; temp = temp->next)
1987
        if (! filename_cmp (name, temp->name))
1988
          goto already2;
1989
 
1990
      temp = XNEW (struct temp_file);
1991
      temp->next = failure_delete_queue;
1992
      temp->name = name;
1993
      failure_delete_queue = temp;
1994
 
1995
    already2:;
1996
    }
1997
}
1998
 
1999
/* Delete all the temporary files whose names we previously recorded.  */
2000
 
2001
#ifndef DELETE_IF_ORDINARY
2002
#define DELETE_IF_ORDINARY(NAME,ST,VERBOSE_FLAG)        \
2003
do                                                      \
2004
  {                                                     \
2005
    if (stat (NAME, &ST) >= 0 && S_ISREG (ST.st_mode))  \
2006
      if (unlink (NAME) < 0)                            \
2007
        if (VERBOSE_FLAG)                               \
2008
          perror_with_name (NAME);                      \
2009
  } while (0)
2010
#endif
2011
 
2012
static void
2013
delete_if_ordinary (const char *name)
2014
{
2015
  struct stat st;
2016
#ifdef DEBUG
2017
  int i, c;
2018
 
2019
  printf ("Delete %s? (y or n) ", name);
2020
  fflush (stdout);
2021
  i = getchar ();
2022
  if (i != '\n')
2023
    while ((c = getchar ()) != '\n' && c != EOF)
2024
      ;
2025
 
2026
  if (i == 'y' || i == 'Y')
2027
#endif /* DEBUG */
2028
  DELETE_IF_ORDINARY (name, st, verbose_flag);
2029
}
2030
 
2031
static void
2032
delete_temp_files (void)
2033
{
2034
  struct temp_file *temp;
2035
 
2036
  for (temp = always_delete_queue; temp; temp = temp->next)
2037
    delete_if_ordinary (temp->name);
2038
  always_delete_queue = 0;
2039
}
2040
 
2041
/* Delete all the files to be deleted on error.  */
2042
 
2043
static void
2044
delete_failure_queue (void)
2045
{
2046
  struct temp_file *temp;
2047
 
2048
  for (temp = failure_delete_queue; temp; temp = temp->next)
2049
    delete_if_ordinary (temp->name);
2050
}
2051
 
2052
static void
2053
clear_failure_queue (void)
2054
{
2055
  failure_delete_queue = 0;
2056
}
2057
 
2058
/* Call CALLBACK for each path in PATHS, breaking out early if CALLBACK
2059
   returns non-NULL.
2060
   If DO_MULTI is true iterate over the paths twice, first with multilib
2061
   suffix then without, otherwise iterate over the paths once without
2062
   adding a multilib suffix.  When DO_MULTI is true, some attempt is made
2063
   to avoid visiting the same path twice, but we could do better.  For
2064
   instance, /usr/lib/../lib is considered different from /usr/lib.
2065
   At least EXTRA_SPACE chars past the end of the path passed to
2066
   CALLBACK are available for use by the callback.
2067
   CALLBACK_INFO allows extra parameters to be passed to CALLBACK.
2068
 
2069
   Returns the value returned by CALLBACK.  */
2070
 
2071
static void *
2072
for_each_path (const struct path_prefix *paths,
2073
               bool do_multi,
2074
               size_t extra_space,
2075
               void *(*callback) (char *, void *),
2076
               void *callback_info)
2077
{
2078
  struct prefix_list *pl;
2079
  const char *multi_dir = NULL;
2080
  const char *multi_os_dir = NULL;
2081
  const char *multi_suffix;
2082
  const char *just_multi_suffix;
2083
  char *path = NULL;
2084
  void *ret = NULL;
2085
  bool skip_multi_dir = false;
2086
  bool skip_multi_os_dir = false;
2087
 
2088
  multi_suffix = machine_suffix;
2089
  just_multi_suffix = just_machine_suffix;
2090
  if (do_multi && multilib_dir && strcmp (multilib_dir, ".") != 0)
2091
    {
2092
      multi_dir = concat (multilib_dir, dir_separator_str, NULL);
2093
      multi_suffix = concat (multi_suffix, multi_dir, NULL);
2094
      just_multi_suffix = concat (just_multi_suffix, multi_dir, NULL);
2095
    }
2096
  if (do_multi && multilib_os_dir && strcmp (multilib_os_dir, ".") != 0)
2097
    multi_os_dir = concat (multilib_os_dir, dir_separator_str, NULL);
2098
 
2099
  while (1)
2100
    {
2101
      size_t multi_dir_len = 0;
2102
      size_t multi_os_dir_len = 0;
2103
      size_t suffix_len;
2104
      size_t just_suffix_len;
2105
      size_t len;
2106
 
2107
      if (multi_dir)
2108
        multi_dir_len = strlen (multi_dir);
2109
      if (multi_os_dir)
2110
        multi_os_dir_len = strlen (multi_os_dir);
2111
      suffix_len = strlen (multi_suffix);
2112
      just_suffix_len = strlen (just_multi_suffix);
2113
 
2114
      if (path == NULL)
2115
        {
2116
          len = paths->max_len + extra_space + 1;
2117
          if (suffix_len > multi_os_dir_len)
2118
            len += suffix_len;
2119
          else
2120
            len += multi_os_dir_len;
2121
          path = XNEWVEC (char, len);
2122
        }
2123
 
2124
      for (pl = paths->plist; pl != 0; pl = pl->next)
2125
        {
2126
          len = strlen (pl->prefix);
2127
          memcpy (path, pl->prefix, len);
2128
 
2129
          /* Look first in MACHINE/VERSION subdirectory.  */
2130
          if (!skip_multi_dir)
2131
            {
2132
              memcpy (path + len, multi_suffix, suffix_len + 1);
2133
              ret = callback (path, callback_info);
2134
              if (ret)
2135
                break;
2136
            }
2137
 
2138
          /* Some paths are tried with just the machine (ie. target)
2139
             subdir.  This is used for finding as, ld, etc.  */
2140
          if (!skip_multi_dir
2141
              && pl->require_machine_suffix == 2)
2142
            {
2143
              memcpy (path + len, just_multi_suffix, just_suffix_len + 1);
2144
              ret = callback (path, callback_info);
2145
              if (ret)
2146
                break;
2147
            }
2148
 
2149
          /* Now try the base path.  */
2150
          if (!pl->require_machine_suffix
2151
              && !(pl->os_multilib ? skip_multi_os_dir : skip_multi_dir))
2152
            {
2153
              const char *this_multi;
2154
              size_t this_multi_len;
2155
 
2156
              if (pl->os_multilib)
2157
                {
2158
                  this_multi = multi_os_dir;
2159
                  this_multi_len = multi_os_dir_len;
2160
                }
2161
              else
2162
                {
2163
                  this_multi = multi_dir;
2164
                  this_multi_len = multi_dir_len;
2165
                }
2166
 
2167
              if (this_multi_len)
2168
                memcpy (path + len, this_multi, this_multi_len + 1);
2169
              else
2170
                path[len] = '\0';
2171
 
2172
              ret = callback (path, callback_info);
2173
              if (ret)
2174
                break;
2175
            }
2176
        }
2177
      if (pl)
2178
        break;
2179
 
2180
      if (multi_dir == NULL && multi_os_dir == NULL)
2181
        break;
2182
 
2183
      /* Run through the paths again, this time without multilibs.
2184
         Don't repeat any we have already seen.  */
2185
      if (multi_dir)
2186
        {
2187
          free (CONST_CAST (char *, multi_dir));
2188
          multi_dir = NULL;
2189
          free (CONST_CAST (char *, multi_suffix));
2190
          multi_suffix = machine_suffix;
2191
          free (CONST_CAST (char *, just_multi_suffix));
2192
          just_multi_suffix = just_machine_suffix;
2193
        }
2194
      else
2195
        skip_multi_dir = true;
2196
      if (multi_os_dir)
2197
        {
2198
          free (CONST_CAST (char *, multi_os_dir));
2199
          multi_os_dir = NULL;
2200
        }
2201
      else
2202
        skip_multi_os_dir = true;
2203
    }
2204
 
2205
  if (multi_dir)
2206
    {
2207
      free (CONST_CAST (char *, multi_dir));
2208
      free (CONST_CAST (char *, multi_suffix));
2209
      free (CONST_CAST (char *, just_multi_suffix));
2210
    }
2211
  if (multi_os_dir)
2212
    free (CONST_CAST (char *, multi_os_dir));
2213
  if (ret != path)
2214
    free (path);
2215
  return ret;
2216
}
2217
 
2218
/* Callback for build_search_list.  Adds path to obstack being built.  */
2219
 
2220
struct add_to_obstack_info {
2221
  struct obstack *ob;
2222
  bool check_dir;
2223
  bool first_time;
2224
};
2225
 
2226
static void *
2227
add_to_obstack (char *path, void *data)
2228
{
2229
  struct add_to_obstack_info *info = (struct add_to_obstack_info *) data;
2230
 
2231
  if (info->check_dir && !is_directory (path, false))
2232
    return NULL;
2233
 
2234
  if (!info->first_time)
2235
    obstack_1grow (info->ob, PATH_SEPARATOR);
2236
 
2237
  obstack_grow (info->ob, path, strlen (path));
2238
 
2239
  info->first_time = false;
2240
  return NULL;
2241
}
2242
 
2243
/* Add or change the value of an environment variable, outputting the
2244
   change to standard error if in verbose mode.  */
2245
static void
2246
xputenv (const char *string)
2247
{
2248
  if (verbose_flag)
2249
    fnotice (stderr, "%s\n", string);
2250
  putenv (CONST_CAST (char *, string));
2251
}
2252
 
2253
/* Build a list of search directories from PATHS.
2254
   PREFIX is a string to prepend to the list.
2255
   If CHECK_DIR_P is true we ensure the directory exists.
2256
   If DO_MULTI is true, multilib paths are output first, then
2257
   non-multilib paths.
2258
   This is used mostly by putenv_from_prefixes so we use `collect_obstack'.
2259
   It is also used by the --print-search-dirs flag.  */
2260
 
2261
static char *
2262
build_search_list (const struct path_prefix *paths, const char *prefix,
2263
                   bool check_dir, bool do_multi)
2264
{
2265
  struct add_to_obstack_info info;
2266
 
2267
  info.ob = &collect_obstack;
2268
  info.check_dir = check_dir;
2269
  info.first_time = true;
2270
 
2271
  obstack_grow (&collect_obstack, prefix, strlen (prefix));
2272
  obstack_1grow (&collect_obstack, '=');
2273
 
2274
  for_each_path (paths, do_multi, 0, add_to_obstack, &info);
2275
 
2276
  obstack_1grow (&collect_obstack, '\0');
2277
  return XOBFINISH (&collect_obstack, char *);
2278
}
2279
 
2280
/* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
2281
   for collect.  */
2282
 
2283
static void
2284
putenv_from_prefixes (const struct path_prefix *paths, const char *env_var,
2285
                      bool do_multi)
2286
{
2287
  xputenv (build_search_list (paths, env_var, true, do_multi));
2288
}
2289
 
2290
/* Check whether NAME can be accessed in MODE.  This is like access,
2291
   except that it never considers directories to be executable.  */
2292
 
2293
static int
2294
access_check (const char *name, int mode)
2295
{
2296
  if (mode == X_OK)
2297
    {
2298
      struct stat st;
2299
 
2300
      if (stat (name, &st) < 0
2301
          || S_ISDIR (st.st_mode))
2302
        return -1;
2303
    }
2304
 
2305
  return access (name, mode);
2306
}
2307
 
2308
/* Callback for find_a_file.  Appends the file name to the directory
2309
   path.  If the resulting file exists in the right mode, return the
2310
   full pathname to the file.  */
2311
 
2312
struct file_at_path_info {
2313
  const char *name;
2314
  const char *suffix;
2315
  int name_len;
2316
  int suffix_len;
2317
  int mode;
2318
};
2319
 
2320
static void *
2321
file_at_path (char *path, void *data)
2322
{
2323
  struct file_at_path_info *info = (struct file_at_path_info *) data;
2324
  size_t len = strlen (path);
2325
 
2326
  memcpy (path + len, info->name, info->name_len);
2327
  len += info->name_len;
2328
 
2329
  /* Some systems have a suffix for executable files.
2330
     So try appending that first.  */
2331
  if (info->suffix_len)
2332
    {
2333
      memcpy (path + len, info->suffix, info->suffix_len + 1);
2334
      if (access_check (path, info->mode) == 0)
2335
        return path;
2336
    }
2337
 
2338
  path[len] = '\0';
2339
  if (access_check (path, info->mode) == 0)
2340
    return path;
2341
 
2342
  return NULL;
2343
}
2344
 
2345
/* Search for NAME using the prefix list PREFIXES.  MODE is passed to
2346
   access to check permissions.  If DO_MULTI is true, search multilib
2347
   paths then non-multilib paths, otherwise do not search multilib paths.
2348
   Return 0 if not found, otherwise return its name, allocated with malloc.  */
2349
 
2350
static char *
2351
find_a_file (const struct path_prefix *pprefix, const char *name, int mode,
2352
             bool do_multi)
2353
{
2354
  struct file_at_path_info info;
2355
 
2356
#ifdef DEFAULT_ASSEMBLER
2357
  if (! strcmp (name, "as") && access (DEFAULT_ASSEMBLER, mode) == 0)
2358
    return xstrdup (DEFAULT_ASSEMBLER);
2359
#endif
2360
 
2361
#ifdef DEFAULT_LINKER
2362
  if (! strcmp(name, "ld") && access (DEFAULT_LINKER, mode) == 0)
2363
    return xstrdup (DEFAULT_LINKER);
2364
#endif
2365
 
2366
  /* Determine the filename to execute (special case for absolute paths).  */
2367
 
2368
  if (IS_ABSOLUTE_PATH (name))
2369
    {
2370
      if (access (name, mode) == 0)
2371
        return xstrdup (name);
2372
 
2373
      return NULL;
2374
    }
2375
 
2376
  info.name = name;
2377
  info.suffix = (mode & X_OK) != 0 ? HOST_EXECUTABLE_SUFFIX : "";
2378
  info.name_len = strlen (info.name);
2379
  info.suffix_len = strlen (info.suffix);
2380
  info.mode = mode;
2381
 
2382
  return (char*) for_each_path (pprefix, do_multi,
2383
                                info.name_len + info.suffix_len,
2384
                                file_at_path, &info);
2385
}
2386
 
2387
/* Ranking of prefixes in the sort list. -B prefixes are put before
2388
   all others.  */
2389
 
2390
enum path_prefix_priority
2391
{
2392
  PREFIX_PRIORITY_B_OPT,
2393
  PREFIX_PRIORITY_LAST
2394
};
2395
 
2396
/* Add an entry for PREFIX in PLIST.  The PLIST is kept in ascending
2397
   order according to PRIORITY.  Within each PRIORITY, new entries are
2398
   appended.
2399
 
2400
   If WARN is nonzero, we will warn if no file is found
2401
   through this prefix.  WARN should point to an int
2402
   which will be set to 1 if this entry is used.
2403
 
2404
   COMPONENT is the value to be passed to update_path.
2405
 
2406
   REQUIRE_MACHINE_SUFFIX is 1 if this prefix can't be used without
2407
   the complete value of machine_suffix.
2408
   2 means try both machine_suffix and just_machine_suffix.  */
2409
 
2410
static void
2411
add_prefix (struct path_prefix *pprefix, const char *prefix,
2412
            const char *component, /* enum prefix_priority */ int priority,
2413
            int require_machine_suffix, int os_multilib)
2414
{
2415
  struct prefix_list *pl, **prev;
2416
  int len;
2417
 
2418
  for (prev = &pprefix->plist;
2419
       (*prev) != NULL && (*prev)->priority <= priority;
2420
       prev = &(*prev)->next)
2421
    ;
2422
 
2423
  /* Keep track of the longest prefix.  */
2424
 
2425
  prefix = update_path (prefix, component);
2426
  len = strlen (prefix);
2427
  if (len > pprefix->max_len)
2428
    pprefix->max_len = len;
2429
 
2430
  pl = XNEW (struct prefix_list);
2431
  pl->prefix = prefix;
2432
  pl->require_machine_suffix = require_machine_suffix;
2433
  pl->priority = priority;
2434
  pl->os_multilib = os_multilib;
2435
 
2436
  /* Insert after PREV.  */
2437
  pl->next = (*prev);
2438
  (*prev) = pl;
2439
}
2440
 
2441
/* Same as add_prefix, but prepending target_system_root to prefix.  */
2442
/* The target_system_root prefix has been relocated by gcc_exec_prefix.  */
2443
static void
2444
add_sysrooted_prefix (struct path_prefix *pprefix, const char *prefix,
2445
                      const char *component,
2446
                      /* enum prefix_priority */ int priority,
2447
                      int require_machine_suffix, int os_multilib)
2448
{
2449
  if (!IS_ABSOLUTE_PATH (prefix))
2450
    fatal_error ("system path %qs is not absolute", prefix);
2451
 
2452
  if (target_system_root)
2453
    {
2454
      char *sysroot_no_trailing_dir_separator = xstrdup (target_system_root);
2455
      size_t sysroot_len = strlen (target_system_root);
2456
 
2457
      if (sysroot_len > 0
2458
          && target_system_root[sysroot_len - 1] == DIR_SEPARATOR)
2459
        sysroot_no_trailing_dir_separator[sysroot_len - 1] = '\0';
2460
 
2461
      if (target_sysroot_suffix)
2462
          prefix = concat (target_sysroot_suffix, prefix, NULL);
2463
      prefix = concat (sysroot_no_trailing_dir_separator, prefix, NULL);
2464
      free (sysroot_no_trailing_dir_separator);
2465
 
2466
      /* We have to override this because GCC's notion of sysroot
2467
         moves along with GCC.  */
2468
      component = "GCC";
2469
    }
2470
 
2471
  add_prefix (pprefix, prefix, component, priority,
2472
              require_machine_suffix, os_multilib);
2473
}
2474
 
2475
/* Execute the command specified by the arguments on the current line of spec.
2476
   When using pipes, this includes several piped-together commands
2477
   with `|' between them.
2478
 
2479
   Return 0 if successful, -1 if failed.  */
2480
 
2481
static int
2482
execute (void)
2483
{
2484
  int i;
2485
  int n_commands;               /* # of command.  */
2486
  char *string;
2487
  struct pex_obj *pex;
2488
  struct command
2489
  {
2490
    const char *prog;           /* program name.  */
2491
    const char **argv;          /* vector of args.  */
2492
  };
2493
  const char *arg;
2494
 
2495
  struct command *commands;     /* each command buffer with above info.  */
2496
 
2497
  gcc_assert (!processing_spec_function);
2498
 
2499
  if (wrapper_string)
2500
    {
2501
      string = find_a_file (&exec_prefixes,
2502
                            VEC_index (const_char_p, argbuf, 0), X_OK, false);
2503
      if (string)
2504
        VEC_replace (const_char_p, argbuf, 0, string);
2505
      insert_wrapper (wrapper_string);
2506
    }
2507
 
2508
  /* Count # of piped commands.  */
2509
  for (n_commands = 1, i = 0; VEC_iterate (const_char_p, argbuf, i, arg); i++)
2510
    if (strcmp (arg, "|") == 0)
2511
      n_commands++;
2512
 
2513
  /* Get storage for each command.  */
2514
  commands = (struct command *) alloca (n_commands * sizeof (struct command));
2515
 
2516
  /* Split argbuf into its separate piped processes,
2517
     and record info about each one.
2518
     Also search for the programs that are to be run.  */
2519
 
2520
  VEC_safe_push (const_char_p, heap, argbuf, 0);
2521
 
2522
  commands[0].prog = VEC_index (const_char_p, argbuf, 0); /* first command.  */
2523
  commands[0].argv = VEC_address (const_char_p, argbuf);
2524
 
2525
  if (!wrapper_string)
2526
    {
2527
      string = find_a_file (&exec_prefixes, commands[0].prog, X_OK, false);
2528
      commands[0].argv[0] = (string) ? string : commands[0].argv[0];
2529
    }
2530
 
2531
  for (n_commands = 1, i = 0; VEC_iterate (const_char_p, argbuf, i, arg); i++)
2532
    if (arg && strcmp (arg, "|") == 0)
2533
      {                         /* each command.  */
2534
#if defined (__MSDOS__) || defined (OS2) || defined (VMS)
2535
        fatal_error ("-pipe not supported");
2536
#endif
2537
        VEC_replace (const_char_p, argbuf, i, 0); /* Termination of
2538
                                                     command args.  */
2539
        commands[n_commands].prog = VEC_index (const_char_p, argbuf, i + 1);
2540
        commands[n_commands].argv
2541
          = &(VEC_address (const_char_p, argbuf))[i + 1];
2542
        string = find_a_file (&exec_prefixes, commands[n_commands].prog,
2543
                              X_OK, false);
2544
        if (string)
2545
          commands[n_commands].argv[0] = string;
2546
        n_commands++;
2547
      }
2548
 
2549
  /* If -v, print what we are about to do, and maybe query.  */
2550
 
2551
  if (verbose_flag)
2552
    {
2553
      /* For help listings, put a blank line between sub-processes.  */
2554
      if (print_help_list)
2555
        fputc ('\n', stderr);
2556
 
2557
      /* Print each piped command as a separate line.  */
2558
      for (i = 0; i < n_commands; i++)
2559
        {
2560
          const char *const *j;
2561
 
2562
          if (verbose_only_flag)
2563
            {
2564
              for (j = commands[i].argv; *j; j++)
2565
                {
2566
                  const char *p;
2567
                  for (p = *j; *p; ++p)
2568
                    if (!ISALNUM ((unsigned char) *p)
2569
                        && *p != '_' && *p != '/' && *p != '-' && *p != '.')
2570
                      break;
2571
                  if (*p || !*j)
2572
                    {
2573
                      fprintf (stderr, " \"");
2574
                      for (p = *j; *p; ++p)
2575
                        {
2576
                          if (*p == '"' || *p == '\\' || *p == '$')
2577
                            fputc ('\\', stderr);
2578
                          fputc (*p, stderr);
2579
                        }
2580
                      fputc ('"', stderr);
2581
                    }
2582
                  /* If it's empty, print "".  */
2583
                  else if (!**j)
2584
                    fprintf (stderr, " \"\"");
2585
                  else
2586
                    fprintf (stderr, " %s", *j);
2587
                }
2588
            }
2589
          else
2590
            for (j = commands[i].argv; *j; j++)
2591
              /* If it's empty, print "".  */
2592
              if (!**j)
2593
                fprintf (stderr, " \"\"");
2594
              else
2595
                fprintf (stderr, " %s", *j);
2596
 
2597
          /* Print a pipe symbol after all but the last command.  */
2598
          if (i + 1 != n_commands)
2599
            fprintf (stderr, " |");
2600
          fprintf (stderr, "\n");
2601
        }
2602
      fflush (stderr);
2603
      if (verbose_only_flag != 0)
2604
        {
2605
          /* verbose_only_flag should act as if the spec was
2606
             executed, so increment execution_count before
2607
             returning.  This prevents spurious warnings about
2608
             unused linker input files, etc.  */
2609
          execution_count++;
2610
          return 0;
2611
        }
2612
#ifdef DEBUG
2613
      fnotice (stderr, "\nGo ahead? (y or n) ");
2614
      fflush (stderr);
2615
      i = getchar ();
2616
      if (i != '\n')
2617
        while (getchar () != '\n')
2618
          ;
2619
 
2620
      if (i != 'y' && i != 'Y')
2621
        return 0;
2622
#endif /* DEBUG */
2623
    }
2624
 
2625
#ifdef ENABLE_VALGRIND_CHECKING
2626
  /* Run the each command through valgrind.  To simplify prepending the
2627
     path to valgrind and the option "-q" (for quiet operation unless
2628
     something triggers), we allocate a separate argv array.  */
2629
 
2630
  for (i = 0; i < n_commands; i++)
2631
    {
2632
      const char **argv;
2633
      int argc;
2634
      int j;
2635
 
2636
      for (argc = 0; commands[i].argv[argc] != NULL; argc++)
2637
        ;
2638
 
2639
      argv = XALLOCAVEC (const char *, argc + 3);
2640
 
2641
      argv[0] = VALGRIND_PATH;
2642
      argv[1] = "-q";
2643
      for (j = 2; j < argc + 2; j++)
2644
        argv[j] = commands[i].argv[j - 2];
2645
      argv[j] = NULL;
2646
 
2647
      commands[i].argv = argv;
2648
      commands[i].prog = argv[0];
2649
    }
2650
#endif
2651
 
2652
  /* Run each piped subprocess.  */
2653
 
2654
  pex = pex_init (PEX_USE_PIPES | ((report_times || report_times_to_file)
2655
                                   ? PEX_RECORD_TIMES : 0),
2656
                  progname, temp_filename);
2657
  if (pex == NULL)
2658
    fatal_error ("pex_init failed: %m");
2659
 
2660
  for (i = 0; i < n_commands; i++)
2661
    {
2662
      const char *errmsg;
2663
      int err;
2664
      const char *string = commands[i].argv[0];
2665
 
2666
      errmsg = pex_run (pex,
2667
                        ((i + 1 == n_commands ? PEX_LAST : 0)
2668
                         | (string == commands[i].prog ? PEX_SEARCH : 0)),
2669
                        string, CONST_CAST (char **, commands[i].argv),
2670
                        NULL, NULL, &err);
2671
      if (errmsg != NULL)
2672
        {
2673
          if (err == 0)
2674
            fatal_error (errmsg);
2675
          else
2676
            {
2677
              errno = err;
2678
              pfatal_with_name (errmsg);
2679
            }
2680
        }
2681
 
2682
      if (string != commands[i].prog)
2683
        free (CONST_CAST (char *, string));
2684
    }
2685
 
2686
  execution_count++;
2687
 
2688
  /* Wait for all the subprocesses to finish.  */
2689
 
2690
  {
2691
    int *statuses;
2692
    struct pex_time *times = NULL;
2693
    int ret_code = 0;
2694
 
2695
    statuses = (int *) alloca (n_commands * sizeof (int));
2696
    if (!pex_get_status (pex, n_commands, statuses))
2697
      fatal_error ("failed to get exit status: %m");
2698
 
2699
    if (report_times || report_times_to_file)
2700
      {
2701
        times = (struct pex_time *) alloca (n_commands * sizeof (struct pex_time));
2702
        if (!pex_get_times (pex, n_commands, times))
2703
          fatal_error ("failed to get process times: %m");
2704
      }
2705
 
2706
    pex_free (pex);
2707
 
2708
    for (i = 0; i < n_commands; ++i)
2709
      {
2710
        int status = statuses[i];
2711
 
2712
        if (WIFSIGNALED (status))
2713
          {
2714
#ifdef SIGPIPE
2715
            /* SIGPIPE is a special case.  It happens in -pipe mode
2716
               when the compiler dies before the preprocessor is done,
2717
               or the assembler dies before the compiler is done.
2718
               There's generally been an error already, and this is
2719
               just fallout.  So don't generate another error unless
2720
               we would otherwise have succeeded.  */
2721
            if (WTERMSIG (status) == SIGPIPE
2722
                && (signal_count || greatest_status >= MIN_FATAL_STATUS))
2723
              {
2724
                signal_count++;
2725
                ret_code = -1;
2726
              }
2727
            else
2728
#endif
2729
              internal_error ("%s (program %s)",
2730
                              strsignal (WTERMSIG (status)), commands[i].prog);
2731
          }
2732
        else if (WIFEXITED (status)
2733
                 && WEXITSTATUS (status) >= MIN_FATAL_STATUS)
2734
          {
2735
            if (WEXITSTATUS (status) > greatest_status)
2736
              greatest_status = WEXITSTATUS (status);
2737
            ret_code = -1;
2738
          }
2739
 
2740
        if (report_times || report_times_to_file)
2741
          {
2742
            struct pex_time *pt = &times[i];
2743
            double ut, st;
2744
 
2745
            ut = ((double) pt->user_seconds
2746
                  + (double) pt->user_microseconds / 1.0e6);
2747
            st = ((double) pt->system_seconds
2748
                  + (double) pt->system_microseconds / 1.0e6);
2749
 
2750
            if (ut + st != 0)
2751
              {
2752
                if (report_times)
2753
                  fnotice (stderr, "# %s %.2f %.2f\n",
2754
                           commands[i].prog, ut, st);
2755
 
2756
                if (report_times_to_file)
2757
                  {
2758
                    int c = 0;
2759
                    const char *const *j;
2760
 
2761
                    fprintf (report_times_to_file, "%g %g", ut, st);
2762
 
2763
                    for (j = &commands[i].prog; *j; j = &commands[i].argv[++c])
2764
                      {
2765
                        const char *p;
2766
                        for (p = *j; *p; ++p)
2767
                          if (*p == '"' || *p == '\\' || *p == '$'
2768
                              || ISSPACE (*p))
2769
                            break;
2770
 
2771
                        if (*p)
2772
                          {
2773
                            fprintf (report_times_to_file, " \"");
2774
                            for (p = *j; *p; ++p)
2775
                              {
2776
                                if (*p == '"' || *p == '\\' || *p == '$')
2777
                                  fputc ('\\', report_times_to_file);
2778
                                fputc (*p, report_times_to_file);
2779
                              }
2780
                            fputc ('"', report_times_to_file);
2781
                          }
2782
                        else
2783
                          fprintf (report_times_to_file, " %s", *j);
2784
                      }
2785
 
2786
                    fputc ('\n', report_times_to_file);
2787
                  }
2788
              }
2789
          }
2790
      }
2791
 
2792
    return ret_code;
2793
  }
2794
}
2795
 
2796
/* Find all the switches given to us
2797
   and make a vector describing them.
2798
   The elements of the vector are strings, one per switch given.
2799
   If a switch uses following arguments, then the `part1' field
2800
   is the switch itself and the `args' field
2801
   is a null-terminated vector containing the following arguments.
2802
   Bits in the `live_cond' field are:
2803
   SWITCH_LIVE to indicate this switch is true in a conditional spec.
2804
   SWITCH_FALSE to indicate this switch is overridden by a later switch.
2805
   SWITCH_IGNORE to indicate this switch should be ignored (used in %<S).
2806
   SWITCH_IGNORE_PERMANENTLY to indicate this switch should be ignored
2807
   in all do_spec calls afterwards.  Used for %<S from self specs.
2808
   The `validated' field is nonzero if any spec has looked at this switch;
2809
   if it remains zero at the end of the run, it must be meaningless.  */
2810
 
2811
#define SWITCH_LIVE                     (1 << 0)
2812
#define SWITCH_FALSE                    (1 << 1)
2813
#define SWITCH_IGNORE                   (1 << 2)
2814
#define SWITCH_IGNORE_PERMANENTLY       (1 << 3)
2815
#define SWITCH_KEEP_FOR_GCC             (1 << 4)
2816
 
2817
struct switchstr
2818
{
2819
  const char *part1;
2820
  const char **args;
2821
  unsigned int live_cond;
2822
  unsigned char validated;
2823
  unsigned char ordering;
2824
};
2825
 
2826
static struct switchstr *switches;
2827
 
2828
static int n_switches;
2829
 
2830
static int n_switches_alloc;
2831
 
2832
/* Set to zero if -fcompare-debug is disabled, positive if it's
2833
   enabled and we're running the first compilation, negative if it's
2834
   enabled and we're running the second compilation.  For most of the
2835
   time, it's in the range -1..1, but it can be temporarily set to 2
2836
   or 3 to indicate that the -fcompare-debug flags didn't come from
2837
   the command-line, but rather from the GCC_COMPARE_DEBUG environment
2838
   variable, until a synthesized -fcompare-debug flag is added to the
2839
   command line.  */
2840
int compare_debug;
2841
 
2842
/* Set to nonzero if we've seen the -fcompare-debug-second flag.  */
2843
int compare_debug_second;
2844
 
2845
/* Set to the flags that should be passed to the second compilation in
2846
   a -fcompare-debug compilation.  */
2847
const char *compare_debug_opt;
2848
 
2849
static struct switchstr *switches_debug_check[2];
2850
 
2851
static int n_switches_debug_check[2];
2852
 
2853
static int n_switches_alloc_debug_check[2];
2854
 
2855
static char *debug_check_temp_file[2];
2856
 
2857
/* Language is one of three things:
2858
 
2859
   1) The name of a real programming language.
2860
   2) NULL, indicating that no one has figured out
2861
   what it is yet.
2862
   3) '*', indicating that the file should be passed
2863
   to the linker.  */
2864
struct infile
2865
{
2866
  const char *name;
2867
  const char *language;
2868
  struct compiler *incompiler;
2869
  bool compiled;
2870
  bool preprocessed;
2871
};
2872
 
2873
/* Also a vector of input files specified.  */
2874
 
2875
static struct infile *infiles;
2876
 
2877
int n_infiles;
2878
 
2879
static int n_infiles_alloc;
2880
 
2881
/* True if multiple input files are being compiled to a single
2882
   assembly file.  */
2883
 
2884
static bool combine_inputs;
2885
 
2886
/* This counts the number of libraries added by lang_specific_driver, so that
2887
   we can tell if there were any user supplied any files or libraries.  */
2888
 
2889
static int added_libraries;
2890
 
2891
/* And a vector of corresponding output files is made up later.  */
2892
 
2893
const char **outfiles;
2894
 
2895
#if defined(HAVE_TARGET_OBJECT_SUFFIX) || defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
2896
 
2897
/* Convert NAME to a new name if it is the standard suffix.  DO_EXE
2898
   is true if we should look for an executable suffix.  DO_OBJ
2899
   is true if we should look for an object suffix.  */
2900
 
2901
static const char *
2902
convert_filename (const char *name, int do_exe ATTRIBUTE_UNUSED,
2903
                  int do_obj ATTRIBUTE_UNUSED)
2904
{
2905
#if defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
2906
  int i;
2907
#endif
2908
  int len;
2909
 
2910
  if (name == NULL)
2911
    return NULL;
2912
 
2913
  len = strlen (name);
2914
 
2915
#ifdef HAVE_TARGET_OBJECT_SUFFIX
2916
  /* Convert x.o to x.obj if TARGET_OBJECT_SUFFIX is ".obj".  */
2917
  if (do_obj && len > 2
2918
      && name[len - 2] == '.'
2919
      && name[len - 1] == 'o')
2920
    {
2921
      obstack_grow (&obstack, name, len - 2);
2922
      obstack_grow0 (&obstack, TARGET_OBJECT_SUFFIX, strlen (TARGET_OBJECT_SUFFIX));
2923
      name = XOBFINISH (&obstack, const char *);
2924
    }
2925
#endif
2926
 
2927
#if defined(HAVE_TARGET_EXECUTABLE_SUFFIX)
2928
  /* If there is no filetype, make it the executable suffix (which includes
2929
     the ".").  But don't get confused if we have just "-o".  */
2930
  if (! do_exe || TARGET_EXECUTABLE_SUFFIX[0] == 0 || (len == 2 && name[0] == '-'))
2931
    return name;
2932
 
2933
  for (i = len - 1; i >= 0; i--)
2934
    if (IS_DIR_SEPARATOR (name[i]))
2935
      break;
2936
 
2937
  for (i++; i < len; i++)
2938
    if (name[i] == '.')
2939
      return name;
2940
 
2941
  obstack_grow (&obstack, name, len);
2942
  obstack_grow0 (&obstack, TARGET_EXECUTABLE_SUFFIX,
2943
                 strlen (TARGET_EXECUTABLE_SUFFIX));
2944
  name = XOBFINISH (&obstack, const char *);
2945
#endif
2946
 
2947
  return name;
2948
}
2949
#endif
2950
 
2951
/* Display the command line switches accepted by gcc.  */
2952
static void
2953
display_help (void)
2954
{
2955
  printf (_("Usage: %s [options] file...\n"), progname);
2956
  fputs (_("Options:\n"), stdout);
2957
 
2958
  fputs (_("  -pass-exit-codes         Exit with highest error code from a phase\n"), stdout);
2959
  fputs (_("  --help                   Display this information\n"), stdout);
2960
  fputs (_("  --target-help            Display target specific command line options\n"), stdout);
2961
  fputs (_("  --help={common|optimizers|params|target|warnings|[^]{joined|separate|undocumented}}[,...]\n"), stdout);
2962
  fputs (_("                           Display specific types of command line options\n"), stdout);
2963
  if (! verbose_flag)
2964
    fputs (_("  (Use '-v --help' to display command line options of sub-processes)\n"), stdout);
2965
  fputs (_("  --version                Display compiler version information\n"), stdout);
2966
  fputs (_("  -dumpspecs               Display all of the built in spec strings\n"), stdout);
2967
  fputs (_("  -dumpversion             Display the version of the compiler\n"), stdout);
2968
  fputs (_("  -dumpmachine             Display the compiler's target processor\n"), stdout);
2969
  fputs (_("  -print-search-dirs       Display the directories in the compiler's search path\n"), stdout);
2970
  fputs (_("  -print-libgcc-file-name  Display the name of the compiler's companion library\n"), stdout);
2971
  fputs (_("  -print-file-name=<lib>   Display the full path to library <lib>\n"), stdout);
2972
  fputs (_("  -print-prog-name=<prog>  Display the full path to compiler component <prog>\n"), stdout);
2973
  fputs (_("  -print-multi-directory   Display the root directory for versions of libgcc\n"), stdout);
2974
  fputs (_("\
2975
  -print-multi-lib         Display the mapping between command line options and\n\
2976
                           multiple library search directories\n"), stdout);
2977
  fputs (_("  -print-multi-os-directory Display the relative path to OS libraries\n"), stdout);
2978
  fputs (_("  -print-sysroot           Display the target libraries directory\n"), stdout);
2979
  fputs (_("  -print-sysroot-headers-suffix Display the sysroot suffix used to find headers\n"), stdout);
2980
  fputs (_("  -Wa,<options>            Pass comma-separated <options> on to the assembler\n"), stdout);
2981
  fputs (_("  -Wp,<options>            Pass comma-separated <options> on to the preprocessor\n"), stdout);
2982
  fputs (_("  -Wl,<options>            Pass comma-separated <options> on to the linker\n"), stdout);
2983
  fputs (_("  -Xassembler <arg>        Pass <arg> on to the assembler\n"), stdout);
2984
  fputs (_("  -Xpreprocessor <arg>     Pass <arg> on to the preprocessor\n"), stdout);
2985
  fputs (_("  -Xlinker <arg>           Pass <arg> on to the linker\n"), stdout);
2986
  fputs (_("  -save-temps              Do not delete intermediate files\n"), stdout);
2987
  fputs (_("  -save-temps=<arg>        Do not delete intermediate files\n"), stdout);
2988
  fputs (_("\
2989
  -no-canonical-prefixes   Do not canonicalize paths when building relative\n\
2990
                           prefixes to other gcc components\n"), stdout);
2991
  fputs (_("  -pipe                    Use pipes rather than intermediate files\n"), stdout);
2992
  fputs (_("  -time                    Time the execution of each subprocess\n"), stdout);
2993
  fputs (_("  -specs=<file>            Override built-in specs with the contents of <file>\n"), stdout);
2994
  fputs (_("  -std=<standard>          Assume that the input sources are for <standard>\n"), stdout);
2995
  fputs (_("\
2996
  --sysroot=<directory>    Use <directory> as the root directory for headers\n\
2997
                           and libraries\n"), stdout);
2998
  fputs (_("  -B <directory>           Add <directory> to the compiler's search paths\n"), stdout);
2999
  fputs (_("  -v                       Display the programs invoked by the compiler\n"), stdout);
3000
  fputs (_("  -###                     Like -v but options quoted and commands not executed\n"), stdout);
3001
  fputs (_("  -E                       Preprocess only; do not compile, assemble or link\n"), stdout);
3002
  fputs (_("  -S                       Compile only; do not assemble or link\n"), stdout);
3003
  fputs (_("  -c                       Compile and assemble, but do not link\n"), stdout);
3004
  fputs (_("  -o <file>                Place the output into <file>\n"), stdout);
3005
  fputs (_("  -pie                     Create a position independent executable\n"), stdout);
3006
  fputs (_("  -shared                  Create a shared library\n"), stdout);
3007
  fputs (_("\
3008
  -x <language>            Specify the language of the following input files\n\
3009
                           Permissible languages include: c c++ assembler none\n\
3010
                           'none' means revert to the default behavior of\n\
3011
                           guessing the language based on the file's extension\n\
3012
"), stdout);
3013
 
3014
  printf (_("\
3015
\nOptions starting with -g, -f, -m, -O, -W, or --param are automatically\n\
3016
 passed on to the various sub-processes invoked by %s.  In order to pass\n\
3017
 other options on to these processes the -W<letter> options must be used.\n\
3018
"), progname);
3019
 
3020
  /* The rest of the options are displayed by invocations of the various
3021
     sub-processes.  */
3022
}
3023
 
3024
static void
3025
add_preprocessor_option (const char *option, int len)
3026
{
3027
  VEC_safe_push (char_p, heap, preprocessor_options,
3028
                 save_string (option, len));
3029
}
3030
 
3031
static void
3032
add_assembler_option (const char *option, int len)
3033
{
3034
  VEC_safe_push (char_p, heap, assembler_options, save_string (option, len));
3035
}
3036
 
3037
static void
3038
add_linker_option (const char *option, int len)
3039
{
3040
  VEC_safe_push (char_p, heap, linker_options, save_string (option, len));
3041
}
3042
 
3043
/* Allocate space for an input file in infiles.  */
3044
 
3045
static void
3046
alloc_infile (void)
3047
{
3048
  if (n_infiles_alloc == 0)
3049
    {
3050
      n_infiles_alloc = 16;
3051
      infiles = XNEWVEC (struct infile, n_infiles_alloc);
3052
    }
3053
  else if (n_infiles_alloc == n_infiles)
3054
    {
3055
      n_infiles_alloc *= 2;
3056
      infiles = XRESIZEVEC (struct infile, infiles, n_infiles_alloc);
3057
    }
3058
}
3059
 
3060
/* Store an input file with the given NAME and LANGUAGE in
3061
   infiles.  */
3062
 
3063
static void
3064
add_infile (const char *name, const char *language)
3065
{
3066
  alloc_infile ();
3067
  infiles[n_infiles].name = name;
3068
  infiles[n_infiles++].language = language;
3069
}
3070
 
3071
/* Allocate space for a switch in switches.  */
3072
 
3073
static void
3074
alloc_switch (void)
3075
{
3076
  if (n_switches_alloc == 0)
3077
    {
3078
      n_switches_alloc = 16;
3079
      switches = XNEWVEC (struct switchstr, n_switches_alloc);
3080
    }
3081
  else if (n_switches_alloc == n_switches)
3082
    {
3083
      n_switches_alloc *= 2;
3084
      switches = XRESIZEVEC (struct switchstr, switches, n_switches_alloc);
3085
    }
3086
}
3087
 
3088
/* Save an option OPT with N_ARGS arguments in array ARGS, marking it
3089
   as validated if VALIDATED.  */
3090
 
3091
static void
3092
save_switch (const char *opt, size_t n_args, const char *const *args,
3093
             bool validated)
3094
{
3095
  alloc_switch ();
3096
  switches[n_switches].part1 = opt + 1;
3097
  if (n_args == 0)
3098
    switches[n_switches].args = 0;
3099
  else
3100
    {
3101
      switches[n_switches].args = XNEWVEC (const char *, n_args + 1);
3102
      memcpy (switches[n_switches].args, args, n_args * sizeof (const char *));
3103
      switches[n_switches].args[n_args] = NULL;
3104
    }
3105
 
3106
  switches[n_switches].live_cond = 0;
3107
  switches[n_switches].validated = validated;
3108
  switches[n_switches].ordering = 0;
3109
  n_switches++;
3110
}
3111
 
3112
/* Handle an option DECODED that is unknown to the option-processing
3113
   machinery.  */
3114
 
3115
static bool
3116
driver_unknown_option_callback (const struct cl_decoded_option *decoded)
3117
{
3118
  const char *opt = decoded->arg;
3119
  if (opt[1] == 'W' && opt[2] == 'n' && opt[3] == 'o' && opt[4] == '-'
3120
      && !(decoded->errors & CL_ERR_NEGATIVE))
3121
    {
3122
      /* Leave unknown -Wno-* options for the compiler proper, to be
3123
         diagnosed only if there are warnings.  */
3124
      save_switch (decoded->canonical_option[0],
3125
                   decoded->canonical_option_num_elements - 1,
3126
                   &decoded->canonical_option[1], false);
3127
      return false;
3128
    }
3129
  else
3130
    return true;
3131
}
3132
 
3133
/* Handle an option DECODED that is not marked as CL_DRIVER.
3134
   LANG_MASK will always be CL_DRIVER.  */
3135
 
3136
static void
3137
driver_wrong_lang_callback (const struct cl_decoded_option *decoded,
3138
                            unsigned int lang_mask ATTRIBUTE_UNUSED)
3139
{
3140
  /* At this point, non-driver options are accepted (and expected to
3141
     be passed down by specs) unless marked to be rejected by the
3142
     driver.  Options to be rejected by the driver but accepted by the
3143
     compilers proper are treated just like completely unknown
3144
     options.  */
3145
  const struct cl_option *option = &cl_options[decoded->opt_index];
3146
 
3147
  if (option->cl_reject_driver)
3148
    error ("unrecognized command line option %qs",
3149
           decoded->orig_option_with_args_text);
3150
  else
3151
    save_switch (decoded->canonical_option[0],
3152
                 decoded->canonical_option_num_elements - 1,
3153
                 &decoded->canonical_option[1], false);
3154
}
3155
 
3156
static const char *spec_lang = 0;
3157
static int last_language_n_infiles;
3158
 
3159
/* Handle a driver option; arguments and return value as for
3160
   handle_option.  */
3161
 
3162
static bool
3163
driver_handle_option (struct gcc_options *opts,
3164
                      struct gcc_options *opts_set,
3165
                      const struct cl_decoded_option *decoded,
3166
                      unsigned int lang_mask ATTRIBUTE_UNUSED, int kind,
3167
                      location_t loc,
3168
                      const struct cl_option_handlers *handlers ATTRIBUTE_UNUSED,
3169
                      diagnostic_context *dc)
3170
{
3171
  size_t opt_index = decoded->opt_index;
3172
  const char *arg = decoded->arg;
3173
  const char *compare_debug_replacement_opt;
3174
  int value = decoded->value;
3175
  bool validated = false;
3176
  bool do_save = true;
3177
 
3178
  gcc_assert (opts == &global_options);
3179
  gcc_assert (opts_set == &global_options_set);
3180
  gcc_assert (kind == DK_UNSPECIFIED);
3181
  gcc_assert (loc == UNKNOWN_LOCATION);
3182
  gcc_assert (dc == global_dc);
3183
 
3184
  switch (opt_index)
3185
    {
3186
    case OPT_dumpspecs:
3187
      {
3188
        struct spec_list *sl;
3189
        init_spec ();
3190
        for (sl = specs; sl; sl = sl->next)
3191
          printf ("*%s:\n%s\n\n", sl->name, *(sl->ptr_spec));
3192
        if (link_command_spec)
3193
          printf ("*link_command:\n%s\n\n", link_command_spec);
3194
        exit (0);
3195
      }
3196
 
3197
    case OPT_dumpversion:
3198
      printf ("%s\n", spec_version);
3199
      exit (0);
3200
 
3201
    case OPT_dumpmachine:
3202
      printf ("%s\n", spec_machine);
3203
      exit (0);
3204
 
3205
    case OPT__version:
3206
      print_version = 1;
3207
 
3208
      /* CPP driver cannot obtain switch from cc1_options.  */
3209
      if (is_cpp_driver)
3210
        add_preprocessor_option ("--version", strlen ("--version"));
3211
      add_assembler_option ("--version", strlen ("--version"));
3212
      add_linker_option ("--version", strlen ("--version"));
3213
      break;
3214
 
3215
    case OPT__help:
3216
      print_help_list = 1;
3217
 
3218
      /* CPP driver cannot obtain switch from cc1_options.  */
3219
      if (is_cpp_driver)
3220
        add_preprocessor_option ("--help", 6);
3221
      add_assembler_option ("--help", 6);
3222
      add_linker_option ("--help", 6);
3223
      break;
3224
 
3225
    case OPT__help_:
3226
      print_subprocess_help = 2;
3227
      break;
3228
 
3229
    case OPT__target_help:
3230
      print_subprocess_help = 1;
3231
 
3232
      /* CPP driver cannot obtain switch from cc1_options.  */
3233
      if (is_cpp_driver)
3234
        add_preprocessor_option ("--target-help", 13);
3235
      add_assembler_option ("--target-help", 13);
3236
      add_linker_option ("--target-help", 13);
3237
      break;
3238
 
3239
    case OPT_pass_exit_codes:
3240
    case OPT_print_search_dirs:
3241
    case OPT_print_file_name_:
3242
    case OPT_print_prog_name_:
3243
    case OPT_print_multi_lib:
3244
    case OPT_print_multi_directory:
3245
    case OPT_print_sysroot:
3246
    case OPT_print_multi_os_directory:
3247
    case OPT_print_sysroot_headers_suffix:
3248
    case OPT_time:
3249
    case OPT_wrapper:
3250
      /* These options set the variables specified in common.opt
3251
         automatically, and do not need to be saved for spec
3252
         processing.  */
3253
      do_save = false;
3254
      break;
3255
 
3256
    case OPT_print_libgcc_file_name:
3257
      print_file_name = "libgcc.a";
3258
      do_save = false;
3259
      break;
3260
 
3261
    case OPT_fcompare_debug_second:
3262
      compare_debug_second = 1;
3263
      break;
3264
 
3265
    case OPT_fcompare_debug:
3266
      switch (value)
3267
        {
3268
        case 0:
3269
          compare_debug_replacement_opt = "-fcompare-debug=";
3270
          arg = "";
3271
          goto compare_debug_with_arg;
3272
 
3273
        case 1:
3274
          compare_debug_replacement_opt = "-fcompare-debug=-gtoggle";
3275
          arg = "-gtoggle";
3276
          goto compare_debug_with_arg;
3277
 
3278
        default:
3279
          gcc_unreachable ();
3280
        }
3281
      break;
3282
 
3283
    case OPT_fcompare_debug_:
3284
      compare_debug_replacement_opt = decoded->canonical_option[0];
3285
    compare_debug_with_arg:
3286
      gcc_assert (decoded->canonical_option_num_elements == 1);
3287
      gcc_assert (arg != NULL);
3288
      if (*arg)
3289
        compare_debug = 1;
3290
      else
3291
        compare_debug = -1;
3292
      if (compare_debug < 0)
3293
        compare_debug_opt = NULL;
3294
      else
3295
        compare_debug_opt = arg;
3296
      save_switch (compare_debug_replacement_opt, 0, NULL, validated);
3297
      return true;
3298
 
3299
    case OPT_Wa_:
3300
      {
3301
        int prev, j;
3302
        /* Pass the rest of this option to the assembler.  */
3303
 
3304
        /* Split the argument at commas.  */
3305
        prev = 0;
3306
        for (j = 0; arg[j]; j++)
3307
          if (arg[j] == ',')
3308
            {
3309
              add_assembler_option (arg + prev, j - prev);
3310
              prev = j + 1;
3311
            }
3312
 
3313
        /* Record the part after the last comma.  */
3314
        add_assembler_option (arg + prev, j - prev);
3315
      }
3316
      do_save = false;
3317
      break;
3318
 
3319
    case OPT_Wp_:
3320
      {
3321
        int prev, j;
3322
        /* Pass the rest of this option to the preprocessor.  */
3323
 
3324
        /* Split the argument at commas.  */
3325
        prev = 0;
3326
        for (j = 0; arg[j]; j++)
3327
          if (arg[j] == ',')
3328
            {
3329
              add_preprocessor_option (arg + prev, j - prev);
3330
              prev = j + 1;
3331
            }
3332
 
3333
        /* Record the part after the last comma.  */
3334
        add_preprocessor_option (arg + prev, j - prev);
3335
      }
3336
      do_save = false;
3337
      break;
3338
 
3339
    case OPT_Wl_:
3340
      {
3341
        int prev, j;
3342
        /* Split the argument at commas.  */
3343
        prev = 0;
3344
        for (j = 0; arg[j]; j++)
3345
          if (arg[j] == ',')
3346
            {
3347
              add_infile (save_string (arg + prev, j - prev), "*");
3348
              prev = j + 1;
3349
            }
3350
        /* Record the part after the last comma.  */
3351
        add_infile (arg + prev, "*");
3352
      }
3353
      do_save = false;
3354
      break;
3355
 
3356
    case OPT_Xlinker:
3357
      add_infile (arg, "*");
3358
      do_save = false;
3359
      break;
3360
 
3361
    case OPT_Xpreprocessor:
3362
      add_preprocessor_option (arg, strlen (arg));
3363
      do_save = false;
3364
      break;
3365
 
3366
    case OPT_Xassembler:
3367
      add_assembler_option (arg, strlen (arg));
3368
      do_save = false;
3369
      break;
3370
 
3371
    case OPT_l:
3372
      /* POSIX allows separation of -l and the lib arg; canonicalize
3373
         by concatenating -l with its arg */
3374
      add_infile (concat ("-l", arg, NULL), "*");
3375
      do_save = false;
3376
      break;
3377
 
3378
    case OPT_L:
3379
      /* Similarly, canonicalize -L for linkers that may not accept
3380
         separate arguments.  */
3381
      save_switch (concat ("-L", arg, NULL), 0, NULL, validated);
3382
      return true;
3383
 
3384
    case OPT_F:
3385
      /* Likewise -F.  */
3386
      save_switch (concat ("-F", arg, NULL), 0, NULL, validated);
3387
      return true;
3388
 
3389
    case OPT_save_temps:
3390
      save_temps_flag = SAVE_TEMPS_CWD;
3391
      validated = true;
3392
      break;
3393
 
3394
    case OPT_save_temps_:
3395
      if (strcmp (arg, "cwd") == 0)
3396
        save_temps_flag = SAVE_TEMPS_CWD;
3397
      else if (strcmp (arg, "obj") == 0
3398
               || strcmp (arg, "object") == 0)
3399
        save_temps_flag = SAVE_TEMPS_OBJ;
3400
      else
3401
        fatal_error ("%qs is an unknown -save-temps option",
3402
                     decoded->orig_option_with_args_text);
3403
      break;
3404
 
3405
    case OPT_no_canonical_prefixes:
3406
      /* Already handled as a special case, so ignored here.  */
3407
      do_save = false;
3408
      break;
3409
 
3410
    case OPT_pipe:
3411
      validated = true;
3412
      /* These options set the variables specified in common.opt
3413
         automatically, but do need to be saved for spec
3414
         processing.  */
3415
      break;
3416
 
3417
    case OPT_specs_:
3418
      {
3419
        struct user_specs *user = XNEW (struct user_specs);
3420
 
3421
        user->next = (struct user_specs *) 0;
3422
        user->filename = arg;
3423
        if (user_specs_tail)
3424
          user_specs_tail->next = user;
3425
        else
3426
          user_specs_head = user;
3427
        user_specs_tail = user;
3428
      }
3429
      do_save = false;
3430
      break;
3431
 
3432
    case OPT__sysroot_:
3433
      target_system_root = arg;
3434
      target_system_root_changed = 1;
3435
      do_save = false;
3436
      break;
3437
 
3438
    case OPT_time_:
3439
      if (report_times_to_file)
3440
        fclose (report_times_to_file);
3441
      report_times_to_file = fopen (arg, "a");
3442
      do_save = false;
3443
      break;
3444
 
3445
    case OPT____:
3446
      /* "-###"
3447
         This is similar to -v except that there is no execution
3448
         of the commands and the echoed arguments are quoted.  It
3449
         is intended for use in shell scripts to capture the
3450
         driver-generated command line.  */
3451
      verbose_only_flag++;
3452
      verbose_flag = 1;
3453
      do_save = false;
3454
      break;
3455
 
3456
    case OPT_B:
3457
      {
3458
        size_t len = strlen (arg);
3459
 
3460
        /* Catch the case where the user has forgotten to append a
3461
           directory separator to the path.  Note, they may be using
3462
           -B to add an executable name prefix, eg "i386-elf-", in
3463
           order to distinguish between multiple installations of
3464
           GCC in the same directory.  Hence we must check to see
3465
           if appending a directory separator actually makes a
3466
           valid directory name.  */
3467
        if (!IS_DIR_SEPARATOR (arg[len - 1])
3468
            && is_directory (arg, false))
3469
          {
3470
            char *tmp = XNEWVEC (char, len + 2);
3471
            strcpy (tmp, arg);
3472
            tmp[len] = DIR_SEPARATOR;
3473
            tmp[++len] = 0;
3474
            arg = tmp;
3475
          }
3476
 
3477
        add_prefix (&exec_prefixes, arg, NULL,
3478
                    PREFIX_PRIORITY_B_OPT, 0, 0);
3479
        add_prefix (&startfile_prefixes, arg, NULL,
3480
                    PREFIX_PRIORITY_B_OPT, 0, 0);
3481
        add_prefix (&include_prefixes, arg, NULL,
3482
                    PREFIX_PRIORITY_B_OPT, 0, 0);
3483
      }
3484
      validated = true;
3485
      break;
3486
 
3487
    case OPT_x:
3488
      spec_lang = arg;
3489
      if (!strcmp (spec_lang, "none"))
3490
        /* Suppress the warning if -xnone comes after the last input
3491
           file, because alternate command interfaces like g++ might
3492
           find it useful to place -xnone after each input file.  */
3493
        spec_lang = 0;
3494
      else
3495
        last_language_n_infiles = n_infiles;
3496
      do_save = false;
3497
      break;
3498
 
3499
    case OPT_o:
3500
      have_o = 1;
3501
#if defined(HAVE_TARGET_EXECUTABLE_SUFFIX) || defined(HAVE_TARGET_OBJECT_SUFFIX)
3502
      arg = convert_filename (arg, ! have_c, 0);
3503
#endif
3504
      /* Save the output name in case -save-temps=obj was used.  */
3505
      save_temps_prefix = xstrdup (arg);
3506
      /* On some systems, ld cannot handle "-o" without a space.  So
3507
         split the option from its argument.  */
3508
      save_switch ("-o", 1, &arg, validated);
3509
      return true;
3510
 
3511
    case OPT_static_libgcc:
3512
    case OPT_shared_libgcc:
3513
    case OPT_static_libgfortran:
3514
    case OPT_static_libstdc__:
3515
      /* These are always valid, since gcc.c itself understands the
3516
         first two, gfortranspec.c understands -static-libgfortran and
3517
         g++spec.c understands -static-libstdc++ */
3518
      validated = true;
3519
      break;
3520
 
3521
    default:
3522
      /* Various driver options need no special processing at this
3523
         point, having been handled in a prescan above or being
3524
         handled by specs.  */
3525
      break;
3526
    }
3527
 
3528
  if (do_save)
3529
    save_switch (decoded->canonical_option[0],
3530
                 decoded->canonical_option_num_elements - 1,
3531
                 &decoded->canonical_option[1], validated);
3532
  return true;
3533
}
3534
 
3535
/* Put the driver's standard set of option handlers in *HANDLERS.  */
3536
 
3537
static void
3538
set_option_handlers (struct cl_option_handlers *handlers)
3539
{
3540
  handlers->unknown_option_callback = driver_unknown_option_callback;
3541
  handlers->wrong_lang_callback = driver_wrong_lang_callback;
3542
  handlers->num_handlers = 3;
3543
  handlers->handlers[0].handler = driver_handle_option;
3544
  handlers->handlers[0].mask = CL_DRIVER;
3545
  handlers->handlers[1].handler = common_handle_option;
3546
  handlers->handlers[1].mask = CL_COMMON;
3547
  handlers->handlers[2].handler = target_handle_option;
3548
  handlers->handlers[2].mask = CL_TARGET;
3549
}
3550
 
3551
/* Create the vector `switches' and its contents.
3552
   Store its length in `n_switches'.  */
3553
 
3554
static void
3555
process_command (unsigned int decoded_options_count,
3556
                 struct cl_decoded_option *decoded_options)
3557
{
3558
  const char *temp;
3559
  char *temp1;
3560
  const char *tooldir_prefix;
3561
  char *(*get_relative_prefix) (const char *, const char *,
3562
                                const char *) = NULL;
3563
  struct cl_option_handlers handlers;
3564
  unsigned int j;
3565
 
3566
  gcc_exec_prefix = getenv ("GCC_EXEC_PREFIX");
3567
 
3568
  n_switches = 0;
3569
  n_infiles = 0;
3570
  added_libraries = 0;
3571
 
3572
  /* Figure compiler version from version string.  */
3573
 
3574
  compiler_version = temp1 = xstrdup (version_string);
3575
 
3576
  for (; *temp1; ++temp1)
3577
    {
3578
      if (*temp1 == ' ')
3579
        {
3580
          *temp1 = '\0';
3581
          break;
3582
        }
3583
    }
3584
 
3585
  /* Handle any -no-canonical-prefixes flag early, to assign the function
3586
     that builds relative prefixes.  This function creates default search
3587
     paths that are needed later in normal option handling.  */
3588
 
3589
  for (j = 1; j < decoded_options_count; j++)
3590
    {
3591
      if (decoded_options[j].opt_index == OPT_no_canonical_prefixes)
3592
        {
3593
          get_relative_prefix = make_relative_prefix_ignore_links;
3594
          break;
3595
        }
3596
    }
3597
  if (! get_relative_prefix)
3598
    get_relative_prefix = make_relative_prefix;
3599
 
3600
  /* Set up the default search paths.  If there is no GCC_EXEC_PREFIX,
3601
     see if we can create it from the pathname specified in
3602
     decoded_options[0].arg.  */
3603
 
3604
  gcc_libexec_prefix = standard_libexec_prefix;
3605
#ifndef VMS
3606
  /* FIXME: make_relative_prefix doesn't yet work for VMS.  */
3607
  if (!gcc_exec_prefix)
3608
    {
3609
      gcc_exec_prefix = get_relative_prefix (decoded_options[0].arg,
3610
                                             standard_bindir_prefix,
3611
                                             standard_exec_prefix);
3612
      gcc_libexec_prefix = get_relative_prefix (decoded_options[0].arg,
3613
                                             standard_bindir_prefix,
3614
                                             standard_libexec_prefix);
3615
      if (gcc_exec_prefix)
3616
        xputenv (concat ("GCC_EXEC_PREFIX=", gcc_exec_prefix, NULL));
3617
    }
3618
  else
3619
    {
3620
      /* make_relative_prefix requires a program name, but
3621
         GCC_EXEC_PREFIX is typically a directory name with a trailing
3622
         / (which is ignored by make_relative_prefix), so append a
3623
         program name.  */
3624
      char *tmp_prefix = concat (gcc_exec_prefix, "gcc", NULL);
3625
      gcc_libexec_prefix = get_relative_prefix (tmp_prefix,
3626
                                                standard_exec_prefix,
3627
                                                standard_libexec_prefix);
3628
 
3629
      /* The path is unrelocated, so fallback to the original setting.  */
3630
      if (!gcc_libexec_prefix)
3631
        gcc_libexec_prefix = standard_libexec_prefix;
3632
 
3633
      free (tmp_prefix);
3634
    }
3635
#else
3636
#endif
3637
  /* From this point onward, gcc_exec_prefix is non-null if the toolchain
3638
     is relocated. The toolchain was either relocated using GCC_EXEC_PREFIX
3639
     or an automatically created GCC_EXEC_PREFIX from
3640
     decoded_options[0].arg.  */
3641
 
3642
  /* Do language-specific adjustment/addition of flags.  */
3643
  lang_specific_driver (&decoded_options, &decoded_options_count,
3644
                        &added_libraries);
3645
 
3646
  if (gcc_exec_prefix)
3647
    {
3648
      int len = strlen (gcc_exec_prefix);
3649
 
3650
      if (len > (int) sizeof ("/lib/gcc/") - 1
3651
          && (IS_DIR_SEPARATOR (gcc_exec_prefix[len-1])))
3652
        {
3653
          temp = gcc_exec_prefix + len - sizeof ("/lib/gcc/") + 1;
3654
          if (IS_DIR_SEPARATOR (*temp)
3655
              && filename_ncmp (temp + 1, "lib", 3) == 0
3656
              && IS_DIR_SEPARATOR (temp[4])
3657
              && filename_ncmp (temp + 5, "gcc", 3) == 0)
3658
            len -= sizeof ("/lib/gcc/") - 1;
3659
        }
3660
 
3661
      set_std_prefix (gcc_exec_prefix, len);
3662
      add_prefix (&exec_prefixes, gcc_libexec_prefix, "GCC",
3663
                  PREFIX_PRIORITY_LAST, 0, 0);
3664
      add_prefix (&startfile_prefixes, gcc_exec_prefix, "GCC",
3665
                  PREFIX_PRIORITY_LAST, 0, 0);
3666
    }
3667
 
3668
  /* COMPILER_PATH and LIBRARY_PATH have values
3669
     that are lists of directory names with colons.  */
3670
 
3671
  temp = getenv ("COMPILER_PATH");
3672
  if (temp)
3673
    {
3674
      const char *startp, *endp;
3675
      char *nstore = (char *) alloca (strlen (temp) + 3);
3676
 
3677
      startp = endp = temp;
3678
      while (1)
3679
        {
3680
          if (*endp == PATH_SEPARATOR || *endp == 0)
3681
            {
3682
              strncpy (nstore, startp, endp - startp);
3683
              if (endp == startp)
3684
                strcpy (nstore, concat (".", dir_separator_str, NULL));
3685
              else if (!IS_DIR_SEPARATOR (endp[-1]))
3686
                {
3687
                  nstore[endp - startp] = DIR_SEPARATOR;
3688
                  nstore[endp - startp + 1] = 0;
3689
                }
3690
              else
3691
                nstore[endp - startp] = 0;
3692
              add_prefix (&exec_prefixes, nstore, 0,
3693
                          PREFIX_PRIORITY_LAST, 0, 0);
3694
              add_prefix (&include_prefixes, nstore, 0,
3695
                          PREFIX_PRIORITY_LAST, 0, 0);
3696
              if (*endp == 0)
3697
                break;
3698
              endp = startp = endp + 1;
3699
            }
3700
          else
3701
            endp++;
3702
        }
3703
    }
3704
 
3705
  temp = getenv (LIBRARY_PATH_ENV);
3706
  if (temp && *cross_compile == '0')
3707
    {
3708
      const char *startp, *endp;
3709
      char *nstore = (char *) alloca (strlen (temp) + 3);
3710
 
3711
      startp = endp = temp;
3712
      while (1)
3713
        {
3714
          if (*endp == PATH_SEPARATOR || *endp == 0)
3715
            {
3716
              strncpy (nstore, startp, endp - startp);
3717
              if (endp == startp)
3718
                strcpy (nstore, concat (".", dir_separator_str, NULL));
3719
              else if (!IS_DIR_SEPARATOR (endp[-1]))
3720
                {
3721
                  nstore[endp - startp] = DIR_SEPARATOR;
3722
                  nstore[endp - startp + 1] = 0;
3723
                }
3724
              else
3725
                nstore[endp - startp] = 0;
3726
              add_prefix (&startfile_prefixes, nstore, NULL,
3727
                          PREFIX_PRIORITY_LAST, 0, 1);
3728
              if (*endp == 0)
3729
                break;
3730
              endp = startp = endp + 1;
3731
            }
3732
          else
3733
            endp++;
3734
        }
3735
    }
3736
 
3737
  /* Use LPATH like LIBRARY_PATH (for the CMU build program).  */
3738
  temp = getenv ("LPATH");
3739
  if (temp && *cross_compile == '0')
3740
    {
3741
      const char *startp, *endp;
3742
      char *nstore = (char *) alloca (strlen (temp) + 3);
3743
 
3744
      startp = endp = temp;
3745
      while (1)
3746
        {
3747
          if (*endp == PATH_SEPARATOR || *endp == 0)
3748
            {
3749
              strncpy (nstore, startp, endp - startp);
3750
              if (endp == startp)
3751
                strcpy (nstore, concat (".", dir_separator_str, NULL));
3752
              else if (!IS_DIR_SEPARATOR (endp[-1]))
3753
                {
3754
                  nstore[endp - startp] = DIR_SEPARATOR;
3755
                  nstore[endp - startp + 1] = 0;
3756
                }
3757
              else
3758
                nstore[endp - startp] = 0;
3759
              add_prefix (&startfile_prefixes, nstore, NULL,
3760
                          PREFIX_PRIORITY_LAST, 0, 1);
3761
              if (*endp == 0)
3762
                break;
3763
              endp = startp = endp + 1;
3764
            }
3765
          else
3766
            endp++;
3767
        }
3768
    }
3769
 
3770
  /* Process the options and store input files and switches in their
3771
     vectors.  */
3772
 
3773
  last_language_n_infiles = -1;
3774
 
3775
  set_option_handlers (&handlers);
3776
 
3777
  for (j = 1; j < decoded_options_count; j++)
3778
    {
3779
      switch (decoded_options[j].opt_index)
3780
        {
3781
        case OPT_S:
3782
        case OPT_c:
3783
        case OPT_E:
3784
          have_c = 1;
3785
          break;
3786
        }
3787
      if (have_c)
3788
        break;
3789
    }
3790
 
3791
  for (j = 1; j < decoded_options_count; j++)
3792
    {
3793
      if (decoded_options[j].opt_index == OPT_SPECIAL_input_file)
3794
        {
3795
          const char *arg = decoded_options[j].arg;
3796
          const char *p = strrchr (arg, '@');
3797
          char *fname;
3798
          long offset;
3799
          int consumed;
3800
#ifdef HAVE_TARGET_OBJECT_SUFFIX
3801
          arg = convert_filename (arg, 0, access (arg, F_OK));
3802
#endif
3803
          /* For LTO static archive support we handle input file
3804
             specifications that are composed of a filename and
3805
             an offset like FNAME@OFFSET.  */
3806
          if (p
3807
              && p != arg
3808
              && sscanf (p, "@%li%n", &offset, &consumed) >= 1
3809
              && strlen (p) == (unsigned int)consumed)
3810
            {
3811
              fname = (char *)xmalloc (p - arg + 1);
3812
              memcpy (fname, arg, p - arg);
3813
              fname[p - arg] = '\0';
3814
              /* Only accept non-stdin and existing FNAME parts, otherwise
3815
                 try with the full name.  */
3816
              if (strcmp (fname, "-") == 0 || access (fname, F_OK) < 0)
3817
                {
3818
                  free (fname);
3819
                  fname = xstrdup (arg);
3820
                }
3821
            }
3822
          else
3823
            fname = xstrdup (arg);
3824
 
3825
          if (strcmp (fname, "-") != 0 && access (fname, F_OK) < 0)
3826
            perror_with_name (fname);
3827
          else
3828
            add_infile (arg, spec_lang);
3829
 
3830
          free (fname);
3831
          continue;
3832
        }
3833
 
3834
      read_cmdline_option (&global_options, &global_options_set,
3835
                           decoded_options + j, UNKNOWN_LOCATION,
3836
                           CL_DRIVER, &handlers, global_dc);
3837
    }
3838
 
3839
  /* If -save-temps=obj and -o name, create the prefix to use for %b.
3840
     Otherwise just make -save-temps=obj the same as -save-temps=cwd.  */
3841
  if (save_temps_flag == SAVE_TEMPS_OBJ && save_temps_prefix != NULL)
3842
    {
3843
      save_temps_length = strlen (save_temps_prefix);
3844
      temp = strrchr (lbasename (save_temps_prefix), '.');
3845
      if (temp)
3846
        {
3847
          save_temps_length -= strlen (temp);
3848
          save_temps_prefix[save_temps_length] = '\0';
3849
        }
3850
 
3851
    }
3852
  else if (save_temps_prefix != NULL)
3853
    {
3854
      free (save_temps_prefix);
3855
      save_temps_prefix = NULL;
3856
    }
3857
 
3858
  if (save_temps_flag && use_pipes)
3859
    {
3860
      /* -save-temps overrides -pipe, so that temp files are produced */
3861
      if (save_temps_flag)
3862
        warning (0, "-pipe ignored because -save-temps specified");
3863
      use_pipes = 0;
3864
    }
3865
 
3866
  if (!compare_debug)
3867
    {
3868
      const char *gcd = getenv ("GCC_COMPARE_DEBUG");
3869
 
3870
      if (gcd && gcd[0] == '-')
3871
        {
3872
          compare_debug = 2;
3873
          compare_debug_opt = gcd;
3874
        }
3875
      else if (gcd && *gcd && strcmp (gcd, "0"))
3876
        {
3877
          compare_debug = 3;
3878
          compare_debug_opt = "-gtoggle";
3879
        }
3880
    }
3881
  else if (compare_debug < 0)
3882
    {
3883
      compare_debug = 0;
3884
      gcc_assert (!compare_debug_opt);
3885
    }
3886
 
3887
  /* Set up the search paths.  We add directories that we expect to
3888
     contain GNU Toolchain components before directories specified by
3889
     the machine description so that we will find GNU components (like
3890
     the GNU assembler) before those of the host system.  */
3891
 
3892
  /* If we don't know where the toolchain has been installed, use the
3893
     configured-in locations.  */
3894
  if (!gcc_exec_prefix)
3895
    {
3896
#ifndef OS2
3897
      add_prefix (&exec_prefixes, standard_libexec_prefix, "GCC",
3898
                  PREFIX_PRIORITY_LAST, 1, 0);
3899
      add_prefix (&exec_prefixes, standard_libexec_prefix, "BINUTILS",
3900
                  PREFIX_PRIORITY_LAST, 2, 0);
3901
      add_prefix (&exec_prefixes, standard_exec_prefix, "BINUTILS",
3902
                  PREFIX_PRIORITY_LAST, 2, 0);
3903
#endif
3904
      add_prefix (&startfile_prefixes, standard_exec_prefix, "BINUTILS",
3905
                  PREFIX_PRIORITY_LAST, 1, 0);
3906
    }
3907
 
3908
  gcc_assert (!IS_ABSOLUTE_PATH (tooldir_base_prefix));
3909
  tooldir_prefix = concat (tooldir_base_prefix, spec_machine,
3910
                           dir_separator_str, NULL);
3911
 
3912
  /* Look for tools relative to the location from which the driver is
3913
     running, or, if that is not available, the configured prefix.  */
3914
  tooldir_prefix
3915
    = concat (gcc_exec_prefix ? gcc_exec_prefix : standard_exec_prefix,
3916
              spec_machine, dir_separator_str,
3917
              spec_version, dir_separator_str, tooldir_prefix, NULL);
3918
 
3919
  add_prefix (&exec_prefixes,
3920
              concat (tooldir_prefix, "bin", dir_separator_str, NULL),
3921
              "BINUTILS", PREFIX_PRIORITY_LAST, 0, 0);
3922
  add_prefix (&startfile_prefixes,
3923
              concat (tooldir_prefix, "lib", dir_separator_str, NULL),
3924
              "BINUTILS", PREFIX_PRIORITY_LAST, 0, 1);
3925
 
3926
#if defined(TARGET_SYSTEM_ROOT_RELOCATABLE) && !defined(VMS)
3927
  /* If the normal TARGET_SYSTEM_ROOT is inside of $exec_prefix,
3928
     then consider it to relocate with the rest of the GCC installation
3929
     if GCC_EXEC_PREFIX is set.
3930
     ``make_relative_prefix'' is not compiled for VMS, so don't call it.  */
3931
  if (target_system_root && !target_system_root_changed && gcc_exec_prefix)
3932
    {
3933
      char *tmp_prefix = get_relative_prefix (decoded_options[0].arg,
3934
                                              standard_bindir_prefix,
3935
                                              target_system_root);
3936
      if (tmp_prefix && access_check (tmp_prefix, F_OK) == 0)
3937
        {
3938
          target_system_root = tmp_prefix;
3939
          target_system_root_changed = 1;
3940
        }
3941
    }
3942
#endif
3943
 
3944
  /* More prefixes are enabled in main, after we read the specs file
3945
     and determine whether this is cross-compilation or not.  */
3946
 
3947
  if (n_infiles == last_language_n_infiles && spec_lang != 0)
3948
    warning (0, "%<-x %s%> after last input file has no effect", spec_lang);
3949
 
3950
  if (compare_debug == 2 || compare_debug == 3)
3951
    {
3952
      alloc_switch ();
3953
      switches[n_switches].part1 = concat ("fcompare-debug=",
3954
                                           compare_debug_opt,
3955
                                           NULL);
3956
      switches[n_switches].args = 0;
3957
      switches[n_switches].live_cond = 0;
3958
      switches[n_switches].validated = 0;
3959
      switches[n_switches].ordering = 0;
3960
      n_switches++;
3961
      compare_debug = 1;
3962
    }
3963
 
3964
  /* Ensure we only invoke each subprocess once.  */
3965
  if (print_subprocess_help || print_help_list || print_version)
3966
    {
3967
      n_infiles = 0;
3968
 
3969
      /* Create a dummy input file, so that we can pass
3970
         the help option on to the various sub-processes.  */
3971
      add_infile ("help-dummy", "c");
3972
    }
3973
 
3974
  alloc_switch ();
3975
  switches[n_switches].part1 = 0;
3976
  alloc_infile ();
3977
  infiles[n_infiles].name = 0;
3978
}
3979
 
3980
/* Store switches not filtered out by %<S in spec in COLLECT_GCC_OPTIONS
3981
   and place that in the environment.  */
3982
 
3983
static void
3984
set_collect_gcc_options (void)
3985
{
3986
  int i;
3987
  int first_time;
3988
 
3989
  /* Build COLLECT_GCC_OPTIONS to have all of the options specified to
3990
     the compiler.  */
3991
  obstack_grow (&collect_obstack, "COLLECT_GCC_OPTIONS=",
3992
                sizeof ("COLLECT_GCC_OPTIONS=") - 1);
3993
 
3994
  first_time = TRUE;
3995
  for (i = 0; (int) i < n_switches; i++)
3996
    {
3997
      const char *const *args;
3998
      const char *p, *q;
3999
      if (!first_time)
4000
        obstack_grow (&collect_obstack, " ", 1);
4001
 
4002
      first_time = FALSE;
4003
 
4004
      /* Ignore elided switches.  */
4005
      if ((switches[i].live_cond
4006
           & (SWITCH_IGNORE | SWITCH_KEEP_FOR_GCC))
4007
          == SWITCH_IGNORE)
4008
        continue;
4009
 
4010
      obstack_grow (&collect_obstack, "'-", 2);
4011
      q = switches[i].part1;
4012
      while ((p = strchr (q, '\'')))
4013
        {
4014
          obstack_grow (&collect_obstack, q, p - q);
4015
          obstack_grow (&collect_obstack, "'\\''", 4);
4016
          q = ++p;
4017
        }
4018
      obstack_grow (&collect_obstack, q, strlen (q));
4019
      obstack_grow (&collect_obstack, "'", 1);
4020
 
4021
      for (args = switches[i].args; args && *args; args++)
4022
        {
4023
          obstack_grow (&collect_obstack, " '", 2);
4024
          q = *args;
4025
          while ((p = strchr (q, '\'')))
4026
            {
4027
              obstack_grow (&collect_obstack, q, p - q);
4028
              obstack_grow (&collect_obstack, "'\\''", 4);
4029
              q = ++p;
4030
            }
4031
          obstack_grow (&collect_obstack, q, strlen (q));
4032
          obstack_grow (&collect_obstack, "'", 1);
4033
        }
4034
    }
4035
  obstack_grow (&collect_obstack, "\0", 1);
4036
  xputenv (XOBFINISH (&collect_obstack, char *));
4037
}
4038
 
4039
/* Process a spec string, accumulating and running commands.  */
4040
 
4041
/* These variables describe the input file name.
4042
   input_file_number is the index on outfiles of this file,
4043
   so that the output file name can be stored for later use by %o.
4044
   input_basename is the start of the part of the input file
4045
   sans all directory names, and basename_length is the number
4046
   of characters starting there excluding the suffix .c or whatever.  */
4047
 
4048
static const char *gcc_input_filename;
4049
static int input_file_number;
4050
size_t input_filename_length;
4051
static int basename_length;
4052
static int suffixed_basename_length;
4053
static const char *input_basename;
4054
static const char *input_suffix;
4055
#ifndef HOST_LACKS_INODE_NUMBERS
4056
static struct stat input_stat;
4057
#endif
4058
static int input_stat_set;
4059
 
4060
/* The compiler used to process the current input file.  */
4061
static struct compiler *input_file_compiler;
4062
 
4063
/* These are variables used within do_spec and do_spec_1.  */
4064
 
4065
/* Nonzero if an arg has been started and not yet terminated
4066
   (with space, tab or newline).  */
4067
static int arg_going;
4068
 
4069
/* Nonzero means %d or %g has been seen; the next arg to be terminated
4070
   is a temporary file name.  */
4071
static int delete_this_arg;
4072
 
4073
/* Nonzero means %w has been seen; the next arg to be terminated
4074
   is the output file name of this compilation.  */
4075
static int this_is_output_file;
4076
 
4077
/* Nonzero means %s has been seen; the next arg to be terminated
4078
   is the name of a library file and we should try the standard
4079
   search dirs for it.  */
4080
static int this_is_library_file;
4081
 
4082
/* Nonzero means %T has been seen; the next arg to be terminated
4083
   is the name of a linker script and we should try all of the
4084
   standard search dirs for it.  If it is found insert a --script
4085
   command line switch and then substitute the full path in place,
4086
   otherwise generate an error message.  */
4087
static int this_is_linker_script;
4088
 
4089
/* Nonzero means that the input of this command is coming from a pipe.  */
4090
static int input_from_pipe;
4091
 
4092
/* Nonnull means substitute this for any suffix when outputting a switches
4093
   arguments.  */
4094
static const char *suffix_subst;
4095
 
4096
/* If there is an argument being accumulated, terminate it and store it.  */
4097
 
4098
static void
4099
end_going_arg (void)
4100
{
4101
  if (arg_going)
4102
    {
4103
      const char *string;
4104
 
4105
      obstack_1grow (&obstack, 0);
4106
      string = XOBFINISH (&obstack, const char *);
4107
      if (this_is_library_file)
4108
        string = find_file (string);
4109
      if (this_is_linker_script)
4110
        {
4111
          char * full_script_path = find_a_file (&startfile_prefixes, string, R_OK, true);
4112
 
4113
          if (full_script_path == NULL)
4114
            {
4115
              error ("unable to locate default linker script %qs in the library search paths", string);
4116
              /* Script was not found on search path.  */
4117
              return;
4118
            }
4119
          store_arg ("--script", false, false);
4120
          string = full_script_path;
4121
        }
4122
      store_arg (string, delete_this_arg, this_is_output_file);
4123
      if (this_is_output_file)
4124
        outfiles[input_file_number] = string;
4125
      arg_going = 0;
4126
    }
4127
}
4128
 
4129
 
4130
/* Parse the WRAPPER string which is a comma separated list of the command line
4131
   and insert them into the beginning of argbuf.  */
4132
 
4133
static void
4134
insert_wrapper (const char *wrapper)
4135
{
4136
  int n = 0;
4137
  int i;
4138
  char *buf = xstrdup (wrapper);
4139
  char *p = buf;
4140
  unsigned int old_length = VEC_length (const_char_p, argbuf);
4141
 
4142
  do
4143
    {
4144
      n++;
4145
      while (*p == ',')
4146
        p++;
4147
    }
4148
  while ((p = strchr (p, ',')) != NULL);
4149
 
4150
  VEC_safe_grow (const_char_p, heap, argbuf, old_length + n);
4151
  memmove (VEC_address (const_char_p, argbuf) + n,
4152
           VEC_address (const_char_p, argbuf),
4153
           old_length * sizeof (const_char_p));
4154
 
4155
  i = 0;
4156
  p = buf;
4157
  do
4158
    {
4159
      while (*p == ',')
4160
        {
4161
          *p = 0;
4162
          p++;
4163
        }
4164
      VEC_replace (const_char_p, argbuf, i, p);
4165
      i++;
4166
    }
4167
  while ((p = strchr (p, ',')) != NULL);
4168
  gcc_assert (i == n);
4169
}
4170
 
4171
/* Process the spec SPEC and run the commands specified therein.
4172
   Returns 0 if the spec is successfully processed; -1 if failed.  */
4173
 
4174
int
4175
do_spec (const char *spec)
4176
{
4177
  int value;
4178
 
4179
  value = do_spec_2 (spec);
4180
 
4181
  /* Force out any unfinished command.
4182
     If -pipe, this forces out the last command if it ended in `|'.  */
4183
  if (value == 0)
4184
    {
4185
      if (VEC_length (const_char_p, argbuf) > 0
4186
          && !strcmp (VEC_last (const_char_p, argbuf), "|"))
4187
        VEC_pop (const_char_p, argbuf);
4188
 
4189
      set_collect_gcc_options ();
4190
 
4191
      if (VEC_length (const_char_p, argbuf) > 0)
4192
        value = execute ();
4193
    }
4194
 
4195
  return value;
4196
}
4197
 
4198
static int
4199
do_spec_2 (const char *spec)
4200
{
4201
  int result;
4202
 
4203
  clear_args ();
4204
  arg_going = 0;
4205
  delete_this_arg = 0;
4206
  this_is_output_file = 0;
4207
  this_is_library_file = 0;
4208
  this_is_linker_script = 0;
4209
  input_from_pipe = 0;
4210
  suffix_subst = NULL;
4211
 
4212
  result = do_spec_1 (spec, 0, NULL);
4213
 
4214
  end_going_arg ();
4215
 
4216
  return result;
4217
}
4218
 
4219
 
4220
/* Process the given spec string and add any new options to the end
4221
   of the switches/n_switches array.  */
4222
 
4223
static void
4224
do_option_spec (const char *name, const char *spec)
4225
{
4226
  unsigned int i, value_count, value_len;
4227
  const char *p, *q, *value;
4228
  char *tmp_spec, *tmp_spec_p;
4229
 
4230
  if (configure_default_options[0].name == NULL)
4231
    return;
4232
 
4233
  for (i = 0; i < ARRAY_SIZE (configure_default_options); i++)
4234
    if (strcmp (configure_default_options[i].name, name) == 0)
4235
      break;
4236
  if (i == ARRAY_SIZE (configure_default_options))
4237
    return;
4238
 
4239
  value = configure_default_options[i].value;
4240
  value_len = strlen (value);
4241
 
4242
  /* Compute the size of the final spec.  */
4243
  value_count = 0;
4244
  p = spec;
4245
  while ((p = strstr (p, "%(VALUE)")) != NULL)
4246
    {
4247
      p ++;
4248
      value_count ++;
4249
    }
4250
 
4251
  /* Replace each %(VALUE) by the specified value.  */
4252
  tmp_spec = (char *) alloca (strlen (spec) + 1
4253
                     + value_count * (value_len - strlen ("%(VALUE)")));
4254
  tmp_spec_p = tmp_spec;
4255
  q = spec;
4256
  while ((p = strstr (q, "%(VALUE)")) != NULL)
4257
    {
4258
      memcpy (tmp_spec_p, q, p - q);
4259
      tmp_spec_p = tmp_spec_p + (p - q);
4260
      memcpy (tmp_spec_p, value, value_len);
4261
      tmp_spec_p += value_len;
4262
      q = p + strlen ("%(VALUE)");
4263
    }
4264
  strcpy (tmp_spec_p, q);
4265
 
4266
  do_self_spec (tmp_spec);
4267
}
4268
 
4269
/* Process the given spec string and add any new options to the end
4270
   of the switches/n_switches array.  */
4271
 
4272
static void
4273
do_self_spec (const char *spec)
4274
{
4275
  int i;
4276
 
4277
  do_spec_2 (spec);
4278
  do_spec_1 (" ", 0, NULL);
4279
 
4280
  /* Mark %<S switches processed by do_self_spec to be ignored permanently.
4281
     do_self_specs adds the replacements to switches array, so it shouldn't
4282
     be processed afterwards.  */
4283
  for (i = 0; i < n_switches; i++)
4284
    if ((switches[i].live_cond & SWITCH_IGNORE))
4285
      switches[i].live_cond |= SWITCH_IGNORE_PERMANENTLY;
4286
 
4287
  if (VEC_length (const_char_p, argbuf) > 0)
4288
    {
4289
      const char **argbuf_copy;
4290
      struct cl_decoded_option *decoded_options;
4291
      struct cl_option_handlers handlers;
4292
      unsigned int decoded_options_count;
4293
      unsigned int j;
4294
 
4295
      /* Create a copy of argbuf with a dummy argv[0] entry for
4296
         decode_cmdline_options_to_array.  */
4297
      argbuf_copy = XNEWVEC (const char *,
4298
                             VEC_length (const_char_p, argbuf) + 1);
4299
      argbuf_copy[0] = "";
4300
      memcpy (argbuf_copy + 1, VEC_address (const_char_p, argbuf),
4301
              VEC_length (const_char_p, argbuf) * sizeof (const char *));
4302
 
4303
      decode_cmdline_options_to_array (VEC_length (const_char_p, argbuf) + 1,
4304
                                       argbuf_copy,
4305
                                       CL_DRIVER, &decoded_options,
4306
                                       &decoded_options_count);
4307
 
4308
      set_option_handlers (&handlers);
4309
 
4310
      for (j = 1; j < decoded_options_count; j++)
4311
        {
4312
          switch (decoded_options[j].opt_index)
4313
            {
4314
            case OPT_SPECIAL_input_file:
4315
              /* Specs should only generate options, not input
4316
                 files.  */
4317
              if (strcmp (decoded_options[j].arg, "-") != 0)
4318
                fatal_error ("switch %qs does not start with %<-%>",
4319
                             decoded_options[j].arg);
4320
              else
4321
                fatal_error ("spec-generated switch is just %<-%>");
4322
              break;
4323
 
4324
            case OPT_fcompare_debug_second:
4325
            case OPT_fcompare_debug:
4326
            case OPT_fcompare_debug_:
4327
            case OPT_o:
4328
              /* Avoid duplicate processing of some options from
4329
                 compare-debug specs; just save them here.  */
4330
              save_switch (decoded_options[j].canonical_option[0],
4331
                           (decoded_options[j].canonical_option_num_elements
4332
                            - 1),
4333
                           &decoded_options[j].canonical_option[1], false);
4334
              break;
4335
 
4336
            default:
4337
              read_cmdline_option (&global_options, &global_options_set,
4338
                                   decoded_options + j, UNKNOWN_LOCATION,
4339
                                   CL_DRIVER, &handlers, global_dc);
4340
              break;
4341
            }
4342
        }
4343
 
4344
      alloc_switch ();
4345
      switches[n_switches].part1 = 0;
4346
    }
4347
}
4348
 
4349
/* Callback for processing %D and %I specs.  */
4350
 
4351
struct spec_path_info {
4352
  const char *option;
4353
  const char *append;
4354
  size_t append_len;
4355
  bool omit_relative;
4356
  bool separate_options;
4357
};
4358
 
4359
static void *
4360
spec_path (char *path, void *data)
4361
{
4362
  struct spec_path_info *info = (struct spec_path_info *) data;
4363
  size_t len = 0;
4364
  char save = 0;
4365
 
4366
  if (info->omit_relative && !IS_ABSOLUTE_PATH (path))
4367
    return NULL;
4368
 
4369
  if (info->append_len != 0)
4370
    {
4371
      len = strlen (path);
4372
      memcpy (path + len, info->append, info->append_len + 1);
4373
    }
4374
 
4375
  if (!is_directory (path, true))
4376
    return NULL;
4377
 
4378
  do_spec_1 (info->option, 1, NULL);
4379
  if (info->separate_options)
4380
    do_spec_1 (" ", 0, NULL);
4381
 
4382
  if (info->append_len == 0)
4383
    {
4384
      len = strlen (path);
4385
      save = path[len - 1];
4386
      if (IS_DIR_SEPARATOR (path[len - 1]))
4387
        path[len - 1] = '\0';
4388
    }
4389
 
4390
  do_spec_1 (path, 1, NULL);
4391
  do_spec_1 (" ", 0, NULL);
4392
 
4393
  /* Must not damage the original path.  */
4394
  if (info->append_len == 0)
4395
    path[len - 1] = save;
4396
 
4397
  return NULL;
4398
}
4399
 
4400
/* Create a temporary FILE with the contents of ARGV. Add @FILE to the
4401
   argument list. */
4402
 
4403
static void
4404
create_at_file (char **argv)
4405
{
4406
  char *temp_file = make_temp_file ("");
4407
  char *at_argument = concat ("@", temp_file, NULL);
4408
  FILE *f = fopen (temp_file, "w");
4409
  int status;
4410
 
4411
  if (f == NULL)
4412
    fatal_error ("could not open temporary response file %s",
4413
                 temp_file);
4414
 
4415
  status = writeargv (argv, f);
4416
 
4417
  if (status)
4418
    fatal_error ("could not write to temporary response file %s",
4419
                 temp_file);
4420
 
4421
  status = fclose (f);
4422
 
4423
  if (EOF == status)
4424
    fatal_error ("could not close temporary response file %s",
4425
                 temp_file);
4426
 
4427
  store_arg (at_argument, 0, 0);
4428
 
4429
  record_temp_file (temp_file, !save_temps_flag, !save_temps_flag);
4430
}
4431
 
4432
/* True if we should compile INFILE. */
4433
 
4434
static bool
4435
compile_input_file_p (struct infile *infile)
4436
{
4437
  if ((!infile->language) || (infile->language[0] != '*'))
4438
    if (infile->incompiler == input_file_compiler)
4439
      return true;
4440
  return false;
4441
}
4442
 
4443
/* Process each member of VEC as a spec.  */
4444
 
4445
static void
4446
do_specs_vec (VEC(char_p,heap) *vec)
4447
{
4448
  unsigned ix;
4449
  char *opt;
4450
 
4451
  FOR_EACH_VEC_ELT (char_p, vec, ix, opt)
4452
    {
4453
      do_spec_1 (opt, 1, NULL);
4454
      /* Make each accumulated option a separate argument.  */
4455
      do_spec_1 (" ", 0, NULL);
4456
    }
4457
}
4458
 
4459
/* Process the sub-spec SPEC as a portion of a larger spec.
4460
   This is like processing a whole spec except that we do
4461
   not initialize at the beginning and we do not supply a
4462
   newline by default at the end.
4463
   INSWITCH nonzero means don't process %-sequences in SPEC;
4464
   in this case, % is treated as an ordinary character.
4465
   This is used while substituting switches.
4466
   INSWITCH nonzero also causes SPC not to terminate an argument.
4467
 
4468
   Value is zero unless a line was finished
4469
   and the command on that line reported an error.  */
4470
 
4471
static int
4472
do_spec_1 (const char *spec, int inswitch, const char *soft_matched_part)
4473
{
4474
  const char *p = spec;
4475
  int c;
4476
  int i;
4477
  int value;
4478
 
4479
  /* If it's an empty string argument to a switch, keep it as is.  */
4480
  if (inswitch && !*p)
4481
    arg_going = 1;
4482
 
4483
  while ((c = *p++))
4484
    /* If substituting a switch, treat all chars like letters.
4485
       Otherwise, NL, SPC, TAB and % are special.  */
4486
    switch (inswitch ? 'a' : c)
4487
      {
4488
      case '\n':
4489
        end_going_arg ();
4490
 
4491
        if (VEC_length (const_char_p, argbuf) > 0
4492
            && !strcmp (VEC_last (const_char_p, argbuf), "|"))
4493
          {
4494
            /* A `|' before the newline means use a pipe here,
4495
               but only if -pipe was specified.
4496
               Otherwise, execute now and don't pass the `|' as an arg.  */
4497
            if (use_pipes)
4498
              {
4499
                input_from_pipe = 1;
4500
                break;
4501
              }
4502
            else
4503
              VEC_pop (const_char_p, argbuf);
4504
          }
4505
 
4506
        set_collect_gcc_options ();
4507
 
4508
        if (VEC_length (const_char_p, argbuf) > 0)
4509
          {
4510
            value = execute ();
4511
            if (value)
4512
              return value;
4513
          }
4514
        /* Reinitialize for a new command, and for a new argument.  */
4515
        clear_args ();
4516
        arg_going = 0;
4517
        delete_this_arg = 0;
4518
        this_is_output_file = 0;
4519
        this_is_library_file = 0;
4520
        this_is_linker_script = 0;
4521
        input_from_pipe = 0;
4522
        break;
4523
 
4524
      case '|':
4525
        end_going_arg ();
4526
 
4527
        /* Use pipe */
4528
        obstack_1grow (&obstack, c);
4529
        arg_going = 1;
4530
        break;
4531
 
4532
      case '\t':
4533
      case ' ':
4534
        end_going_arg ();
4535
 
4536
        /* Reinitialize for a new argument.  */
4537
        delete_this_arg = 0;
4538
        this_is_output_file = 0;
4539
        this_is_library_file = 0;
4540
        this_is_linker_script = 0;
4541
        break;
4542
 
4543
      case '%':
4544
        switch (c = *p++)
4545
          {
4546
          case 0:
4547
            fatal_error ("spec %qs invalid", spec);
4548
 
4549
          case 'b':
4550
            if (save_temps_length)
4551
              obstack_grow (&obstack, save_temps_prefix, save_temps_length);
4552
            else
4553
              obstack_grow (&obstack, input_basename, basename_length);
4554
            if (compare_debug < 0)
4555
              obstack_grow (&obstack, ".gk", 3);
4556
            arg_going = 1;
4557
            break;
4558
 
4559
          case 'B':
4560
            if (save_temps_length)
4561
              obstack_grow (&obstack, save_temps_prefix, save_temps_length);
4562
            else
4563
              obstack_grow (&obstack, input_basename, suffixed_basename_length);
4564
            if (compare_debug < 0)
4565
              obstack_grow (&obstack, ".gk", 3);
4566
            arg_going = 1;
4567
            break;
4568
 
4569
          case 'd':
4570
            delete_this_arg = 2;
4571
            break;
4572
 
4573
          /* Dump out the directories specified with LIBRARY_PATH,
4574
             followed by the absolute directories
4575
             that we search for startfiles.  */
4576
          case 'D':
4577
            {
4578
              struct spec_path_info info;
4579
 
4580
              info.option = "-L";
4581
              info.append_len = 0;
4582
#ifdef RELATIVE_PREFIX_NOT_LINKDIR
4583
              /* Used on systems which record the specified -L dirs
4584
                 and use them to search for dynamic linking.
4585
                 Relative directories always come from -B,
4586
                 and it is better not to use them for searching
4587
                 at run time.  In particular, stage1 loses.  */
4588
              info.omit_relative = true;
4589
#else
4590
              info.omit_relative = false;
4591
#endif
4592
              info.separate_options = false;
4593
 
4594
              for_each_path (&startfile_prefixes, true, 0, spec_path, &info);
4595
            }
4596
            break;
4597
 
4598
          case 'e':
4599
            /* %efoo means report an error with `foo' as error message
4600
               and don't execute any more commands for this file.  */
4601
            {
4602
              const char *q = p;
4603
              char *buf;
4604
              while (*p != 0 && *p != '\n')
4605
                p++;
4606
              buf = (char *) alloca (p - q + 1);
4607
              strncpy (buf, q, p - q);
4608
              buf[p - q] = 0;
4609
              error ("%s", _(buf));
4610
              return -1;
4611
            }
4612
            break;
4613
          case 'n':
4614
            /* %nfoo means report a notice with `foo' on stderr.  */
4615
            {
4616
              const char *q = p;
4617
              char *buf;
4618
              while (*p != 0 && *p != '\n')
4619
                p++;
4620
              buf = (char *) alloca (p - q + 1);
4621
              strncpy (buf, q, p - q);
4622
              buf[p - q] = 0;
4623
              inform (0, "%s", _(buf));
4624
              if (*p)
4625
                p++;
4626
            }
4627
            break;
4628
 
4629
          case 'j':
4630
            {
4631
              struct stat st;
4632
 
4633
              /* If save_temps_flag is off, and the HOST_BIT_BUCKET is
4634
                 defined, and it is not a directory, and it is
4635
                 writable, use it.  Otherwise, treat this like any
4636
                 other temporary file.  */
4637
 
4638
              if ((!save_temps_flag)
4639
                  && (stat (HOST_BIT_BUCKET, &st) == 0) && (!S_ISDIR (st.st_mode))
4640
                  && (access (HOST_BIT_BUCKET, W_OK) == 0))
4641
                {
4642
                  obstack_grow (&obstack, HOST_BIT_BUCKET,
4643
                                strlen (HOST_BIT_BUCKET));
4644
                  delete_this_arg = 0;
4645
                  arg_going = 1;
4646
                  break;
4647
                }
4648
            }
4649
            goto create_temp_file;
4650
          case '|':
4651
            if (use_pipes)
4652
              {
4653
                obstack_1grow (&obstack, '-');
4654
                delete_this_arg = 0;
4655
                arg_going = 1;
4656
 
4657
                /* consume suffix */
4658
                while (*p == '.' || ISALNUM ((unsigned char) *p))
4659
                  p++;
4660
                if (p[0] == '%' && p[1] == 'O')
4661
                  p += 2;
4662
 
4663
                break;
4664
              }
4665
            goto create_temp_file;
4666
          case 'm':
4667
            if (use_pipes)
4668
              {
4669
                /* consume suffix */
4670
                while (*p == '.' || ISALNUM ((unsigned char) *p))
4671
                  p++;
4672
                if (p[0] == '%' && p[1] == 'O')
4673
                  p += 2;
4674
 
4675
                break;
4676
              }
4677
            goto create_temp_file;
4678
          case 'g':
4679
          case 'u':
4680
          case 'U':
4681
          create_temp_file:
4682
              {
4683
                struct temp_name *t;
4684
                int suffix_length;
4685
                const char *suffix = p;
4686
                char *saved_suffix = NULL;
4687
 
4688
                while (*p == '.' || ISALNUM ((unsigned char) *p))
4689
                  p++;
4690
                suffix_length = p - suffix;
4691
                if (p[0] == '%' && p[1] == 'O')
4692
                  {
4693
                    p += 2;
4694
                    /* We don't support extra suffix characters after %O.  */
4695
                    if (*p == '.' || ISALNUM ((unsigned char) *p))
4696
                      fatal_error ("spec %qs has invalid %<%%0%c%>", spec, *p);
4697
                    if (suffix_length == 0)
4698
                      suffix = TARGET_OBJECT_SUFFIX;
4699
                    else
4700
                      {
4701
                        saved_suffix
4702
                          = XNEWVEC (char, suffix_length
4703
                                     + strlen (TARGET_OBJECT_SUFFIX));
4704
                        strncpy (saved_suffix, suffix, suffix_length);
4705
                        strcpy (saved_suffix + suffix_length,
4706
                                TARGET_OBJECT_SUFFIX);
4707
                      }
4708
                    suffix_length += strlen (TARGET_OBJECT_SUFFIX);
4709
                  }
4710
 
4711
                if (compare_debug < 0)
4712
                  {
4713
                    suffix = concat (".gk", suffix, NULL);
4714
                    suffix_length += 3;
4715
                  }
4716
 
4717
                /* If -save-temps=obj and -o were specified, use that for the
4718
                   temp file.  */
4719
                if (save_temps_length)
4720
                  {
4721
                    char *tmp;
4722
                    temp_filename_length
4723
                      = save_temps_length + suffix_length + 1;
4724
                    tmp = (char *) alloca (temp_filename_length);
4725
                    memcpy (tmp, save_temps_prefix, save_temps_length);
4726
                    memcpy (tmp + save_temps_length, suffix, suffix_length);
4727
                    tmp[save_temps_length + suffix_length] = '\0';
4728
                    temp_filename = save_string (tmp,
4729
                                                 temp_filename_length + 1);
4730
                    obstack_grow (&obstack, temp_filename,
4731
                                  temp_filename_length);
4732
                    arg_going = 1;
4733
                    delete_this_arg = 0;
4734
                    break;
4735
                  }
4736
 
4737
                /* If the gcc_input_filename has the same suffix specified
4738
                   for the %g, %u, or %U, and -save-temps is specified,
4739
                   we could end up using that file as an intermediate
4740
                   thus clobbering the user's source file (.e.g.,
4741
                   gcc -save-temps foo.s would clobber foo.s with the
4742
                   output of cpp0).  So check for this condition and
4743
                   generate a temp file as the intermediate.  */
4744
 
4745
                if (save_temps_flag)
4746
                  {
4747
                    char *tmp;
4748
                    temp_filename_length = basename_length + suffix_length + 1;
4749
                    tmp = (char *) alloca (temp_filename_length);
4750
                    memcpy (tmp, input_basename, basename_length);
4751
                    memcpy (tmp + basename_length, suffix, suffix_length);
4752
                    tmp[basename_length + suffix_length] = '\0';
4753
                    temp_filename = tmp;
4754
 
4755
                    if (filename_cmp (temp_filename, gcc_input_filename) != 0)
4756
                      {
4757
#ifndef HOST_LACKS_INODE_NUMBERS
4758
                        struct stat st_temp;
4759
 
4760
                        /* Note, set_input() resets input_stat_set to 0.  */
4761
                        if (input_stat_set == 0)
4762
                          {
4763
                            input_stat_set = stat (gcc_input_filename,
4764
                                                   &input_stat);
4765
                            if (input_stat_set >= 0)
4766
                              input_stat_set = 1;
4767
                          }
4768
 
4769
                        /* If we have the stat for the gcc_input_filename
4770
                           and we can do the stat for the temp_filename
4771
                           then the they could still refer to the same
4772
                           file if st_dev/st_ino's are the same.  */
4773
                        if (input_stat_set != 1
4774
                            || stat (temp_filename, &st_temp) < 0
4775
                            || input_stat.st_dev != st_temp.st_dev
4776
                            || input_stat.st_ino != st_temp.st_ino)
4777
#else
4778
                        /* Just compare canonical pathnames.  */
4779
                        char* input_realname = lrealpath (gcc_input_filename);
4780
                        char* temp_realname = lrealpath (temp_filename);
4781
                        bool files_differ = filename_cmp (input_realname, temp_realname);
4782
                        free (input_realname);
4783
                        free (temp_realname);
4784
                        if (files_differ)
4785
#endif
4786
                          {
4787
                            temp_filename = save_string (temp_filename,
4788
                                                         temp_filename_length + 1);
4789
                            obstack_grow (&obstack, temp_filename,
4790
                                                    temp_filename_length);
4791
                            arg_going = 1;
4792
                            delete_this_arg = 0;
4793
                            break;
4794
                          }
4795
                      }
4796
                  }
4797
 
4798
                /* See if we already have an association of %g/%u/%U and
4799
                   suffix.  */
4800
                for (t = temp_names; t; t = t->next)
4801
                  if (t->length == suffix_length
4802
                      && strncmp (t->suffix, suffix, suffix_length) == 0
4803
                      && t->unique == (c == 'u' || c == 'U' || c == 'j'))
4804
                    break;
4805
 
4806
                /* Make a new association if needed.  %u and %j
4807
                   require one.  */
4808
                if (t == 0 || c == 'u' || c == 'j')
4809
                  {
4810
                    if (t == 0)
4811
                      {
4812
                        t = XNEW (struct temp_name);
4813
                        t->next = temp_names;
4814
                        temp_names = t;
4815
                      }
4816
                    t->length = suffix_length;
4817
                    if (saved_suffix)
4818
                      {
4819
                        t->suffix = saved_suffix;
4820
                        saved_suffix = NULL;
4821
                      }
4822
                    else
4823
                      t->suffix = save_string (suffix, suffix_length);
4824
                    t->unique = (c == 'u' || c == 'U' || c == 'j');
4825
                    temp_filename = make_temp_file (t->suffix);
4826
                    temp_filename_length = strlen (temp_filename);
4827
                    t->filename = temp_filename;
4828
                    t->filename_length = temp_filename_length;
4829
                  }
4830
 
4831
                free (saved_suffix);
4832
 
4833
                obstack_grow (&obstack, t->filename, t->filename_length);
4834
                delete_this_arg = 1;
4835
              }
4836
            arg_going = 1;
4837
            break;
4838
 
4839
          case 'i':
4840
            if (combine_inputs)
4841
              {
4842
                if (at_file_supplied)
4843
                  {
4844
                    /* We are going to expand `%i' to `@FILE', where FILE
4845
                       is a newly-created temporary filename.  The filenames
4846
                       that would usually be expanded in place of %o will be
4847
                       written to the temporary file.  */
4848
                    char **argv;
4849
                    int n_files = 0;
4850
                    int j;
4851
 
4852
                    for (i = 0; i < n_infiles; i++)
4853
                      if (compile_input_file_p (&infiles[i]))
4854
                        n_files++;
4855
 
4856
                    argv = (char **) alloca (sizeof (char *) * (n_files + 1));
4857
 
4858
                    /* Copy the strings over.  */
4859
                    for (i = 0, j = 0; i < n_infiles; i++)
4860
                      if (compile_input_file_p (&infiles[i]))
4861
                        {
4862
                          argv[j] = CONST_CAST (char *, infiles[i].name);
4863
                          infiles[i].compiled = true;
4864
                          j++;
4865
                        }
4866
                    argv[j] = NULL;
4867
 
4868
                    create_at_file (argv);
4869
                  }
4870
                else
4871
                  for (i = 0; (int) i < n_infiles; i++)
4872
                    if (compile_input_file_p (&infiles[i]))
4873
                      {
4874
                        store_arg (infiles[i].name, 0, 0);
4875
                        infiles[i].compiled = true;
4876
                      }
4877
              }
4878
            else
4879
              {
4880
                obstack_grow (&obstack, gcc_input_filename,
4881
                              input_filename_length);
4882
                arg_going = 1;
4883
              }
4884
            break;
4885
 
4886
          case 'I':
4887
            {
4888
              struct spec_path_info info;
4889
 
4890
              if (multilib_dir)
4891
                {
4892
                  do_spec_1 ("-imultilib", 1, NULL);
4893
                  /* Make this a separate argument.  */
4894
                  do_spec_1 (" ", 0, NULL);
4895
                  do_spec_1 (multilib_dir, 1, NULL);
4896
                  do_spec_1 (" ", 0, NULL);
4897
                }
4898
 
4899
              if (gcc_exec_prefix)
4900
                {
4901
                  do_spec_1 ("-iprefix", 1, NULL);
4902
                  /* Make this a separate argument.  */
4903
                  do_spec_1 (" ", 0, NULL);
4904
                  do_spec_1 (gcc_exec_prefix, 1, NULL);
4905
                  do_spec_1 (" ", 0, NULL);
4906
                }
4907
 
4908
              if (target_system_root_changed ||
4909
                  (target_system_root && target_sysroot_hdrs_suffix))
4910
                {
4911
                  do_spec_1 ("-isysroot", 1, NULL);
4912
                  /* Make this a separate argument.  */
4913
                  do_spec_1 (" ", 0, NULL);
4914
                  do_spec_1 (target_system_root, 1, NULL);
4915
                  if (target_sysroot_hdrs_suffix)
4916
                    do_spec_1 (target_sysroot_hdrs_suffix, 1, NULL);
4917
                  do_spec_1 (" ", 0, NULL);
4918
                }
4919
 
4920
              info.option = "-isystem";
4921
              info.append = "include";
4922
              info.append_len = strlen (info.append);
4923
              info.omit_relative = false;
4924
              info.separate_options = true;
4925
 
4926
              for_each_path (&include_prefixes, false, info.append_len,
4927
                             spec_path, &info);
4928
 
4929
              info.append = "include-fixed";
4930
              if (*sysroot_hdrs_suffix_spec)
4931
                info.append = concat (info.append, dir_separator_str,
4932
                                      multilib_dir, NULL);
4933
              info.append_len = strlen (info.append);
4934
              for_each_path (&include_prefixes, false, info.append_len,
4935
                             spec_path, &info);
4936
            }
4937
            break;
4938
 
4939
          case 'o':
4940
            {
4941
              int max = n_infiles;
4942
              max += lang_specific_extra_outfiles;
4943
 
4944
              if (HAVE_GNU_LD && at_file_supplied)
4945
                {
4946
                  /* We are going to expand `%o' to `@FILE', where FILE
4947
                     is a newly-created temporary filename.  The filenames
4948
                     that would usually be expanded in place of %o will be
4949
                     written to the temporary file.  */
4950
 
4951
                  char **argv;
4952
                  int n_files, j;
4953
 
4954
                  /* Convert OUTFILES into a form suitable for writeargv.  */
4955
 
4956
                  /* Determine how many are non-NULL.  */
4957
                  for (n_files = 0, i = 0; i < max; i++)
4958
                    n_files += outfiles[i] != NULL;
4959
 
4960
                  argv = (char **) alloca (sizeof (char *) * (n_files + 1));
4961
 
4962
                  /* Copy the strings over.  */
4963
                  for (i = 0, j = 0; i < max; i++)
4964
                    if (outfiles[i])
4965
                      {
4966
                        argv[j] = CONST_CAST (char *, outfiles[i]);
4967
                        j++;
4968
                      }
4969
                  argv[j] = NULL;
4970
 
4971
                  create_at_file (argv);
4972
                }
4973
              else
4974
                for (i = 0; i < max; i++)
4975
                  if (outfiles[i])
4976
                    store_arg (outfiles[i], 0, 0);
4977
              break;
4978
            }
4979
 
4980
          case 'O':
4981
            obstack_grow (&obstack, TARGET_OBJECT_SUFFIX, strlen (TARGET_OBJECT_SUFFIX));
4982
            arg_going = 1;
4983
            break;
4984
 
4985
          case 's':
4986
            this_is_library_file = 1;
4987
            break;
4988
 
4989
          case 'T':
4990
            this_is_linker_script = 1;
4991
            break;
4992
 
4993
          case 'V':
4994
            outfiles[input_file_number] = NULL;
4995
            break;
4996
 
4997
          case 'w':
4998
            this_is_output_file = 1;
4999
            break;
5000
 
5001
          case 'W':
5002
            {
5003
              unsigned int cur_index = VEC_length (const_char_p, argbuf);
5004
              /* Handle the {...} following the %W.  */
5005
              if (*p != '{')
5006
                fatal_error ("spec %qs has invalid %<%%W%c%>", spec, *p);
5007
              p = handle_braces (p + 1);
5008
              if (p == 0)
5009
                return -1;
5010
              end_going_arg ();
5011
              /* If any args were output, mark the last one for deletion
5012
                 on failure.  */
5013
              if (VEC_length (const_char_p, argbuf) != cur_index)
5014
                record_temp_file (VEC_last (const_char_p, argbuf), 0, 1);
5015
              break;
5016
            }
5017
 
5018
          /* %x{OPTION} records OPTION for %X to output.  */
5019
          case 'x':
5020
            {
5021
              const char *p1 = p;
5022
              char *string;
5023
              char *opt;
5024
              unsigned ix;
5025
 
5026
              /* Skip past the option value and make a copy.  */
5027
              if (*p != '{')
5028
                fatal_error ("spec %qs has invalid %<%%x%c%>", spec, *p);
5029
              while (*p++ != '}')
5030
                ;
5031
              string = save_string (p1 + 1, p - p1 - 2);
5032
 
5033
              /* See if we already recorded this option.  */
5034
              FOR_EACH_VEC_ELT (char_p, linker_options, ix, opt)
5035
                if (! strcmp (string, opt))
5036
                  {
5037
                    free (string);
5038
                    return 0;
5039
                  }
5040
 
5041
              /* This option is new; add it.  */
5042
              add_linker_option (string, strlen (string));
5043
            }
5044
            break;
5045
 
5046
          /* Dump out the options accumulated previously using %x.  */
5047
          case 'X':
5048
            do_specs_vec (linker_options);
5049
            break;
5050
 
5051
          /* Dump out the options accumulated previously using -Wa,.  */
5052
          case 'Y':
5053
            do_specs_vec (assembler_options);
5054
            break;
5055
 
5056
          /* Dump out the options accumulated previously using -Wp,.  */
5057
          case 'Z':
5058
            do_specs_vec (preprocessor_options);
5059
            break;
5060
 
5061
            /* Here are digits and numbers that just process
5062
               a certain constant string as a spec.  */
5063
 
5064
          case '1':
5065
            value = do_spec_1 (cc1_spec, 0, NULL);
5066
            if (value != 0)
5067
              return value;
5068
            break;
5069
 
5070
          case '2':
5071
            value = do_spec_1 (cc1plus_spec, 0, NULL);
5072
            if (value != 0)
5073
              return value;
5074
            break;
5075
 
5076
          case 'a':
5077
            value = do_spec_1 (asm_spec, 0, NULL);
5078
            if (value != 0)
5079
              return value;
5080
            break;
5081
 
5082
          case 'A':
5083
            value = do_spec_1 (asm_final_spec, 0, NULL);
5084
            if (value != 0)
5085
              return value;
5086
            break;
5087
 
5088
          case 'C':
5089
            {
5090
              const char *const spec
5091
                = (input_file_compiler->cpp_spec
5092
                   ? input_file_compiler->cpp_spec
5093
                   : cpp_spec);
5094
              value = do_spec_1 (spec, 0, NULL);
5095
              if (value != 0)
5096
                return value;
5097
            }
5098
            break;
5099
 
5100
          case 'E':
5101
            value = do_spec_1 (endfile_spec, 0, NULL);
5102
            if (value != 0)
5103
              return value;
5104
            break;
5105
 
5106
          case 'l':
5107
            value = do_spec_1 (link_spec, 0, NULL);
5108
            if (value != 0)
5109
              return value;
5110
            break;
5111
 
5112
          case 'L':
5113
            value = do_spec_1 (lib_spec, 0, NULL);
5114
            if (value != 0)
5115
              return value;
5116
            break;
5117
 
5118
          case 'G':
5119
            value = do_spec_1 (libgcc_spec, 0, NULL);
5120
            if (value != 0)
5121
              return value;
5122
            break;
5123
 
5124
          case 'R':
5125
            /* We assume there is a directory
5126
               separator at the end of this string.  */
5127
            if (target_system_root)
5128
              {
5129
                obstack_grow (&obstack, target_system_root,
5130
                              strlen (target_system_root));
5131
                if (target_sysroot_suffix)
5132
                  obstack_grow (&obstack, target_sysroot_suffix,
5133
                                strlen (target_sysroot_suffix));
5134
              }
5135
            break;
5136
 
5137
          case 'S':
5138
            value = do_spec_1 (startfile_spec, 0, NULL);
5139
            if (value != 0)
5140
              return value;
5141
            break;
5142
 
5143
            /* Here we define characters other than letters and digits.  */
5144
 
5145
          case '{':
5146
            p = handle_braces (p);
5147
            if (p == 0)
5148
              return -1;
5149
            break;
5150
 
5151
          case ':':
5152
            p = handle_spec_function (p);
5153
            if (p == 0)
5154
              return -1;
5155
            break;
5156
 
5157
          case '%':
5158
            obstack_1grow (&obstack, '%');
5159
            break;
5160
 
5161
          case '.':
5162
            {
5163
              unsigned len = 0;
5164
 
5165
              while (p[len] && p[len] != ' ' && p[len] != '%')
5166
                len++;
5167
              suffix_subst = save_string (p - 1, len + 1);
5168
              p += len;
5169
            }
5170
           break;
5171
 
5172
           /* Henceforth ignore the option(s) matching the pattern
5173
              after the %<.  */
5174
          case '<':
5175
          case '>':
5176
            {
5177
              unsigned len = 0;
5178
              int have_wildcard = 0;
5179
              int i;
5180
              int switch_option;
5181
 
5182
              if (c == '>')
5183
                switch_option = SWITCH_IGNORE | SWITCH_KEEP_FOR_GCC;
5184
              else
5185
                switch_option = SWITCH_IGNORE;
5186
 
5187
              while (p[len] && p[len] != ' ' && p[len] != '\t')
5188
                len++;
5189
 
5190
              if (p[len-1] == '*')
5191
                have_wildcard = 1;
5192
 
5193
              for (i = 0; i < n_switches; i++)
5194
                if (!strncmp (switches[i].part1, p, len - have_wildcard)
5195
                    && (have_wildcard || switches[i].part1[len] == '\0'))
5196
                  {
5197
                    switches[i].live_cond |= switch_option;
5198
                    switches[i].validated = 1;
5199
                  }
5200
 
5201
              p += len;
5202
            }
5203
            break;
5204
 
5205
          case '*':
5206
            if (soft_matched_part)
5207
              {
5208
                if (soft_matched_part[0])
5209
                  do_spec_1 (soft_matched_part, 1, NULL);
5210
                do_spec_1 (" ", 0, NULL);
5211
              }
5212
            else
5213
              /* Catch the case where a spec string contains something like
5214
                 '%{foo:%*}'.  i.e. there is no * in the pattern on the left
5215
                 hand side of the :.  */
5216
              error ("spec failure: %<%%*%> has not been initialized by pattern match");
5217
            break;
5218
 
5219
            /* Process a string found as the value of a spec given by name.
5220
               This feature allows individual machine descriptions
5221
               to add and use their own specs.  */
5222
          case '(':
5223
            {
5224
              const char *name = p;
5225
              struct spec_list *sl;
5226
              int len;
5227
 
5228
              /* The string after the S/P is the name of a spec that is to be
5229
                 processed.  */
5230
              while (*p && *p != ')')
5231
                p++;
5232
 
5233
              /* See if it's in the list.  */
5234
              for (len = p - name, sl = specs; sl; sl = sl->next)
5235
                if (sl->name_len == len && !strncmp (sl->name, name, len))
5236
                  {
5237
                    name = *(sl->ptr_spec);
5238
#ifdef DEBUG_SPECS
5239
                    fnotice (stderr, "Processing spec (%s), which is '%s'\n",
5240
                             sl->name, name);
5241
#endif
5242
                    break;
5243
                  }
5244
 
5245
              if (sl)
5246
                {
5247
                  value = do_spec_1 (name, 0, NULL);
5248
                  if (value != 0)
5249
                    return value;
5250
                }
5251
 
5252
              /* Discard the closing paren.  */
5253
              if (*p)
5254
                p++;
5255
            }
5256
            break;
5257
 
5258
          default:
5259
            error ("spec failure: unrecognized spec option %qc", c);
5260
            break;
5261
          }
5262
        break;
5263
 
5264
      case '\\':
5265
        /* Backslash: treat next character as ordinary.  */
5266
        c = *p++;
5267
 
5268
        /* Fall through.  */
5269
      default:
5270
        /* Ordinary character: put it into the current argument.  */
5271
        obstack_1grow (&obstack, c);
5272
        arg_going = 1;
5273
      }
5274
 
5275
  /* End of string.  If we are processing a spec function, we need to
5276
     end any pending argument.  */
5277
  if (processing_spec_function)
5278
    end_going_arg ();
5279
 
5280
  return 0;
5281
}
5282
 
5283
/* Look up a spec function.  */
5284
 
5285
static const struct spec_function *
5286
lookup_spec_function (const char *name)
5287
{
5288
  const struct spec_function *sf;
5289
 
5290
  for (sf = static_spec_functions; sf->name != NULL; sf++)
5291
    if (strcmp (sf->name, name) == 0)
5292
      return sf;
5293
 
5294
  return NULL;
5295
}
5296
 
5297
/* Evaluate a spec function.  */
5298
 
5299
static const char *
5300
eval_spec_function (const char *func, const char *args)
5301
{
5302
  const struct spec_function *sf;
5303
  const char *funcval;
5304
 
5305
  /* Saved spec processing context.  */
5306
  VEC(const_char_p,heap) *save_argbuf;
5307
 
5308
  int save_arg_going;
5309
  int save_delete_this_arg;
5310
  int save_this_is_output_file;
5311
  int save_this_is_library_file;
5312
  int save_input_from_pipe;
5313
  int save_this_is_linker_script;
5314
  const char *save_suffix_subst;
5315
 
5316
 
5317
  sf = lookup_spec_function (func);
5318
  if (sf == NULL)
5319
    fatal_error ("unknown spec function %qs", func);
5320
 
5321
  /* Push the spec processing context.  */
5322
  save_argbuf = argbuf;
5323
 
5324
  save_arg_going = arg_going;
5325
  save_delete_this_arg = delete_this_arg;
5326
  save_this_is_output_file = this_is_output_file;
5327
  save_this_is_library_file = this_is_library_file;
5328
  save_this_is_linker_script = this_is_linker_script;
5329
  save_input_from_pipe = input_from_pipe;
5330
  save_suffix_subst = suffix_subst;
5331
 
5332
  /* Create a new spec processing context, and build the function
5333
     arguments.  */
5334
 
5335
  alloc_args ();
5336
  if (do_spec_2 (args) < 0)
5337
    fatal_error ("error in args to spec function %qs", func);
5338
 
5339
  /* argbuf_index is an index for the next argument to be inserted, and
5340
     so contains the count of the args already inserted.  */
5341
 
5342
  funcval = (*sf->func) (VEC_length (const_char_p, argbuf),
5343
                         VEC_address (const_char_p, argbuf));
5344
 
5345
  /* Pop the spec processing context.  */
5346
  VEC_free (const_char_p, heap, argbuf);
5347
  argbuf = save_argbuf;
5348
 
5349
  arg_going = save_arg_going;
5350
  delete_this_arg = save_delete_this_arg;
5351
  this_is_output_file = save_this_is_output_file;
5352
  this_is_library_file = save_this_is_library_file;
5353
  this_is_linker_script = save_this_is_linker_script;
5354
  input_from_pipe = save_input_from_pipe;
5355
  suffix_subst = save_suffix_subst;
5356
 
5357
  return funcval;
5358
}
5359
 
5360
/* Handle a spec function call of the form:
5361
 
5362
   %:function(args)
5363
 
5364
   ARGS is processed as a spec in a separate context and split into an
5365
   argument vector in the normal fashion.  The function returns a string
5366
   containing a spec which we then process in the caller's context, or
5367
   NULL if no processing is required.  */
5368
 
5369
static const char *
5370
handle_spec_function (const char *p)
5371
{
5372
  char *func, *args;
5373
  const char *endp, *funcval;
5374
  int count;
5375
 
5376
  processing_spec_function++;
5377
 
5378
  /* Get the function name.  */
5379
  for (endp = p; *endp != '\0'; endp++)
5380
    {
5381
      if (*endp == '(')         /* ) */
5382
        break;
5383
      /* Only allow [A-Za-z0-9], -, and _ in function names.  */
5384
      if (!ISALNUM (*endp) && !(*endp == '-' || *endp == '_'))
5385
        fatal_error ("malformed spec function name");
5386
    }
5387
  if (*endp != '(')             /* ) */
5388
    fatal_error ("no arguments for spec function");
5389
  func = save_string (p, endp - p);
5390
  p = ++endp;
5391
 
5392
  /* Get the arguments.  */
5393
  for (count = 0; *endp != '\0'; endp++)
5394
    {
5395
      /* ( */
5396
      if (*endp == ')')
5397
        {
5398
          if (count == 0)
5399
            break;
5400
          count--;
5401
        }
5402
      else if (*endp == '(')    /* ) */
5403
        count++;
5404
    }
5405
  /* ( */
5406
  if (*endp != ')')
5407
    fatal_error ("malformed spec function arguments");
5408
  args = save_string (p, endp - p);
5409
  p = ++endp;
5410
 
5411
  /* p now points to just past the end of the spec function expression.  */
5412
 
5413
  funcval = eval_spec_function (func, args);
5414
  if (funcval != NULL && do_spec_1 (funcval, 0, NULL) < 0)
5415
    p = NULL;
5416
 
5417
  free (func);
5418
  free (args);
5419
 
5420
  processing_spec_function--;
5421
 
5422
  return p;
5423
}
5424
 
5425
/* Inline subroutine of handle_braces.  Returns true if the current
5426
   input suffix matches the atom bracketed by ATOM and END_ATOM.  */
5427
static inline bool
5428
input_suffix_matches (const char *atom, const char *end_atom)
5429
{
5430
  return (input_suffix
5431
          && !strncmp (input_suffix, atom, end_atom - atom)
5432
          && input_suffix[end_atom - atom] == '\0');
5433
}
5434
 
5435
/* Subroutine of handle_braces.  Returns true if the current
5436
   input file's spec name matches the atom bracketed by ATOM and END_ATOM.  */
5437
static bool
5438
input_spec_matches (const char *atom, const char *end_atom)
5439
{
5440
  return (input_file_compiler
5441
          && input_file_compiler->suffix
5442
          && input_file_compiler->suffix[0] != '\0'
5443
          && !strncmp (input_file_compiler->suffix + 1, atom,
5444
                       end_atom - atom)
5445
          && input_file_compiler->suffix[end_atom - atom + 1] == '\0');
5446
}
5447
 
5448
/* Subroutine of handle_braces.  Returns true if a switch
5449
   matching the atom bracketed by ATOM and END_ATOM appeared on the
5450
   command line.  */
5451
static bool
5452
switch_matches (const char *atom, const char *end_atom, int starred)
5453
{
5454
  int i;
5455
  int len = end_atom - atom;
5456
  int plen = starred ? len : -1;
5457
 
5458
  for (i = 0; i < n_switches; i++)
5459
    if (!strncmp (switches[i].part1, atom, len)
5460
        && (starred || switches[i].part1[len] == '\0')
5461
        && check_live_switch (i, plen))
5462
      return true;
5463
 
5464
    /* Check if a switch with separated form matching the atom.
5465
       We check -D and -U switches. */
5466
    else if (switches[i].args != 0)
5467
      {
5468
        if ((*switches[i].part1 == 'D' || *switches[i].part1 == 'U')
5469
            && *switches[i].part1 == atom[0])
5470
          {
5471
            if (!strncmp (switches[i].args[0], &atom[1], len - 1)
5472
                && (starred || (switches[i].part1[1] == '\0'
5473
                                && switches[i].args[0][len - 1] == '\0'))
5474
                && check_live_switch (i, (starred ? 1 : -1)))
5475
              return true;
5476
          }
5477
      }
5478
 
5479
  return false;
5480
}
5481
 
5482
/* Inline subroutine of handle_braces.  Mark all of the switches which
5483
   match ATOM (extends to END_ATOM; STARRED indicates whether there
5484
   was a star after the atom) for later processing.  */
5485
static inline void
5486
mark_matching_switches (const char *atom, const char *end_atom, int starred)
5487
{
5488
  int i;
5489
  int len = end_atom - atom;
5490
  int plen = starred ? len : -1;
5491
 
5492
  for (i = 0; i < n_switches; i++)
5493
    if (!strncmp (switches[i].part1, atom, len)
5494
        && (starred || switches[i].part1[len] == '\0')
5495
        && check_live_switch (i, plen))
5496
      switches[i].ordering = 1;
5497
}
5498
 
5499
/* Inline subroutine of handle_braces.  Process all the currently
5500
   marked switches through give_switch, and clear the marks.  */
5501
static inline void
5502
process_marked_switches (void)
5503
{
5504
  int i;
5505
 
5506
  for (i = 0; i < n_switches; i++)
5507
    if (switches[i].ordering == 1)
5508
      {
5509
        switches[i].ordering = 0;
5510
        give_switch (i, 0);
5511
      }
5512
}
5513
 
5514
/* Handle a %{ ... } construct.  P points just inside the leading {.
5515
   Returns a pointer one past the end of the brace block, or 0
5516
   if we call do_spec_1 and that returns -1.  */
5517
 
5518
static const char *
5519
handle_braces (const char *p)
5520
{
5521
  const char *atom, *end_atom;
5522
  const char *d_atom = NULL, *d_end_atom = NULL;
5523
  const char *orig = p;
5524
 
5525
  bool a_is_suffix;
5526
  bool a_is_spectype;
5527
  bool a_is_starred;
5528
  bool a_is_negated;
5529
  bool a_matched;
5530
 
5531
  bool a_must_be_last = false;
5532
  bool ordered_set    = false;
5533
  bool disjunct_set   = false;
5534
  bool disj_matched   = false;
5535
  bool disj_starred   = true;
5536
  bool n_way_choice   = false;
5537
  bool n_way_matched  = false;
5538
 
5539
#define SKIP_WHITE() do { while (*p == ' ' || *p == '\t') p++; } while (0)
5540
 
5541
  do
5542
    {
5543
      if (a_must_be_last)
5544
        goto invalid;
5545
 
5546
      /* Scan one "atom" (S in the description above of %{}, possibly
5547
         with '!', '.', '@', ',', or '*' modifiers).  */
5548
      a_matched = false;
5549
      a_is_suffix = false;
5550
      a_is_starred = false;
5551
      a_is_negated = false;
5552
      a_is_spectype = false;
5553
 
5554
      SKIP_WHITE();
5555
      if (*p == '!')
5556
        p++, a_is_negated = true;
5557
 
5558
      SKIP_WHITE();
5559
      if (*p == '.')
5560
        p++, a_is_suffix = true;
5561
      else if (*p == ',')
5562
        p++, a_is_spectype = true;
5563
 
5564
      atom = p;
5565
      while (ISIDNUM(*p) || *p == '-' || *p == '+' || *p == '='
5566
             || *p == ',' || *p == '.' || *p == '@')
5567
        p++;
5568
      end_atom = p;
5569
 
5570
      if (*p == '*')
5571
        p++, a_is_starred = 1;
5572
 
5573
      SKIP_WHITE();
5574
      switch (*p)
5575
        {
5576
        case '&': case '}':
5577
          /* Substitute the switch(es) indicated by the current atom.  */
5578
          ordered_set = true;
5579
          if (disjunct_set || n_way_choice || a_is_negated || a_is_suffix
5580
              || a_is_spectype || atom == end_atom)
5581
            goto invalid;
5582
 
5583
          mark_matching_switches (atom, end_atom, a_is_starred);
5584
 
5585
          if (*p == '}')
5586
            process_marked_switches ();
5587
          break;
5588
 
5589
        case '|': case ':':
5590
          /* Substitute some text if the current atom appears as a switch
5591
             or suffix.  */
5592
          disjunct_set = true;
5593
          if (ordered_set)
5594
            goto invalid;
5595
 
5596
          if (atom == end_atom)
5597
            {
5598
              if (!n_way_choice || disj_matched || *p == '|'
5599
                  || a_is_negated || a_is_suffix || a_is_spectype
5600
                  || a_is_starred)
5601
                goto invalid;
5602
 
5603
              /* An empty term may appear as the last choice of an
5604
                 N-way choice set; it means "otherwise".  */
5605
              a_must_be_last = true;
5606
              disj_matched = !n_way_matched;
5607
              disj_starred = false;
5608
            }
5609
          else
5610
            {
5611
              if ((a_is_suffix || a_is_spectype) && a_is_starred)
5612
                goto invalid;
5613
 
5614
              if (!a_is_starred)
5615
                disj_starred = false;
5616
 
5617
              /* Don't bother testing this atom if we already have a
5618
                 match.  */
5619
              if (!disj_matched && !n_way_matched)
5620
                {
5621
                  if (a_is_suffix)
5622
                    a_matched = input_suffix_matches (atom, end_atom);
5623
                  else if (a_is_spectype)
5624
                    a_matched = input_spec_matches (atom, end_atom);
5625
                  else
5626
                    a_matched = switch_matches (atom, end_atom, a_is_starred);
5627
 
5628
                  if (a_matched != a_is_negated)
5629
                    {
5630
                      disj_matched = true;
5631
                      d_atom = atom;
5632
                      d_end_atom = end_atom;
5633
                    }
5634
                }
5635
            }
5636
 
5637
          if (*p == ':')
5638
            {
5639
              /* Found the body, that is, the text to substitute if the
5640
                 current disjunction matches.  */
5641
              p = process_brace_body (p + 1, d_atom, d_end_atom, disj_starred,
5642
                                      disj_matched && !n_way_matched);
5643
              if (p == 0)
5644
                return 0;
5645
 
5646
              /* If we have an N-way choice, reset state for the next
5647
                 disjunction.  */
5648
              if (*p == ';')
5649
                {
5650
                  n_way_choice = true;
5651
                  n_way_matched |= disj_matched;
5652
                  disj_matched = false;
5653
                  disj_starred = true;
5654
                  d_atom = d_end_atom = NULL;
5655
                }
5656
            }
5657
          break;
5658
 
5659
        default:
5660
          goto invalid;
5661
        }
5662
    }
5663
  while (*p++ != '}');
5664
 
5665
  return p;
5666
 
5667
 invalid:
5668
  fatal_error ("braced spec %qs is invalid at %qc", orig, *p);
5669
 
5670
#undef SKIP_WHITE
5671
}
5672
 
5673
/* Subroutine of handle_braces.  Scan and process a brace substitution body
5674
   (X in the description of %{} syntax).  P points one past the colon;
5675
   ATOM and END_ATOM bracket the first atom which was found to be true
5676
   (present) in the current disjunction; STARRED indicates whether all
5677
   the atoms in the current disjunction were starred (for syntax validation);
5678
   MATCHED indicates whether the disjunction matched or not, and therefore
5679
   whether or not the body is to be processed through do_spec_1 or just
5680
   skipped.  Returns a pointer to the closing } or ;, or 0 if do_spec_1
5681
   returns -1.  */
5682
 
5683
static const char *
5684
process_brace_body (const char *p, const char *atom, const char *end_atom,
5685
                    int starred, int matched)
5686
{
5687
  const char *body, *end_body;
5688
  unsigned int nesting_level;
5689
  bool have_subst     = false;
5690
 
5691
  /* Locate the closing } or ;, honoring nested braces.
5692
     Trim trailing whitespace.  */
5693
  body = p;
5694
  nesting_level = 1;
5695
  for (;;)
5696
    {
5697
      if (*p == '{')
5698
        nesting_level++;
5699
      else if (*p == '}')
5700
        {
5701
          if (!--nesting_level)
5702
            break;
5703
        }
5704
      else if (*p == ';' && nesting_level == 1)
5705
        break;
5706
      else if (*p == '%' && p[1] == '*' && nesting_level == 1)
5707
        have_subst = true;
5708
      else if (*p == '\0')
5709
        goto invalid;
5710
      p++;
5711
    }
5712
 
5713
  end_body = p;
5714
  while (end_body[-1] == ' ' || end_body[-1] == '\t')
5715
    end_body--;
5716
 
5717
  if (have_subst && !starred)
5718
    goto invalid;
5719
 
5720
  if (matched)
5721
    {
5722
      /* Copy the substitution body to permanent storage and execute it.
5723
         If have_subst is false, this is a simple matter of running the
5724
         body through do_spec_1...  */
5725
      char *string = save_string (body, end_body - body);
5726
      if (!have_subst)
5727
        {
5728
          if (do_spec_1 (string, 0, NULL) < 0)
5729
            return 0;
5730
        }
5731
      else
5732
        {
5733
          /* ... but if have_subst is true, we have to process the
5734
             body once for each matching switch, with %* set to the
5735
             variant part of the switch.  */
5736
          unsigned int hard_match_len = end_atom - atom;
5737
          int i;
5738
 
5739
          for (i = 0; i < n_switches; i++)
5740
            if (!strncmp (switches[i].part1, atom, hard_match_len)
5741
                && check_live_switch (i, hard_match_len))
5742
              {
5743
                if (do_spec_1 (string, 0,
5744
                               &switches[i].part1[hard_match_len]) < 0)
5745
                  return 0;
5746
                /* Pass any arguments this switch has.  */
5747
                give_switch (i, 1);
5748
                suffix_subst = NULL;
5749
              }
5750
        }
5751
    }
5752
 
5753
  return p;
5754
 
5755
 invalid:
5756
  fatal_error ("braced spec body %qs is invalid", body);
5757
}
5758
 
5759
/* Return 0 iff switch number SWITCHNUM is obsoleted by a later switch
5760
   on the command line.  PREFIX_LENGTH is the length of XXX in an {XXX*}
5761
   spec, or -1 if either exact match or %* is used.
5762
 
5763
   A -O switch is obsoleted by a later -O switch.  A -f, -m, or -W switch
5764
   whose value does not begin with "no-" is obsoleted by the same value
5765
   with the "no-", similarly for a switch with the "no-" prefix.  */
5766
 
5767
static int
5768
check_live_switch (int switchnum, int prefix_length)
5769
{
5770
  const char *name = switches[switchnum].part1;
5771
  int i;
5772
 
5773
  /* If we already processed this switch and determined if it was
5774
     live or not, return our past determination.  */
5775
  if (switches[switchnum].live_cond != 0)
5776
    return ((switches[switchnum].live_cond & SWITCH_LIVE) != 0
5777
            && (switches[switchnum].live_cond & SWITCH_FALSE) == 0
5778
            && (switches[switchnum].live_cond & SWITCH_IGNORE_PERMANENTLY)
5779
               == 0);
5780
 
5781
  /* In the common case of {<at-most-one-letter>*}, a negating
5782
     switch would always match, so ignore that case.  We will just
5783
     send the conflicting switches to the compiler phase.  */
5784
  if (prefix_length >= 0 && prefix_length <= 1)
5785
    return 1;
5786
 
5787
  /* Now search for duplicate in a manner that depends on the name.  */
5788
  switch (*name)
5789
    {
5790
    case 'O':
5791
      for (i = switchnum + 1; i < n_switches; i++)
5792
        if (switches[i].part1[0] == 'O')
5793
          {
5794
            switches[switchnum].validated = 1;
5795
            switches[switchnum].live_cond = SWITCH_FALSE;
5796
            return 0;
5797
          }
5798
      break;
5799
 
5800
    case 'W':  case 'f':  case 'm':
5801
      if (! strncmp (name + 1, "no-", 3))
5802
        {
5803
          /* We have Xno-YYY, search for XYYY.  */
5804
          for (i = switchnum + 1; i < n_switches; i++)
5805
            if (switches[i].part1[0] == name[0]
5806
                && ! strcmp (&switches[i].part1[1], &name[4]))
5807
              {
5808
                switches[switchnum].validated = 1;
5809
                switches[switchnum].live_cond = SWITCH_FALSE;
5810
                return 0;
5811
              }
5812
        }
5813
      else
5814
        {
5815
          /* We have XYYY, search for Xno-YYY.  */
5816
          for (i = switchnum + 1; i < n_switches; i++)
5817
            if (switches[i].part1[0] == name[0]
5818
                && switches[i].part1[1] == 'n'
5819
                && switches[i].part1[2] == 'o'
5820
                && switches[i].part1[3] == '-'
5821
                && !strcmp (&switches[i].part1[4], &name[1]))
5822
              {
5823
                switches[switchnum].validated = 1;
5824
                switches[switchnum].live_cond = SWITCH_FALSE;
5825
                return 0;
5826
              }
5827
        }
5828
      break;
5829
    }
5830
 
5831
  /* Otherwise the switch is live.  */
5832
  switches[switchnum].live_cond |= SWITCH_LIVE;
5833
  return 1;
5834
}
5835
 
5836
/* Pass a switch to the current accumulating command
5837
   in the same form that we received it.
5838
   SWITCHNUM identifies the switch; it is an index into
5839
   the vector of switches gcc received, which is `switches'.
5840
   This cannot fail since it never finishes a command line.
5841
 
5842
   If OMIT_FIRST_WORD is nonzero, then we omit .part1 of the argument.  */
5843
 
5844
static void
5845
give_switch (int switchnum, int omit_first_word)
5846
{
5847
  if ((switches[switchnum].live_cond & SWITCH_IGNORE) != 0)
5848
    return;
5849
 
5850
  if (!omit_first_word)
5851
    {
5852
      do_spec_1 ("-", 0, NULL);
5853
      do_spec_1 (switches[switchnum].part1, 1, NULL);
5854
    }
5855
 
5856
  if (switches[switchnum].args != 0)
5857
    {
5858
      const char **p;
5859
      for (p = switches[switchnum].args; *p; p++)
5860
        {
5861
          const char *arg = *p;
5862
 
5863
          do_spec_1 (" ", 0, NULL);
5864
          if (suffix_subst)
5865
            {
5866
              unsigned length = strlen (arg);
5867
              int dot = 0;
5868
 
5869
              while (length-- && !IS_DIR_SEPARATOR (arg[length]))
5870
                if (arg[length] == '.')
5871
                  {
5872
                    (CONST_CAST(char *, arg))[length] = 0;
5873
                    dot = 1;
5874
                    break;
5875
                  }
5876
              do_spec_1 (arg, 1, NULL);
5877
              if (dot)
5878
                (CONST_CAST(char *, arg))[length] = '.';
5879
              do_spec_1 (suffix_subst, 1, NULL);
5880
            }
5881
          else
5882
            do_spec_1 (arg, 1, NULL);
5883
        }
5884
    }
5885
 
5886
  do_spec_1 (" ", 0, NULL);
5887
  switches[switchnum].validated = 1;
5888
}
5889
 
5890
/* Search for a file named NAME trying various prefixes including the
5891
   user's -B prefix and some standard ones.
5892
   Return the absolute file name found.  If nothing is found, return NAME.  */
5893
 
5894
static const char *
5895
find_file (const char *name)
5896
{
5897
  char *newname = find_a_file (&startfile_prefixes, name, R_OK, true);
5898
  return newname ? newname : name;
5899
}
5900
 
5901
/* Determine whether a directory exists.  If LINKER, return 0 for
5902
   certain fixed names not needed by the linker.  */
5903
 
5904
static int
5905
is_directory (const char *path1, bool linker)
5906
{
5907
  int len1;
5908
  char *path;
5909
  char *cp;
5910
  struct stat st;
5911
 
5912
  /* Ensure the string ends with "/.".  The resulting path will be a
5913
     directory even if the given path is a symbolic link.  */
5914
  len1 = strlen (path1);
5915
  path = (char *) alloca (3 + len1);
5916
  memcpy (path, path1, len1);
5917
  cp = path + len1;
5918
  if (!IS_DIR_SEPARATOR (cp[-1]))
5919
    *cp++ = DIR_SEPARATOR;
5920
  *cp++ = '.';
5921
  *cp = '\0';
5922
 
5923
  /* Exclude directories that the linker is known to search.  */
5924
  if (linker
5925
      && IS_DIR_SEPARATOR (path[0])
5926
      && ((cp - path == 6
5927
           && filename_ncmp (path + 1, "lib", 3) == 0)
5928
          || (cp - path == 10
5929
              && filename_ncmp (path + 1, "usr", 3) == 0
5930
              && IS_DIR_SEPARATOR (path[4])
5931
              && filename_ncmp (path + 5, "lib", 3) == 0)))
5932
    return 0;
5933
 
5934
  return (stat (path, &st) >= 0 && S_ISDIR (st.st_mode));
5935
}
5936
 
5937
/* Set up the various global variables to indicate that we're processing
5938
   the input file named FILENAME.  */
5939
 
5940
void
5941
set_input (const char *filename)
5942
{
5943
  const char *p;
5944
 
5945
  gcc_input_filename = filename;
5946
  input_filename_length = strlen (gcc_input_filename);
5947
  input_basename = lbasename (gcc_input_filename);
5948
 
5949
  /* Find a suffix starting with the last period,
5950
     and set basename_length to exclude that suffix.  */
5951
  basename_length = strlen (input_basename);
5952
  suffixed_basename_length = basename_length;
5953
  p = input_basename + basename_length;
5954
  while (p != input_basename && *p != '.')
5955
    --p;
5956
  if (*p == '.' && p != input_basename)
5957
    {
5958
      basename_length = p - input_basename;
5959
      input_suffix = p + 1;
5960
    }
5961
  else
5962
    input_suffix = "";
5963
 
5964
  /* If a spec for 'g', 'u', or 'U' is seen with -save-temps then
5965
     we will need to do a stat on the gcc_input_filename.  The
5966
     INPUT_STAT_SET signals that the stat is needed.  */
5967
  input_stat_set = 0;
5968
}
5969
 
5970
/* On fatal signals, delete all the temporary files.  */
5971
 
5972
static void
5973
fatal_signal (int signum)
5974
{
5975
  signal (signum, SIG_DFL);
5976
  delete_failure_queue ();
5977
  delete_temp_files ();
5978
  /* Get the same signal again, this time not handled,
5979
     so its normal effect occurs.  */
5980
  kill (getpid (), signum);
5981
}
5982
 
5983
/* Compare the contents of the two files named CMPFILE[0] and
5984
   CMPFILE[1].  Return zero if they're identical, nonzero
5985
   otherwise.  */
5986
 
5987
static int
5988
compare_files (char *cmpfile[])
5989
{
5990
  int ret = 0;
5991
  FILE *temp[2] = { NULL, NULL };
5992
  int i;
5993
 
5994
#if HAVE_MMAP_FILE
5995
  {
5996
    size_t length[2];
5997
    void *map[2] = { NULL, NULL };
5998
 
5999
    for (i = 0; i < 2; i++)
6000
      {
6001
        struct stat st;
6002
 
6003
        if (stat (cmpfile[i], &st) < 0 || !S_ISREG (st.st_mode))
6004
          {
6005
            error ("%s: could not determine length of compare-debug file %s",
6006
                   gcc_input_filename, cmpfile[i]);
6007
            ret = 1;
6008
            break;
6009
          }
6010
 
6011
        length[i] = st.st_size;
6012
      }
6013
 
6014
    if (!ret && length[0] != length[1])
6015
      {
6016
        error ("%s: -fcompare-debug failure (length)", gcc_input_filename);
6017
        ret = 1;
6018
      }
6019
 
6020
    if (!ret)
6021
      for (i = 0; i < 2; i++)
6022
        {
6023
          int fd = open (cmpfile[i], O_RDONLY);
6024
          if (fd < 0)
6025
            {
6026
              error ("%s: could not open compare-debug file %s",
6027
                     gcc_input_filename, cmpfile[i]);
6028
              ret = 1;
6029
              break;
6030
            }
6031
 
6032
          map[i] = mmap (NULL, length[i], PROT_READ, MAP_PRIVATE, fd, 0);
6033
          close (fd);
6034
 
6035
          if (map[i] == (void *) MAP_FAILED)
6036
            {
6037
              ret = -1;
6038
              break;
6039
            }
6040
        }
6041
 
6042
    if (!ret)
6043
      {
6044
        if (memcmp (map[0], map[1], length[0]) != 0)
6045
          {
6046
            error ("%s: -fcompare-debug failure", gcc_input_filename);
6047
            ret = 1;
6048
          }
6049
      }
6050
 
6051
    for (i = 0; i < 2; i++)
6052
      if (map[i])
6053
        munmap ((caddr_t) map[i], length[i]);
6054
 
6055
    if (ret >= 0)
6056
      return ret;
6057
 
6058
    ret = 0;
6059
  }
6060
#endif
6061
 
6062
  for (i = 0; i < 2; i++)
6063
    {
6064
      temp[i] = fopen (cmpfile[i], "r");
6065
      if (!temp[i])
6066
        {
6067
          error ("%s: could not open compare-debug file %s",
6068
                 gcc_input_filename, cmpfile[i]);
6069
          ret = 1;
6070
          break;
6071
        }
6072
    }
6073
 
6074
  if (!ret && temp[0] && temp[1])
6075
    for (;;)
6076
      {
6077
        int c0, c1;
6078
        c0 = fgetc (temp[0]);
6079
        c1 = fgetc (temp[1]);
6080
 
6081
        if (c0 != c1)
6082
          {
6083
            error ("%s: -fcompare-debug failure",
6084
                   gcc_input_filename);
6085
            ret = 1;
6086
            break;
6087
          }
6088
 
6089
        if (c0 == EOF)
6090
          break;
6091
      }
6092
 
6093
  for (i = 1; i >= 0; i--)
6094
    {
6095
      if (temp[i])
6096
        fclose (temp[i]);
6097
    }
6098
 
6099
  return ret;
6100
}
6101
 
6102
extern int main (int, char **);
6103
 
6104
int
6105
main (int argc, char **argv)
6106
{
6107
  size_t i;
6108
  int value;
6109
  int linker_was_run = 0;
6110
  int lang_n_infiles = 0;
6111
  int num_linker_inputs = 0;
6112
  char *explicit_link_files;
6113
  char *specs_file;
6114
  char *lto_wrapper_file;
6115
  const char *p;
6116
  struct user_specs *uptr;
6117
  char **old_argv = argv;
6118
  struct cl_decoded_option *decoded_options;
6119
  unsigned int decoded_options_count;
6120
 
6121
  /* Initialize here, not in definition.  The IRIX 6 O32 cc sometimes chokes
6122
     on ?: in file-scope variable initializations.  */
6123
  asm_debug = ASM_DEBUG_SPEC;
6124
 
6125
  p = argv[0] + strlen (argv[0]);
6126
  while (p != argv[0] && !IS_DIR_SEPARATOR (p[-1]))
6127
    --p;
6128
  progname = p;
6129
 
6130
  xmalloc_set_program_name (progname);
6131
 
6132
  expandargv (&argc, &argv);
6133
 
6134
  /* Determine if any expansions were made.  */
6135
  if (argv != old_argv)
6136
    at_file_supplied = true;
6137
 
6138
  /* Register the language-independent parameters.  */
6139
  global_init_params ();
6140
  finish_params ();
6141
 
6142
  init_options_struct (&global_options, &global_options_set);
6143
 
6144
  decode_cmdline_options_to_array (argc, CONST_CAST2 (const char **, char **,
6145
                                                      argv),
6146
                                   CL_DRIVER,
6147
                                   &decoded_options, &decoded_options_count);
6148
 
6149
#ifdef GCC_DRIVER_HOST_INITIALIZATION
6150
  /* Perform host dependent initialization when needed.  */
6151
  GCC_DRIVER_HOST_INITIALIZATION;
6152
#endif
6153
 
6154
  /* Unlock the stdio streams.  */
6155
  unlock_std_streams ();
6156
 
6157
  gcc_init_libintl ();
6158
 
6159
  diagnostic_initialize (global_dc, 0);
6160
  if (atexit (delete_temp_files) != 0)
6161
    fatal_error ("atexit failed");
6162
 
6163
  if (signal (SIGINT, SIG_IGN) != SIG_IGN)
6164
    signal (SIGINT, fatal_signal);
6165
#ifdef SIGHUP
6166
  if (signal (SIGHUP, SIG_IGN) != SIG_IGN)
6167
    signal (SIGHUP, fatal_signal);
6168
#endif
6169
  if (signal (SIGTERM, SIG_IGN) != SIG_IGN)
6170
    signal (SIGTERM, fatal_signal);
6171
#ifdef SIGPIPE
6172
  if (signal (SIGPIPE, SIG_IGN) != SIG_IGN)
6173
    signal (SIGPIPE, fatal_signal);
6174
#endif
6175
#ifdef SIGCHLD
6176
  /* We *MUST* set SIGCHLD to SIG_DFL so that the wait4() call will
6177
     receive the signal.  A different setting is inheritable */
6178
  signal (SIGCHLD, SIG_DFL);
6179
#endif
6180
 
6181
  /* Parsing and gimplification sometimes need quite large stack.
6182
     Increase stack size limits if possible.  */
6183
  stack_limit_increase (64 * 1024 * 1024);
6184
 
6185
  /* Allocate the argument vector.  */
6186
  alloc_args ();
6187
 
6188
  obstack_init (&obstack);
6189
 
6190
  /* Build multilib_select, et. al from the separate lines that make up each
6191
     multilib selection.  */
6192
  {
6193
    const char *const *q = multilib_raw;
6194
    int need_space;
6195
 
6196
    obstack_init (&multilib_obstack);
6197
    while ((p = *q++) != (char *) 0)
6198
      obstack_grow (&multilib_obstack, p, strlen (p));
6199
 
6200
    obstack_1grow (&multilib_obstack, 0);
6201
    multilib_select = XOBFINISH (&multilib_obstack, const char *);
6202
 
6203
    q = multilib_matches_raw;
6204
    while ((p = *q++) != (char *) 0)
6205
      obstack_grow (&multilib_obstack, p, strlen (p));
6206
 
6207
    obstack_1grow (&multilib_obstack, 0);
6208
    multilib_matches = XOBFINISH (&multilib_obstack, const char *);
6209
 
6210
    q = multilib_exclusions_raw;
6211
    while ((p = *q++) != (char *) 0)
6212
      obstack_grow (&multilib_obstack, p, strlen (p));
6213
 
6214
    obstack_1grow (&multilib_obstack, 0);
6215
    multilib_exclusions = XOBFINISH (&multilib_obstack, const char *);
6216
 
6217
    need_space = FALSE;
6218
    for (i = 0; i < ARRAY_SIZE (multilib_defaults_raw); i++)
6219
      {
6220
        if (need_space)
6221
          obstack_1grow (&multilib_obstack, ' ');
6222
        obstack_grow (&multilib_obstack,
6223
                      multilib_defaults_raw[i],
6224
                      strlen (multilib_defaults_raw[i]));
6225
        need_space = TRUE;
6226
      }
6227
 
6228
    obstack_1grow (&multilib_obstack, 0);
6229
    multilib_defaults = XOBFINISH (&multilib_obstack, const char *);
6230
  }
6231
 
6232
#ifdef INIT_ENVIRONMENT
6233
  /* Set up any other necessary machine specific environment variables.  */
6234
  xputenv (INIT_ENVIRONMENT);
6235
#endif
6236
 
6237
  /* Make a table of what switches there are (switches, n_switches).
6238
     Make a table of specified input files (infiles, n_infiles).
6239
     Decode switches that are handled locally.  */
6240
 
6241
  process_command (decoded_options_count, decoded_options);
6242
 
6243
  /* Initialize the vector of specs to just the default.
6244
     This means one element containing 0s, as a terminator.  */
6245
 
6246
  compilers = XNEWVAR (struct compiler, sizeof default_compilers);
6247
  memcpy (compilers, default_compilers, sizeof default_compilers);
6248
  n_compilers = n_default_compilers;
6249
 
6250
  /* Read specs from a file if there is one.  */
6251
 
6252
  machine_suffix = concat (spec_machine, dir_separator_str,
6253
                           spec_version, dir_separator_str, NULL);
6254
  just_machine_suffix = concat (spec_machine, dir_separator_str, NULL);
6255
 
6256
  specs_file = find_a_file (&startfile_prefixes, "specs", R_OK, true);
6257
  /* Read the specs file unless it is a default one.  */
6258
  if (specs_file != 0 && strcmp (specs_file, "specs"))
6259
    read_specs (specs_file, TRUE);
6260
  else
6261
    init_spec ();
6262
 
6263
  /* We need to check standard_exec_prefix/just_machine_suffix/specs
6264
     for any override of as, ld and libraries.  */
6265
  specs_file = (char *) alloca (strlen (standard_exec_prefix)
6266
                       + strlen (just_machine_suffix) + sizeof ("specs"));
6267
 
6268
  strcpy (specs_file, standard_exec_prefix);
6269
  strcat (specs_file, just_machine_suffix);
6270
  strcat (specs_file, "specs");
6271
  if (access (specs_file, R_OK) == 0)
6272
    read_specs (specs_file, TRUE);
6273
 
6274
  /* Process any configure-time defaults specified for the command line
6275
     options, via OPTION_DEFAULT_SPECS.  */
6276
  for (i = 0; i < ARRAY_SIZE (option_default_specs); i++)
6277
    do_option_spec (option_default_specs[i].name,
6278
                    option_default_specs[i].spec);
6279
 
6280
  /* Process DRIVER_SELF_SPECS, adding any new options to the end
6281
     of the command line.  */
6282
 
6283
  for (i = 0; i < ARRAY_SIZE (driver_self_specs); i++)
6284
    do_self_spec (driver_self_specs[i]);
6285
 
6286
  /* If not cross-compiling, look for executables in the standard
6287
     places.  */
6288
  if (*cross_compile == '0')
6289
    {
6290
      if (*md_exec_prefix)
6291
        {
6292
          add_prefix (&exec_prefixes, md_exec_prefix, "GCC",
6293
                      PREFIX_PRIORITY_LAST, 0, 0);
6294
        }
6295
    }
6296
 
6297
  /* Process sysroot_suffix_spec.  */
6298
  if (*sysroot_suffix_spec != 0
6299
      && do_spec_2 (sysroot_suffix_spec) == 0)
6300
    {
6301
      if (VEC_length (const_char_p, argbuf) > 1)
6302
        error ("spec failure: more than one arg to SYSROOT_SUFFIX_SPEC");
6303
      else if (VEC_length (const_char_p, argbuf) == 1)
6304
        target_sysroot_suffix = xstrdup (VEC_last (const_char_p, argbuf));
6305
    }
6306
 
6307
#ifdef HAVE_LD_SYSROOT
6308
  /* Pass the --sysroot option to the linker, if it supports that.  If
6309
     there is a sysroot_suffix_spec, it has already been processed by
6310
     this point, so target_system_root really is the system root we
6311
     should be using.  */
6312
  if (target_system_root)
6313
    {
6314
      obstack_grow (&obstack, "%(sysroot_spec) ", strlen ("%(sysroot_spec) "));
6315
      obstack_grow0 (&obstack, link_spec, strlen (link_spec));
6316
      set_spec ("link", XOBFINISH (&obstack, const char *));
6317
    }
6318
#endif
6319
 
6320
  /* Process sysroot_hdrs_suffix_spec.  */
6321
  if (*sysroot_hdrs_suffix_spec != 0
6322
      && do_spec_2 (sysroot_hdrs_suffix_spec) == 0)
6323
    {
6324
      if (VEC_length (const_char_p, argbuf) > 1)
6325
        error ("spec failure: more than one arg to SYSROOT_HEADERS_SUFFIX_SPEC");
6326
      else if (VEC_length (const_char_p, argbuf) == 1)
6327
        target_sysroot_hdrs_suffix = xstrdup (VEC_last (const_char_p, argbuf));
6328
    }
6329
 
6330
  /* Look for startfiles in the standard places.  */
6331
  if (*startfile_prefix_spec != 0
6332
      && do_spec_2 (startfile_prefix_spec) == 0
6333
      && do_spec_1 (" ", 0, NULL) == 0)
6334
    {
6335
      const char *arg;
6336
      int ndx;
6337
      FOR_EACH_VEC_ELT (const_char_p, argbuf, ndx, arg)
6338
        add_sysrooted_prefix (&startfile_prefixes, arg, "BINUTILS",
6339
                              PREFIX_PRIORITY_LAST, 0, 1);
6340
    }
6341
  /* We should eventually get rid of all these and stick to
6342
     startfile_prefix_spec exclusively.  */
6343
  else if (*cross_compile == '0' || target_system_root)
6344
    {
6345
      if (*md_startfile_prefix)
6346
        add_sysrooted_prefix (&startfile_prefixes, md_startfile_prefix,
6347
                              "GCC", PREFIX_PRIORITY_LAST, 0, 1);
6348
 
6349
      if (*md_startfile_prefix_1)
6350
        add_sysrooted_prefix (&startfile_prefixes, md_startfile_prefix_1,
6351
                              "GCC", PREFIX_PRIORITY_LAST, 0, 1);
6352
 
6353
      /* If standard_startfile_prefix is relative, base it on
6354
         standard_exec_prefix.  This lets us move the installed tree
6355
         as a unit.  If GCC_EXEC_PREFIX is defined, base
6356
         standard_startfile_prefix on that as well.
6357
 
6358
         If the prefix is relative, only search it for native compilers;
6359
         otherwise we will search a directory containing host libraries.  */
6360
      if (IS_ABSOLUTE_PATH (standard_startfile_prefix))
6361
        add_sysrooted_prefix (&startfile_prefixes,
6362
                              standard_startfile_prefix, "BINUTILS",
6363
                              PREFIX_PRIORITY_LAST, 0, 1);
6364
      else if (*cross_compile == '0')
6365
        {
6366
          add_prefix (&startfile_prefixes,
6367
                      concat (gcc_exec_prefix
6368
                              ? gcc_exec_prefix : standard_exec_prefix,
6369
                              machine_suffix,
6370
                              standard_startfile_prefix, NULL),
6371
                      NULL, PREFIX_PRIORITY_LAST, 0, 1);
6372
        }
6373
 
6374
      /* Sysrooted prefixes are relocated because target_system_root is
6375
         also relocated by gcc_exec_prefix.  */
6376
      if (*standard_startfile_prefix_1)
6377
        add_sysrooted_prefix (&startfile_prefixes,
6378
                              standard_startfile_prefix_1, "BINUTILS",
6379
                              PREFIX_PRIORITY_LAST, 0, 1);
6380
      if (*standard_startfile_prefix_2)
6381
        add_sysrooted_prefix (&startfile_prefixes,
6382
                              standard_startfile_prefix_2, "BINUTILS",
6383
                              PREFIX_PRIORITY_LAST, 0, 1);
6384
    }
6385
 
6386
  /* Process any user specified specs in the order given on the command
6387
     line.  */
6388
  for (uptr = user_specs_head; uptr; uptr = uptr->next)
6389
    {
6390
      char *filename = find_a_file (&startfile_prefixes, uptr->filename,
6391
                                    R_OK, true);
6392
      read_specs (filename ? filename : uptr->filename, FALSE);
6393
    }
6394
 
6395
  /* Process any user self specs.  */
6396
  {
6397
    struct spec_list *sl;
6398
    for (sl = specs; sl; sl = sl->next)
6399
      if (sl->name_len == sizeof "self_spec" - 1
6400
          && !strcmp (sl->name, "self_spec"))
6401
        do_self_spec (*sl->ptr_spec);
6402
  }
6403
 
6404
  if (compare_debug)
6405
    {
6406
      enum save_temps save;
6407
 
6408
      if (!compare_debug_second)
6409
        {
6410
          n_switches_debug_check[1] = n_switches;
6411
          n_switches_alloc_debug_check[1] = n_switches_alloc;
6412
          switches_debug_check[1] = XDUPVEC (struct switchstr, switches,
6413
                                             n_switches_alloc);
6414
 
6415
          do_self_spec ("%:compare-debug-self-opt()");
6416
          n_switches_debug_check[0] = n_switches;
6417
          n_switches_alloc_debug_check[0] = n_switches_alloc;
6418
          switches_debug_check[0] = switches;
6419
 
6420
          n_switches = n_switches_debug_check[1];
6421
          n_switches_alloc = n_switches_alloc_debug_check[1];
6422
          switches = switches_debug_check[1];
6423
        }
6424
 
6425
      /* Avoid crash when computing %j in this early.  */
6426
      save = save_temps_flag;
6427
      save_temps_flag = SAVE_TEMPS_NONE;
6428
 
6429
      compare_debug = -compare_debug;
6430
      do_self_spec ("%:compare-debug-self-opt()");
6431
 
6432
      save_temps_flag = save;
6433
 
6434
      if (!compare_debug_second)
6435
        {
6436
          n_switches_debug_check[1] = n_switches;
6437
          n_switches_alloc_debug_check[1] = n_switches_alloc;
6438
          switches_debug_check[1] = switches;
6439
          compare_debug = -compare_debug;
6440
          n_switches = n_switches_debug_check[0];
6441
          n_switches_alloc = n_switches_debug_check[0];
6442
          switches = switches_debug_check[0];
6443
        }
6444
    }
6445
 
6446
 
6447
  /* If we have a GCC_EXEC_PREFIX envvar, modify it for cpp's sake.  */
6448
  if (gcc_exec_prefix)
6449
    gcc_exec_prefix = concat (gcc_exec_prefix, spec_machine, dir_separator_str,
6450
                              spec_version, dir_separator_str, NULL);
6451
 
6452
  /* Now we have the specs.
6453
     Set the `valid' bits for switches that match anything in any spec.  */
6454
 
6455
  validate_all_switches ();
6456
 
6457
  /* Now that we have the switches and the specs, set
6458
     the subdirectory based on the options.  */
6459
  set_multilib_dir ();
6460
 
6461
  /* Set up to remember the pathname of gcc and any options
6462
     needed for collect.  We use argv[0] instead of progname because
6463
     we need the complete pathname.  */
6464
  obstack_init (&collect_obstack);
6465
  obstack_grow (&collect_obstack, "COLLECT_GCC=", sizeof ("COLLECT_GCC=") - 1);
6466
  obstack_grow (&collect_obstack, argv[0], strlen (argv[0]) + 1);
6467
  xputenv (XOBFINISH (&collect_obstack, char *));
6468
 
6469
  /* Set up to remember the pathname of the lto wrapper. */
6470
 
6471
  if (have_c)
6472
    lto_wrapper_file = NULL;
6473
  else
6474
    lto_wrapper_file = find_a_file (&exec_prefixes, "lto-wrapper",
6475
                                    X_OK, false);
6476
  if (lto_wrapper_file)
6477
    {
6478
      lto_wrapper_spec = lto_wrapper_file;
6479
      obstack_init (&collect_obstack);
6480
      obstack_grow (&collect_obstack, "COLLECT_LTO_WRAPPER=",
6481
                    sizeof ("COLLECT_LTO_WRAPPER=") - 1);
6482
      obstack_grow (&collect_obstack, lto_wrapper_spec,
6483
                    strlen (lto_wrapper_spec) + 1);
6484
      xputenv (XOBFINISH (&collect_obstack, char *));
6485
    }
6486
 
6487
  /* Warn about any switches that no pass was interested in.  */
6488
 
6489
  for (i = 0; (int) i < n_switches; i++)
6490
    if (! switches[i].validated)
6491
      error ("unrecognized option %<-%s%>", switches[i].part1);
6492
 
6493
  /* Obey some of the options.  */
6494
 
6495
  if (print_search_dirs)
6496
    {
6497
      printf (_("install: %s%s\n"),
6498
              gcc_exec_prefix ? gcc_exec_prefix : standard_exec_prefix,
6499
              gcc_exec_prefix ? "" : machine_suffix);
6500
      printf (_("programs: %s\n"),
6501
              build_search_list (&exec_prefixes, "", false, false));
6502
      printf (_("libraries: %s\n"),
6503
              build_search_list (&startfile_prefixes, "", false, true));
6504
      return (0);
6505
    }
6506
 
6507
  if (print_file_name)
6508
    {
6509
      printf ("%s\n", find_file (print_file_name));
6510
      return (0);
6511
    }
6512
 
6513
  if (print_prog_name)
6514
    {
6515
      char *newname = find_a_file (&exec_prefixes, print_prog_name, X_OK, 0);
6516
      printf ("%s\n", (newname ? newname : print_prog_name));
6517
      return (0);
6518
    }
6519
 
6520
  if (print_multi_lib)
6521
    {
6522
      print_multilib_info ();
6523
      return (0);
6524
    }
6525
 
6526
  if (print_multi_directory)
6527
    {
6528
      if (multilib_dir == NULL)
6529
        printf (".\n");
6530
      else
6531
        printf ("%s\n", multilib_dir);
6532
      return (0);
6533
    }
6534
 
6535
  if (print_sysroot)
6536
    {
6537
      if (target_system_root)
6538
        {
6539
          if (target_sysroot_suffix)
6540
            printf ("%s%s\n", target_system_root, target_sysroot_suffix);
6541
          else
6542
            printf ("%s\n", target_system_root);
6543
        }
6544
      return (0);
6545
    }
6546
 
6547
  if (print_multi_os_directory)
6548
    {
6549
      if (multilib_os_dir == NULL)
6550
        printf (".\n");
6551
      else
6552
        printf ("%s\n", multilib_os_dir);
6553
      return (0);
6554
    }
6555
 
6556
  if (print_sysroot_headers_suffix)
6557
    {
6558
      if (*sysroot_hdrs_suffix_spec)
6559
        {
6560
          printf("%s\n", (target_sysroot_hdrs_suffix
6561
                          ? target_sysroot_hdrs_suffix
6562
                          : ""));
6563
          return (0);
6564
        }
6565
      else
6566
        /* The error status indicates that only one set of fixed
6567
           headers should be built.  */
6568
        fatal_error ("not configured with sysroot headers suffix");
6569
    }
6570
 
6571
  if (print_help_list)
6572
    {
6573
      display_help ();
6574
 
6575
      if (! verbose_flag)
6576
        {
6577
          printf (_("\nFor bug reporting instructions, please see:\n"));
6578
          printf ("%s.\n", bug_report_url);
6579
 
6580
          return (0);
6581
        }
6582
 
6583
      /* We do not exit here.  Instead we have created a fake input file
6584
         called 'help-dummy' which needs to be compiled, and we pass this
6585
         on the various sub-processes, along with the --help switch.
6586
         Ensure their output appears after ours.  */
6587
      fputc ('\n', stdout);
6588
      fflush (stdout);
6589
    }
6590
 
6591
  if (print_version)
6592
    {
6593
      printf (_("%s %s%s\n"), progname, pkgversion_string,
6594
              version_string);
6595
      printf ("Copyright %s 2012 Free Software Foundation, Inc.\n",
6596
              _("(C)"));
6597
      fputs (_("This is free software; see the source for copying conditions.  There is NO\n\
6598
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n"),
6599
             stdout);
6600
      if (! verbose_flag)
6601
        return 0;
6602
 
6603
      /* We do not exit here. We use the same mechanism of --help to print
6604
         the version of the sub-processes. */
6605
      fputc ('\n', stdout);
6606
      fflush (stdout);
6607
    }
6608
 
6609
  if (verbose_flag)
6610
    {
6611
      int n;
6612
      const char *thrmod;
6613
 
6614
      fnotice (stderr, "Target: %s\n", spec_machine);
6615
      fnotice (stderr, "Configured with: %s\n", configuration_arguments);
6616
 
6617
#ifdef THREAD_MODEL_SPEC
6618
      /* We could have defined THREAD_MODEL_SPEC to "%*" by default,
6619
         but there's no point in doing all this processing just to get
6620
         thread_model back.  */
6621
      obstack_init (&obstack);
6622
      do_spec_1 (THREAD_MODEL_SPEC, 0, thread_model);
6623
      obstack_1grow (&obstack, '\0');
6624
      thrmod = XOBFINISH (&obstack, const char *);
6625
#else
6626
      thrmod = thread_model;
6627
#endif
6628
 
6629
      fnotice (stderr, "Thread model: %s\n", thrmod);
6630
 
6631
      /* compiler_version is truncated at the first space when initialized
6632
         from version string, so truncate version_string at the first space
6633
         before comparing.  */
6634
      for (n = 0; version_string[n]; n++)
6635
        if (version_string[n] == ' ')
6636
          break;
6637
 
6638
      if (! strncmp (version_string, compiler_version, n)
6639
          && compiler_version[n] == 0)
6640
        fnotice (stderr, "gcc version %s %s\n", version_string,
6641
                 pkgversion_string);
6642
      else
6643
        fnotice (stderr, "gcc driver version %s %sexecuting gcc version %s\n",
6644
                 version_string, pkgversion_string, compiler_version);
6645
 
6646
      if (n_infiles == 0)
6647
        return (0);
6648
    }
6649
 
6650
  if (n_infiles == added_libraries)
6651
    fatal_error ("no input files");
6652
 
6653
  if (seen_error ())
6654
    goto out;
6655
 
6656
  /* Make a place to record the compiler output file names
6657
     that correspond to the input files.  */
6658
 
6659
  i = n_infiles;
6660
  i += lang_specific_extra_outfiles;
6661
  outfiles = XCNEWVEC (const char *, i);
6662
 
6663
  /* Record which files were specified explicitly as link input.  */
6664
 
6665
  explicit_link_files = XCNEWVEC (char, n_infiles);
6666
 
6667
  combine_inputs = have_o || flag_wpa;
6668
 
6669
  for (i = 0; (int) i < n_infiles; i++)
6670
    {
6671
      const char *name = infiles[i].name;
6672
      struct compiler *compiler = lookup_compiler (name,
6673
                                                   strlen (name),
6674
                                                   infiles[i].language);
6675
 
6676
      if (compiler && !(compiler->combinable))
6677
        combine_inputs = false;
6678
 
6679
      if (lang_n_infiles > 0 && compiler != input_file_compiler
6680
          && infiles[i].language && infiles[i].language[0] != '*')
6681
        infiles[i].incompiler = compiler;
6682
      else if (compiler)
6683
        {
6684
          lang_n_infiles++;
6685
          input_file_compiler = compiler;
6686
          infiles[i].incompiler = compiler;
6687
        }
6688
      else
6689
        {
6690
          /* Since there is no compiler for this input file, assume it is a
6691
             linker file.  */
6692
          explicit_link_files[i] = 1;
6693
          infiles[i].incompiler = NULL;
6694
        }
6695
      infiles[i].compiled = false;
6696
      infiles[i].preprocessed = false;
6697
    }
6698
 
6699
  if (!combine_inputs && have_c && have_o && lang_n_infiles > 1)
6700
    fatal_error ("cannot specify -o with -c, -S or -E with multiple files");
6701
 
6702
  for (i = 0; (int) i < n_infiles; i++)
6703
    {
6704
      int this_file_error = 0;
6705
 
6706
      /* Tell do_spec what to substitute for %i.  */
6707
 
6708
      input_file_number = i;
6709
      set_input (infiles[i].name);
6710
 
6711
      if (infiles[i].compiled)
6712
        continue;
6713
 
6714
      /* Use the same thing in %o, unless cp->spec says otherwise.  */
6715
 
6716
      outfiles[i] = gcc_input_filename;
6717
 
6718
      /* Figure out which compiler from the file's suffix.  */
6719
 
6720
      input_file_compiler
6721
        = lookup_compiler (infiles[i].name, input_filename_length,
6722
                           infiles[i].language);
6723
 
6724
      if (input_file_compiler)
6725
        {
6726
          /* Ok, we found an applicable compiler.  Run its spec.  */
6727
 
6728
          if (input_file_compiler->spec[0] == '#')
6729
            {
6730
              error ("%s: %s compiler not installed on this system",
6731
                     gcc_input_filename, &input_file_compiler->spec[1]);
6732
              this_file_error = 1;
6733
            }
6734
          else
6735
            {
6736
              if (compare_debug)
6737
                {
6738
                  free (debug_check_temp_file[0]);
6739
                  debug_check_temp_file[0] = NULL;
6740
 
6741
                  free (debug_check_temp_file[1]);
6742
                  debug_check_temp_file[1] = NULL;
6743
                }
6744
 
6745
              value = do_spec (input_file_compiler->spec);
6746
              infiles[i].compiled = true;
6747
              if (value < 0)
6748
                this_file_error = 1;
6749
              else if (compare_debug && debug_check_temp_file[0])
6750
                {
6751
                  if (verbose_flag)
6752
                    inform (0, "recompiling with -fcompare-debug");
6753
 
6754
                  compare_debug = -compare_debug;
6755
                  n_switches = n_switches_debug_check[1];
6756
                  n_switches_alloc = n_switches_alloc_debug_check[1];
6757
                  switches = switches_debug_check[1];
6758
 
6759
                  value = do_spec (input_file_compiler->spec);
6760
 
6761
                  compare_debug = -compare_debug;
6762
                  n_switches = n_switches_debug_check[0];
6763
                  n_switches_alloc = n_switches_alloc_debug_check[0];
6764
                  switches = switches_debug_check[0];
6765
 
6766
                  if (value < 0)
6767
                    {
6768
                      error ("during -fcompare-debug recompilation");
6769
                      this_file_error = 1;
6770
                    }
6771
 
6772
                  gcc_assert (debug_check_temp_file[1]
6773
                              && filename_cmp (debug_check_temp_file[0],
6774
                                               debug_check_temp_file[1]));
6775
 
6776
                  if (verbose_flag)
6777
                    inform (0, "comparing final insns dumps");
6778
 
6779
                  if (compare_files (debug_check_temp_file))
6780
                    this_file_error = 1;
6781
                }
6782
 
6783
              if (compare_debug)
6784
                {
6785
                  free (debug_check_temp_file[0]);
6786
                  debug_check_temp_file[0] = NULL;
6787
 
6788
                  free (debug_check_temp_file[1]);
6789
                  debug_check_temp_file[1] = NULL;
6790
                }
6791
            }
6792
        }
6793
 
6794
      /* If this file's name does not contain a recognized suffix,
6795
         record it as explicit linker input.  */
6796
 
6797
      else
6798
        explicit_link_files[i] = 1;
6799
 
6800
      /* Clear the delete-on-failure queue, deleting the files in it
6801
         if this compilation failed.  */
6802
 
6803
      if (this_file_error)
6804
        {
6805
          delete_failure_queue ();
6806
          errorcount++;
6807
        }
6808
      /* If this compilation succeeded, don't delete those files later.  */
6809
      clear_failure_queue ();
6810
    }
6811
 
6812
  /* Reset the input file name to the first compile/object file name, for use
6813
     with %b in LINK_SPEC. We use the first input file that we can find
6814
     a compiler to compile it instead of using infiles.language since for
6815
     languages other than C we use aliases that we then lookup later.  */
6816
  if (n_infiles > 0)
6817
    {
6818
      int i;
6819
 
6820
      for (i = 0; i < n_infiles ; i++)
6821
        if (infiles[i].incompiler
6822
            || (infiles[i].language && infiles[i].language[0] != '*'))
6823
          {
6824
            set_input (infiles[i].name);
6825
            break;
6826
          }
6827
    }
6828
 
6829
  if (!seen_error ())
6830
    {
6831
      /* Make sure INPUT_FILE_NUMBER points to first available open
6832
         slot.  */
6833
      input_file_number = n_infiles;
6834
      if (lang_specific_pre_link ())
6835
        errorcount++;
6836
    }
6837
 
6838
  /* Determine if there are any linker input files.  */
6839
  num_linker_inputs = 0;
6840
  for (i = 0; (int) i < n_infiles; i++)
6841
    if (explicit_link_files[i] || outfiles[i] != NULL)
6842
      num_linker_inputs++;
6843
 
6844
  /* Run ld to link all the compiler output files.  */
6845
 
6846
  if (num_linker_inputs > 0 && !seen_error () && print_subprocess_help < 2)
6847
    {
6848
      int tmp = execution_count;
6849
 
6850
      if (! have_c)
6851
        {
6852
#if HAVE_LTO_PLUGIN > 0
6853
#if HAVE_LTO_PLUGIN == 2
6854
          const char *fno_use_linker_plugin = "fno-use-linker-plugin";
6855
#else
6856
          const char *fuse_linker_plugin = "fuse-linker-plugin";
6857
#endif
6858
#endif
6859
 
6860
          /* We'll use ld if we can't find collect2.  */
6861
          if (! strcmp (linker_name_spec, "collect2"))
6862
            {
6863
              char *s = find_a_file (&exec_prefixes, "collect2", X_OK, false);
6864
              if (s == NULL)
6865
                linker_name_spec = "ld";
6866
            }
6867
 
6868
#if HAVE_LTO_PLUGIN > 0
6869
#if HAVE_LTO_PLUGIN == 2
6870
          if (!switch_matches (fno_use_linker_plugin,
6871
                               fno_use_linker_plugin
6872
                               + strlen (fno_use_linker_plugin), 0))
6873
#else
6874
          if (switch_matches (fuse_linker_plugin,
6875
                              fuse_linker_plugin
6876
                              + strlen (fuse_linker_plugin), 0))
6877
#endif
6878
            {
6879
              linker_plugin_file_spec = find_a_file (&exec_prefixes,
6880
                                                     LTOPLUGINSONAME, R_OK,
6881
                                                     false);
6882
              if (!linker_plugin_file_spec)
6883
                fatal_error ("-fuse-linker-plugin, but %s not found",
6884
                             LTOPLUGINSONAME);
6885
            }
6886
#endif
6887
          lto_gcc_spec = argv[0];
6888
        }
6889
 
6890
      /* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
6891
         for collect.  */
6892
      putenv_from_prefixes (&exec_prefixes, "COMPILER_PATH", false);
6893
      putenv_from_prefixes (&startfile_prefixes, LIBRARY_PATH_ENV, true);
6894
 
6895
      if (print_subprocess_help == 1)
6896
        {
6897
          printf (_("\nLinker options\n==============\n\n"));
6898
          printf (_("Use \"-Wl,OPTION\" to pass \"OPTION\""
6899
                    " to the linker.\n\n"));
6900
          fflush (stdout);
6901
        }
6902
      value = do_spec (link_command_spec);
6903
      if (value < 0)
6904
        errorcount = 1;
6905
      linker_was_run = (tmp != execution_count);
6906
    }
6907
 
6908
  /* If options said don't run linker,
6909
     complain about input files to be given to the linker.  */
6910
 
6911
  if (! linker_was_run && !seen_error ())
6912
    for (i = 0; (int) i < n_infiles; i++)
6913
      if (explicit_link_files[i]
6914
          && !(infiles[i].language && infiles[i].language[0] == '*'))
6915
        warning (0, "%s: linker input file unused because linking not done",
6916
                 outfiles[i]);
6917
 
6918
  /* Delete some or all of the temporary files we made.  */
6919
 
6920
  if (seen_error ())
6921
    delete_failure_queue ();
6922
  delete_temp_files ();
6923
 
6924
  if (print_help_list)
6925
    {
6926
      printf (("\nFor bug reporting instructions, please see:\n"));
6927
      printf ("%s\n", bug_report_url);
6928
    }
6929
 
6930
 out:
6931
  return (signal_count != 0 ? 2
6932
          : seen_error () ? (pass_exit_codes ? greatest_status : 1)
6933
          : 0);
6934
}
6935
 
6936
/* Find the proper compilation spec for the file name NAME,
6937
   whose length is LENGTH.  LANGUAGE is the specified language,
6938
   or 0 if this file is to be passed to the linker.  */
6939
 
6940
static struct compiler *
6941
lookup_compiler (const char *name, size_t length, const char *language)
6942
{
6943
  struct compiler *cp;
6944
 
6945
  /* If this was specified by the user to be a linker input, indicate that.  */
6946
  if (language != 0 && language[0] == '*')
6947
    return 0;
6948
 
6949
  /* Otherwise, look for the language, if one is spec'd.  */
6950
  if (language != 0)
6951
    {
6952
      for (cp = compilers + n_compilers - 1; cp >= compilers; cp--)
6953
        if (cp->suffix[0] == '@' && !strcmp (cp->suffix + 1, language))
6954
          return cp;
6955
 
6956
      error ("language %s not recognized", language);
6957
      return 0;
6958
    }
6959
 
6960
  /* Look for a suffix.  */
6961
  for (cp = compilers + n_compilers - 1; cp >= compilers; cp--)
6962
    {
6963
      if (/* The suffix `-' matches only the file name `-'.  */
6964
          (!strcmp (cp->suffix, "-") && !strcmp (name, "-"))
6965
          || (strlen (cp->suffix) < length
6966
              /* See if the suffix matches the end of NAME.  */
6967
              && !strcmp (cp->suffix,
6968
                          name + length - strlen (cp->suffix))
6969
         ))
6970
        break;
6971
    }
6972
 
6973
#if defined (OS2) ||defined (HAVE_DOS_BASED_FILE_SYSTEM)
6974
  /* Look again, but case-insensitively this time.  */
6975
  if (cp < compilers)
6976
    for (cp = compilers + n_compilers - 1; cp >= compilers; cp--)
6977
      {
6978
        if (/* The suffix `-' matches only the file name `-'.  */
6979
            (!strcmp (cp->suffix, "-") && !strcmp (name, "-"))
6980
            || (strlen (cp->suffix) < length
6981
                /* See if the suffix matches the end of NAME.  */
6982
                && ((!strcmp (cp->suffix,
6983
                             name + length - strlen (cp->suffix))
6984
                     || !strpbrk (cp->suffix, "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
6985
                    && !strcasecmp (cp->suffix,
6986
                                    name + length - strlen (cp->suffix)))
6987
           ))
6988
          break;
6989
      }
6990
#endif
6991
 
6992
  if (cp >= compilers)
6993
    {
6994
      if (cp->spec[0] != '@')
6995
        /* A non-alias entry: return it.  */
6996
        return cp;
6997
 
6998
      /* An alias entry maps a suffix to a language.
6999
         Search for the language; pass 0 for NAME and LENGTH
7000
         to avoid infinite recursion if language not found.  */
7001
      return lookup_compiler (NULL, 0, cp->spec + 1);
7002
    }
7003
  return 0;
7004
}
7005
 
7006
static char *
7007
save_string (const char *s, int len)
7008
{
7009
  char *result = XNEWVEC (char, len + 1);
7010
 
7011
  memcpy (result, s, len);
7012
  result[len] = 0;
7013
  return result;
7014
}
7015
 
7016
void
7017
pfatal_with_name (const char *name)
7018
{
7019
  perror_with_name (name);
7020
  delete_temp_files ();
7021
  exit (1);
7022
}
7023
 
7024
static void
7025
perror_with_name (const char *name)
7026
{
7027
  error ("%s: %m", name);
7028
}
7029
 
7030
static inline void
7031
validate_switches_from_spec (const char *spec)
7032
{
7033
  const char *p = spec;
7034
  char c;
7035
  while ((c = *p++))
7036
    if (c == '%' && (*p == '{' || *p == '<' || (*p == 'W' && *++p == '{')))
7037
      /* We have a switch spec.  */
7038
      p = validate_switches (p + 1);
7039
}
7040
 
7041
static void
7042
validate_all_switches (void)
7043
{
7044
  struct compiler *comp;
7045
  struct spec_list *spec;
7046
 
7047
  for (comp = compilers; comp->spec; comp++)
7048
    validate_switches_from_spec (comp->spec);
7049
 
7050
  /* Look through the linked list of specs read from the specs file.  */
7051
  for (spec = specs; spec; spec = spec->next)
7052
    validate_switches_from_spec (*spec->ptr_spec);
7053
 
7054
  validate_switches_from_spec (link_command_spec);
7055
}
7056
 
7057
/* Look at the switch-name that comes after START
7058
   and mark as valid all supplied switches that match it.  */
7059
 
7060
static const char *
7061
validate_switches (const char *start)
7062
{
7063
  const char *p = start;
7064
  const char *atom;
7065
  size_t len;
7066
  int i;
7067
  bool suffix = false;
7068
  bool starred = false;
7069
 
7070
#define SKIP_WHITE() do { while (*p == ' ' || *p == '\t') p++; } while (0)
7071
 
7072
next_member:
7073
  SKIP_WHITE ();
7074
 
7075
  if (*p == '!')
7076
    p++;
7077
 
7078
  SKIP_WHITE ();
7079
  if (*p == '.' || *p == ',')
7080
    suffix = true, p++;
7081
 
7082
  atom = p;
7083
  while (ISIDNUM (*p) || *p == '-' || *p == '+' || *p == '='
7084
         || *p == ',' || *p == '.' || *p == '@')
7085
    p++;
7086
  len = p - atom;
7087
 
7088
  if (*p == '*')
7089
    starred = true, p++;
7090
 
7091
  SKIP_WHITE ();
7092
 
7093
  if (!suffix)
7094
    {
7095
      /* Mark all matching switches as valid.  */
7096
      for (i = 0; i < n_switches; i++)
7097
        if (!strncmp (switches[i].part1, atom, len)
7098
            && (starred || switches[i].part1[len] == 0))
7099
          switches[i].validated = 1;
7100
    }
7101
 
7102
  if (*p) p++;
7103
  if (*p && (p[-1] == '|' || p[-1] == '&'))
7104
    goto next_member;
7105
 
7106
  if (*p && p[-1] == ':')
7107
    {
7108
      while (*p && *p != ';' && *p != '}')
7109
        {
7110
          if (*p == '%')
7111
            {
7112
              p++;
7113
              if (*p == '{' || *p == '<')
7114
                p = validate_switches (p+1);
7115
              else if (p[0] == 'W' && p[1] == '{')
7116
                p = validate_switches (p+2);
7117
            }
7118
          else
7119
            p++;
7120
        }
7121
 
7122
      if (*p) p++;
7123
      if (*p && p[-1] == ';')
7124
        goto next_member;
7125
    }
7126
 
7127
  return p;
7128
#undef SKIP_WHITE
7129
}
7130
 
7131
struct mdswitchstr
7132
{
7133
  const char *str;
7134
  int len;
7135
};
7136
 
7137
static struct mdswitchstr *mdswitches;
7138
static int n_mdswitches;
7139
 
7140
/* Check whether a particular argument was used.  The first time we
7141
   canonicalize the switches to keep only the ones we care about.  */
7142
 
7143
static int
7144
used_arg (const char *p, int len)
7145
{
7146
  struct mswitchstr
7147
  {
7148
    const char *str;
7149
    const char *replace;
7150
    int len;
7151
    int rep_len;
7152
  };
7153
 
7154
  static struct mswitchstr *mswitches;
7155
  static int n_mswitches;
7156
  int i, j;
7157
 
7158
  if (!mswitches)
7159
    {
7160
      struct mswitchstr *matches;
7161
      const char *q;
7162
      int cnt = 0;
7163
 
7164
      /* Break multilib_matches into the component strings of string
7165
         and replacement string.  */
7166
      for (q = multilib_matches; *q != '\0'; q++)
7167
        if (*q == ';')
7168
          cnt++;
7169
 
7170
      matches
7171
        = (struct mswitchstr *) alloca ((sizeof (struct mswitchstr)) * cnt);
7172
      i = 0;
7173
      q = multilib_matches;
7174
      while (*q != '\0')
7175
        {
7176
          matches[i].str = q;
7177
          while (*q != ' ')
7178
            {
7179
              if (*q == '\0')
7180
                {
7181
                invalid_matches:
7182
                  fatal_error ("multilib spec %qs is invalid",
7183
                               multilib_matches);
7184
                }
7185
              q++;
7186
            }
7187
          matches[i].len = q - matches[i].str;
7188
 
7189
          matches[i].replace = ++q;
7190
          while (*q != ';' && *q != '\0')
7191
            {
7192
              if (*q == ' ')
7193
                goto invalid_matches;
7194
              q++;
7195
            }
7196
          matches[i].rep_len = q - matches[i].replace;
7197
          i++;
7198
          if (*q == ';')
7199
            q++;
7200
        }
7201
 
7202
      /* Now build a list of the replacement string for switches that we care
7203
         about.  Make sure we allocate at least one entry.  This prevents
7204
         xmalloc from calling fatal, and prevents us from re-executing this
7205
         block of code.  */
7206
      mswitches
7207
        = XNEWVEC (struct mswitchstr, n_mdswitches + (n_switches ? n_switches : 1));
7208
      for (i = 0; i < n_switches; i++)
7209
        if ((switches[i].live_cond & SWITCH_IGNORE) == 0)
7210
          {
7211
            int xlen = strlen (switches[i].part1);
7212
            for (j = 0; j < cnt; j++)
7213
              if (xlen == matches[j].len
7214
                  && ! strncmp (switches[i].part1, matches[j].str, xlen))
7215
                {
7216
                  mswitches[n_mswitches].str = matches[j].replace;
7217
                  mswitches[n_mswitches].len = matches[j].rep_len;
7218
                  mswitches[n_mswitches].replace = (char *) 0;
7219
                  mswitches[n_mswitches].rep_len = 0;
7220
                  n_mswitches++;
7221
                  break;
7222
                }
7223
          }
7224
 
7225
      /* Add MULTILIB_DEFAULTS switches too, as long as they were not present
7226
         on the command line nor any options mutually incompatible with
7227
         them.  */
7228
      for (i = 0; i < n_mdswitches; i++)
7229
        {
7230
          const char *r;
7231
 
7232
          for (q = multilib_options; *q != '\0'; q++)
7233
            {
7234
              while (*q == ' ')
7235
                q++;
7236
 
7237
              r = q;
7238
              while (strncmp (q, mdswitches[i].str, mdswitches[i].len) != 0
7239
                     || strchr (" /", q[mdswitches[i].len]) == NULL)
7240
                {
7241
                  while (*q != ' ' && *q != '/' && *q != '\0')
7242
                    q++;
7243
                  if (*q != '/')
7244
                    break;
7245
                  q++;
7246
                }
7247
 
7248
              if (*q != ' ' && *q != '\0')
7249
                {
7250
                  while (*r != ' ' && *r != '\0')
7251
                    {
7252
                      q = r;
7253
                      while (*q != ' ' && *q != '/' && *q != '\0')
7254
                        q++;
7255
 
7256
                      if (used_arg (r, q - r))
7257
                        break;
7258
 
7259
                      if (*q != '/')
7260
                        {
7261
                          mswitches[n_mswitches].str = mdswitches[i].str;
7262
                          mswitches[n_mswitches].len = mdswitches[i].len;
7263
                          mswitches[n_mswitches].replace = (char *) 0;
7264
                          mswitches[n_mswitches].rep_len = 0;
7265
                          n_mswitches++;
7266
                          break;
7267
                        }
7268
 
7269
                      r = q + 1;
7270
                    }
7271
                  break;
7272
                }
7273
            }
7274
        }
7275
    }
7276
 
7277
  for (i = 0; i < n_mswitches; i++)
7278
    if (len == mswitches[i].len && ! strncmp (p, mswitches[i].str, len))
7279
      return 1;
7280
 
7281
  return 0;
7282
}
7283
 
7284
static int
7285
default_arg (const char *p, int len)
7286
{
7287
  int i;
7288
 
7289
  for (i = 0; i < n_mdswitches; i++)
7290
    if (len == mdswitches[i].len && ! strncmp (p, mdswitches[i].str, len))
7291
      return 1;
7292
 
7293
  return 0;
7294
}
7295
 
7296
/* Work out the subdirectory to use based on the options. The format of
7297
   multilib_select is a list of elements. Each element is a subdirectory
7298
   name followed by a list of options followed by a semicolon. The format
7299
   of multilib_exclusions is the same, but without the preceding
7300
   directory. First gcc will check the exclusions, if none of the options
7301
   beginning with an exclamation point are present, and all of the other
7302
   options are present, then we will ignore this completely. Passing
7303
   that, gcc will consider each multilib_select in turn using the same
7304
   rules for matching the options. If a match is found, that subdirectory
7305
   will be used.  */
7306
 
7307
static void
7308
set_multilib_dir (void)
7309
{
7310
  const char *p;
7311
  unsigned int this_path_len;
7312
  const char *this_path, *this_arg;
7313
  const char *start, *end;
7314
  int not_arg;
7315
  int ok, ndfltok, first;
7316
 
7317
  n_mdswitches = 0;
7318
  start = multilib_defaults;
7319
  while (*start == ' ' || *start == '\t')
7320
    start++;
7321
  while (*start != '\0')
7322
    {
7323
      n_mdswitches++;
7324
      while (*start != ' ' && *start != '\t' && *start != '\0')
7325
        start++;
7326
      while (*start == ' ' || *start == '\t')
7327
        start++;
7328
    }
7329
 
7330
  if (n_mdswitches)
7331
    {
7332
      int i = 0;
7333
 
7334
      mdswitches = XNEWVEC (struct mdswitchstr, n_mdswitches);
7335
      for (start = multilib_defaults; *start != '\0'; start = end + 1)
7336
        {
7337
          while (*start == ' ' || *start == '\t')
7338
            start++;
7339
 
7340
          if (*start == '\0')
7341
            break;
7342
 
7343
          for (end = start + 1;
7344
               *end != ' ' && *end != '\t' && *end != '\0'; end++)
7345
            ;
7346
 
7347
          obstack_grow (&multilib_obstack, start, end - start);
7348
          obstack_1grow (&multilib_obstack, 0);
7349
          mdswitches[i].str = XOBFINISH (&multilib_obstack, const char *);
7350
          mdswitches[i++].len = end - start;
7351
 
7352
          if (*end == '\0')
7353
            break;
7354
        }
7355
    }
7356
 
7357
  p = multilib_exclusions;
7358
  while (*p != '\0')
7359
    {
7360
      /* Ignore newlines.  */
7361
      if (*p == '\n')
7362
        {
7363
          ++p;
7364
          continue;
7365
        }
7366
 
7367
      /* Check the arguments.  */
7368
      ok = 1;
7369
      while (*p != ';')
7370
        {
7371
          if (*p == '\0')
7372
            {
7373
            invalid_exclusions:
7374
              fatal_error ("multilib exclusions %qs is invalid",
7375
                           multilib_exclusions);
7376
            }
7377
 
7378
          if (! ok)
7379
            {
7380
              ++p;
7381
              continue;
7382
            }
7383
 
7384
          this_arg = p;
7385
          while (*p != ' ' && *p != ';')
7386
            {
7387
              if (*p == '\0')
7388
                goto invalid_exclusions;
7389
              ++p;
7390
            }
7391
 
7392
          if (*this_arg != '!')
7393
            not_arg = 0;
7394
          else
7395
            {
7396
              not_arg = 1;
7397
              ++this_arg;
7398
            }
7399
 
7400
          ok = used_arg (this_arg, p - this_arg);
7401
          if (not_arg)
7402
            ok = ! ok;
7403
 
7404
          if (*p == ' ')
7405
            ++p;
7406
        }
7407
 
7408
      if (ok)
7409
        return;
7410
 
7411
      ++p;
7412
    }
7413
 
7414
  first = 1;
7415
  p = multilib_select;
7416
  while (*p != '\0')
7417
    {
7418
      /* Ignore newlines.  */
7419
      if (*p == '\n')
7420
        {
7421
          ++p;
7422
          continue;
7423
        }
7424
 
7425
      /* Get the initial path.  */
7426
      this_path = p;
7427
      while (*p != ' ')
7428
        {
7429
          if (*p == '\0')
7430
            {
7431
            invalid_select:
7432
              fatal_error ("multilib select %qs is invalid",
7433
                           multilib_select);
7434
            }
7435
          ++p;
7436
        }
7437
      this_path_len = p - this_path;
7438
 
7439
      /* Check the arguments.  */
7440
      ok = 1;
7441
      ndfltok = 1;
7442
      ++p;
7443
      while (*p != ';')
7444
        {
7445
          if (*p == '\0')
7446
            goto invalid_select;
7447
 
7448
          if (! ok)
7449
            {
7450
              ++p;
7451
              continue;
7452
            }
7453
 
7454
          this_arg = p;
7455
          while (*p != ' ' && *p != ';')
7456
            {
7457
              if (*p == '\0')
7458
                goto invalid_select;
7459
              ++p;
7460
            }
7461
 
7462
          if (*this_arg != '!')
7463
            not_arg = 0;
7464
          else
7465
            {
7466
              not_arg = 1;
7467
              ++this_arg;
7468
            }
7469
 
7470
          /* If this is a default argument, we can just ignore it.
7471
             This is true even if this_arg begins with '!'.  Beginning
7472
             with '!' does not mean that this argument is necessarily
7473
             inappropriate for this library: it merely means that
7474
             there is a more specific library which uses this
7475
             argument.  If this argument is a default, we need not
7476
             consider that more specific library.  */
7477
          ok = used_arg (this_arg, p - this_arg);
7478
          if (not_arg)
7479
            ok = ! ok;
7480
 
7481
          if (! ok)
7482
            ndfltok = 0;
7483
 
7484
          if (default_arg (this_arg, p - this_arg))
7485
            ok = 1;
7486
 
7487
          if (*p == ' ')
7488
            ++p;
7489
        }
7490
 
7491
      if (ok && first)
7492
        {
7493
          if (this_path_len != 1
7494
              || this_path[0] != '.')
7495
            {
7496
              char *new_multilib_dir = XNEWVEC (char, this_path_len + 1);
7497
              char *q;
7498
 
7499
              strncpy (new_multilib_dir, this_path, this_path_len);
7500
              new_multilib_dir[this_path_len] = '\0';
7501
              q = strchr (new_multilib_dir, ':');
7502
              if (q != NULL)
7503
                *q = '\0';
7504
              multilib_dir = new_multilib_dir;
7505
            }
7506
          first = 0;
7507
        }
7508
 
7509
      if (ndfltok)
7510
        {
7511
          const char *q = this_path, *end = this_path + this_path_len;
7512
 
7513
          while (q < end && *q != ':')
7514
            q++;
7515
          if (q < end)
7516
            {
7517
              char *new_multilib_os_dir = XNEWVEC (char, end - q);
7518
              memcpy (new_multilib_os_dir, q + 1, end - q - 1);
7519
              new_multilib_os_dir[end - q - 1] = '\0';
7520
              multilib_os_dir = new_multilib_os_dir;
7521
              break;
7522
            }
7523
        }
7524
 
7525
      ++p;
7526
    }
7527
 
7528
  if (multilib_dir == NULL && multilib_os_dir != NULL
7529
      && strcmp (multilib_os_dir, ".") == 0)
7530
    {
7531
      free (CONST_CAST (char *, multilib_os_dir));
7532
      multilib_os_dir = NULL;
7533
    }
7534
  else if (multilib_dir != NULL && multilib_os_dir == NULL)
7535
    multilib_os_dir = multilib_dir;
7536
}
7537
 
7538
/* Print out the multiple library subdirectory selection
7539
   information.  This prints out a series of lines.  Each line looks
7540
   like SUBDIRECTORY;@OPTION@OPTION, with as many options as is
7541
   required.  Only the desired options are printed out, the negative
7542
   matches.  The options are print without a leading dash.  There are
7543
   no spaces to make it easy to use the information in the shell.
7544
   Each subdirectory is printed only once.  This assumes the ordering
7545
   generated by the genmultilib script. Also, we leave out ones that match
7546
   the exclusions.  */
7547
 
7548
static void
7549
print_multilib_info (void)
7550
{
7551
  const char *p = multilib_select;
7552
  const char *last_path = 0, *this_path;
7553
  int skip;
7554
  unsigned int last_path_len = 0;
7555
 
7556
  while (*p != '\0')
7557
    {
7558
      skip = 0;
7559
      /* Ignore newlines.  */
7560
      if (*p == '\n')
7561
        {
7562
          ++p;
7563
          continue;
7564
        }
7565
 
7566
      /* Get the initial path.  */
7567
      this_path = p;
7568
      while (*p != ' ')
7569
        {
7570
          if (*p == '\0')
7571
            {
7572
            invalid_select:
7573
              fatal_error ("multilib select %qs is invalid", multilib_select);
7574
            }
7575
 
7576
          ++p;
7577
        }
7578
 
7579
      /* When --disable-multilib was used but target defines
7580
         MULTILIB_OSDIRNAMES, entries starting with .: are there just
7581
         to find multilib_os_dir, so skip them from output.  */
7582
      if (this_path[0] == '.' && this_path[1] == ':')
7583
        skip = 1;
7584
 
7585
      /* Check for matches with the multilib_exclusions. We don't bother
7586
         with the '!' in either list. If any of the exclusion rules match
7587
         all of its options with the select rule, we skip it.  */
7588
      {
7589
        const char *e = multilib_exclusions;
7590
        const char *this_arg;
7591
 
7592
        while (*e != '\0')
7593
          {
7594
            int m = 1;
7595
            /* Ignore newlines.  */
7596
            if (*e == '\n')
7597
              {
7598
                ++e;
7599
                continue;
7600
              }
7601
 
7602
            /* Check the arguments.  */
7603
            while (*e != ';')
7604
              {
7605
                const char *q;
7606
                int mp = 0;
7607
 
7608
                if (*e == '\0')
7609
                  {
7610
                  invalid_exclusion:
7611
                    fatal_error ("multilib exclusion %qs is invalid",
7612
                                 multilib_exclusions);
7613
                  }
7614
 
7615
                if (! m)
7616
                  {
7617
                    ++e;
7618
                    continue;
7619
                  }
7620
 
7621
                this_arg = e;
7622
 
7623
                while (*e != ' ' && *e != ';')
7624
                  {
7625
                    if (*e == '\0')
7626
                      goto invalid_exclusion;
7627
                    ++e;
7628
                  }
7629
 
7630
                q = p + 1;
7631
                while (*q != ';')
7632
                  {
7633
                    const char *arg;
7634
                    int len = e - this_arg;
7635
 
7636
                    if (*q == '\0')
7637
                      goto invalid_select;
7638
 
7639
                    arg = q;
7640
 
7641
                    while (*q != ' ' && *q != ';')
7642
                      {
7643
                        if (*q == '\0')
7644
                          goto invalid_select;
7645
                        ++q;
7646
                      }
7647
 
7648
                    if (! strncmp (arg, this_arg,
7649
                                   (len < q - arg) ? q - arg : len)
7650
                        || default_arg (this_arg, e - this_arg))
7651
                      {
7652
                        mp = 1;
7653
                        break;
7654
                      }
7655
 
7656
                    if (*q == ' ')
7657
                      ++q;
7658
                  }
7659
 
7660
                if (! mp)
7661
                  m = 0;
7662
 
7663
                if (*e == ' ')
7664
                  ++e;
7665
              }
7666
 
7667
            if (m)
7668
              {
7669
                skip = 1;
7670
                break;
7671
              }
7672
 
7673
            if (*e != '\0')
7674
              ++e;
7675
          }
7676
      }
7677
 
7678
      if (! skip)
7679
        {
7680
          /* If this is a duplicate, skip it.  */
7681
          skip = (last_path != 0
7682
                  && (unsigned int) (p - this_path) == last_path_len
7683
                  && ! filename_ncmp (last_path, this_path, last_path_len));
7684
 
7685
          last_path = this_path;
7686
          last_path_len = p - this_path;
7687
        }
7688
 
7689
      /* If this directory requires any default arguments, we can skip
7690
         it.  We will already have printed a directory identical to
7691
         this one which does not require that default argument.  */
7692
      if (! skip)
7693
        {
7694
          const char *q;
7695
 
7696
          q = p + 1;
7697
          while (*q != ';')
7698
            {
7699
              const char *arg;
7700
 
7701
              if (*q == '\0')
7702
                goto invalid_select;
7703
 
7704
              if (*q == '!')
7705
                arg = NULL;
7706
              else
7707
                arg = q;
7708
 
7709
              while (*q != ' ' && *q != ';')
7710
                {
7711
                  if (*q == '\0')
7712
                    goto invalid_select;
7713
                  ++q;
7714
                }
7715
 
7716
              if (arg != NULL
7717
                  && default_arg (arg, q - arg))
7718
                {
7719
                  skip = 1;
7720
                  break;
7721
                }
7722
 
7723
              if (*q == ' ')
7724
                ++q;
7725
            }
7726
        }
7727
 
7728
      if (! skip)
7729
        {
7730
          const char *p1;
7731
 
7732
          for (p1 = last_path; p1 < p && *p1 != ':'; p1++)
7733
            putchar (*p1);
7734
          putchar (';');
7735
        }
7736
 
7737
      ++p;
7738
      while (*p != ';')
7739
        {
7740
          int use_arg;
7741
 
7742
          if (*p == '\0')
7743
            goto invalid_select;
7744
 
7745
          if (skip)
7746
            {
7747
              ++p;
7748
              continue;
7749
            }
7750
 
7751
          use_arg = *p != '!';
7752
 
7753
          if (use_arg)
7754
            putchar ('@');
7755
 
7756
          while (*p != ' ' && *p != ';')
7757
            {
7758
              if (*p == '\0')
7759
                goto invalid_select;
7760
              if (use_arg)
7761
                putchar (*p);
7762
              ++p;
7763
            }
7764
 
7765
          if (*p == ' ')
7766
            ++p;
7767
        }
7768
 
7769
      if (! skip)
7770
        {
7771
          /* If there are extra options, print them now.  */
7772
          if (multilib_extra && *multilib_extra)
7773
            {
7774
              int print_at = TRUE;
7775
              const char *q;
7776
 
7777
              for (q = multilib_extra; *q != '\0'; q++)
7778
                {
7779
                  if (*q == ' ')
7780
                    print_at = TRUE;
7781
                  else
7782
                    {
7783
                      if (print_at)
7784
                        putchar ('@');
7785
                      putchar (*q);
7786
                      print_at = FALSE;
7787
                    }
7788
                }
7789
            }
7790
 
7791
          putchar ('\n');
7792
        }
7793
 
7794
      ++p;
7795
    }
7796
}
7797
 
7798
/* getenv built-in spec function.
7799
 
7800
   Returns the value of the environment variable given by its first
7801
   argument, concatenated with the second argument.  If the
7802
   environment variable is not defined, a fatal error is issued.  */
7803
 
7804
static const char *
7805
getenv_spec_function (int argc, const char **argv)
7806
{
7807
  char *value;
7808
  char *result;
7809
  char *ptr;
7810
  size_t len;
7811
 
7812
  if (argc != 2)
7813
    return NULL;
7814
 
7815
  value = getenv (argv[0]);
7816
  if (!value)
7817
    fatal_error ("environment variable %qs not defined", argv[0]);
7818
 
7819
  /* We have to escape every character of the environment variable so
7820
     they are not interpreted as active spec characters.  A
7821
     particularly painful case is when we are reading a variable
7822
     holding a windows path complete with \ separators.  */
7823
  len = strlen (value) * 2 + strlen (argv[1]) + 1;
7824
  result = XNEWVAR (char, len);
7825
  for (ptr = result; *value; ptr += 2)
7826
    {
7827
      ptr[0] = '\\';
7828
      ptr[1] = *value++;
7829
    }
7830
 
7831
  strcpy (ptr, argv[1]);
7832
 
7833
  return result;
7834
}
7835
 
7836
/* if-exists built-in spec function.
7837
 
7838
   Checks to see if the file specified by the absolute pathname in
7839
   ARGS exists.  Returns that pathname if found.
7840
 
7841
   The usual use for this function is to check for a library file
7842
   (whose name has been expanded with %s).  */
7843
 
7844
static const char *
7845
if_exists_spec_function (int argc, const char **argv)
7846
{
7847
  /* Must have only one argument.  */
7848
  if (argc == 1 && IS_ABSOLUTE_PATH (argv[0]) && ! access (argv[0], R_OK))
7849
    return argv[0];
7850
 
7851
  return NULL;
7852
}
7853
 
7854
/* if-exists-else built-in spec function.
7855
 
7856
   This is like if-exists, but takes an additional argument which
7857
   is returned if the first argument does not exist.  */
7858
 
7859
static const char *
7860
if_exists_else_spec_function (int argc, const char **argv)
7861
{
7862
  /* Must have exactly two arguments.  */
7863
  if (argc != 2)
7864
    return NULL;
7865
 
7866
  if (IS_ABSOLUTE_PATH (argv[0]) && ! access (argv[0], R_OK))
7867
    return argv[0];
7868
 
7869
  return argv[1];
7870
}
7871
 
7872
/* replace-outfile built-in spec function.
7873
 
7874
   This looks for the first argument in the outfiles array's name and
7875
   replaces it with the second argument.  */
7876
 
7877
static const char *
7878
replace_outfile_spec_function (int argc, const char **argv)
7879
{
7880
  int i;
7881
  /* Must have exactly two arguments.  */
7882
  if (argc != 2)
7883
    abort ();
7884
 
7885
  for (i = 0; i < n_infiles; i++)
7886
    {
7887
      if (outfiles[i] && !filename_cmp (outfiles[i], argv[0]))
7888
        outfiles[i] = xstrdup (argv[1]);
7889
    }
7890
  return NULL;
7891
}
7892
 
7893
/* remove-outfile built-in spec function.
7894
 *
7895
 *    This looks for the first argument in the outfiles array's name and
7896
 *       removes it.  */
7897
 
7898
static const char *
7899
remove_outfile_spec_function (int argc, const char **argv)
7900
{
7901
  int i;
7902
  /* Must have exactly one argument.  */
7903
  if (argc != 1)
7904
    abort ();
7905
 
7906
  for (i = 0; i < n_infiles; i++)
7907
    {
7908
      if (outfiles[i] && !filename_cmp (outfiles[i], argv[0]))
7909
        outfiles[i] = NULL;
7910
    }
7911
  return NULL;
7912
}
7913
 
7914
/* Given two version numbers, compares the two numbers.
7915
   A version number must match the regular expression
7916
   ([1-9][0-9]*|0)(\.([1-9][0-9]*|0))*
7917
*/
7918
static int
7919
compare_version_strings (const char *v1, const char *v2)
7920
{
7921
  int rresult;
7922
  regex_t r;
7923
 
7924
  if (regcomp (&r, "^([1-9][0-9]*|0)(\\.([1-9][0-9]*|0))*$",
7925
               REG_EXTENDED | REG_NOSUB) != 0)
7926
    abort ();
7927
  rresult = regexec (&r, v1, 0, NULL, 0);
7928
  if (rresult == REG_NOMATCH)
7929
    fatal_error ("invalid version number %qs", v1);
7930
  else if (rresult != 0)
7931
    abort ();
7932
  rresult = regexec (&r, v2, 0, NULL, 0);
7933
  if (rresult == REG_NOMATCH)
7934
    fatal_error ("invalid version number %qs", v2);
7935
  else if (rresult != 0)
7936
    abort ();
7937
 
7938
  return strverscmp (v1, v2);
7939
}
7940
 
7941
 
7942
/* version_compare built-in spec function.
7943
 
7944
   This takes an argument of the following form:
7945
 
7946
   <comparison-op> <arg1> [<arg2>] <switch> <result>
7947
 
7948
   and produces "result" if the comparison evaluates to true,
7949
   and nothing if it doesn't.
7950
 
7951
   The supported <comparison-op> values are:
7952
 
7953
   >=  true if switch is a later (or same) version than arg1
7954
   !>  opposite of >=
7955
   <   true if switch is an earlier version than arg1
7956
   !<  opposite of <
7957
   ><  true if switch is arg1 or later, and earlier than arg2
7958
   <>  true if switch is earlier than arg1 or is arg2 or later
7959
 
7960
   If the switch is not present, the condition is false unless
7961
   the first character of the <comparison-op> is '!'.
7962
 
7963
   For example,
7964
   %:version-compare(>= 10.3 mmacosx-version-min= -lmx)
7965
   adds -lmx if -mmacosx-version-min=10.3.9 was passed.  */
7966
 
7967
static const char *
7968
version_compare_spec_function (int argc, const char **argv)
7969
{
7970
  int comp1, comp2;
7971
  size_t switch_len;
7972
  const char *switch_value = NULL;
7973
  int nargs = 1, i;
7974
  bool result;
7975
 
7976
  if (argc < 3)
7977
    fatal_error ("too few arguments to %%:version-compare");
7978
  if (argv[0][0] == '\0')
7979
    abort ();
7980
  if ((argv[0][1] == '<' || argv[0][1] == '>') && argv[0][0] != '!')
7981
    nargs = 2;
7982
  if (argc != nargs + 3)
7983
    fatal_error ("too many arguments to %%:version-compare");
7984
 
7985
  switch_len = strlen (argv[nargs + 1]);
7986
  for (i = 0; i < n_switches; i++)
7987
    if (!strncmp (switches[i].part1, argv[nargs + 1], switch_len)
7988
        && check_live_switch (i, switch_len))
7989
      switch_value = switches[i].part1 + switch_len;
7990
 
7991
  if (switch_value == NULL)
7992
    comp1 = comp2 = -1;
7993
  else
7994
    {
7995
      comp1 = compare_version_strings (switch_value, argv[1]);
7996
      if (nargs == 2)
7997
        comp2 = compare_version_strings (switch_value, argv[2]);
7998
      else
7999
        comp2 = -1;  /* This value unused.  */
8000
    }
8001
 
8002
  switch (argv[0][0] << 8 | argv[0][1])
8003
    {
8004
    case '>' << 8 | '=':
8005
      result = comp1 >= 0;
8006
      break;
8007
    case '!' << 8 | '<':
8008
      result = comp1 >= 0 || switch_value == NULL;
8009
      break;
8010
    case '<' << 8:
8011
      result = comp1 < 0;
8012
      break;
8013
    case '!' << 8 | '>':
8014
      result = comp1 < 0 || switch_value == NULL;
8015
      break;
8016
    case '>' << 8 | '<':
8017
      result = comp1 >= 0 && comp2 < 0;
8018
      break;
8019
    case '<' << 8 | '>':
8020
      result = comp1 < 0 || comp2 >= 0;
8021
      break;
8022
 
8023
    default:
8024
      fatal_error ("unknown operator %qs in %%:version-compare", argv[0]);
8025
    }
8026
  if (! result)
8027
    return NULL;
8028
 
8029
  return argv[nargs + 2];
8030
}
8031
 
8032
/* %:include builtin spec function.  This differs from %include in that it
8033
   can be nested inside a spec, and thus be conditionalized.  It takes
8034
   one argument, the filename, and looks for it in the startfile path.
8035
   The result is always NULL, i.e. an empty expansion.  */
8036
 
8037
static const char *
8038
include_spec_function (int argc, const char **argv)
8039
{
8040
  char *file;
8041
 
8042
  if (argc != 1)
8043
    abort ();
8044
 
8045
  file = find_a_file (&startfile_prefixes, argv[0], R_OK, true);
8046
  read_specs (file ? file : argv[0], FALSE);
8047
 
8048
  return NULL;
8049
}
8050
 
8051
/* %:find-file spec function.  This function replaces its argument by
8052
    the file found thru find_file, that is the -print-file-name gcc
8053
    program option. */
8054
static const char *
8055
find_file_spec_function (int argc, const char **argv)
8056
{
8057
  const char *file;
8058
 
8059
  if (argc != 1)
8060
    abort ();
8061
 
8062
  file = find_file (argv[0]);
8063
  return file;
8064
}
8065
 
8066
 
8067
/* %:find-plugindir spec function.  This function replaces its argument
8068
    by the -iplugindir=<dir> option.  `dir' is found thru find_file, that
8069
    is the -print-file-name gcc program option. */
8070
static const char *
8071
find_plugindir_spec_function (int argc, const char **argv ATTRIBUTE_UNUSED)
8072
{
8073
  const char *option;
8074
 
8075
  if (argc != 0)
8076
    abort ();
8077
 
8078
  option = concat ("-iplugindir=", find_file ("plugin"), NULL);
8079
  return option;
8080
}
8081
 
8082
 
8083
/* %:print-asm-header spec function.  Print a banner to say that the
8084
   following output is from the assembler.  */
8085
 
8086
static const char *
8087
print_asm_header_spec_function (int arg ATTRIBUTE_UNUSED,
8088
                                const char **argv ATTRIBUTE_UNUSED)
8089
{
8090
  printf (_("Assembler options\n=================\n\n"));
8091
  printf (_("Use \"-Wa,OPTION\" to pass \"OPTION\" to the assembler.\n\n"));
8092
  fflush (stdout);
8093
  return NULL;
8094
}
8095
 
8096
/* Get a random number for -frandom-seed */
8097
 
8098
static unsigned HOST_WIDE_INT
8099
get_random_number (void)
8100
{
8101
  unsigned HOST_WIDE_INT ret = 0;
8102
  int fd;
8103
 
8104
  fd = open ("/dev/urandom", O_RDONLY);
8105
  if (fd >= 0)
8106
    {
8107
      read (fd, &ret, sizeof (HOST_WIDE_INT));
8108
      close (fd);
8109
      if (ret)
8110
        return ret;
8111
    }
8112
 
8113
  /* Get some more or less random data.  */
8114
#ifdef HAVE_GETTIMEOFDAY
8115
  {
8116
    struct timeval tv;
8117
 
8118
    gettimeofday (&tv, NULL);
8119
    ret = tv.tv_sec * 1000 + tv.tv_usec / 1000;
8120
  }
8121
#else
8122
  {
8123
    time_t now = time (NULL);
8124
 
8125
    if (now != (time_t)-1)
8126
      ret = (unsigned) now;
8127
  }
8128
#endif
8129
 
8130
  return ret ^ getpid();
8131
}
8132
 
8133
/* %:compare-debug-dump-opt spec function.  Save the last argument,
8134
   expected to be the last -fdump-final-insns option, or generate a
8135
   temporary.  */
8136
 
8137
static const char *
8138
compare_debug_dump_opt_spec_function (int arg,
8139
                                      const char **argv ATTRIBUTE_UNUSED)
8140
{
8141
  const char *ret;
8142
  char *name;
8143
  int which;
8144
  static char random_seed[HOST_BITS_PER_WIDE_INT / 4 + 3];
8145
 
8146
  if (arg != 0)
8147
    fatal_error ("too many arguments to %%:compare-debug-dump-opt");
8148
 
8149
  do_spec_2 ("%{fdump-final-insns=*:%*}");
8150
  do_spec_1 (" ", 0, NULL);
8151
 
8152
  if (VEC_length (const_char_p, argbuf) > 0
8153
      && strcmp (argv[VEC_length (const_char_p, argbuf) - 1], "."))
8154
    {
8155
      if (!compare_debug)
8156
        return NULL;
8157
 
8158
      name = xstrdup (argv[VEC_length (const_char_p, argbuf) - 1]);
8159
      ret = NULL;
8160
    }
8161
  else
8162
    {
8163
      const char *ext = NULL;
8164
 
8165
      if (VEC_length (const_char_p, argbuf) > 0)
8166
        {
8167
          do_spec_2 ("%{o*:%*}%{!o:%{!S:%b%O}%{S:%b.s}}");
8168
          ext = ".gkd";
8169
        }
8170
      else if (!compare_debug)
8171
        return NULL;
8172
      else
8173
        do_spec_2 ("%g.gkd");
8174
 
8175
      do_spec_1 (" ", 0, NULL);
8176
 
8177
      gcc_assert (VEC_length (const_char_p, argbuf) > 0);
8178
 
8179
      name = concat (VEC_last (const_char_p, argbuf), ext, NULL);
8180
 
8181
      ret = concat ("-fdump-final-insns=", name, NULL);
8182
    }
8183
 
8184
  which = compare_debug < 0;
8185
  debug_check_temp_file[which] = name;
8186
 
8187
  if (!which)
8188
    {
8189
      unsigned HOST_WIDE_INT value = get_random_number ();
8190
 
8191
      sprintf (random_seed, HOST_WIDE_INT_PRINT_HEX, value);
8192
    }
8193
 
8194
  if (*random_seed)
8195
    ret = concat ("%{!frandom-seed=*:-frandom-seed=", random_seed, "} ",
8196
                  ret, NULL);
8197
 
8198
  if (which)
8199
    *random_seed = 0;
8200
 
8201
  return ret;
8202
}
8203
 
8204
static const char *debug_auxbase_opt;
8205
 
8206
/* %:compare-debug-self-opt spec function.  Expands to the options
8207
    that are to be passed in the second compilation of
8208
    compare-debug.  */
8209
 
8210
static const char *
8211
compare_debug_self_opt_spec_function (int arg,
8212
                                      const char **argv ATTRIBUTE_UNUSED)
8213
{
8214
  if (arg != 0)
8215
    fatal_error ("too many arguments to %%:compare-debug-self-opt");
8216
 
8217
  if (compare_debug >= 0)
8218
    return NULL;
8219
 
8220
  do_spec_2 ("%{c|S:%{o*:%*}}");
8221
  do_spec_1 (" ", 0, NULL);
8222
 
8223
  if (VEC_length (const_char_p, argbuf) > 0)
8224
    debug_auxbase_opt = concat ("-auxbase-strip ",
8225
                                VEC_last (const_char_p, argbuf),
8226
                                NULL);
8227
  else
8228
    debug_auxbase_opt = NULL;
8229
 
8230
  return concat ("\
8231
%<o %<MD %<MMD %<MF* %<MG %<MP %<MQ* %<MT* \
8232
%<fdump-final-insns=* -w -S -o %j \
8233
%{!fcompare-debug-second:-fcompare-debug-second} \
8234
", compare_debug_opt, NULL);
8235
}
8236
 
8237
/* %:compare-debug-auxbase-opt spec function.  Expands to the auxbase
8238
    options that are to be passed in the second compilation of
8239
    compare-debug.  It expects, as an argument, the basename of the
8240
    current input file name, with the .gk suffix appended to it.  */
8241
 
8242
static const char *
8243
compare_debug_auxbase_opt_spec_function (int arg,
8244
                                         const char **argv)
8245
{
8246
  char *name;
8247
  int len;
8248
 
8249
  if (arg == 0)
8250
    fatal_error ("too few arguments to %%:compare-debug-auxbase-opt");
8251
 
8252
  if (arg != 1)
8253
    fatal_error ("too many arguments to %%:compare-debug-auxbase-opt");
8254
 
8255
  if (compare_debug >= 0)
8256
    return NULL;
8257
 
8258
  len = strlen (argv[0]);
8259
  if (len < 3 || strcmp (argv[0] + len - 3, ".gk") != 0)
8260
    fatal_error ("argument to %%:compare-debug-auxbase-opt "
8261
                 "does not end in .gk");
8262
 
8263
  if (debug_auxbase_opt)
8264
    return debug_auxbase_opt;
8265
 
8266
#define OPT "-auxbase "
8267
 
8268
  len -= 3;
8269
  name = (char*) xmalloc (sizeof (OPT) + len);
8270
  memcpy (name, OPT, sizeof (OPT) - 1);
8271
  memcpy (name + sizeof (OPT) - 1, argv[0], len);
8272
  name[sizeof (OPT) - 1 + len] = '\0';
8273
 
8274
#undef OPT
8275
 
8276
  return name;
8277
}
8278
 
8279
/* %:pass-through-libs spec function.  Finds all -l options and input
8280
   file names in the lib spec passed to it, and makes a list of them
8281
   prepended with the plugin option to cause them to be passed through
8282
   to the final link after all the new object files have been added.  */
8283
 
8284
const char *
8285
pass_through_libs_spec_func (int argc, const char **argv)
8286
{
8287
  char *prepended = xstrdup (" ");
8288
  int n;
8289
  /* Shlemiel the painter's algorithm.  Innately horrible, but at least
8290
     we know that there will never be more than a handful of strings to
8291
     concat, and it's only once per run, so it's not worth optimising.  */
8292
  for (n = 0; n < argc; n++)
8293
    {
8294
      char *old = prepended;
8295
      /* Anything that isn't an option is a full path to an output
8296
         file; pass it through if it ends in '.a'.  Among options,
8297
         pass only -l.  */
8298
      if (argv[n][0] == '-' && argv[n][1] == 'l')
8299
        {
8300
          const char *lopt = argv[n] + 2;
8301
          /* Handle both joined and non-joined -l options.  If for any
8302
             reason there's a trailing -l with no joined or following
8303
             arg just discard it.  */
8304
          if (!*lopt && ++n >= argc)
8305
            break;
8306
          else if (!*lopt)
8307
            lopt = argv[n];
8308
          prepended = concat (prepended, "-plugin-opt=-pass-through=-l",
8309
                lopt, " ", NULL);
8310
        }
8311
      else if (!strcmp (".a", argv[n] + strlen (argv[n]) - 2))
8312
        {
8313
          prepended = concat (prepended, "-plugin-opt=-pass-through=",
8314
                argv[n], " ", NULL);
8315
        }
8316
      if (prepended != old)
8317
        free (old);
8318
    }
8319
  return prepended;
8320
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.