1 /* Specific flags and argument handling of the front-end of the
2 GNU compiler for the Java(TM) language.
3 Copyright (C) 1996-2016 Free Software Foundation, Inc.
4
5 This file is part of GCC.
6
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
10 any later version.
11
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>.
20
21 Java and all Java-based marks are trademarks or registered trademarks
22 of Sun Microsystems, Inc. in the United States and other countries.
23 The Free Software Foundation is independent of Sun Microsystems, Inc. */
24
25 #include "config.h"
26 #include "system.h"
27 #include "coretypes.h"
28 #include "tm.h"
29 #include "gcc.h"
30 #include "jcf.h"
31 #include "opts.h"
32
33 /* Name of spec file. */
34 #define SPEC_FILE "libgcj.spec"
35
36 /* This bit is set if we saw a `-xfoo' language specification. */
37 #define LANGSPEC (1<<1)
38 /* True if this arg is a .java input file name. */
39 #define JAVA_FILE_ARG (1<<3)
40 /* True if this arg is a .class input file name. */
41 #define CLASS_FILE_ARG (1<<4)
42 /* True if this arg is a .zip or .jar input file name. */
43 #define ZIP_FILE_ARG (1<<5)
44 /* True if this arg is @FILE - where FILE contains a list of filenames. */
45 #define INDIRECT_FILE_ARG (1<<6)
46 /* True if this arg is a resource file. */
47 #define RESOURCE_FILE_ARG (1<<7)
48
49 static char *find_spec_file (const char *);
50 static int verify_class_name (const char *);
51
52 static const char *main_class_name = NULL;
53 int lang_specific_extra_outfiles = 0;
54
55 /* True if we should add -shared-libgcc to the command-line. */
56 int shared_libgcc = 1;
57
58 static const char jvgenmain_spec[] =
59 "jvgenmain %{findirect-dispatch} %{D*} %b %m.i |\n\
60 cc1 %m.i %1 \
61 %{!Q:-quiet} -dumpbase %b.c %{d*} %{m*}\
62 %{g*} %{O*} %I \
63 %{v:-version} %{pg:-p} %{p}\
64 %<fbounds-check %<fno-bounds-check\
65 %<fassume-compiled* %<fno-assume-compiled*\
66 %<fcompile-resource* %<fassert %<fno-assert \
67 %<femit-class-file %<femit-class-files %<fencoding*\
68 %<fuse-boehm-gc %<fhash-synchronization %<fjni\
69 %<findirect-dispatch\
70 %<fno-store-check %<foutput-class-dir\
71 %<fclasspath* %<fbootclasspath*\
72 %<fextdirs*\
73 %<fuse-divide-subroutine %<fno-use-divide-subroutine\
74 %<fuse-atomic-builtins %<fno-use-atomic-builtins\
75 %<fcheck-references %<fno-check-references\
76 %<ffilelist-file %<fsaw-java-file %<fsource* %<ftarget*\
77 %{f*} -fdollars-in-identifiers\
78 %{aux-info*}\
79 %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
80 %{S:%W{o*}%{!o*:-o %b.s}}\
81 %(invoke_as)";
82
83 /* Return full path name of spec file if it is in DIR, or NULL if
84 not. */
85 static char *
find_spec_file(const char * dir)86 find_spec_file (const char *dir)
87 {
88 char *spec;
89 struct stat sb;
90
91 spec = XNEWVEC (char, strlen (dir) + sizeof (SPEC_FILE) + 4);
92 strcpy (spec, dir);
93 strcat (spec, "/");
94 strcat (spec, SPEC_FILE);
95 if (! stat (spec, &sb))
96 return spec;
97 free (spec);
98 return NULL;
99 }
100
101 #define JAVA_START_CHAR_P(c) (c < 128 && (ISIDST (c) || c == '$'))
102 #define JAVA_PART_CHAR_P(c) (c < 128 \
103 && (ISIDNUM (c) \
104 || c == '$' \
105 || (c >= 0x00 && c <= 0x08) \
106 || (c >= 0x0e && c <= 0x1b) \
107 || c == 0x7f))
108
109 /* Verify that NAME is a valid Java class name that might contain
110 `main'. Return 0 on failure. */
111 static int
verify_class_name(const char * name)112 verify_class_name (const char *name)
113 {
114 /* FIXME: what encoding do we use for command-line arguments? For
115 now we assume plain ASCII, which of course is wrong. */
116 while (*name)
117 {
118 int ch = *name++;
119 if (ch < 0 || ! JAVA_START_CHAR_P (ch))
120 return 0;
121 while (*name)
122 {
123 ch = *name++;
124 if (ch < 0)
125 return 0;
126 /* We found a break between class names. Next character
127 must be an identifier start again. */
128 if (ch == '.')
129 break;
130 if (! JAVA_PART_CHAR_P (ch))
131 return 0;
132 }
133 }
134
135 return 1;
136 }
137
138 void
lang_specific_driver(struct cl_decoded_option ** in_decoded_options,unsigned int * in_decoded_options_count,int * in_added_libraries)139 lang_specific_driver (struct cl_decoded_option **in_decoded_options,
140 unsigned int *in_decoded_options_count,
141 int *in_added_libraries)
142 {
143 unsigned int i, j;
144
145 int saw_save_temps = 0;
146
147 /* This will be 0 if we encounter a situation where we should not
148 link in libgcj. */
149 int library = 1;
150
151 /* This will be 1 if multiple input files (.class and/or .java)
152 should be passed to a single jc1 invocation. */
153 int combine_inputs = 0;
154
155 /* Number of .java and .class source file arguments seen. */
156 int java_files_count = 0;
157 int class_files_count = 0;
158 /* Number of .zip or .jar file arguments seen. */
159 int zip_files_count = 0;
160 /* Number of '@FILES' arguments seen. */
161 int indirect_files_count = 0;
162
163 /* Name of file containing list of files to compile. */
164 char *filelist_filename = 0;
165
166 FILE *filelist_file = 0;
167
168 /* The number of arguments being added to what's in argv, other than
169 libraries. */
170 int added = 2;
171
172 /* The new argument list will be contained in this. */
173 struct cl_decoded_option *new_decoded_options;
174
175 /* Nonzero if we saw a `-xfoo' language specification on the
176 command line. Used to avoid adding our own -xc++ if the user
177 already gave a language for the file. */
178 int saw_speclang = 0;
179
180 /* Saw --resource, -C or -o options, respectively. */
181 int saw_resource = 0;
182 int saw_C = 0;
183 int saw_o = 0;
184
185 /* Saw some -O* or -g* option, respectively. */
186 int saw_O = 0;
187 int saw_g = 0;
188
189 /* Saw a `-D' option. */
190 int saw_D = 0;
191
192 /* An array used to flag each argument that needs a bit set for
193 LANGSPEC, MATHLIB, WITHLIBC, or GCLIB. */
194 int *args;
195
196 /* The total number of arguments with the new stuff. */
197 unsigned int argc;
198
199 /* The argument list. */
200 struct cl_decoded_option *decoded_options;
201
202 /* The number of libraries added in. */
203 int added_libraries;
204
205 /* The total number of arguments with the new stuff. */
206 unsigned int num_args = 1;
207
208 /* Nonzero if linking is supposed to happen. */
209 int will_link = 1;
210
211 /* Nonzero if we want to find the spec file. */
212 int want_spec_file = 1;
213
214 /* The argument we use to specify the spec file. */
215 char *spec_file = NULL;
216
217 /* If linking, nonzero if the BC-ABI is in use. */
218 int link_for_bc_abi = 0;
219
220 argc = *in_decoded_options_count;
221 decoded_options = *in_decoded_options;
222 added_libraries = *in_added_libraries;
223
224 args = XCNEWVEC (int, argc);
225
226 for (i = 1; i < argc; i++)
227 {
228 switch (decoded_options[i].opt_index)
229 {
230 case OPT_nostdlib:
231 case OPT_nodefaultlibs:
232 library = 0;
233 break;
234
235 case OPT_fmain_:
236 main_class_name = decoded_options[i].arg;
237 added--;
238 break;
239
240 case OPT__help:
241 want_spec_file = 0;
242 break;
243
244 case OPT_v:
245 if (argc == 2)
246 {
247 /* If they only gave us `-v', don't try to link
248 in libgcj. */
249 library = 0;
250 }
251 break;
252
253 case OPT_x:
254 saw_speclang = 1;
255 break;
256
257 case OPT_C:
258 saw_C = 1;
259 want_spec_file = 0;
260 if (library != 0)
261 added -= 2;
262 library = 0;
263 will_link = 0;
264 break;
265
266 case OPT_fcompile_resource_:
267 saw_resource = 1;
268 want_spec_file = 0;
269 if (library != 0)
270 --added;
271 library = 0;
272 will_link = 0;
273 break;
274
275 case OPT_D:
276 saw_D = 1;
277 break;
278
279 case OPT_g:
280 case OPT_gcoff:
281 case OPT_gdwarf_:
282 case OPT_ggdb:
283 case OPT_gstabs:
284 case OPT_gstabs_:
285 case OPT_gvms:
286 case OPT_gxcoff:
287 case OPT_gxcoff_:
288 saw_g = 1;
289 break;
290
291 case OPT_O:
292 case OPT_Os:
293 case OPT_Ofast:
294 saw_O = 1;
295 break;
296
297 case OPT_o:
298 saw_o = 1;
299 break;
300
301 case OPT_fclasspath_:
302 case OPT_fbootclasspath_:
303 case OPT_extdirs:
304 added -= 1;
305 break;
306
307 case OPT_c:
308 case OPT_S:
309 case OPT_E:
310 case OPT_M:
311 case OPT_MM:
312 /* Don't specify libraries if we won't link, since that would
313 cause a warning. */
314 library = 0;
315 added -= 2;
316
317 /* Remember this so we can confirm -fmain option. */
318 will_link = 0;
319 break;
320
321 case OPT_fsyntax_only:
322 library = 0;
323 will_link = 0;
324 continue;
325
326 case OPT_save_temps:
327 saw_save_temps = 1;
328 break;
329
330 case OPT_static_libgcc:
331 case OPT_static:
332 shared_libgcc = 0;
333 break;
334
335 case OPT_findirect_dispatch:
336 link_for_bc_abi = 1;
337 break;
338
339 case OPT_SPECIAL_input_file:
340 {
341 const char *arg = decoded_options[i].arg;
342 int len;
343
344 /* We don't do this anymore, since we don't get them with minus
345 signs on them. */
346 if (arg[0] == '\0' || arg[1] == '\0')
347 continue;
348
349 if (saw_speclang)
350 {
351 saw_speclang = 0;
352 continue;
353 }
354
355 if (saw_resource)
356 {
357 args[i] |= RESOURCE_FILE_ARG;
358 added += 2; /* for -xjava and -xnone */
359 }
360
361 if (arg[0] == '@')
362 {
363 args[i] |= INDIRECT_FILE_ARG;
364 indirect_files_count++;
365 added += 2; /* for -xjava and -xnone */
366 }
367
368 len = strlen (arg);
369 if (len > 5 && strcmp (arg + len - 5, ".java") == 0)
370 {
371 args[i] |= JAVA_FILE_ARG;
372 java_files_count++;
373 }
374 if (len > 6 && strcmp (arg + len - 6, ".class") == 0)
375 {
376 args[i] |= CLASS_FILE_ARG;
377 class_files_count++;
378 }
379 if (len > 4
380 && (strcmp (arg + len - 4, ".zip") == 0
381 || strcmp (arg + len - 4, ".jar") == 0))
382 {
383 args[i] |= ZIP_FILE_ARG;
384 zip_files_count++;
385 }
386 }
387
388 default:
389 /* Pass other options through. */
390 continue;
391 }
392 }
393
394 if (saw_D && ! main_class_name)
395 fatal_error (input_location, "can%'t specify %<-D%> without %<--main%>");
396
397 if (main_class_name && ! verify_class_name (main_class_name))
398 fatal_error (input_location,
399 "%qs is not a valid class name", main_class_name);
400
401 num_args = argc + added;
402 if (saw_resource)
403 {
404 if (! saw_o)
405 fatal_error (input_location, "--resource requires -o");
406 }
407 if (saw_C)
408 {
409 num_args += 3;
410 if (class_files_count + zip_files_count > 0)
411 {
412 warning (0, "already-compiled .class files ignored with -C");
413 num_args -= class_files_count + zip_files_count;
414 class_files_count = 0;
415 zip_files_count = 0;
416 }
417 num_args += 2; /* For -o NONE. */
418 if (saw_o)
419 fatal_error (input_location, "cannot specify both -C and -o");
420 }
421 if ((saw_o && java_files_count + class_files_count + zip_files_count > 1)
422 || (saw_C && java_files_count > 1)
423 || (indirect_files_count > 0
424 && java_files_count + class_files_count + zip_files_count > 0))
425 combine_inputs = 1;
426
427 if (combine_inputs)
428 {
429 filelist_filename = make_temp_file ("jx");
430 if (filelist_filename == NULL)
431 fatal_error (input_location, "cannot create temporary file");
432 record_temp_file (filelist_filename, ! saw_save_temps, 0);
433 filelist_file = fopen (filelist_filename, "w");
434 if (filelist_file == NULL)
435 pfatal_with_name (filelist_filename);
436 num_args -= java_files_count + class_files_count + zip_files_count;
437 num_args += 3; /* for the combined arg "-xjava", and "-xnone" */
438 }
439
440 if (main_class_name)
441 {
442 lang_specific_extra_outfiles++;
443 }
444 if (saw_g + saw_O == 0)
445 num_args++;
446 num_args++;
447 /* An additional entry for the classpath. */
448 num_args++;
449
450 if (combine_inputs || indirect_files_count > 0)
451 num_args += 1; /* for "-ffilelist-file" */
452 if (combine_inputs && indirect_files_count > 0)
453 fatal_error (input_location,
454 "using both @FILE with multiple files not implemented");
455
456 /* There's no point adding -shared-libgcc if we don't have a shared
457 libgcc. */
458 #ifndef ENABLE_SHARED_LIBGCC
459 shared_libgcc = 0;
460 #endif
461
462 if (java_files_count > 0)
463 ++num_args;
464
465 num_args += shared_libgcc;
466
467 num_args += link_for_bc_abi;
468
469 new_decoded_options = XNEWVEC (struct cl_decoded_option, num_args);
470 j = 0;
471
472 new_decoded_options[j++] = decoded_options[0];
473
474 if (combine_inputs || indirect_files_count > 0)
475 generate_option (OPT_ffilelist_file, NULL, 1, CL_DRIVER,
476 &new_decoded_options[j++]);
477
478 if (combine_inputs)
479 {
480 generate_option (OPT_x, "java", 1, CL_DRIVER,
481 &new_decoded_options[j++]);
482 generate_option_input_file (filelist_filename,
483 &new_decoded_options[j++]);
484 generate_option (OPT_x, "none", 1, CL_DRIVER,
485 &new_decoded_options[j++]);
486 }
487
488 if (java_files_count > 0)
489 generate_option (OPT_fsaw_java_file, NULL, 1, CL_DRIVER,
490 &new_decoded_options[j++]);
491
492 jcf_path_init ();
493 for (i = 1; i < argc; i++, j++)
494 {
495 new_decoded_options[j] = decoded_options[i];
496
497 if (decoded_options[i].errors & CL_ERR_MISSING_ARG)
498 continue;
499
500 if ((args[i] & RESOURCE_FILE_ARG) != 0)
501 {
502 generate_option (OPT_x, "java", 1, CL_DRIVER,
503 &new_decoded_options[j++]);
504 new_decoded_options[j++] = decoded_options[i];
505 generate_option (OPT_x, "none", 1, CL_DRIVER,
506 &new_decoded_options[j]);
507 }
508
509 switch (decoded_options[i].opt_index)
510 {
511 case OPT_I:
512 jcf_path_include_arg (decoded_options[i].arg);
513 --j;
514 continue;
515
516 case OPT_fclasspath_:
517 jcf_path_classpath_arg (decoded_options[i].arg);
518 --j;
519 continue;
520
521 case OPT_fbootclasspath_:
522 jcf_path_bootclasspath_arg (decoded_options[i].arg);
523 --j;
524 continue;
525
526 case OPT_extdirs:
527 jcf_path_extdirs_arg (decoded_options[i].arg);
528 --j;
529 continue;
530
531 case OPT_L:
532 if (spec_file == NULL)
533 spec_file = find_spec_file (decoded_options[i].arg);
534 break;
535
536 case OPT_fmain_:
537 if (! will_link)
538 fatal_error (input_location,
539 "cannot specify %<main%> class when not linking");
540 --j;
541 continue;
542 }
543
544 if ((args[i] & INDIRECT_FILE_ARG) != 0)
545 {
546 generate_option (OPT_x, "java", 1, CL_DRIVER,
547 &new_decoded_options[j++]);
548 /* Drop '@'. */
549 generate_option_input_file (decoded_options[i].arg + 1,
550 &new_decoded_options[j++]);
551 generate_option (OPT_x, "none", 1, CL_DRIVER,
552 &new_decoded_options[j]);
553 }
554
555 if ((args[i] & (CLASS_FILE_ARG|ZIP_FILE_ARG)) && saw_C)
556 {
557 --j;
558 continue;
559 }
560
561 if (combine_inputs
562 && (args[i] & (CLASS_FILE_ARG|JAVA_FILE_ARG|ZIP_FILE_ARG)) != 0)
563 {
564 fputs (decoded_options[i].arg, filelist_file);
565 fputc ('\n', filelist_file);
566 --j;
567 continue;
568 }
569 }
570
571 /* Handle classpath setting. We specify the bootclasspath since
572 that requires the fewest changes to our existing code... */
573 jcf_path_seal (0);
574 generate_option (OPT_fbootclasspath_, jcf_path_compute (""), 1,
575 CL_DRIVER, &new_decoded_options[j++]);
576
577 if (combine_inputs)
578 {
579 if (fclose (filelist_file))
580 pfatal_with_name (filelist_filename);
581 }
582
583 /* If we saw no -O or -g option, default to -g1, for javac compatibility. */
584 if (saw_g + saw_O == 0)
585 generate_option (OPT_g, "1", 1, CL_DRIVER, &new_decoded_options[j++]);
586
587 /* Read the specs file corresponding to libgcj.
588 If we didn't find the spec file on the -L path, then we hope it
589 is somewhere in the standard install areas. */
590 if (want_spec_file)
591 generate_option (OPT_specs_, spec_file == NULL ? "libgcj.spec" : spec_file,
592 1, CL_DRIVER, &new_decoded_options[j++]);
593
594 if (saw_C)
595 {
596 generate_option (OPT_fsyntax_only, NULL, 1, CL_DRIVER,
597 &new_decoded_options[j++]);
598 generate_option (OPT_femit_class_files, NULL, 1, CL_DRIVER,
599 &new_decoded_options[j++]);
600 generate_option (OPT_S, NULL, 1, CL_DRIVER, &new_decoded_options[j++]);
601 generate_option (OPT_o, "NONE", 1, CL_DRIVER,
602 &new_decoded_options[j++]);
603 }
604
605 if (shared_libgcc)
606 generate_option (OPT_shared_libgcc, NULL, 1, CL_DRIVER,
607 &new_decoded_options[j++]);
608
609 if (link_for_bc_abi)
610 generate_option (OPT_s_bc_abi, NULL, 1, CL_DRIVER,
611 &new_decoded_options[j++]);
612
613 *in_decoded_options_count = j;
614 *in_decoded_options = new_decoded_options;
615 *in_added_libraries = added_libraries;
616 }
617
618 int
lang_specific_pre_link(void)619 lang_specific_pre_link (void)
620 {
621 int err;
622 if (main_class_name == NULL)
623 return 0;
624 /* Append `main' to make the filename unique and allow
625
626 gcj --main=hello -save-temps hello.java
627
628 to work. jvgenmain needs to strip this `main' to arrive at the correct
629 class name. Append dummy `.c' that can be stripped by set_input so %b
630 is correct. */
631 set_input (concat (main_class_name, "main.c", NULL));
632 err = do_spec (jvgenmain_spec);
633 if (err == 0)
634 {
635 /* Shift the outfiles array so the generated main comes first.
636 This is important when linking against (non-shared) libraries,
637 since otherwise we risk (a) nothing getting linked or
638 (b) 'main' getting picked up from a library. */
639 int i = n_infiles;
640 const char *generated = outfiles[i];
641 while (--i >= 0)
642 outfiles[i + 1] = outfiles[i];
643 outfiles[0] = generated;
644 }
645 return err;
646 }
647