blob: 11cbb5f6c1b05b66c4e57bf59a4314db0a40322b [file] [log] [blame]
Daniel Dunbar23e97b02009-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 Yasskin0b228732009-10-06 21:45:26 +000011#include "llvm/ADT/SmallString.h"
Chandler Carruth06accda2012-02-12 09:27:38 +000012#include "llvm/ADT/StringSwitch.h"
Duncan Sands5754a452010-09-16 08:25:48 +000013#include "llvm/ADT/STLExtras.h"
David Blaikie4d6ccb52012-01-20 21:51:11 +000014#include "llvm/Support/ErrorHandling.h"
Mikhail Glushenkov70748752009-04-02 01:11:37 +000015#include <cstring>
Daniel Dunbar23e97b02009-04-01 21:53:23 +000016using namespace llvm;
17
Daniel Dunbar23e97b02009-04-01 21:53:23 +000018const char *Triple::getArchTypeName(ArchType Kind) {
19 switch (Kind) {
Daniel Dunbar23e97b02009-04-01 21:53:23 +000020 case UnknownArch: return "unknown";
Jim Grosbache509aa92010-12-17 02:10:59 +000021
Daniel Dunbar6337f152009-07-26 04:23:03 +000022 case arm: return "arm";
23 case cellspu: return "cellspu";
Tony Linthicumb4b54152011-12-12 21:14:40 +000024 case hexagon: return "hexagon";
Daniel Dunbar6337f152009-07-26 04:23:03 +000025 case mips: return "mips";
26 case mipsel: return "mipsel";
Akira Hatanaka70303682011-09-20 18:09:37 +000027 case mips64: return "mips64";
28 case mips64el:return "mips64el";
Daniel Dunbar6337f152009-07-26 04:23:03 +000029 case msp430: return "msp430";
Daniel Dunbar8c2f1d72009-07-26 04:52:45 +000030 case ppc64: return "powerpc64";
31 case ppc: return "powerpc";
Daniel Dunbar6337f152009-07-26 04:23:03 +000032 case sparc: return "sparc";
Chris Lattner87c06d62010-02-04 06:34:01 +000033 case sparcv9: return "sparcv9";
Eli Friedman74db89e2009-08-19 20:46:03 +000034 case tce: return "tce";
Daniel Dunbar6337f152009-07-26 04:23:03 +000035 case thumb: return "thumb";
36 case x86: return "i386";
37 case x86_64: return "x86_64";
Daniel Dunbar8c2f1d72009-07-26 04:52:45 +000038 case xcore: return "xcore";
Wesley Pecka70f28c2010-02-23 19:15:24 +000039 case mblaze: return "mblaze";
Justin Holewinskie1fee482011-04-20 15:37:17 +000040 case ptx32: return "ptx32";
41 case ptx64: return "ptx64";
Ivan Krasin38fb2db2011-08-23 16:59:00 +000042 case le32: return "le32";
Tobias Grosser05d71382011-08-29 15:44:55 +000043 case amdil: return "amdil";
Daniel Dunbar23e97b02009-04-01 21:53:23 +000044 }
45
David Blaikie4d6ccb52012-01-20 21:51:11 +000046 llvm_unreachable("Invalid ArchType!");
Daniel Dunbar23e97b02009-04-01 21:53:23 +000047}
48
Daniel Dunbar688b55b2009-08-24 09:53:06 +000049const char *Triple::getArchTypePrefix(ArchType Kind) {
50 switch (Kind) {
51 default:
52 return 0;
53
Daniel Dunbar688b55b2009-08-24 09:53:06 +000054 case arm:
55 case thumb: return "arm";
56
Daniel Dunbar688b55b2009-08-24 09:53:06 +000057 case cellspu: return "spu";
58
59 case ppc64:
60 case ppc: return "ppc";
61
Wesley Pecka70f28c2010-02-23 19:15:24 +000062 case mblaze: return "mblaze";
63
Tony Linthicumb4b54152011-12-12 21:14:40 +000064 case hexagon: return "hexagon";
65
Chris Lattner87c06d62010-02-04 06:34:01 +000066 case sparcv9:
Daniel Dunbar688b55b2009-08-24 09:53:06 +000067 case sparc: return "sparc";
68
69 case x86:
70 case x86_64: return "x86";
Nick Lewyckyf7a3c502010-09-07 18:14:24 +000071
Daniel Dunbar688b55b2009-08-24 09:53:06 +000072 case xcore: return "xcore";
Nick Lewyckyf7a3c502010-09-07 18:14:24 +000073
Justin Holewinskie1fee482011-04-20 15:37:17 +000074 case ptx32: return "ptx";
75 case ptx64: return "ptx";
Ivan Krasin38fb2db2011-08-23 16:59:00 +000076 case le32: return "le32";
Tobias Grosser05d71382011-08-29 15:44:55 +000077 case amdil: return "amdil";
Daniel Dunbar688b55b2009-08-24 09:53:06 +000078 }
79}
80
Daniel Dunbar23e97b02009-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 Lattner56ce0f42009-08-14 18:48:13 +000086 case PC: return "pc";
John Thompson6046cff2011-03-15 21:51:56 +000087 case SCEI: return "scei";
Daniel Dunbar23e97b02009-04-01 21:53:23 +000088 }
89
David Blaikie4d6ccb52012-01-20 21:51:11 +000090 llvm_unreachable("Invalid VendorType!");
Daniel Dunbar23e97b02009-04-01 21:53:23 +000091}
92
93const char *Triple::getOSTypeName(OSType Kind) {
94 switch (Kind) {
95 case UnknownOS: return "unknown";
96
Duncan Sands852cd112009-06-19 14:40:01 +000097 case AuroraUX: return "auroraux";
Daniel Dunbar6337f152009-07-26 04:23:03 +000098 case Cygwin: return "cygwin";
Daniel Dunbar23e97b02009-04-01 21:53:23 +000099 case Darwin: return "darwin";
Daniel Dunbar7eaf0572009-05-22 02:24:11 +0000100 case DragonFly: return "dragonfly";
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000101 case FreeBSD: return "freebsd";
Daniel Dunbar0dde4c02011-04-19 20:19:27 +0000102 case IOS: return "ios";
Duncan Sands652b48b2011-07-26 15:30:04 +0000103 case KFreeBSD: return "kfreebsd";
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000104 case Linux: return "linux";
Edward O'Callaghancc9fa812009-11-19 11:59:00 +0000105 case Lv2: return "lv2";
Daniel Dunbar1af39472011-04-19 23:34:12 +0000106 case MacOSX: return "macosx";
Daniel Dunbar6337f152009-07-26 04:23:03 +0000107 case MinGW32: return "mingw32";
Chris Lattnerb8ac8412009-07-13 20:22:23 +0000108 case NetBSD: return "netbsd";
Duncan Sandscd1267d2009-06-29 13:36:13 +0000109 case OpenBSD: return "openbsd";
Edward O'Callaghane0fb75d2009-11-15 10:18:17 +0000110 case Psp: return "psp";
Daniel Dunbarfdb0b7b2009-08-18 04:43:27 +0000111 case Solaris: return "solaris";
Daniel Dunbar6337f152009-07-26 04:23:03 +0000112 case Win32: return "win32";
Chris Lattnera43fc342009-10-16 02:06:30 +0000113 case Haiku: return "haiku";
Chris Lattner29269d02010-07-07 15:52:27 +0000114 case Minix: return "minix";
Douglas Gregor6ced1d12011-07-01 22:41:06 +0000115 case RTEMS: return "rtems";
Ivan Krasinfb234622011-08-18 22:54:21 +0000116 case NativeClient: return "nacl";
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000117 }
118
David Blaikie4d6ccb52012-01-20 21:51:11 +0000119 llvm_unreachable("Invalid OSType");
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000120}
121
Duncan Sands5754a452010-09-16 08:25:48 +0000122const char *Triple::getEnvironmentTypeName(EnvironmentType Kind) {
123 switch (Kind) {
124 case UnknownEnvironment: return "unknown";
Renato Golin859f8182011-01-21 18:25:47 +0000125 case GNU: return "gnu";
Rafael Espindola8887a0f2012-01-18 23:35:29 +0000126 case GNUEABIHF: return "gnueabihf";
Renato Golin859f8182011-01-21 18:25:47 +0000127 case GNUEABI: return "gnueabi";
128 case EABI: return "eabi";
Evan Cheng2bffee22011-02-01 01:14:13 +0000129 case MachO: return "macho";
Chandler Carruthfd553c22012-01-10 19:46:00 +0000130 case ANDROIDEABI: return "androideabi";
Duncan Sands5754a452010-09-16 08:25:48 +0000131 }
132
David Blaikie4d6ccb52012-01-20 21:51:11 +0000133 llvm_unreachable("Invalid EnvironmentType!");
Duncan Sands5754a452010-09-16 08:25:48 +0000134}
135
Daniel Dunbar2928c832009-11-06 10:58:06 +0000136Triple::ArchType Triple::getArchTypeForLLVMName(StringRef Name) {
Chandler Carruth06accda2012-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 Dunbar3c2d4bf2009-08-03 04:03:51 +0000162}
163
Daniel Dunbar2928c832009-11-06 10:58:06 +0000164Triple::ArchType Triple::getArchTypeForDarwinArchName(StringRef Str) {
Daniel Dunbarbaf9b562009-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 Dunbared687882009-09-09 23:01:25 +0000174 // This code must be kept in sync with Clang's Darwin specific argument
175 // translation.
176
Chandler Carruth06accda2012-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 Dunbarbaf9b562009-09-08 23:32:51 +0000192}
193
Duncan Sandsbbdca3f2010-03-24 09:05:14 +0000194// Returns architecture name that is understood by the target assembler.
Viktor Kutuzov51cdac02009-11-17 18:48:27 +0000195const char *Triple::getArchNameForAssembler() {
Daniel Dunbare1fe09f2011-04-19 21:12:05 +0000196 if (!isOSDarwin() && getVendor() != Triple::Apple)
Viktor Kutuzov51cdac02009-11-17 18:48:27 +0000197 return NULL;
198
Chandler Carruth06accda2012-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 Kutuzov51cdac02009-11-17 18:48:27 +0000215}
216
Chandler Carruth4fbf6582012-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 Carruth0a857712012-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 Carruth4fbf6582012-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 Sands335db222010-08-12 11:31:39 +0000248}
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000249
Chandler Carruth4fbf6582012-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 Sands335db222010-08-12 11:31:39 +0000256}
257
Chandler Carruth4fbf6582012-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 Sands335db222010-08-12 11:31:39 +0000281}
282
Chandler Carruth4fbf6582012-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 Sands5754a452010-09-16 08:25:48 +0000292}
293
Chandler Carruthcceb8f42012-02-20 00:02:47 +0000294/// \brief Construct a triple from the string representation provided.
295///
Chandler Carruth0523f412012-02-21 08:31:18 +0000296/// This stores the string representation and parses the various pieces into
297/// enum members.
Chandler Carruth124e51c2012-02-21 03:39:36 +0000298Triple::Triple(const Twine &Str)
299 : Data(Str.str()),
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000300 Arch(parseArch(getArchName())),
301 Vendor(parseVendor(getVendorName())),
302 OS(parseOS(getOSName())),
303 Environment(parseEnvironment(getEnvironmentName())) {
Chandler Carruth124e51c2012-02-21 03:39:36 +0000304}
Chandler Carruthcceb8f42012-02-20 00:02:47 +0000305
306/// \brief Construct a triple from string representations of the architecture,
307/// vendor, and OS.
308///
Chandler Carruth0523f412012-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 Carruthcceb8f42012-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 Carruth4fbf6582012-02-21 08:53:32 +0000314 Arch(parseArch(ArchStr.str())),
315 Vendor(parseVendor(VendorStr.str())),
316 OS(parseOS(OSStr.str())),
Chandler Carruth124e51c2012-02-21 03:39:36 +0000317 Environment() {
Chandler Carruthcceb8f42012-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 Carruth0523f412012-02-21 08:31:18 +0000323/// This joins each argument into a canonical string representation and parses
324/// them into enum members.
Chandler Carruthcceb8f42012-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 Carruth4fbf6582012-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 Carruthcceb8f42012-02-20 00:02:47 +0000333}
334
Duncan Sands335db222010-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 Carruth4fbf6582012-02-21 08:53:32 +0000350 Arch = parseArch(Components[0]);
Duncan Sands335db222010-08-12 11:31:39 +0000351 VendorType Vendor = UnknownVendor;
352 if (Components.size() > 1)
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000353 Vendor = parseVendor(Components[1]);
Duncan Sands335db222010-08-12 11:31:39 +0000354 OSType OS = UnknownOS;
355 if (Components.size() > 2)
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000356 OS = parseOS(Components[2]);
Duncan Sands5754a452010-09-16 08:25:48 +0000357 EnvironmentType Environment = UnknownEnvironment;
358 if (Components.size() > 3)
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000359 Environment = parseEnvironment(Components[3]);
Duncan Sands335db222010-08-12 11:31:39 +0000360
361 // Note which components are already in their final position. These will not
362 // be moved.
Duncan Sands5754a452010-09-16 08:25:48 +0000363 bool Found[4];
Duncan Sands335db222010-08-12 11:31:39 +0000364 Found[0] = Arch != UnknownArch;
365 Found[1] = Vendor != UnknownVendor;
366 Found[2] = OS != UnknownOS;
Duncan Sands5754a452010-09-16 08:25:48 +0000367 Found[3] = Environment != UnknownEnvironment;
Duncan Sands335db222010-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 Sands5754a452010-09-16 08:25:48 +0000372 for (unsigned Pos = 0; Pos != array_lengthof(Found); ++Pos) {
Duncan Sands335db222010-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 Sands5754a452010-09-16 08:25:48 +0000378 if (Idx < array_lengthof(Found) && Found[Idx])
Duncan Sands335db222010-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 Topper85814382012-02-07 05:05:23 +0000385 default: llvm_unreachable("unexpected component type!");
Duncan Sands335db222010-08-12 11:31:39 +0000386 case 0:
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000387 Arch = parseArch(Comp);
Duncan Sands335db222010-08-12 11:31:39 +0000388 Valid = Arch != UnknownArch;
389 break;
390 case 1:
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000391 Vendor = parseVendor(Comp);
Duncan Sands335db222010-08-12 11:31:39 +0000392 Valid = Vendor != UnknownVendor;
393 break;
394 case 2:
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000395 OS = parseOS(Comp);
Duncan Sandsae200c62011-02-02 10:08:38 +0000396 Valid = OS != UnknownOS;
Duncan Sands335db222010-08-12 11:31:39 +0000397 break;
Duncan Sands5754a452010-09-16 08:25:48 +0000398 case 3:
Chandler Carruth4fbf6582012-02-21 08:53:32 +0000399 Environment = parseEnvironment(Comp);
Duncan Sands5754a452010-09-16 08:25:48 +0000400 Valid = Environment != UnknownEnvironment;
401 break;
Duncan Sands335db222010-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 Sands5754a452010-09-16 08:25:48 +0000420 while (i < array_lengthof(Found) && Found[i]) ++i;
Duncan Sands335db222010-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 Sandsae200c62011-02-02 10:08:38 +0000432 for (unsigned i = Idx; i < Components.size();) {
Duncan Sands335db222010-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 Sandsae200c62011-02-02 10:08:38 +0000439 // Advance to the next component, skipping any fixed components.
Anders Carlsson15ec6952011-02-05 18:19:35 +0000440 while (++i < array_lengthof(Found) && Found[i])
441 ;
Duncan Sands335db222010-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 Sands5754a452010-09-16 08:25:48 +0000448 while (++Idx < array_lengthof(Found) && Found[Idx]) {}
Duncan Sands335db222010-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 Dunbara14d2252009-07-26 03:31:47 +0000470StringRef Triple::getArchName() const {
471 return StringRef(Data).split('-').first; // Isolate first component
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000472}
473
Daniel Dunbara14d2252009-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 Dunbar23e97b02009-04-01 21:53:23 +0000477}
478
Daniel Dunbara14d2252009-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 Dunbar23e97b02009-04-01 21:53:23 +0000483}
484
Daniel Dunbara14d2252009-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 Dunbar23e97b02009-04-01 21:53:23 +0000489}
490
Daniel Dunbara14d2252009-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 Dunbar23e97b02009-04-01 21:53:23 +0000494}
495
Chris Lattnerdfc17f72009-08-12 06:19:40 +0000496static unsigned EatNumber(StringRef &Str) {
497 assert(!Str.empty() && Str[0] >= '0' && Str[0] <= '9' && "Not a number");
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000498 unsigned Result = 0;
Jim Grosbache509aa92010-12-17 02:10:59 +0000499
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000500 do {
501 // Consume the leading digit.
Chris Lattnerdfc17f72009-08-12 06:19:40 +0000502 Result = Result*10 + (Str[0] - '0');
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000503
Chris Lattnerdfc17f72009-08-12 06:19:40 +0000504 // Eat the digit.
505 Str = Str.substr(1);
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000506 } while (!Str.empty() && Str[0] >= '0' && Str[0] <= '9');
Jim Grosbache509aa92010-12-17 02:10:59 +0000507
Chris Lattnerdfc17f72009-08-12 06:19:40 +0000508 return Result;
509}
510
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000511void Triple::getOSVersion(unsigned &Major, unsigned &Minor,
512 unsigned &Micro) const {
Chris Lattnerdfc17f72009-08-12 06:19:40 +0000513 StringRef OSName = getOSName();
Jim Grosbache509aa92010-12-17 02:10:59 +0000514
Daniel Dunbar087d6a52011-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 Grosbache509aa92010-12-17 02:10:59 +0000519
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000520 // Any unset version defaults to 0.
521 Major = Minor = Micro = 0;
Chris Lattnerdfc17f72009-08-12 06:19:40 +0000522
Daniel Dunbar087d6a52011-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 Lattnerdfc17f72009-08-12 06:19:40 +0000528
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000529 // Consume the leading number.
530 *Components[i] = EatNumber(OSName);
Jim Grosbache509aa92010-12-17 02:10:59 +0000531
Daniel Dunbar087d6a52011-04-19 20:24:34 +0000532 // Consume the separator, if present.
533 if (OSName.startswith("."))
534 OSName = OSName.substr(1);
535 }
Chris Lattnerdfc17f72009-08-12 06:19:40 +0000536}
537
Bob Wilsonbda59fd2012-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 Topper85814382012-02-07 05:05:23 +0000543 default: llvm_unreachable("unexpected OS for Darwin triple");
Bob Wilsonbda59fd2012-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 Dunbara14d2252009-07-26 03:31:47 +0000577void Triple::setTriple(const Twine &Str) {
Chandler Carruth124e51c2012-02-21 03:39:36 +0000578 *this = Triple(Str);
Daniel Dunbar23e97b02009-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 Sands5754a452010-09-16 08:25:48 +0000593void Triple::setEnvironment(EnvironmentType Kind) {
594 setEnvironmentName(getEnvironmentTypeName(Kind));
595}
596
Daniel Dunbar2928c832009-11-06 10:58:06 +0000597void Triple::setArchName(StringRef Str) {
Jeffrey Yasskin0b228732009-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 Dunbar23e97b02009-04-01 21:53:23 +0000606}
607
Daniel Dunbar2928c832009-11-06 10:58:06 +0000608void Triple::setVendorName(StringRef Str) {
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000609 setTriple(getArchName() + "-" + Str + "-" + getOSAndEnvironmentName());
610}
611
Daniel Dunbar2928c832009-11-06 10:58:06 +0000612void Triple::setOSName(StringRef Str) {
Daniel Dunbar23e97b02009-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 Dunbar2928c832009-11-06 10:58:06 +0000620void Triple::setEnvironmentName(StringRef Str) {
621 setTriple(getArchName() + "-" + getVendorName() + "-" + getOSName() +
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000622 "-" + Str);
623}
624
Daniel Dunbar2928c832009-11-06 10:58:06 +0000625void Triple::setOSAndEnvironmentName(StringRef Str) {
Daniel Dunbar23e97b02009-04-01 21:53:23 +0000626 setTriple(getArchName() + "-" + getVendorName() + "-" + Str);
627}
Chandler Carruth6f72ac42012-01-31 04:52:32 +0000628
629static unsigned getArchPointerBitWidth(llvm::Triple::ArchType Arch) {
630 switch (Arch) {
631 case llvm::Triple::UnknownArch:
Chandler Carruth6f72ac42012-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 Carruth7d5a2892012-02-06 20:46:33 +0000676
677Triple Triple::get32BitArchVariant() const {
678 Triple T(*this);
679 switch (getArch()) {
680 case Triple::UnknownArch:
Chandler Carruth7d5a2892012-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 Carruth7d5a2892012-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}