1 /* Subroutines for the gcc driver. 2 Copyright (C) 2009-2020 Free Software Foundation, Inc. 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 21 #define IN_TARGET_CODE 1 22 23 #include "config.h" 24 #include "system.h" 25 #include "coretypes.h" 26 #include "diagnostic.h" 27 #include "tm.h" 28 29 // Remove -nodevicelib and -nodevicespecs from the command line if not needed. 30 #define X_NODEVLIB "%<nodevicelib %<nodevicespecs" 31 32 static const char dir_separator_str[] = { DIR_SEPARATOR, 0 }; 33 34 35 /* Implement spec function `device-specs-file´. 36 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. */ 42 43 const char* 44 avr_devicespecs_file (int argc, const char **argv) 45 { 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"); 59 return X_NODEVLIB; 60 61 case 1: 62 if (strcmp ("device-specs", argv[0]) == 0) 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 75 mmcu = AVR_MMCU_DEFAULT; 76 break; 77 78 default: 79 mmcu = argv[1]; 80 81 // Allow specifying the same MCU more than once. 82 83 for (int i = 2; i < argc; i++) 84 if (strcmp (mmcu, argv[i]) != 0) 85 { 86 error ("specified option %qs more than once", "-mmcu"); 87 return X_NODEVLIB; 88 } 89 90 break; 91 } 92 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); 102 return X_NODEVLIB; 103 } 104 105 return concat ("%{!nodevicespecs:-specs=device-specs", dir_separator_str, 106 "specs-", mmcu, "%s} %<nodevicespecs" 107 #if defined (WITH_AVRLIBC) 108 " %{mmcu=avr*:" X_NODEVLIB "} %{!mmcu=*:" X_NODEVLIB "}", 109 #else 110 " " X_NODEVLIB, 111 #endif 112 NULL); 113 } 114 115 116 /* Re-build the -mdouble= and -mlong-double= options. This is needed 117 because these options are not independent of each other. */ 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 } 168