Commit | Line | Data |
---|---|---|
bae7f79e ILT |
1 | // options.c -- handle command line options for gold |
2 | ||
6cb15b7f ILT |
3 | // Copyright 2006, 2007 Free Software Foundation, Inc. |
4 | // Written by Ian Lance Taylor <iant@google.com>. | |
5 | ||
6 | // This file is part of gold. | |
7 | ||
8 | // This program is free software; you can redistribute it and/or modify | |
9 | // it under the terms of the GNU General Public License as published by | |
10 | // the Free Software Foundation; either version 3 of the License, or | |
11 | // (at your option) any later version. | |
12 | ||
13 | // This program is distributed in the hope that it will be useful, | |
14 | // but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | // GNU General Public License for more details. | |
17 | ||
18 | // You should have received a copy of the GNU General Public License | |
19 | // along with this program; if not, write to the Free Software | |
20 | // Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, | |
21 | // MA 02110-1301, USA. | |
22 | ||
ad2d6943 ILT |
23 | #include "gold.h" |
24 | ||
a2b1aa12 | 25 | #include <cstdlib> |
bae7f79e | 26 | #include <iostream> |
ad2d6943 ILT |
27 | #include <sys/stat.h> |
28 | #include "filenames.h" | |
29 | #include "libiberty.h" | |
bae7f79e | 30 | |
c7912668 | 31 | #include "debug.h" |
bae7f79e ILT |
32 | #include "options.h" |
33 | ||
61ba1cf9 ILT |
34 | namespace gold |
35 | { | |
36 | ||
bae7f79e ILT |
37 | // The information we keep for a single command line option. |
38 | ||
61ba1cf9 | 39 | struct options::One_option |
bae7f79e ILT |
40 | { |
41 | // The single character option name, or '\0' if this is only a long | |
42 | // option. | |
43 | char short_option; | |
44 | ||
45 | // The long option name, or NULL if this is only a short option. | |
46 | const char* long_option; | |
47 | ||
48 | // Description of the option for --help output, or NULL if there is none. | |
49 | const char* doc; | |
50 | ||
51 | // How to print the option name in --help output, or NULL to use the | |
52 | // default. | |
53 | const char* help_output; | |
54 | ||
55 | // Long option dash control. This is ignored if long_option is | |
56 | // NULL. | |
57 | enum | |
58 | { | |
59 | // Long option normally takes one dash; two dashes are also | |
60 | // accepted. | |
61 | ONE_DASH, | |
62 | // Long option normally takes two dashes; one dash is also | |
63 | // accepted. | |
64 | TWO_DASHES, | |
65 | // Long option always takes two dashes. | |
66 | EXACTLY_TWO_DASHES | |
67 | } dash; | |
68 | ||
69 | // Function for special handling, or NULL. Returns the number of | |
70 | // arguments to skip. This will normally be at least 1, but it may | |
71 | // be 0 if this function changes *argv. ARG points to the location | |
72 | // in *ARGV where the option starts, which may be helpful for a | |
73 | // short option. | |
3c2fafa5 ILT |
74 | int (*special)(int argc, char** argv, char *arg, bool long_option, |
75 | Command_line*); | |
bae7f79e ILT |
76 | |
77 | // If this is a position independent option which does not take an | |
78 | // argument, this is the member function to call to record it. | |
61ba1cf9 | 79 | void (General_options::*general_noarg)(); |
bae7f79e ILT |
80 | |
81 | // If this is a position independent function which takes an | |
82 | // argument, this is the member function to call to record it. | |
61ba1cf9 | 83 | void (General_options::*general_arg)(const char*); |
bae7f79e ILT |
84 | |
85 | // If this is a position dependent option which does not take an | |
86 | // argument, this is the member function to call to record it. | |
61ba1cf9 | 87 | void (Position_dependent_options::*dependent_noarg)(); |
bae7f79e ILT |
88 | |
89 | // If this is a position dependent option which takes an argument, | |
90 | // this is the member function to record it. | |
61ba1cf9 | 91 | void (Position_dependent_options::*dependent_arg)(const char*); |
bae7f79e ILT |
92 | |
93 | // Return whether this option takes an argument. | |
94 | bool | |
95 | takes_argument() const | |
96 | { return this->general_arg != NULL || this->dependent_arg != NULL; } | |
97 | }; | |
98 | ||
35cdfc9a ILT |
99 | // We have a separate table for -z options. |
100 | ||
101 | struct options::One_z_option | |
102 | { | |
103 | // The name of the option. | |
104 | const char* name; | |
105 | ||
106 | // The member function in General_options called to record it. | |
107 | void (General_options::*set)(); | |
108 | }; | |
109 | ||
c7912668 ILT |
110 | // We have a separate table for --debug options. |
111 | ||
112 | struct options::One_debug_option | |
113 | { | |
114 | // The name of the option. | |
115 | const char* name; | |
116 | ||
117 | // The flags to turn on. | |
118 | unsigned int debug_flags; | |
119 | }; | |
120 | ||
61ba1cf9 | 121 | class options::Command_line_options |
bae7f79e ILT |
122 | { |
123 | public: | |
124 | static const One_option options[]; | |
125 | static const int options_size; | |
35cdfc9a ILT |
126 | static const One_z_option z_options[]; |
127 | static const int z_options_size; | |
c7912668 ILT |
128 | static const One_debug_option debug_options[]; |
129 | static const int debug_options_size; | |
bae7f79e ILT |
130 | }; |
131 | ||
61ba1cf9 ILT |
132 | } // End namespace gold. |
133 | ||
bae7f79e ILT |
134 | namespace |
135 | { | |
136 | ||
61ba1cf9 ILT |
137 | // Handle the special -l option, which adds an input file. |
138 | ||
139 | int | |
3c2fafa5 ILT |
140 | library(int argc, char** argv, char* arg, bool long_option, |
141 | gold::Command_line* cmdline) | |
61ba1cf9 | 142 | { |
3c2fafa5 ILT |
143 | return cmdline->process_l_option(argc, argv, arg, long_option); |
144 | } | |
145 | ||
146 | // Handle the special -T/--script option, which reads a linker script. | |
147 | ||
148 | int | |
149 | invoke_script(int argc, char** argv, char* arg, bool long_option, | |
150 | gold::Command_line* cmdline) | |
151 | { | |
152 | int ret; | |
153 | const char* script_name = cmdline->get_special_argument("script", argc, argv, | |
154 | arg, long_option, | |
155 | &ret); | |
156 | if (!read_commandline_script(script_name, cmdline)) | |
157 | gold::gold_error(_("%s: unable to parse script file %s\n"), | |
158 | gold::program_name, arg); | |
159 | return ret; | |
61ba1cf9 ILT |
160 | } |
161 | ||
ead1e424 ILT |
162 | // Handle the special --start-group option. |
163 | ||
164 | int | |
3c2fafa5 | 165 | start_group(int, char**, char* arg, bool, gold::Command_line* cmdline) |
ead1e424 ILT |
166 | { |
167 | cmdline->start_group(arg); | |
168 | return 1; | |
169 | } | |
170 | ||
171 | // Handle the special --end-group option. | |
172 | ||
173 | int | |
3c2fafa5 | 174 | end_group(int, char**, char* arg, bool, gold::Command_line* cmdline) |
ead1e424 ILT |
175 | { |
176 | cmdline->end_group(arg); | |
177 | return 1; | |
178 | } | |
179 | ||
bae7f79e ILT |
180 | // Report usage information for ld --help, and exit. |
181 | ||
182 | int | |
3c2fafa5 | 183 | help(int, char**, char*, bool, gold::Command_line*) |
bae7f79e ILT |
184 | { |
185 | printf(_("Usage: %s [options] file...\nOptions:\n"), gold::program_name); | |
186 | ||
187 | const int options_size = gold::options::Command_line_options::options_size; | |
188 | const gold::options::One_option* options = | |
189 | gold::options::Command_line_options::options; | |
190 | for (int i = 0; i < options_size; ++i) | |
191 | { | |
192 | if (options[i].doc == NULL) | |
193 | continue; | |
194 | ||
195 | printf(" "); | |
196 | int len = 2; | |
197 | bool comma = false; | |
198 | ||
199 | int j = i; | |
200 | do | |
201 | { | |
202 | if (options[j].help_output != NULL) | |
203 | { | |
204 | if (comma) | |
205 | { | |
206 | printf(", "); | |
207 | len += 2; | |
208 | } | |
209 | printf(options[j].help_output); | |
210 | len += std::strlen(options[i].help_output); | |
a6badf5a | 211 | comma = true; |
bae7f79e ILT |
212 | } |
213 | else | |
214 | { | |
215 | if (options[j].short_option != '\0') | |
216 | { | |
217 | if (comma) | |
218 | { | |
219 | printf(", "); | |
220 | len += 2; | |
221 | } | |
222 | printf("-%c", options[j].short_option); | |
223 | len += 2; | |
a6badf5a | 224 | comma = true; |
bae7f79e ILT |
225 | } |
226 | ||
227 | if (options[j].long_option != NULL) | |
228 | { | |
229 | if (comma) | |
230 | { | |
231 | printf(", "); | |
232 | len += 2; | |
233 | } | |
234 | if (options[j].dash == gold::options::One_option::ONE_DASH) | |
235 | { | |
236 | printf("-"); | |
237 | ++len; | |
238 | } | |
239 | else | |
240 | { | |
241 | printf("--"); | |
242 | len += 2; | |
243 | } | |
244 | printf("%s", options[j].long_option); | |
245 | len += std::strlen(options[j].long_option); | |
a6badf5a | 246 | comma = true; |
bae7f79e ILT |
247 | } |
248 | } | |
249 | ++j; | |
250 | } | |
251 | while (j < options_size && options[j].doc == NULL); | |
252 | ||
a6badf5a | 253 | if (len >= 30) |
bae7f79e ILT |
254 | { |
255 | printf("\n"); | |
256 | len = 0; | |
257 | } | |
258 | for (; len < 30; ++len) | |
259 | std::putchar(' '); | |
260 | ||
261 | std::puts(options[i].doc); | |
262 | } | |
263 | ||
c7912668 | 264 | ::exit(EXIT_SUCCESS); |
bae7f79e ILT |
265 | |
266 | return 0; | |
267 | } | |
268 | ||
8486ee48 ILT |
269 | // Report version information. |
270 | ||
271 | int | |
3c2fafa5 | 272 | version(int, char**, char* opt, bool, gold::Command_line*) |
8486ee48 ILT |
273 | { |
274 | gold::print_version(opt[0] == 'v' && opt[1] == '\0'); | |
c7912668 | 275 | ::exit(EXIT_SUCCESS); |
8486ee48 ILT |
276 | return 0; |
277 | } | |
278 | ||
ad2d6943 ILT |
279 | // If the default sysroot is relocatable, try relocating it based on |
280 | // the prefix FROM. | |
281 | ||
282 | char* | |
283 | get_relative_sysroot(const char* from) | |
284 | { | |
285 | char* path = make_relative_prefix(gold::program_name, from, | |
286 | TARGET_SYSTEM_ROOT); | |
287 | if (path != NULL) | |
288 | { | |
289 | struct stat s; | |
290 | if (::stat(path, &s) == 0 && S_ISDIR(s.st_mode)) | |
291 | return path; | |
292 | free(path); | |
293 | } | |
294 | ||
295 | return NULL; | |
296 | } | |
297 | ||
298 | // Return the default sysroot. This is set by the --with-sysroot | |
299 | // option to configure. | |
300 | ||
301 | std::string | |
302 | get_default_sysroot() | |
303 | { | |
304 | const char* sysroot = TARGET_SYSTEM_ROOT; | |
305 | if (*sysroot == '\0') | |
306 | return ""; | |
307 | ||
308 | if (TARGET_SYSTEM_ROOT_RELOCATABLE) | |
309 | { | |
310 | char* path = get_relative_sysroot (BINDIR); | |
311 | if (path == NULL) | |
312 | path = get_relative_sysroot (TOOLBINDIR); | |
313 | if (path != NULL) | |
314 | { | |
315 | std::string ret = path; | |
316 | free(path); | |
317 | return ret; | |
318 | } | |
319 | } | |
320 | ||
321 | return sysroot; | |
322 | } | |
323 | ||
61ba1cf9 ILT |
324 | } // End anonymous namespace. |
325 | ||
326 | namespace gold | |
327 | { | |
bae7f79e ILT |
328 | |
329 | // Helper macros used to specify the options. We could also do this | |
330 | // using constructors, but then g++ would generate code to initialize | |
331 | // the array. We want the array to be initialized statically so that | |
332 | // we get better startup time. | |
333 | ||
334 | #define GENERAL_NOARG(short_option, long_option, doc, help, dash, func) \ | |
61ba1cf9 | 335 | { short_option, long_option, doc, help, options::One_option::dash, \ |
bae7f79e ILT |
336 | NULL, func, NULL, NULL, NULL } |
337 | #define GENERAL_ARG(short_option, long_option, doc, help, dash, func) \ | |
61ba1cf9 | 338 | { short_option, long_option, doc, help, options::One_option::dash, \ |
bae7f79e ILT |
339 | NULL, NULL, func, NULL, NULL } |
340 | #define POSDEP_NOARG(short_option, long_option, doc, help, dash, func) \ | |
61ba1cf9 | 341 | { short_option, long_option, doc, help, options::One_option::dash, \ |
bae7f79e ILT |
342 | NULL, NULL, NULL, func, NULL } |
343 | #define POSDEP_ARG(short_option, long_option, doc, help, dash, func) \ | |
61ba1cf9 | 344 | { short_option, long_option, doc, help, options::One_option::dash, \ |
bae7f79e ILT |
345 | NULL, NULL, NULL, NULL, func } |
346 | #define SPECIAL(short_option, long_option, doc, help, dash, func) \ | |
61ba1cf9 | 347 | { short_option, long_option, doc, help, options::One_option::dash, \ |
bae7f79e ILT |
348 | func, NULL, NULL, NULL, NULL } |
349 | ||
350 | // Here is the actual list of options which we accept. | |
351 | ||
61ba1cf9 ILT |
352 | const options::One_option |
353 | options::Command_line_options::options[] = | |
bae7f79e | 354 | { |
e2827e5f ILT |
355 | GENERAL_NOARG('\0', "allow-shlib-undefined", |
356 | N_("Allow unresolved references in shared libraries"), | |
357 | NULL, TWO_DASHES, | |
358 | &General_options::set_allow_shlib_undefined), | |
359 | GENERAL_NOARG('\0', "no-allow-shlib-undefined", | |
360 | N_("Do not allow unresolved references in shared libraries"), | |
361 | NULL, TWO_DASHES, | |
362 | &General_options::set_no_allow_shlib_undefined), | |
0c5e9c22 ILT |
363 | POSDEP_NOARG('\0', "as-needed", |
364 | N_("Only set DT_NEEDED for dynamic libs if used"), | |
365 | NULL, TWO_DASHES, &Position_dependent_options::set_as_needed), | |
366 | POSDEP_NOARG('\0', "no-as-needed", | |
367 | N_("Always DT_NEEDED for dynamic libs (default)"), | |
368 | NULL, TWO_DASHES, &Position_dependent_options::clear_as_needed), | |
61611222 ILT |
369 | POSDEP_NOARG('\0', "Bdynamic", |
370 | N_("-l searches for shared libraries"), | |
371 | NULL, ONE_DASH, | |
372 | &Position_dependent_options::set_dynamic_search), | |
373 | POSDEP_NOARG('\0', "Bstatic", | |
374 | N_("-l does not search for shared libraries"), | |
375 | NULL, ONE_DASH, | |
376 | &Position_dependent_options::set_static_search), | |
51b08ebe ILT |
377 | GENERAL_NOARG('\0', "Bsymbolic", N_("Bind defined symbols locally"), |
378 | NULL, ONE_DASH, &General_options::set_symbolic), | |
a2b1aa12 ILT |
379 | GENERAL_NOARG('\0', "demangle", N_("Demangle C++ symbols in log messages"), |
380 | NULL, TWO_DASHES, &General_options::set_demangle), | |
381 | GENERAL_NOARG('\0', "no-demangle", | |
382 | N_("Do not demangle C++ symbols in log messages"), | |
383 | NULL, TWO_DASHES, &General_options::clear_demangle), | |
a55ce7fe ILT |
384 | GENERAL_NOARG('\0', "detect-odr-violations", |
385 | N_("Try to detect violations of the One Definition Rule"), | |
386 | NULL, TWO_DASHES, &General_options::set_detect_odr_violations), | |
a6badf5a ILT |
387 | GENERAL_NOARG('E', "export-dynamic", N_("Export all dynamic symbols"), |
388 | NULL, TWO_DASHES, &General_options::set_export_dynamic), | |
0c5e9c22 ILT |
389 | GENERAL_NOARG('\0', "eh-frame-hdr", N_("Create exception frame header"), |
390 | NULL, TWO_DASHES, &General_options::set_create_eh_frame_hdr), | |
dbe717ef ILT |
391 | GENERAL_ARG('I', "dynamic-linker", N_("Set dynamic linker path"), |
392 | N_("-I PROGRAM, --dynamic-linker PROGRAM"), TWO_DASHES, | |
393 | &General_options::set_dynamic_linker), | |
0c5e9c22 ILT |
394 | SPECIAL('l', "library", N_("Search for library LIBNAME"), |
395 | N_("-lLIBNAME, --library LIBNAME"), TWO_DASHES, | |
396 | &library), | |
bae7f79e ILT |
397 | GENERAL_ARG('L', "library-path", N_("Add directory to search path"), |
398 | N_("-L DIR, --library-path DIR"), TWO_DASHES, | |
61ba1cf9 | 399 | &General_options::add_to_search_path), |
652ec9bd ILT |
400 | GENERAL_ARG('m', NULL, N_("Ignored for compatibility"), NULL, ONE_DASH, |
401 | &General_options::ignore), | |
61ba1cf9 ILT |
402 | GENERAL_ARG('o', "output", N_("Set output file name"), |
403 | N_("-o FILE, --output FILE"), TWO_DASHES, | |
404 | &General_options::set_output_file_name), | |
0c5e9c22 ILT |
405 | GENERAL_ARG('O', NULL, N_("Optimize output file size"), |
406 | N_("-O level"), ONE_DASH, | |
407 | &General_options::set_optimization_level), | |
bae7f79e | 408 | GENERAL_NOARG('r', NULL, N_("Generate relocatable output"), NULL, |
61ba1cf9 | 409 | ONE_DASH, &General_options::set_relocatable), |
15b3cfae | 410 | GENERAL_ARG('R', "rpath", N_("Add DIR to runtime search path"), |
41f542e7 ILT |
411 | N_("-R DIR, -rpath DIR"), ONE_DASH, |
412 | &General_options::add_to_rpath), | |
15b3cfae ILT |
413 | GENERAL_ARG('\0', "rpath-link", |
414 | N_("Add DIR to link time shared library search path"), | |
415 | N_("--rpath-link DIR"), TWO_DASHES, | |
416 | &General_options::add_to_rpath_link), | |
0c5e9c22 ILT |
417 | GENERAL_NOARG('s', "strip-all", N_("Strip all symbols"), NULL, |
418 | TWO_DASHES, &General_options::set_strip_all), | |
02d2ba74 ILT |
419 | GENERAL_NOARG('\0', "strip-debug-gdb", |
420 | N_("Strip debug symbols that are unused by gdb " | |
421 | "(at least versions <= 6.7)"), | |
422 | NULL, TWO_DASHES, &General_options::set_strip_debug_gdb), | |
423 | // This must come after -Sdebug since it's a prefix of it. | |
0c5e9c22 ILT |
424 | GENERAL_NOARG('S', "strip-debug", N_("Strip debugging information"), NULL, |
425 | TWO_DASHES, &General_options::set_strip_debug), | |
92e059d8 ILT |
426 | GENERAL_NOARG('\0', "shared", N_("Generate shared library"), |
427 | NULL, ONE_DASH, &General_options::set_shared), | |
bae7f79e | 428 | GENERAL_NOARG('\0', "static", N_("Do not link against shared libraries"), |
61ba1cf9 | 429 | NULL, ONE_DASH, &General_options::set_static), |
e44fcf3b ILT |
430 | GENERAL_NOARG('\0', "stats", N_("Print resource usage statistics"), |
431 | NULL, TWO_DASHES, &General_options::set_stats), | |
ad2d6943 ILT |
432 | GENERAL_ARG('\0', "sysroot", N_("Set target system root directory"), |
433 | N_("--sysroot DIR"), TWO_DASHES, &General_options::set_sysroot), | |
0c5e9c22 ILT |
434 | GENERAL_ARG('\0', "Ttext", N_("Set the address of the .text section"), |
435 | N_("-Ttext ADDRESS"), ONE_DASH, | |
436 | &General_options::set_text_segment_address), | |
a0451b38 ILT |
437 | // This must come after -Ttext since it's a prefix of it. |
438 | SPECIAL('T', "script", N_("Read linker script"), | |
439 | N_("-T FILE, --script FILE"), TWO_DASHES, | |
440 | &invoke_script), | |
fe9a4c12 ILT |
441 | GENERAL_NOARG('\0', "threads", N_("Run the linker multi-threaded"), |
442 | NULL, TWO_DASHES, &General_options::set_threads), | |
443 | GENERAL_NOARG('\0', "no-threads", N_("Do not run the linker multi-threaded"), | |
444 | NULL, TWO_DASHES, &General_options::clear_threads), | |
445 | GENERAL_ARG('\0', "thread-count", N_("Number of threads to use"), | |
446 | N_("--thread-count COUNT"), TWO_DASHES, | |
447 | &General_options::set_thread_count), | |
448 | GENERAL_ARG('\0', "thread-count-initial", | |
449 | N_("Number of threads to use in initial pass"), | |
450 | N_("--thread-count-initial COUNT"), TWO_DASHES, | |
451 | &General_options::set_thread_count_initial), | |
452 | GENERAL_ARG('\0', "thread-count-middle", | |
453 | N_("Number of threads to use in middle pass"), | |
454 | N_("--thread-count-middle COUNT"), TWO_DASHES, | |
455 | &General_options::set_thread_count_middle), | |
456 | GENERAL_ARG('\0', "thread-count-final", | |
457 | N_("Number of threads to use in final pass"), | |
458 | N_("--thread-count-final COUNT"), TWO_DASHES, | |
459 | &General_options::set_thread_count_final), | |
4973341a ILT |
460 | POSDEP_NOARG('\0', "whole-archive", |
461 | N_("Include all archive contents"), | |
462 | NULL, TWO_DASHES, | |
463 | &Position_dependent_options::set_whole_archive), | |
464 | POSDEP_NOARG('\0', "no-whole-archive", | |
465 | N_("Include only needed archive contents"), | |
466 | NULL, TWO_DASHES, | |
467 | &Position_dependent_options::clear_whole_archive), | |
35cdfc9a ILT |
468 | |
469 | GENERAL_ARG('z', NULL, | |
470 | N_("Subcommands as follows:\n\ | |
471 | -z execstack Mark output as requiring executable stack\n\ | |
472 | -z noexecstack Mark output as not requiring executable stack"), | |
473 | N_("-z SUBCOMMAND"), ONE_DASH, | |
474 | &General_options::handle_z_option), | |
475 | ||
0c5e9c22 ILT |
476 | SPECIAL('(', "start-group", N_("Start a library search group"), NULL, |
477 | TWO_DASHES, &start_group), | |
478 | SPECIAL(')', "end-group", N_("End a library search group"), NULL, | |
479 | TWO_DASHES, &end_group), | |
bae7f79e | 480 | SPECIAL('\0', "help", N_("Report usage information"), NULL, |
8486ee48 ILT |
481 | TWO_DASHES, &help), |
482 | SPECIAL('v', "version", N_("Report version information"), NULL, | |
c7912668 ILT |
483 | TWO_DASHES, &version), |
484 | GENERAL_ARG('\0', "debug", N_("Turn on debugging (all,task)"), | |
485 | N_("--debug=TYPE"), TWO_DASHES, | |
486 | &General_options::handle_debug_option) | |
bae7f79e ILT |
487 | }; |
488 | ||
61ba1cf9 | 489 | const int options::Command_line_options::options_size = |
bae7f79e ILT |
490 | sizeof (options) / sizeof (options[0]); |
491 | ||
35cdfc9a ILT |
492 | // The -z options. |
493 | ||
494 | const options::One_z_option | |
495 | options::Command_line_options::z_options[] = | |
496 | { | |
497 | { "execstack", &General_options::set_execstack }, | |
498 | { "noexecstack", &General_options::set_noexecstack }, | |
499 | }; | |
500 | ||
501 | const int options::Command_line_options::z_options_size = | |
502 | sizeof(z_options) / sizeof(z_options[0]); | |
503 | ||
c7912668 ILT |
504 | // The --debug options. |
505 | ||
506 | const options::One_debug_option | |
507 | options::Command_line_options::debug_options[] = | |
508 | { | |
509 | { "all", DEBUG_ALL }, | |
510 | { "task", DEBUG_TASK }, | |
511 | }; | |
512 | ||
513 | const int options::Command_line_options::debug_options_size = | |
514 | sizeof(debug_options) / sizeof(debug_options[0]); | |
515 | ||
bae7f79e ILT |
516 | // The default values for the general options. |
517 | ||
61ba1cf9 | 518 | General_options::General_options() |
a6badf5a ILT |
519 | : export_dynamic_(false), |
520 | dynamic_linker_(NULL), | |
dbe717ef | 521 | search_path_(), |
ca3a67a5 | 522 | optimization_level_(0), |
61ba1cf9 ILT |
523 | output_file_name_("a.out"), |
524 | is_relocatable_(false), | |
9e2dcb77 | 525 | strip_(STRIP_NONE), |
9a2d6984 | 526 | allow_shlib_undefined_(false), |
51b08ebe | 527 | symbolic_(false), |
a55ce7fe | 528 | detect_odr_violations_(false), |
7da52175 | 529 | create_eh_frame_hdr_(false), |
4973341a | 530 | rpath_(), |
15b3cfae | 531 | rpath_link_(), |
92e059d8 | 532 | is_shared_(false), |
ad2d6943 | 533 | is_static_(false), |
e44fcf3b | 534 | print_stats_(false), |
0c5e9c22 | 535 | sysroot_(), |
fe9a4c12 ILT |
536 | text_segment_address_(-1U), // -1 indicates value not set by user |
537 | threads_(false), | |
538 | thread_count_initial_(0), | |
539 | thread_count_middle_(0), | |
35cdfc9a | 540 | thread_count_final_(0), |
c7912668 ILT |
541 | execstack_(EXECSTACK_FROM_INPUT), |
542 | debug_(0) | |
bae7f79e | 543 | { |
a2b1aa12 ILT |
544 | // We initialize demangle_ based on the environment variable |
545 | // COLLECT_NO_DEMANGLE. The gcc collect2 program will demangle the | |
546 | // output of the linker, unless COLLECT_NO_DEMANGLE is set in the | |
547 | // environment. Acting the same way here lets us provide the same | |
548 | // interface by default. | |
549 | this->demangle_ = getenv("COLLECT_NO_DEMANGLE") == NULL; | |
bae7f79e ILT |
550 | } |
551 | ||
552 | // The default values for the position dependent options. | |
553 | ||
61ba1cf9 | 554 | Position_dependent_options::Position_dependent_options() |
4973341a ILT |
555 | : do_static_search_(false), |
556 | as_needed_(false), | |
557 | include_whole_archive_(false) | |
bae7f79e ILT |
558 | { |
559 | } | |
560 | ||
35cdfc9a ILT |
561 | // Handle the -z option. |
562 | ||
563 | void | |
564 | General_options::handle_z_option(const char* arg) | |
565 | { | |
566 | const int z_options_size = options::Command_line_options::z_options_size; | |
567 | const gold::options::One_z_option* z_options = | |
568 | gold::options::Command_line_options::z_options; | |
569 | for (int i = 0; i < z_options_size; ++i) | |
570 | { | |
571 | if (strcmp(arg, z_options[i].name) == 0) | |
572 | { | |
573 | (this->*(z_options[i].set))(); | |
574 | return; | |
575 | } | |
576 | } | |
577 | ||
578 | fprintf(stderr, _("%s: unrecognized -z subcommand: %s\n"), | |
579 | program_name, arg); | |
c7912668 ILT |
580 | ::exit(EXIT_FAILURE); |
581 | } | |
582 | ||
583 | // Handle the --debug option. | |
584 | ||
585 | void | |
586 | General_options::handle_debug_option(const char* arg) | |
587 | { | |
588 | const int debug_options_size = | |
589 | options::Command_line_options::debug_options_size; | |
590 | const gold::options::One_debug_option* debug_options = | |
591 | options::Command_line_options::debug_options; | |
592 | for (int i = 0; i < debug_options_size; ++i) | |
593 | { | |
594 | if (strcmp(arg, debug_options[i].name) == 0) | |
595 | { | |
596 | this->set_debug(debug_options[i].debug_flags); | |
597 | return; | |
598 | } | |
599 | } | |
600 | ||
601 | fprintf(stderr, _("%s: unrecognized --debug subcommand: %s\n"), | |
602 | program_name, arg); | |
603 | ::exit(EXIT_FAILURE); | |
35cdfc9a ILT |
604 | } |
605 | ||
ad2d6943 ILT |
606 | // Add the sysroot, if any, to the search paths. |
607 | ||
608 | void | |
609 | General_options::add_sysroot() | |
610 | { | |
611 | if (this->sysroot_.empty()) | |
612 | { | |
613 | this->sysroot_ = get_default_sysroot(); | |
614 | if (this->sysroot_.empty()) | |
615 | return; | |
616 | } | |
617 | ||
618 | const char* sysroot = this->sysroot_.c_str(); | |
619 | char* canonical_sysroot = lrealpath(sysroot); | |
620 | ||
621 | for (Dir_list::iterator p = this->search_path_.begin(); | |
622 | p != this->search_path_.end(); | |
623 | ++p) | |
624 | p->add_sysroot(sysroot, canonical_sysroot); | |
625 | ||
626 | free(canonical_sysroot); | |
627 | } | |
628 | ||
629 | // Search_directory methods. | |
630 | ||
631 | // This is called if we have a sysroot. Apply the sysroot if | |
632 | // appropriate. Record whether the directory is in the sysroot. | |
633 | ||
634 | void | |
635 | Search_directory::add_sysroot(const char* sysroot, | |
636 | const char* canonical_sysroot) | |
637 | { | |
638 | gold_assert(*sysroot != '\0'); | |
639 | if (this->put_in_sysroot_) | |
640 | { | |
641 | if (!IS_DIR_SEPARATOR(this->name_[0]) | |
642 | && !IS_DIR_SEPARATOR(sysroot[strlen(sysroot) - 1])) | |
643 | this->name_ = '/' + this->name_; | |
644 | this->name_ = sysroot + this->name_; | |
645 | this->is_in_sysroot_ = true; | |
646 | } | |
647 | else | |
648 | { | |
649 | // Check whether this entry is in the sysroot. To do this | |
650 | // correctly, we need to use canonical names. Otherwise we will | |
651 | // get confused by the ../../.. paths that gcc tends to use. | |
652 | char* canonical_name = lrealpath(this->name_.c_str()); | |
653 | int canonical_name_len = strlen(canonical_name); | |
654 | int canonical_sysroot_len = strlen(canonical_sysroot); | |
655 | if (canonical_name_len > canonical_sysroot_len | |
656 | && IS_DIR_SEPARATOR(canonical_name[canonical_sysroot_len])) | |
657 | { | |
658 | canonical_name[canonical_sysroot_len] = '\0'; | |
659 | if (FILENAME_CMP(canonical_name, canonical_sysroot) == 0) | |
660 | this->is_in_sysroot_ = true; | |
661 | } | |
662 | free(canonical_name); | |
663 | } | |
664 | } | |
665 | ||
dbe717ef ILT |
666 | // Input_arguments methods. |
667 | ||
668 | // Add a file to the list. | |
669 | ||
670 | void | |
671 | Input_arguments::add_file(const Input_file_argument& file) | |
672 | { | |
673 | if (!this->in_group_) | |
674 | this->input_argument_list_.push_back(Input_argument(file)); | |
675 | else | |
676 | { | |
a3ad94ed ILT |
677 | gold_assert(!this->input_argument_list_.empty()); |
678 | gold_assert(this->input_argument_list_.back().is_group()); | |
dbe717ef ILT |
679 | this->input_argument_list_.back().group()->add_file(file); |
680 | } | |
681 | } | |
682 | ||
683 | // Start a group. | |
684 | ||
685 | void | |
686 | Input_arguments::start_group() | |
687 | { | |
a3ad94ed | 688 | gold_assert(!this->in_group_); |
dbe717ef ILT |
689 | Input_file_group* group = new Input_file_group(); |
690 | this->input_argument_list_.push_back(Input_argument(group)); | |
691 | this->in_group_ = true; | |
692 | } | |
693 | ||
694 | // End a group. | |
695 | ||
696 | void | |
697 | Input_arguments::end_group() | |
698 | { | |
a3ad94ed | 699 | gold_assert(this->in_group_); |
dbe717ef ILT |
700 | this->in_group_ = false; |
701 | } | |
702 | ||
ead1e424 | 703 | // Command_line options. |
bae7f79e | 704 | |
61ba1cf9 | 705 | Command_line::Command_line() |
dbe717ef | 706 | : options_(), position_options_(), inputs_() |
bae7f79e ILT |
707 | { |
708 | } | |
709 | ||
a0451b38 ILT |
710 | // Process the command line options. For process_one_option, |
711 | // i is the index of argv to process next, and the return value | |
712 | // is the index of the next option to process (i+1 or i+2, or argc | |
713 | // to indicate processing is done). no_more_options is set to true | |
714 | // if (and when) "--" is seen as an option. | |
bae7f79e | 715 | |
a0451b38 ILT |
716 | int |
717 | Command_line::process_one_option(int argc, char** argv, int i, | |
718 | bool* no_more_options) | |
bae7f79e | 719 | { |
61ba1cf9 | 720 | const int options_size = options::Command_line_options::options_size; |
a0451b38 ILT |
721 | const options::One_option* options = options::Command_line_options::options; |
722 | gold_assert(i < argc); | |
723 | ||
724 | if (argv[i][0] != '-' || *no_more_options) | |
bae7f79e | 725 | { |
a0451b38 ILT |
726 | this->add_file(argv[i], false); |
727 | return i + 1; | |
728 | } | |
bae7f79e | 729 | |
a0451b38 ILT |
730 | // Option starting with '-'. |
731 | int dashes = 1; | |
732 | if (argv[i][1] == '-') | |
733 | { | |
734 | dashes = 2; | |
735 | if (argv[i][2] == '\0') | |
736 | { | |
737 | *no_more_options = true; | |
738 | return i + 1; | |
739 | } | |
740 | } | |
bae7f79e | 741 | |
a0451b38 ILT |
742 | // Look for a long option match. |
743 | char* opt = argv[i] + dashes; | |
744 | char first = opt[0]; | |
745 | int skiparg = 0; | |
746 | char* arg = strchr(opt, '='); | |
747 | bool argument_with_equals = arg != NULL; | |
748 | if (arg != NULL) | |
749 | { | |
750 | *arg = '\0'; | |
751 | ++arg; | |
752 | } | |
753 | else if (i + 1 < argc) | |
754 | { | |
755 | arg = argv[i + 1]; | |
756 | skiparg = 1; | |
757 | } | |
bae7f79e | 758 | |
a0451b38 ILT |
759 | int j; |
760 | for (j = 0; j < options_size; ++j) | |
761 | { | |
762 | if (options[j].long_option != NULL | |
763 | && (dashes == 2 | |
764 | || (options[j].dash | |
765 | != options::One_option::EXACTLY_TWO_DASHES)) | |
766 | && first == options[j].long_option[0] | |
767 | && strcmp(opt, options[j].long_option) == 0) | |
768 | { | |
769 | if (options[j].special) | |
770 | { | |
771 | // Restore the '=' we clobbered above. | |
772 | if (arg != NULL && skiparg == 0) | |
773 | arg[-1] = '='; | |
774 | i += options[j].special(argc - i, argv + i, opt, true, this); | |
775 | } | |
776 | else | |
777 | { | |
778 | if (!options[j].takes_argument()) | |
779 | { | |
780 | if (argument_with_equals) | |
781 | this->usage(_("unexpected argument"), argv[i]); | |
782 | arg = NULL; | |
783 | skiparg = 0; | |
784 | } | |
785 | else | |
786 | { | |
787 | if (arg == NULL) | |
788 | this->usage(_("missing argument"), argv[i]); | |
789 | } | |
790 | this->apply_option(options[j], arg); | |
791 | i += skiparg + 1; | |
792 | } | |
793 | break; | |
794 | } | |
795 | } | |
796 | if (j < options_size) | |
797 | return i; | |
798 | ||
799 | // If we saw two dashes, we needed to have seen a long option. | |
800 | if (dashes == 2) | |
801 | this->usage(_("unknown option"), argv[i]); | |
802 | ||
803 | // Look for a short option match. There may be more than one | |
804 | // short option in a given argument. | |
805 | bool done = false; | |
806 | char* s = argv[i] + 1; | |
807 | ++i; | |
808 | while (*s != '\0' && !done) | |
809 | { | |
810 | char opt = *s; | |
bae7f79e ILT |
811 | int j; |
812 | for (j = 0; j < options_size; ++j) | |
a0451b38 ILT |
813 | { |
814 | if (options[j].short_option == opt) | |
815 | { | |
816 | if (options[j].special) | |
817 | { | |
818 | // Undo the argument skip done above. | |
819 | --i; | |
820 | i += options[j].special(argc - i, argv + i, s, false, | |
821 | this); | |
822 | done = true; | |
823 | } | |
824 | else | |
825 | { | |
826 | arg = NULL; | |
827 | if (options[j].takes_argument()) | |
828 | { | |
829 | if (s[1] != '\0') | |
830 | { | |
831 | arg = s + 1; | |
832 | done = true; | |
833 | } | |
834 | else if (i < argc) | |
835 | { | |
836 | arg = argv[i]; | |
837 | ++i; | |
838 | } | |
839 | else | |
840 | this->usage(_("missing argument"), opt); | |
841 | } | |
842 | this->apply_option(options[j], arg); | |
843 | } | |
844 | break; | |
845 | } | |
846 | } | |
847 | ||
848 | if (j >= options_size) | |
849 | this->usage(_("unknown option"), *s); | |
850 | ||
851 | ++s; | |
852 | } | |
853 | return i; | |
854 | } | |
bae7f79e | 855 | |
bae7f79e | 856 | |
a0451b38 ILT |
857 | void |
858 | Command_line::process(int argc, char** argv) | |
859 | { | |
860 | bool no_more_options = false; | |
861 | int i = 0; | |
862 | while (i < argc) | |
863 | i = process_one_option(argc, argv, i, &no_more_options); | |
61ba1cf9 | 864 | |
dbe717ef | 865 | if (this->inputs_.in_group()) |
ead1e424 | 866 | { |
35cdfc9a | 867 | fprintf(stderr, _("%s: missing group end\n"), program_name); |
ead1e424 ILT |
868 | this->usage(); |
869 | } | |
870 | ||
61ba1cf9 | 871 | // FIXME: We should only do this when configured in native mode. |
ad2d6943 ILT |
872 | this->options_.add_to_search_path_with_sysroot("/lib"); |
873 | this->options_.add_to_search_path_with_sysroot("/usr/lib"); | |
874 | ||
875 | this->options_.add_sysroot(); | |
46738c9a ILT |
876 | |
877 | // Ensure options don't contradict each other and are otherwise kosher. | |
878 | this->normalize_options(); | |
879 | } | |
880 | ||
3c2fafa5 ILT |
881 | // Extract an option argument for a special option. LONGNAME is the |
882 | // long name of the option. This sets *PRET to the return value for | |
883 | // the special function handler to skip to the next option. | |
884 | ||
885 | const char* | |
886 | Command_line::get_special_argument(const char* longname, int argc, char** argv, | |
887 | const char* arg, bool long_option, | |
888 | int *pret) | |
889 | { | |
890 | if (long_option) | |
891 | { | |
892 | size_t longlen = strlen(longname); | |
893 | gold_assert(strncmp(arg, longname, longlen) == 0); | |
894 | arg += longlen; | |
895 | if (*arg == '=') | |
896 | { | |
897 | *pret = 1; | |
898 | return arg + 1; | |
899 | } | |
900 | else if (argc > 1) | |
901 | { | |
902 | gold_assert(*arg == '\0'); | |
903 | *pret = 2; | |
904 | return argv[1]; | |
905 | } | |
906 | } | |
907 | else | |
908 | { | |
909 | if (arg[1] != '\0') | |
910 | { | |
911 | *pret = 1; | |
912 | return arg + 1; | |
913 | } | |
914 | else if (argc > 1) | |
915 | { | |
916 | *pret = 2; | |
917 | return argv[1]; | |
918 | } | |
919 | } | |
920 | ||
921 | this->usage(_("missing argument"), arg); | |
922 | } | |
923 | ||
46738c9a ILT |
924 | // Ensure options don't contradict each other and are otherwise kosher. |
925 | ||
926 | void | |
927 | Command_line::normalize_options() | |
928 | { | |
929 | // If the user specifies both -s and -r, convert the -s as -S. | |
930 | // -r requires us to keep externally visible symbols! | |
931 | if (this->options_.strip_all() && this->options_.is_relocatable()) | |
932 | { | |
933 | // Clears the strip_all() status, replacing it with strip_debug(). | |
934 | this->options_.set_strip_debug(); | |
935 | } | |
936 | ||
937 | // FIXME: we can/should be doing a lot more sanity checking here. | |
bae7f79e ILT |
938 | } |
939 | ||
46738c9a | 940 | |
bae7f79e ILT |
941 | // Apply a command line option. |
942 | ||
943 | void | |
61ba1cf9 ILT |
944 | Command_line::apply_option(const options::One_option& opt, |
945 | const char* arg) | |
bae7f79e ILT |
946 | { |
947 | if (arg == NULL) | |
948 | { | |
949 | if (opt.general_noarg) | |
950 | (this->options_.*(opt.general_noarg))(); | |
951 | else if (opt.dependent_noarg) | |
952 | (this->position_options_.*(opt.dependent_noarg))(); | |
953 | else | |
61ba1cf9 | 954 | gold_unreachable(); |
bae7f79e ILT |
955 | } |
956 | else | |
957 | { | |
958 | if (opt.general_arg) | |
959 | (this->options_.*(opt.general_arg))(arg); | |
960 | else if (opt.dependent_arg) | |
961 | (this->position_options_.*(opt.dependent_arg))(arg); | |
962 | else | |
61ba1cf9 | 963 | gold_unreachable(); |
bae7f79e ILT |
964 | } |
965 | } | |
966 | ||
ead1e424 ILT |
967 | // Add an input file or library. |
968 | ||
969 | void | |
970 | Command_line::add_file(const char* name, bool is_lib) | |
971 | { | |
51dee2fe | 972 | Input_file_argument file(name, is_lib, "", this->position_options_); |
dbe717ef | 973 | this->inputs_.add_file(file); |
ead1e424 ILT |
974 | } |
975 | ||
61ba1cf9 ILT |
976 | // Handle the -l option, which requires special treatment. |
977 | ||
978 | int | |
3c2fafa5 ILT |
979 | Command_line::process_l_option(int argc, char** argv, char* arg, |
980 | bool long_option) | |
61ba1cf9 ILT |
981 | { |
982 | int ret; | |
3c2fafa5 ILT |
983 | const char* libname = this->get_special_argument("library", argc, argv, arg, |
984 | long_option, &ret); | |
ead1e424 | 985 | this->add_file(libname, true); |
61ba1cf9 ILT |
986 | return ret; |
987 | } | |
988 | ||
ead1e424 ILT |
989 | // Handle the --start-group option. |
990 | ||
991 | void | |
992 | Command_line::start_group(const char* arg) | |
993 | { | |
dbe717ef | 994 | if (this->inputs_.in_group()) |
ead1e424 | 995 | this->usage(_("may not nest groups"), arg); |
dbe717ef | 996 | this->inputs_.start_group(); |
ead1e424 ILT |
997 | } |
998 | ||
999 | // Handle the --end-group option. | |
1000 | ||
1001 | void | |
1002 | Command_line::end_group(const char* arg) | |
1003 | { | |
dbe717ef | 1004 | if (!this->inputs_.in_group()) |
ead1e424 | 1005 | this->usage(_("group end without group start"), arg); |
dbe717ef | 1006 | this->inputs_.end_group(); |
ead1e424 ILT |
1007 | } |
1008 | ||
bae7f79e ILT |
1009 | // Report a usage error. */ |
1010 | ||
1011 | void | |
61ba1cf9 | 1012 | Command_line::usage() |
bae7f79e ILT |
1013 | { |
1014 | fprintf(stderr, | |
1015 | _("%s: use the --help option for usage information\n"), | |
61ba1cf9 | 1016 | program_name); |
c7912668 | 1017 | ::exit(EXIT_FAILURE); |
bae7f79e ILT |
1018 | } |
1019 | ||
1020 | void | |
61ba1cf9 | 1021 | Command_line::usage(const char* msg, const char *opt) |
bae7f79e ILT |
1022 | { |
1023 | fprintf(stderr, | |
1024 | _("%s: %s: %s\n"), | |
61ba1cf9 | 1025 | program_name, opt, msg); |
bae7f79e ILT |
1026 | this->usage(); |
1027 | } | |
1028 | ||
1029 | void | |
61ba1cf9 | 1030 | Command_line::usage(const char* msg, char opt) |
bae7f79e ILT |
1031 | { |
1032 | fprintf(stderr, | |
1033 | _("%s: -%c: %s\n"), | |
61ba1cf9 | 1034 | program_name, opt, msg); |
bae7f79e ILT |
1035 | this->usage(); |
1036 | } | |
61ba1cf9 ILT |
1037 | |
1038 | } // End namespace gold. |