]>
Commit | Line | Data |
---|---|---|
4a2caf6c | 1 | /* Subroutines for the gcc driver. |
aeee4812 | 2 | Copyright (C) 2009-2023 Free Software Foundation, Inc. |
4a2caf6c GJL |
3 | Contributed by Georg-Johann Lay <avr@gjlay.de> |
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 | ||
8fcc61f8 RS |
21 | #define IN_TARGET_CODE 1 |
22 | ||
4a2caf6c GJL |
23 | #include "config.h" |
24 | #include "system.h" | |
25 | #include "coretypes.h" | |
26 | #include "diagnostic.h" | |
27 | #include "tm.h" | |
28 | ||
e3e131c9 GJL |
29 | // Remove -nodevicelib and -nodevicespecs from the command line if not needed. |
30 | #define X_NODEVLIB "%<nodevicelib %<nodevicespecs" | |
076d86f3 | 31 | |
4a2caf6c GJL |
32 | static const char dir_separator_str[] = { DIR_SEPARATOR, 0 }; |
33 | ||
4a2caf6c GJL |
34 | |
35 | /* Implement spec function `device-specs-fileĀ“. | |
36 | ||
66c3dd8c PS |
37 | Validate mcu name given with -mmcu option. Compose |
38 | -specs=<specs-file-name>%s. If everything went well then argv[0] is the | |
39 | inflated (absolute) first device-specs directory and argv[1] is a device | |
40 | or core name as supplied by -mmcu=*. When building GCC the path might be | |
41 | relative. */ | |
4a2caf6c GJL |
42 | |
43 | const char* | |
44 | avr_devicespecs_file (int argc, const char **argv) | |
45 | { | |
4a2caf6c GJL |
46 | const char *mmcu = NULL; |
47 | ||
48 | #ifdef DEBUG_SPECS | |
49 | if (verbose_flag) | |
50 | fnotice (stderr, "Running spec function '%s' with %d args\n\n", | |
51 | __FUNCTION__, argc); | |
52 | #endif | |
53 | ||
54 | switch (argc) | |
55 | { | |
56 | case 0: | |
57 | fatal_error (input_location, | |
58 | "bad usage of spec function %qs", "device-specs-file"); | |
076d86f3 | 59 | return X_NODEVLIB; |
4a2caf6c GJL |
60 | |
61 | case 1: | |
01512446 | 62 | if (strcmp ("device-specs", argv[0]) == 0) |
3184f36f GJL |
63 | { |
64 | /* FIXME: This means "device-specs%s" from avr.h:DRIVER_SELF_SPECS | |
65 | has not been resolved to a path. That case can occur when the | |
66 | c++ testsuite is run from the build directory. DejaGNU's | |
67 | libgloss.exp:get_multilibs runs $compiler without -B, i.e.runs | |
68 | xgcc without specifying a prefix. Without any prefix, there is | |
69 | no means to find out where the specs files might be located. | |
70 | get_multilibs runs xgcc --print-multi-lib, hence we don't actually | |
71 | need information form a specs file and may skip it here. */ | |
72 | return X_NODEVLIB; | |
73 | } | |
74 | ||
4a2caf6c GJL |
75 | mmcu = AVR_MMCU_DEFAULT; |
76 | break; | |
77 | ||
ed137300 | 78 | default: |
4a2caf6c | 79 | mmcu = argv[1]; |
4a2caf6c | 80 | |
ed137300 GJL |
81 | // Allow specifying the same MCU more than once. |
82 | ||
83 | for (int i = 2; i < argc; i++) | |
01512446 | 84 | if (strcmp (mmcu, argv[i]) != 0) |
ed137300 GJL |
85 | { |
86 | error ("specified option %qs more than once", "-mmcu"); | |
87 | return X_NODEVLIB; | |
88 | } | |
89 | ||
90 | break; | |
4a2caf6c GJL |
91 | } |
92 | ||
4a2caf6c GJL |
93 | // Filter out silly -mmcu= arguments like "foo bar". |
94 | ||
95 | for (const char *s = mmcu; *s; s++) | |
96 | if (!ISALNUM (*s) | |
97 | && '-' != *s | |
98 | && '_' != *s) | |
99 | { | |
100 | error ("strange device name %qs after %qs: bad character %qc", | |
101 | mmcu, "-mmcu=", *s); | |
076d86f3 | 102 | return X_NODEVLIB; |
4a2caf6c GJL |
103 | } |
104 | ||
e3e131c9 GJL |
105 | return concat ("%{!nodevicespecs:-specs=device-specs", dir_separator_str, |
106 | "specs-", mmcu, "%s} %<nodevicespecs" | |
076d86f3 | 107 | #if defined (WITH_AVRLIBC) |
66c3dd8c | 108 | " %{mmcu=avr*:" X_NODEVLIB "} %{!mmcu=*:" X_NODEVLIB "}", |
076d86f3 | 109 | #else |
66c3dd8c | 110 | " " X_NODEVLIB, |
076d86f3 | 111 | #endif |
66c3dd8c | 112 | NULL); |
4a2caf6c | 113 | } |
29f3def3 GJL |
114 | |
115 | ||
116 | /* Re-build the -mdouble= and -mlong-double= options. This is needed | |
5b01f1a5 | 117 | because these options are not independent of each other. */ |
29f3def3 GJL |
118 | |
119 | const char* | |
120 | avr_double_lib (int argc, const char **argv) | |
121 | { | |
122 | #if defined (WITH_DOUBLE64) | |
123 | int dbl = 64; | |
124 | #elif defined (WITH_DOUBLE32) | |
125 | int dbl = 32; | |
126 | #else | |
127 | #error "align this with config.gcc" | |
128 | #endif | |
129 | ||
130 | #if defined (WITH_LONG_DOUBLE64) | |
131 | int ldb = 64; | |
132 | #elif defined (WITH_LONG_DOUBLE32) | |
133 | int ldb = 32; | |
134 | #else | |
135 | #error "align this with config.gcc" | |
136 | #endif | |
137 | ||
138 | for (int i = 0; i < argc; i++) | |
139 | { | |
140 | if (strcmp (argv[i], "mdouble=32") == 0) | |
141 | { | |
142 | dbl = 32; | |
143 | #ifdef HAVE_LONG_DOUBLE_IS_DOUBLE | |
144 | ldb = dbl; | |
145 | #endif | |
146 | } | |
147 | else if (strcmp (argv[i], "mdouble=64") == 0) | |
148 | { | |
149 | ldb = dbl = 64; | |
150 | } | |
151 | else if (strcmp (argv[i], "mlong-double=32") == 0) | |
152 | { | |
153 | ldb = dbl = 32; | |
154 | } | |
155 | else if (strcmp (argv[i], "mlong-double=64") == 0) | |
156 | { | |
157 | ldb = 64; | |
158 | #ifdef HAVE_LONG_DOUBLE_IS_DOUBLE | |
159 | dbl = ldb; | |
160 | #endif | |
161 | } | |
162 | } | |
163 | ||
164 | return concat (" %<mdouble=* -mdouble=", dbl == 32 ? "32" : "64", | |
165 | " %<mlong-double=* -mlong-double=", ldb == 32 ? "32" : "64", | |
166 | NULL); | |
167 | } |