blob: 11cbb5f6c1b05b66c4e57bf59a4314db0a40322b [file] [log] [blame]
Daniel Dunbar4abd5662009-04-01 21:53:23 +00001//===--- Triple.cpp - Target triple helper class --------------------------===//
2//
3// The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9
10#include "llvm/ADT/Triple.h"
Jeffrey Yasskine2595b52009-10-06 21:45:26 +000011#include "llvm/ADT/SmallString.h"
Chandler Carruthff6f3562012-02-12 09:27:38 +000012#include "llvm/ADT/StringSwitch.h"
Duncan Sands84a3bdd2010-09-16 08:25:48 +000013#include "llvm/ADT/STLExtras.h"
David Blaikie46a9f012012-01-20 21:51:11 +000014#include "llvm/Support/ErrorHandling.h"
Mikhail Glushenkov12062ba2009-04-02 01:11:37 +000015#include <cstring>
Daniel Dunbar4abd5662009-04-01 21:53:23 +000016using namespace llvm;
17
Daniel Dunbar4abd5662009-04-01 21:53:23 +000018const char *Triple::getArchTypeName(ArchType Kind) {
19 switch (Kind) {
Daniel Dunbar4abd5662009-04-01 21:53:23 +000020 case UnknownArch: return "unknown";
Jim Grosbachf638b262010-12-17 02:10:59 +000021
Daniel Dunbar172649b2009-07-26 04:23:03 +000022 case arm: return "arm";
23 case cellspu: return "cellspu";
Tony Linthicum1213a7a2011-12-12 21:14:40 +000024 case hexagon: return "hexagon";
Daniel Dunbar172649b2009-07-26 04:23:03 +000025 case mips: return "mips";
26 case mipsel: return "mipsel";
Akira Hatanaka6c3ad652011-09-20 18:09:37 +000027 case mips64: return "mips64";
28 case mips64el:return "mips64el";
Daniel Dunbar172649b2009-07-26 04:23:03 +000029 case msp430: return "msp430";
Daniel Dunbarbd481a12009-07-26 04:52:45 +000030 case ppc64: return "powerpc64";
31 case ppc: return "powerpc";
Daniel Dunbar172649b2009-07-26 04:23:03 +000032 case sparc: return "sparc";
Chris Lattner8228b112010-02-04 06:34:01 +000033 case sparcv9: return "sparcv9";
Eli Friedman28c7bbf2009-08-19 20:46:03 +000034 case tce: return "tce";
Daniel Dunbar172649b2009-07-26 04:23:03 +000035 case thumb: return "thumb";
36 case x86: return "i386";
37 case x86_64: return "x86_64";
Daniel Dunbarbd481a12009-07-26 04:52:45 +000038 case xcore: return "xcore";
Wesley Pecke4801e42010-02-23 19:15:24 +000039 case mblaze: return "mblaze";
Justin Holewinski7d8895e2011-04-20 15:37:17 +000040 case ptx32: return "ptx32";
41 case ptx64: return "ptx64";
Ivan Krasin771ef8c2011-08-23 16:59:00 +000042 case le32: return "le32";
Tobias Grosser516dbb22011-08-29 15:44:55 +000043 case amdil: return "amdil";
Daniel Dunbar4abd5662009-04-01 21:53:23 +000044 }
45
David Blaikie46a9f012012-01-20 21:51:11 +000046 llvm_unreachable("Invalid ArchType!");
Daniel Dunbar4abd5662009-04-01 21:53:23 +000047}
48
Daniel Dunbarb8dc4ea2009-08-24 09:53:06 +000049const char *Triple::getArchTypePrefix(ArchType Kind) {
50 switch (Kind) {
51 default:
52 return 0;
53
Daniel Dunbarb8dc4ea2009-08-24 09:53:06 +000054 case arm:
55 case thumb: return "arm";
56
Daniel Dunbarb8dc4ea2009-08-24 09:53:06 +000057 case cellspu: return "spu";
58
59 case ppc64:
60 case ppc: return "ppc";
61
Wesley Pecke4801e42010-02-23 19:15:24 +000062 case mblaze: return "mblaze";
63
Tony Linthicum1213a7a2011-12-12 21:14:40 +000064 case hexagon: return "hexagon";
65
Chris Lattner8228b112010-02-04 06:34:01 +000066 case sparcv9:
Daniel Dunbarb8dc4ea2009-08-24 09:53:06 +000067 case sparc: return "sparc";
68
69 case x86:
70 case x86_64: return "x86";
Nick Lewycky4c82c6c2010-09-07 18:14:24 +000071
Daniel Dunbarb8dc4ea2009-08-24 09:53:06 +000072 case xcore: return "xcore";
Nick Lewycky4c82c6c2010-09-07 18:14:24 +000073
Justin Holewinski7d8895e2011-04-20 15:37:17 +000074 case ptx32: return "ptx";
75 case ptx64: return "ptx";
Ivan Krasin771ef8c2011-08-23 16:59:00 +000076 case le32: return "le32";
Tobias Grosser516dbb22011-08-29 15:44:55 +000077 case amdil: return "amdil";
Daniel Dunbarb8dc4ea2009-08-24 09:53:06 +000078 }
79}
80
Daniel Dunbar4abd5662009-04-01 21:53:23 +000081const char *Triple::getVendorTypeName(VendorType Kind) {
82 switch (Kind) {
83 case UnknownVendor: return "unknown";
84
85 case Apple: return "apple";
Chris Lattner07921952009-08-14 18:48:13 +000086 case PC: return "pc";
John Thompsond0332e42011-03-15 21:51:56 +000087 case SCEI: return "scei";
Daniel Dunbar4abd5662009-04-01 21:53:23 +000088 }
89
David Blaikie46a9f012012-01-20 21:51:11 +000090 llvm_unreachable("Invalid VendorType!");
Daniel Dunbar4abd5662009-04-01 21:53:23 +000091}
92
93const char *Triple::getOSTypeName(OSType Kind) {
94 switch (Kind) {
95 case UnknownOS: return "unknown";
96
Duncan Sands0de39b42009-06-19 14:40:01 +000097 case AuroraUX: return "auroraux";
Daniel Dunbar172649b2009-07-26 04:23:03 +000098 case Cygwin: return "cygwin";
Daniel Dunbar4abd5662009-04-01 21:53:23 +000099 case Darwin: return "darwin";
Daniel Dunbare3384c42009-05-22 02:24:11 +0000100 case DragonFly: return "dragonfly";
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000101 case FreeBSD: return "freebsd";
Daniel Dunbard74bac72011-04-19 20:19:27 +0000102 case IOS: return "ios";
Duncan Sandsfe44f672011-07-26 15:30:04 +0000103 case KFreeBSD: return "kfreebsd";
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000104 case Linux: return "linux";
Edward O'Callaghanba993b82009-11-19 11:59:00 +0000105 case Lv2: return "lv2";
Daniel Dunbar0854f342011-04-19 23:34:12 +0000106 case MacOSX: return "macosx";
Daniel Dunbar172649b2009-07-26 04:23:03 +0000107 case MinGW32: return "mingw32";
Chris Lattner01218d52009-07-13 20:22:23 +0000108 case NetBSD: return "netbsd";
Duncan Sands14814d42009-06-29 13:36:13 +0000109 case OpenBSD: return "openbsd";
Edward O'Callaghane3f3ca72009-11-15 10:18:17 +0000110 case Psp: return "psp";
Daniel Dunbar781f94d2009-08-18 04:43:27 +0000111 case Solaris: return "solaris";
Daniel Dunbar172649b2009-07-26 04:23:03 +0000112 case Win32: return "win32";
Chris Lattner27f20492009-10-16 02:06:30 +0000113 case Haiku: return "haiku";
Chris Lattnerca97c922010-07-07 15:52:27 +0000114 case Minix: return "minix";
Douglas Gregorde3c9262011-07-01 22:41:06 +0000115 case RTEMS: return "rtems";
Ivan Krasin44306e22011-08-18 22:54:21 +0000116 case NativeClient: return "nacl";
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000117 }
118
David Blaikie46a9f012012-01-20 21:51:11 +0000119 llvm_unreachable("Invalid OSType");
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000120}
121
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000122const char *Triple::getEnvironmentTypeName(EnvironmentType Kind) {
123 switch (Kind) {
124 case UnknownEnvironment: return "unknown";
Renato Golin83758d5c2011-01-21 18:25:47 +0000125 case GNU: return "gnu";
Rafael Espindolaf5e78fa2012-01-18 23:35:29 +0000126 case GNUEABIHF: return "gnueabihf";
Renato Golin83758d5c2011-01-21 18:25:47 +0000127 case GNUEABI: return "gnueabi";
128 case EABI: return "eabi";
Evan Chengd22a4a12011-02-01 01:14:13 +0000129 case MachO: return "macho";
Chandler Carruth9a7510a2012-01-10 19:46:00 +0000130 case ANDROIDEABI: return "androideabi";
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000131 }
132
David Blaikie46a9f012012-01-20 21:51:11 +0000133 llvm_unreachable("Invalid EnvironmentType!");
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000134}
135
Daniel Dunbarad36e8a2009-11-06 10:58:06 +0000136Triple::ArchType Triple::getArchTypeForLLVMName(StringRef Name) {
Chandler Carruthff6f3562012-02-12 09:27:38 +0000137 return StringSwitch<Triple::ArchType>(Name)
138 .Case("arm", arm)
139 .Case("cellspu", cellspu)
140 .Case("mips", mips)
141 .Case("mipsel", mipsel)
142 .Case("mips64", mips64)
143 .Case("mips64el", mips64el)
144 .Case("msp430", msp430)
145 .Case("ppc64", ppc64)
146 .Case("ppc32", ppc)
147 .Case("ppc", ppc)
148 .Case("mblaze", mblaze)
149 .Case("hexagon", hexagon)
150 .Case("sparc", sparc)
151 .Case("sparcv9", sparcv9)
152 .Case("tce", tce)
153 .Case("thumb", thumb)
154 .Case("x86", x86)
155 .Case("x86-64", x86_64)
156 .Case("xcore", xcore)
157 .Case("ptx32", ptx32)
158 .Case("ptx64", ptx64)
159 .Case("le32", le32)
160 .Case("amdil", amdil)
161 .Default(UnknownArch);
Daniel Dunbar0f16ea52009-08-03 04:03:51 +0000162}
163
Daniel Dunbarad36e8a2009-11-06 10:58:06 +0000164Triple::ArchType Triple::getArchTypeForDarwinArchName(StringRef Str) {
Daniel Dunbara8597a32009-09-08 23:32:51 +0000165 // See arch(3) and llvm-gcc's driver-driver.c. We don't implement support for
166 // archs which Darwin doesn't use.
167
168 // The matching this routine does is fairly pointless, since it is neither the
169 // complete architecture list, nor a reasonable subset. The problem is that
170 // historically the driver driver accepts this and also ties its -march=
171 // handling to the architecture name, so we need to be careful before removing
172 // support for it.
173
Daniel Dunbaraec990e2009-09-09 23:01:25 +0000174 // This code must be kept in sync with Clang's Darwin specific argument
175 // translation.
176
Chandler Carruthff6f3562012-02-12 09:27:38 +0000177 return StringSwitch<ArchType>(Str)
178 .Cases("ppc", "ppc601", "ppc603", "ppc604", "ppc604e", Triple::ppc)
179 .Cases("ppc750", "ppc7400", "ppc7450", "ppc970", Triple::ppc)
180 .Case("ppc64", Triple::ppc64)
181 .Cases("i386", "i486", "i486SX", "i586", "i686", Triple::x86)
182 .Cases("pentium", "pentpro", "pentIIm3", "pentIIm5", "pentium4",
183 Triple::x86)
184 .Case("x86_64", Triple::x86_64)
185 // This is derived from the driver driver.
186 .Cases("arm", "armv4t", "armv5", "armv6", Triple::arm)
187 .Cases("armv7", "armv7f", "armv7k", "armv7s", "xscale", Triple::arm)
188 .Case("ptx32", Triple::ptx32)
189 .Case("ptx64", Triple::ptx64)
190 .Case("amdil", Triple::amdil)
191 .Default(Triple::UnknownArch);
Daniel Dunbara8597a32009-09-08 23:32:51 +0000192}
193
Duncan Sands8712da32010-03-24 09:05:14 +0000194// Returns architecture name that is understood by the target assembler.
Viktor Kutuzovdafdd882009-11-17 18:48:27 +0000195const char *Triple::getArchNameForAssembler() {
Daniel Dunbar163a0962011-04-19 21:12:05 +0000196 if (!isOSDarwin() && getVendor() != Triple::Apple)
Viktor Kutuzovdafdd882009-11-17 18:48:27 +0000197 return NULL;
198
Chandler Carruthff6f3562012-02-12 09:27:38 +0000199 return StringSwitch<const char*>(getArchName())
200 .Case("i386", "i386")
201 .Case("x86_64", "x86_64")
202 .Case("powerpc", "ppc")
203 .Case("powerpc64", "ppc64")
204 .Cases("mblaze", "microblaze", "mblaze")
205 .Case("arm", "arm")
206 .Cases("armv4t", "thumbv4t", "armv4t")
207 .Cases("armv5", "armv5e", "thumbv5", "thumbv5e", "armv5")
208 .Cases("armv6", "thumbv6", "armv6")
209 .Cases("armv7", "thumbv7", "armv7")
210 .Case("ptx32", "ptx32")
211 .Case("ptx64", "ptx64")
212 .Case("le32", "le32")
213 .Case("amdil", "amdil")
214 .Default(NULL);
Viktor Kutuzovdafdd882009-11-17 18:48:27 +0000215}
216
Chandler Carruthaec97082012-02-21 08:53:32 +0000217static Triple::ArchType parseArch(StringRef ArchName) {
218 return StringSwitch<Triple::ArchType>(ArchName)
219 .Cases("i386", "i486", "i586", "i686", Triple::x86)
220 // FIXME: Do we need to support these?
221 .Cases("i786", "i886", "i986", Triple::x86)
222 .Cases("amd64", "x86_64", Triple::x86_64)
223 .Case("powerpc", Triple::ppc)
224 .Cases("powerpc64", "ppu", Triple::ppc64)
225 .Case("mblaze", Triple::mblaze)
226 .Cases("arm", "xscale", Triple::arm)
Chandler Carruthb54950b2012-02-18 04:34:17 +0000227 // FIXME: It would be good to replace these with explicit names for all the
228 // various suffixes supported.
Chandler Carruthaec97082012-02-21 08:53:32 +0000229 .StartsWith("armv", Triple::arm)
230 .Case("thumb", Triple::thumb)
231 .StartsWith("thumbv", Triple::thumb)
232 .Cases("spu", "cellspu", Triple::cellspu)
233 .Case("msp430", Triple::msp430)
234 .Cases("mips", "mipseb", "mipsallegrex", Triple::mips)
235 .Cases("mipsel", "mipsallegrexel", "psp", Triple::mipsel)
236 .Cases("mips64", "mips64eb", Triple::mips64)
237 .Case("mips64el", Triple::mips64el)
238 .Case("hexagon", Triple::hexagon)
239 .Case("sparc", Triple::sparc)
240 .Case("sparcv9", Triple::sparcv9)
241 .Case("tce", Triple::tce)
242 .Case("xcore", Triple::xcore)
243 .Case("ptx32", Triple::ptx32)
244 .Case("ptx64", Triple::ptx64)
245 .Case("le32", Triple::le32)
246 .Case("amdil", Triple::amdil)
247 .Default(Triple::UnknownArch);
Duncan Sands501dff72010-08-12 11:31:39 +0000248}
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000249
Chandler Carruthaec97082012-02-21 08:53:32 +0000250static Triple::VendorType parseVendor(StringRef VendorName) {
251 return StringSwitch<Triple::VendorType>(VendorName)
252 .Case("apple", Triple::Apple)
253 .Case("pc", Triple::PC)
254 .Case("scei", Triple::SCEI)
255 .Default(Triple::UnknownVendor);
Duncan Sands501dff72010-08-12 11:31:39 +0000256}
257
Chandler Carruthaec97082012-02-21 08:53:32 +0000258static Triple::OSType parseOS(StringRef OSName) {
259 return StringSwitch<Triple::OSType>(OSName)
260 .StartsWith("auroraux", Triple::AuroraUX)
261 .StartsWith("cygwin", Triple::Cygwin)
262 .StartsWith("darwin", Triple::Darwin)
263 .StartsWith("dragonfly", Triple::DragonFly)
264 .StartsWith("freebsd", Triple::FreeBSD)
265 .StartsWith("ios", Triple::IOS)
266 .StartsWith("kfreebsd", Triple::KFreeBSD)
267 .StartsWith("linux", Triple::Linux)
268 .StartsWith("lv2", Triple::Lv2)
269 .StartsWith("macosx", Triple::MacOSX)
270 .StartsWith("mingw32", Triple::MinGW32)
271 .StartsWith("netbsd", Triple::NetBSD)
272 .StartsWith("openbsd", Triple::OpenBSD)
273 .StartsWith("psp", Triple::Psp)
274 .StartsWith("solaris", Triple::Solaris)
275 .StartsWith("win32", Triple::Win32)
276 .StartsWith("haiku", Triple::Haiku)
277 .StartsWith("minix", Triple::Minix)
278 .StartsWith("rtems", Triple::RTEMS)
279 .StartsWith("nacl", Triple::NativeClient)
280 .Default(Triple::UnknownOS);
Duncan Sands501dff72010-08-12 11:31:39 +0000281}
282
Chandler Carruthaec97082012-02-21 08:53:32 +0000283static Triple::EnvironmentType parseEnvironment(StringRef EnvironmentName) {
284 return StringSwitch<Triple::EnvironmentType>(EnvironmentName)
285 .StartsWith("eabi", Triple::EABI)
286 .StartsWith("gnueabihf", Triple::GNUEABIHF)
287 .StartsWith("gnueabi", Triple::GNUEABI)
288 .StartsWith("gnu", Triple::GNU)
289 .StartsWith("macho", Triple::MachO)
290 .StartsWith("androideabi", Triple::ANDROIDEABI)
291 .Default(Triple::UnknownEnvironment);
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000292}
293
Chandler Carruth0d887dd2012-02-20 00:02:47 +0000294/// \brief Construct a triple from the string representation provided.
295///
Chandler Carruth1f3325a2012-02-21 08:31:18 +0000296/// This stores the string representation and parses the various pieces into
297/// enum members.
Chandler Carruth2d27b0f2012-02-21 03:39:36 +0000298Triple::Triple(const Twine &Str)
299 : Data(Str.str()),
Chandler Carruthaec97082012-02-21 08:53:32 +0000300 Arch(parseArch(getArchName())),
301 Vendor(parseVendor(getVendorName())),
302 OS(parseOS(getOSName())),
303 Environment(parseEnvironment(getEnvironmentName())) {
Chandler Carruth2d27b0f2012-02-21 03:39:36 +0000304}
Chandler Carruth0d887dd2012-02-20 00:02:47 +0000305
306/// \brief Construct a triple from string representations of the architecture,
307/// vendor, and OS.
308///
Chandler Carruth1f3325a2012-02-21 08:31:18 +0000309/// This joins each argument into a canonical string representation and parses
310/// them into enum members. It leaves the environment unknown and omits it from
311/// the string representation.
Chandler Carruth0d887dd2012-02-20 00:02:47 +0000312Triple::Triple(const Twine &ArchStr, const Twine &VendorStr, const Twine &OSStr)
313 : Data((ArchStr + Twine('-') + VendorStr + Twine('-') + OSStr).str()),
Chandler Carruthaec97082012-02-21 08:53:32 +0000314 Arch(parseArch(ArchStr.str())),
315 Vendor(parseVendor(VendorStr.str())),
316 OS(parseOS(OSStr.str())),
Chandler Carruth2d27b0f2012-02-21 03:39:36 +0000317 Environment() {
Chandler Carruth0d887dd2012-02-20 00:02:47 +0000318}
319
320/// \brief Construct a triple from string representations of the architecture,
321/// vendor, OS, and environment.
322///
Chandler Carruth1f3325a2012-02-21 08:31:18 +0000323/// This joins each argument into a canonical string representation and parses
324/// them into enum members.
Chandler Carruth0d887dd2012-02-20 00:02:47 +0000325Triple::Triple(const Twine &ArchStr, const Twine &VendorStr, const Twine &OSStr,
326 const Twine &EnvironmentStr)
327 : Data((ArchStr + Twine('-') + VendorStr + Twine('-') + OSStr + Twine('-') +
328 EnvironmentStr).str()),
Chandler Carruthaec97082012-02-21 08:53:32 +0000329 Arch(parseArch(ArchStr.str())),
330 Vendor(parseVendor(VendorStr.str())),
331 OS(parseOS(OSStr.str())),
332 Environment(parseEnvironment(EnvironmentStr.str())) {
Chandler Carruth0d887dd2012-02-20 00:02:47 +0000333}
334
Duncan Sands501dff72010-08-12 11:31:39 +0000335std::string Triple::normalize(StringRef Str) {
336 // Parse into components.
337 SmallVector<StringRef, 4> Components;
338 for (size_t First = 0, Last = 0; Last != StringRef::npos; First = Last + 1) {
339 Last = Str.find('-', First);
340 Components.push_back(Str.slice(First, Last));
341 }
342
343 // If the first component corresponds to a known architecture, preferentially
344 // use it for the architecture. If the second component corresponds to a
345 // known vendor, preferentially use it for the vendor, etc. This avoids silly
346 // component movement when a component parses as (eg) both a valid arch and a
347 // valid os.
348 ArchType Arch = UnknownArch;
349 if (Components.size() > 0)
Chandler Carruthaec97082012-02-21 08:53:32 +0000350 Arch = parseArch(Components[0]);
Duncan Sands501dff72010-08-12 11:31:39 +0000351 VendorType Vendor = UnknownVendor;
352 if (Components.size() > 1)
Chandler Carruthaec97082012-02-21 08:53:32 +0000353 Vendor = parseVendor(Components[1]);
Duncan Sands501dff72010-08-12 11:31:39 +0000354 OSType OS = UnknownOS;
355 if (Components.size() > 2)
Chandler Carruthaec97082012-02-21 08:53:32 +0000356 OS = parseOS(Components[2]);
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000357 EnvironmentType Environment = UnknownEnvironment;
358 if (Components.size() > 3)
Chandler Carruthaec97082012-02-21 08:53:32 +0000359 Environment = parseEnvironment(Components[3]);
Duncan Sands501dff72010-08-12 11:31:39 +0000360
361 // Note which components are already in their final position. These will not
362 // be moved.
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000363 bool Found[4];
Duncan Sands501dff72010-08-12 11:31:39 +0000364 Found[0] = Arch != UnknownArch;
365 Found[1] = Vendor != UnknownVendor;
366 Found[2] = OS != UnknownOS;
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000367 Found[3] = Environment != UnknownEnvironment;
Duncan Sands501dff72010-08-12 11:31:39 +0000368
369 // If they are not there already, permute the components into their canonical
370 // positions by seeing if they parse as a valid architecture, and if so moving
371 // the component to the architecture position etc.
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000372 for (unsigned Pos = 0; Pos != array_lengthof(Found); ++Pos) {
Duncan Sands501dff72010-08-12 11:31:39 +0000373 if (Found[Pos])
374 continue; // Already in the canonical position.
375
376 for (unsigned Idx = 0; Idx != Components.size(); ++Idx) {
377 // Do not reparse any components that already matched.
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000378 if (Idx < array_lengthof(Found) && Found[Idx])
Duncan Sands501dff72010-08-12 11:31:39 +0000379 continue;
380
381 // Does this component parse as valid for the target position?
382 bool Valid = false;
383 StringRef Comp = Components[Idx];
384 switch (Pos) {
Craig Toppera2886c22012-02-07 05:05:23 +0000385 default: llvm_unreachable("unexpected component type!");
Duncan Sands501dff72010-08-12 11:31:39 +0000386 case 0:
Chandler Carruthaec97082012-02-21 08:53:32 +0000387 Arch = parseArch(Comp);
Duncan Sands501dff72010-08-12 11:31:39 +0000388 Valid = Arch != UnknownArch;
389 break;
390 case 1:
Chandler Carruthaec97082012-02-21 08:53:32 +0000391 Vendor = parseVendor(Comp);
Duncan Sands501dff72010-08-12 11:31:39 +0000392 Valid = Vendor != UnknownVendor;
393 break;
394 case 2:
Chandler Carruthaec97082012-02-21 08:53:32 +0000395 OS = parseOS(Comp);
Duncan Sandsfdfdbd02011-02-02 10:08:38 +0000396 Valid = OS != UnknownOS;
Duncan Sands501dff72010-08-12 11:31:39 +0000397 break;
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000398 case 3:
Chandler Carruthaec97082012-02-21 08:53:32 +0000399 Environment = parseEnvironment(Comp);
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000400 Valid = Environment != UnknownEnvironment;
401 break;
Duncan Sands501dff72010-08-12 11:31:39 +0000402 }
403 if (!Valid)
404 continue; // Nope, try the next component.
405
406 // Move the component to the target position, pushing any non-fixed
407 // components that are in the way to the right. This tends to give
408 // good results in the common cases of a forgotten vendor component
409 // or a wrongly positioned environment.
410 if (Pos < Idx) {
411 // Insert left, pushing the existing components to the right. For
412 // example, a-b-i386 -> i386-a-b when moving i386 to the front.
413 StringRef CurrentComponent(""); // The empty component.
414 // Replace the component we are moving with an empty component.
415 std::swap(CurrentComponent, Components[Idx]);
416 // Insert the component being moved at Pos, displacing any existing
417 // components to the right.
418 for (unsigned i = Pos; !CurrentComponent.empty(); ++i) {
419 // Skip over any fixed components.
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000420 while (i < array_lengthof(Found) && Found[i]) ++i;
Duncan Sands501dff72010-08-12 11:31:39 +0000421 // Place the component at the new position, getting the component
422 // that was at this position - it will be moved right.
423 std::swap(CurrentComponent, Components[i]);
424 }
425 } else if (Pos > Idx) {
426 // Push right by inserting empty components until the component at Idx
427 // reaches the target position Pos. For example, pc-a -> -pc-a when
428 // moving pc to the second position.
429 do {
430 // Insert one empty component at Idx.
431 StringRef CurrentComponent(""); // The empty component.
Duncan Sandsfdfdbd02011-02-02 10:08:38 +0000432 for (unsigned i = Idx; i < Components.size();) {
Duncan Sands501dff72010-08-12 11:31:39 +0000433 // Place the component at the new position, getting the component
434 // that was at this position - it will be moved right.
435 std::swap(CurrentComponent, Components[i]);
436 // If it was placed on top of an empty component then we are done.
437 if (CurrentComponent.empty())
438 break;
Duncan Sandsfdfdbd02011-02-02 10:08:38 +0000439 // Advance to the next component, skipping any fixed components.
Anders Carlsson630125a2011-02-05 18:19:35 +0000440 while (++i < array_lengthof(Found) && Found[i])
441 ;
Duncan Sands501dff72010-08-12 11:31:39 +0000442 }
443 // The last component was pushed off the end - append it.
444 if (!CurrentComponent.empty())
445 Components.push_back(CurrentComponent);
446
447 // Advance Idx to the component's new position.
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000448 while (++Idx < array_lengthof(Found) && Found[Idx]) {}
Duncan Sands501dff72010-08-12 11:31:39 +0000449 } while (Idx < Pos); // Add more until the final position is reached.
450 }
451 assert(Pos < Components.size() && Components[Pos] == Comp &&
452 "Component moved wrong!");
453 Found[Pos] = true;
454 break;
455 }
456 }
457
458 // Special case logic goes here. At this point Arch, Vendor and OS have the
459 // correct values for the computed components.
460
461 // Stick the corrected components back together to form the normalized string.
462 std::string Normalized;
463 for (unsigned i = 0, e = Components.size(); i != e; ++i) {
464 if (i) Normalized += '-';
465 Normalized += Components[i];
466 }
467 return Normalized;
468}
469
Daniel Dunbar19e70762009-07-26 03:31:47 +0000470StringRef Triple::getArchName() const {
471 return StringRef(Data).split('-').first; // Isolate first component
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000472}
473
Daniel Dunbar19e70762009-07-26 03:31:47 +0000474StringRef Triple::getVendorName() const {
475 StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
476 return Tmp.split('-').first; // Isolate second component
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000477}
478
Daniel Dunbar19e70762009-07-26 03:31:47 +0000479StringRef Triple::getOSName() const {
480 StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
481 Tmp = Tmp.split('-').second; // Strip second component
482 return Tmp.split('-').first; // Isolate third component
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000483}
484
Daniel Dunbar19e70762009-07-26 03:31:47 +0000485StringRef Triple::getEnvironmentName() const {
486 StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
487 Tmp = Tmp.split('-').second; // Strip second component
488 return Tmp.split('-').second; // Strip third component
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000489}
490
Daniel Dunbar19e70762009-07-26 03:31:47 +0000491StringRef Triple::getOSAndEnvironmentName() const {
492 StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
493 return Tmp.split('-').second; // Strip second component
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000494}
495
Chris Lattner553c9f32009-08-12 06:19:40 +0000496static unsigned EatNumber(StringRef &Str) {
497 assert(!Str.empty() && Str[0] >= '0' && Str[0] <= '9' && "Not a number");
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000498 unsigned Result = 0;
Jim Grosbachf638b262010-12-17 02:10:59 +0000499
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000500 do {
501 // Consume the leading digit.
Chris Lattner553c9f32009-08-12 06:19:40 +0000502 Result = Result*10 + (Str[0] - '0');
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000503
Chris Lattner553c9f32009-08-12 06:19:40 +0000504 // Eat the digit.
505 Str = Str.substr(1);
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000506 } while (!Str.empty() && Str[0] >= '0' && Str[0] <= '9');
Jim Grosbachf638b262010-12-17 02:10:59 +0000507
Chris Lattner553c9f32009-08-12 06:19:40 +0000508 return Result;
509}
510
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000511void Triple::getOSVersion(unsigned &Major, unsigned &Minor,
512 unsigned &Micro) const {
Chris Lattner553c9f32009-08-12 06:19:40 +0000513 StringRef OSName = getOSName();
Jim Grosbachf638b262010-12-17 02:10:59 +0000514
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000515 // Assume that the OS portion of the triple starts with the canonical name.
516 StringRef OSTypeName = getOSTypeName(getOS());
517 if (OSName.startswith(OSTypeName))
518 OSName = OSName.substr(OSTypeName.size());
Jim Grosbachf638b262010-12-17 02:10:59 +0000519
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000520 // Any unset version defaults to 0.
521 Major = Minor = Micro = 0;
Chris Lattner553c9f32009-08-12 06:19:40 +0000522
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000523 // Parse up to three components.
524 unsigned *Components[3] = { &Major, &Minor, &Micro };
525 for (unsigned i = 0; i != 3; ++i) {
526 if (OSName.empty() || OSName[0] < '0' || OSName[0] > '9')
527 break;
Chris Lattner553c9f32009-08-12 06:19:40 +0000528
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000529 // Consume the leading number.
530 *Components[i] = EatNumber(OSName);
Jim Grosbachf638b262010-12-17 02:10:59 +0000531
Daniel Dunbar99f904c2011-04-19 20:24:34 +0000532 // Consume the separator, if present.
533 if (OSName.startswith("."))
534 OSName = OSName.substr(1);
535 }
Chris Lattner553c9f32009-08-12 06:19:40 +0000536}
537
Bob Wilsonaa30aff2012-01-31 22:32:29 +0000538bool Triple::getMacOSXVersion(unsigned &Major, unsigned &Minor,
539 unsigned &Micro) const {
540 getOSVersion(Major, Minor, Micro);
541
542 switch (getOS()) {
Craig Toppera2886c22012-02-07 05:05:23 +0000543 default: llvm_unreachable("unexpected OS for Darwin triple");
Bob Wilsonaa30aff2012-01-31 22:32:29 +0000544 case Darwin:
545 // Default to darwin8, i.e., MacOSX 10.4.
546 if (Major == 0)
547 Major = 8;
548 // Darwin version numbers are skewed from OS X versions.
549 if (Major < 4)
550 return false;
551 Micro = 0;
552 Minor = Major - 4;
553 Major = 10;
554 break;
555 case MacOSX:
556 // Default to 10.4.
557 if (Major == 0) {
558 Major = 10;
559 Minor = 4;
560 }
561 if (Major != 10)
562 return false;
563 break;
564 case IOS:
565 // Ignore the version from the triple. This is only handled because the
566 // the clang driver combines OS X and IOS support into a common Darwin
567 // toolchain that wants to know the OS X version number even when targeting
568 // IOS.
569 Major = 10;
570 Minor = 4;
571 Micro = 0;
572 break;
573 }
574 return true;
575}
576
Daniel Dunbar19e70762009-07-26 03:31:47 +0000577void Triple::setTriple(const Twine &Str) {
Chandler Carruth2d27b0f2012-02-21 03:39:36 +0000578 *this = Triple(Str);
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000579}
580
581void Triple::setArch(ArchType Kind) {
582 setArchName(getArchTypeName(Kind));
583}
584
585void Triple::setVendor(VendorType Kind) {
586 setVendorName(getVendorTypeName(Kind));
587}
588
589void Triple::setOS(OSType Kind) {
590 setOSName(getOSTypeName(Kind));
591}
592
Duncan Sands84a3bdd2010-09-16 08:25:48 +0000593void Triple::setEnvironment(EnvironmentType Kind) {
594 setEnvironmentName(getEnvironmentTypeName(Kind));
595}
596
Daniel Dunbarad36e8a2009-11-06 10:58:06 +0000597void Triple::setArchName(StringRef Str) {
Jeffrey Yasskine2595b52009-10-06 21:45:26 +0000598 // Work around a miscompilation bug for Twines in gcc 4.0.3.
599 SmallString<64> Triple;
600 Triple += Str;
601 Triple += "-";
602 Triple += getVendorName();
603 Triple += "-";
604 Triple += getOSAndEnvironmentName();
605 setTriple(Triple.str());
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000606}
607
Daniel Dunbarad36e8a2009-11-06 10:58:06 +0000608void Triple::setVendorName(StringRef Str) {
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000609 setTriple(getArchName() + "-" + Str + "-" + getOSAndEnvironmentName());
610}
611
Daniel Dunbarad36e8a2009-11-06 10:58:06 +0000612void Triple::setOSName(StringRef Str) {
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000613 if (hasEnvironment())
614 setTriple(getArchName() + "-" + getVendorName() + "-" + Str +
615 "-" + getEnvironmentName());
616 else
617 setTriple(getArchName() + "-" + getVendorName() + "-" + Str);
618}
619
Daniel Dunbarad36e8a2009-11-06 10:58:06 +0000620void Triple::setEnvironmentName(StringRef Str) {
621 setTriple(getArchName() + "-" + getVendorName() + "-" + getOSName() +
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000622 "-" + Str);
623}
624
Daniel Dunbarad36e8a2009-11-06 10:58:06 +0000625void Triple::setOSAndEnvironmentName(StringRef Str) {
Daniel Dunbar4abd5662009-04-01 21:53:23 +0000626 setTriple(getArchName() + "-" + getVendorName() + "-" + Str);
627}
Chandler Carruthb90c1022012-01-31 04:52:32 +0000628
629static unsigned getArchPointerBitWidth(llvm::Triple::ArchType Arch) {
630 switch (Arch) {
631 case llvm::Triple::UnknownArch:
Chandler Carruthb90c1022012-01-31 04:52:32 +0000632 return 0;
633
634 case llvm::Triple::msp430:
635 return 16;
636
637 case llvm::Triple::amdil:
638 case llvm::Triple::arm:
639 case llvm::Triple::cellspu:
640 case llvm::Triple::hexagon:
641 case llvm::Triple::le32:
642 case llvm::Triple::mblaze:
643 case llvm::Triple::mips:
644 case llvm::Triple::mipsel:
645 case llvm::Triple::ppc:
646 case llvm::Triple::ptx32:
647 case llvm::Triple::sparc:
648 case llvm::Triple::tce:
649 case llvm::Triple::thumb:
650 case llvm::Triple::x86:
651 case llvm::Triple::xcore:
652 return 32;
653
654 case llvm::Triple::mips64:
655 case llvm::Triple::mips64el:
656 case llvm::Triple::ppc64:
657 case llvm::Triple::ptx64:
658 case llvm::Triple::sparcv9:
659 case llvm::Triple::x86_64:
660 return 64;
661 }
662 llvm_unreachable("Invalid architecture value");
663}
664
665bool Triple::isArch64Bit() const {
666 return getArchPointerBitWidth(getArch()) == 64;
667}
668
669bool Triple::isArch32Bit() const {
670 return getArchPointerBitWidth(getArch()) == 32;
671}
672
673bool Triple::isArch16Bit() const {
674 return getArchPointerBitWidth(getArch()) == 16;
675}
Chandler Carruth07cfb4b2012-02-06 20:46:33 +0000676
677Triple Triple::get32BitArchVariant() const {
678 Triple T(*this);
679 switch (getArch()) {
680 case Triple::UnknownArch:
Chandler Carruth07cfb4b2012-02-06 20:46:33 +0000681 case Triple::msp430:
682 T.setArch(UnknownArch);
683 break;
684
685 case Triple::amdil:
686 case Triple::arm:
687 case Triple::cellspu:
688 case Triple::hexagon:
689 case Triple::le32:
690 case Triple::mblaze:
691 case Triple::mips:
692 case Triple::mipsel:
693 case Triple::ppc:
694 case Triple::ptx32:
695 case Triple::sparc:
696 case Triple::tce:
697 case Triple::thumb:
698 case Triple::x86:
699 case Triple::xcore:
700 // Already 32-bit.
701 break;
702
703 case Triple::mips64: T.setArch(Triple::mips); break;
704 case Triple::mips64el: T.setArch(Triple::mipsel); break;
705 case Triple::ppc64: T.setArch(Triple::ppc); break;
706 case Triple::ptx64: T.setArch(Triple::ptx32); break;
707 case Triple::sparcv9: T.setArch(Triple::sparc); break;
708 case Triple::x86_64: T.setArch(Triple::x86); break;
709 }
710 return T;
711}
712
713Triple Triple::get64BitArchVariant() const {
714 Triple T(*this);
715 switch (getArch()) {
Chandler Carruth07cfb4b2012-02-06 20:46:33 +0000716 case Triple::UnknownArch:
717 case Triple::amdil:
718 case Triple::arm:
719 case Triple::cellspu:
720 case Triple::hexagon:
721 case Triple::le32:
722 case Triple::mblaze:
723 case Triple::msp430:
724 case Triple::tce:
725 case Triple::thumb:
726 case Triple::xcore:
727 T.setArch(UnknownArch);
728 break;
729
730 case Triple::mips64:
731 case Triple::mips64el:
732 case Triple::ppc64:
733 case Triple::ptx64:
734 case Triple::sparcv9:
735 case Triple::x86_64:
736 // Already 64-bit.
737 break;
738
739 case Triple::mips: T.setArch(Triple::mips64); break;
740 case Triple::mipsel: T.setArch(Triple::mips64el); break;
741 case Triple::ppc: T.setArch(Triple::ppc64); break;
742 case Triple::ptx32: T.setArch(Triple::ptx64); break;
743 case Triple::sparc: T.setArch(Triple::sparcv9); break;
744 case Triple::x86: T.setArch(Triple::x86_64); break;
745 }
746 return T;
747}