• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1 //===--- 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"
11 #include "llvm/ADT/SmallString.h"
12 #include "llvm/ADT/STLExtras.h"
13 #include <cstring>
14 using namespace llvm;
15 
getArchTypeName(ArchType Kind)16 const char *Triple::getArchTypeName(ArchType Kind) {
17   switch (Kind) {
18   case InvalidArch: return "<invalid>";
19   case UnknownArch: return "unknown";
20 
21   case alpha:   return "alpha";
22   case arm:     return "arm";
23   case bfin:    return "bfin";
24   case cellspu: return "cellspu";
25   case mips:    return "mips";
26   case mipsel:  return "mipsel";
27   case mips64:  return "mips64";
28   case mips64el:return "mips64el";
29   case msp430:  return "msp430";
30   case ppc64:   return "powerpc64";
31   case ppc:     return "powerpc";
32   case sparc:   return "sparc";
33   case sparcv9: return "sparcv9";
34   case systemz: return "s390x";
35   case tce:     return "tce";
36   case thumb:   return "thumb";
37   case x86:     return "i386";
38   case x86_64:  return "x86_64";
39   case xcore:   return "xcore";
40   case mblaze:  return "mblaze";
41   case ptx32:   return "ptx32";
42   case ptx64:   return "ptx64";
43   case le32:    return "le32";
44   case amdil:   return "amdil";
45   }
46 
47   return "<invalid>";
48 }
49 
getArchTypePrefix(ArchType Kind)50 const char *Triple::getArchTypePrefix(ArchType Kind) {
51   switch (Kind) {
52   default:
53     return 0;
54 
55   case alpha:   return "alpha";
56 
57   case arm:
58   case thumb:   return "arm";
59 
60   case bfin:    return "bfin";
61 
62   case cellspu: return "spu";
63 
64   case ppc64:
65   case ppc:     return "ppc";
66 
67   case mblaze:  return "mblaze";
68 
69   case sparcv9:
70   case sparc:   return "sparc";
71 
72   case x86:
73   case x86_64:  return "x86";
74 
75   case xcore:   return "xcore";
76 
77   case ptx32:   return "ptx";
78   case ptx64:   return "ptx";
79   case le32:    return "le32";
80   case amdil:   return "amdil";
81   }
82 }
83 
getVendorTypeName(VendorType Kind)84 const char *Triple::getVendorTypeName(VendorType Kind) {
85   switch (Kind) {
86   case UnknownVendor: return "unknown";
87 
88   case Apple: return "apple";
89   case PC: return "pc";
90   case SCEI: return "scei";
91   }
92 
93   return "<invalid>";
94 }
95 
getOSTypeName(OSType Kind)96 const char *Triple::getOSTypeName(OSType Kind) {
97   switch (Kind) {
98   case UnknownOS: return "unknown";
99 
100   case AuroraUX: return "auroraux";
101   case Cygwin: return "cygwin";
102   case Darwin: return "darwin";
103   case DragonFly: return "dragonfly";
104   case FreeBSD: return "freebsd";
105   case IOS: return "ios";
106   case KFreeBSD: return "kfreebsd";
107   case Linux: return "linux";
108   case Lv2: return "lv2";
109   case MacOSX: return "macosx";
110   case MinGW32: return "mingw32";
111   case NetBSD: return "netbsd";
112   case OpenBSD: return "openbsd";
113   case Psp: return "psp";
114   case Solaris: return "solaris";
115   case Win32: return "win32";
116   case Haiku: return "haiku";
117   case Minix: return "minix";
118   case RTEMS: return "rtems";
119   case NativeClient: return "nacl";
120   }
121 
122   return "<invalid>";
123 }
124 
getEnvironmentTypeName(EnvironmentType Kind)125 const char *Triple::getEnvironmentTypeName(EnvironmentType Kind) {
126   switch (Kind) {
127   case UnknownEnvironment: return "unknown";
128   case GNU: return "gnu";
129   case GNUEABI: return "gnueabi";
130   case EABI: return "eabi";
131   case MachO: return "macho";
132   }
133 
134   return "<invalid>";
135 }
136 
getArchTypeForLLVMName(StringRef Name)137 Triple::ArchType Triple::getArchTypeForLLVMName(StringRef Name) {
138   if (Name == "alpha")
139     return alpha;
140   if (Name == "arm")
141     return arm;
142   if (Name == "bfin")
143     return bfin;
144   if (Name == "cellspu")
145     return cellspu;
146   if (Name == "mips")
147     return mips;
148   if (Name == "mipsel")
149     return mipsel;
150   if (Name == "mips64")
151     return mips64;
152   if (Name == "mips64el")
153     return mips64el;
154   if (Name == "msp430")
155     return msp430;
156   if (Name == "ppc64")
157     return ppc64;
158   if (Name == "ppc32")
159     return ppc;
160   if (Name == "ppc")
161     return ppc;
162   if (Name == "mblaze")
163     return mblaze;
164   if (Name == "sparc")
165     return sparc;
166   if (Name == "sparcv9")
167     return sparcv9;
168   if (Name == "systemz")
169     return systemz;
170   if (Name == "tce")
171     return tce;
172   if (Name == "thumb")
173     return thumb;
174   if (Name == "x86")
175     return x86;
176   if (Name == "x86-64")
177     return x86_64;
178   if (Name == "xcore")
179     return xcore;
180   if (Name == "ptx32")
181     return ptx32;
182   if (Name == "ptx64")
183     return ptx64;
184   if (Name == "le32")
185     return le32;
186   if (Name == "amdil")
187       return amdil;
188 
189   return UnknownArch;
190 }
191 
getArchTypeForDarwinArchName(StringRef Str)192 Triple::ArchType Triple::getArchTypeForDarwinArchName(StringRef Str) {
193   // See arch(3) and llvm-gcc's driver-driver.c. We don't implement support for
194   // archs which Darwin doesn't use.
195 
196   // The matching this routine does is fairly pointless, since it is neither the
197   // complete architecture list, nor a reasonable subset. The problem is that
198   // historically the driver driver accepts this and also ties its -march=
199   // handling to the architecture name, so we need to be careful before removing
200   // support for it.
201 
202   // This code must be kept in sync with Clang's Darwin specific argument
203   // translation.
204 
205   if (Str == "ppc" || Str == "ppc601" || Str == "ppc603" || Str == "ppc604" ||
206       Str == "ppc604e" || Str == "ppc750" || Str == "ppc7400" ||
207       Str == "ppc7450" || Str == "ppc970")
208     return Triple::ppc;
209 
210   if (Str == "ppc64")
211     return Triple::ppc64;
212 
213   if (Str == "i386" || Str == "i486" || Str == "i486SX" || Str == "pentium" ||
214       Str == "i586" || Str == "pentpro" || Str == "i686" || Str == "pentIIm3" ||
215       Str == "pentIIm5" || Str == "pentium4")
216     return Triple::x86;
217 
218   if (Str == "x86_64")
219     return Triple::x86_64;
220 
221   // This is derived from the driver driver.
222   if (Str == "arm" || Str == "armv4t" || Str == "armv5" || Str == "xscale" ||
223       Str == "armv6" || Str == "armv7" || Str == "armv7f" || Str == "armv7k" ||
224       Str == "armv7s")
225     return Triple::arm;
226 
227   if (Str == "ptx32")
228     return Triple::ptx32;
229   if (Str == "ptx64")
230     return Triple::ptx64;
231   if (Str == "amdil")
232       return Triple::amdil;
233 
234   return Triple::UnknownArch;
235 }
236 
237 // Returns architecture name that is understood by the target assembler.
getArchNameForAssembler()238 const char *Triple::getArchNameForAssembler() {
239   if (!isOSDarwin() && getVendor() != Triple::Apple)
240     return NULL;
241 
242   StringRef Str = getArchName();
243   if (Str == "i386")
244     return "i386";
245   if (Str == "x86_64")
246     return "x86_64";
247   if (Str == "powerpc")
248     return "ppc";
249   if (Str == "powerpc64")
250     return "ppc64";
251   if (Str == "mblaze" || Str == "microblaze")
252     return "mblaze";
253   if (Str == "arm")
254     return "arm";
255   if (Str == "armv4t" || Str == "thumbv4t")
256     return "armv4t";
257   if (Str == "armv5" || Str == "armv5e" || Str == "thumbv5"
258       || Str == "thumbv5e")
259     return "armv5";
260   if (Str == "armv6" || Str == "thumbv6")
261     return "armv6";
262   if (Str == "armv7" || Str == "thumbv7")
263     return "armv7";
264   if (Str == "ptx32")
265     return "ptx32";
266   if (Str == "ptx64")
267     return "ptx64";
268   if (Str == "le32")
269     return "le32";
270   if (Str == "amdil")
271       return "amdil";
272   return NULL;
273 }
274 
275 //
276 
ParseArch(StringRef ArchName)277 Triple::ArchType Triple::ParseArch(StringRef ArchName) {
278   if (ArchName.size() == 4 && ArchName[0] == 'i' &&
279       ArchName[2] == '8' && ArchName[3] == '6' &&
280       ArchName[1] - '3' < 6) // i[3-9]86
281     return x86;
282   else if (ArchName == "amd64" || ArchName == "x86_64")
283     return x86_64;
284   else if (ArchName == "bfin")
285     return bfin;
286   else if (ArchName == "powerpc")
287     return ppc;
288   else if ((ArchName == "powerpc64") || (ArchName == "ppu"))
289     return ppc64;
290   else if (ArchName == "mblaze")
291     return mblaze;
292   else if (ArchName == "arm" ||
293            ArchName.startswith("armv") ||
294            ArchName == "xscale")
295     return arm;
296   else if (ArchName == "thumb" ||
297            ArchName.startswith("thumbv"))
298     return thumb;
299   else if (ArchName.startswith("alpha"))
300     return alpha;
301   else if (ArchName == "spu" || ArchName == "cellspu")
302     return cellspu;
303   else if (ArchName == "msp430")
304     return msp430;
305   else if (ArchName == "mips" || ArchName == "mipseb" ||
306            ArchName == "mipsallegrex")
307     return mips;
308   else if (ArchName == "mipsel" || ArchName == "mipsallegrexel" ||
309            ArchName == "psp")
310     return mipsel;
311   else if (ArchName == "mips64" || ArchName == "mips64eb")
312     return mips64;
313   else if (ArchName == "mips64el")
314     return mips64el;
315   else if (ArchName == "sparc")
316     return sparc;
317   else if (ArchName == "sparcv9")
318     return sparcv9;
319   else if (ArchName == "s390x")
320     return systemz;
321   else if (ArchName == "tce")
322     return tce;
323   else if (ArchName == "xcore")
324     return xcore;
325   else if (ArchName == "ptx32")
326     return ptx32;
327   else if (ArchName == "ptx64")
328     return ptx64;
329   else if (ArchName == "le32")
330     return le32;
331   else if (ArchName == "amdil")
332       return amdil;
333   else
334     return UnknownArch;
335 }
336 
ParseVendor(StringRef VendorName)337 Triple::VendorType Triple::ParseVendor(StringRef VendorName) {
338   if (VendorName == "apple")
339     return Apple;
340   else if (VendorName == "pc")
341     return PC;
342   else if (VendorName == "scei")
343     return SCEI;
344   else
345     return UnknownVendor;
346 }
347 
ParseOS(StringRef OSName)348 Triple::OSType Triple::ParseOS(StringRef OSName) {
349   if (OSName.startswith("auroraux"))
350     return AuroraUX;
351   else if (OSName.startswith("cygwin"))
352     return Cygwin;
353   else if (OSName.startswith("darwin"))
354     return Darwin;
355   else if (OSName.startswith("dragonfly"))
356     return DragonFly;
357   else if (OSName.startswith("freebsd"))
358     return FreeBSD;
359   else if (OSName.startswith("ios"))
360     return IOS;
361   else if (OSName.startswith("kfreebsd"))
362     return KFreeBSD;
363   else if (OSName.startswith("linux"))
364     return Linux;
365   else if (OSName.startswith("lv2"))
366     return Lv2;
367   else if (OSName.startswith("macosx"))
368     return MacOSX;
369   else if (OSName.startswith("mingw32"))
370     return MinGW32;
371   else if (OSName.startswith("netbsd"))
372     return NetBSD;
373   else if (OSName.startswith("openbsd"))
374     return OpenBSD;
375   else if (OSName.startswith("psp"))
376     return Psp;
377   else if (OSName.startswith("solaris"))
378     return Solaris;
379   else if (OSName.startswith("win32"))
380     return Win32;
381   else if (OSName.startswith("haiku"))
382     return Haiku;
383   else if (OSName.startswith("minix"))
384     return Minix;
385   else if (OSName.startswith("rtems"))
386     return RTEMS;
387   else if (OSName.startswith("nacl"))
388     return NativeClient;
389   else
390     return UnknownOS;
391 }
392 
ParseEnvironment(StringRef EnvironmentName)393 Triple::EnvironmentType Triple::ParseEnvironment(StringRef EnvironmentName) {
394   if (EnvironmentName.startswith("eabi"))
395     return EABI;
396   else if (EnvironmentName.startswith("gnueabi"))
397     return GNUEABI;
398   else if (EnvironmentName.startswith("gnu"))
399     return GNU;
400   else if (EnvironmentName.startswith("macho"))
401     return MachO;
402   else
403     return UnknownEnvironment;
404 }
405 
Parse() const406 void Triple::Parse() const {
407   assert(!isInitialized() && "Invalid parse call.");
408 
409   Arch = ParseArch(getArchName());
410   Vendor = ParseVendor(getVendorName());
411   OS = ParseOS(getOSName());
412   Environment = ParseEnvironment(getEnvironmentName());
413 
414   assert(isInitialized() && "Failed to initialize!");
415 }
416 
normalize(StringRef Str)417 std::string Triple::normalize(StringRef Str) {
418   // Parse into components.
419   SmallVector<StringRef, 4> Components;
420   for (size_t First = 0, Last = 0; Last != StringRef::npos; First = Last + 1) {
421     Last = Str.find('-', First);
422     Components.push_back(Str.slice(First, Last));
423   }
424 
425   // If the first component corresponds to a known architecture, preferentially
426   // use it for the architecture.  If the second component corresponds to a
427   // known vendor, preferentially use it for the vendor, etc.  This avoids silly
428   // component movement when a component parses as (eg) both a valid arch and a
429   // valid os.
430   ArchType Arch = UnknownArch;
431   if (Components.size() > 0)
432     Arch = ParseArch(Components[0]);
433   VendorType Vendor = UnknownVendor;
434   if (Components.size() > 1)
435     Vendor = ParseVendor(Components[1]);
436   OSType OS = UnknownOS;
437   if (Components.size() > 2)
438     OS = ParseOS(Components[2]);
439   EnvironmentType Environment = UnknownEnvironment;
440   if (Components.size() > 3)
441     Environment = ParseEnvironment(Components[3]);
442 
443   // Note which components are already in their final position.  These will not
444   // be moved.
445   bool Found[4];
446   Found[0] = Arch != UnknownArch;
447   Found[1] = Vendor != UnknownVendor;
448   Found[2] = OS != UnknownOS;
449   Found[3] = Environment != UnknownEnvironment;
450 
451   // If they are not there already, permute the components into their canonical
452   // positions by seeing if they parse as a valid architecture, and if so moving
453   // the component to the architecture position etc.
454   for (unsigned Pos = 0; Pos != array_lengthof(Found); ++Pos) {
455     if (Found[Pos])
456       continue; // Already in the canonical position.
457 
458     for (unsigned Idx = 0; Idx != Components.size(); ++Idx) {
459       // Do not reparse any components that already matched.
460       if (Idx < array_lengthof(Found) && Found[Idx])
461         continue;
462 
463       // Does this component parse as valid for the target position?
464       bool Valid = false;
465       StringRef Comp = Components[Idx];
466       switch (Pos) {
467       default:
468         assert(false && "unexpected component type!");
469       case 0:
470         Arch = ParseArch(Comp);
471         Valid = Arch != UnknownArch;
472         break;
473       case 1:
474         Vendor = ParseVendor(Comp);
475         Valid = Vendor != UnknownVendor;
476         break;
477       case 2:
478         OS = ParseOS(Comp);
479         Valid = OS != UnknownOS;
480         break;
481       case 3:
482         Environment = ParseEnvironment(Comp);
483         Valid = Environment != UnknownEnvironment;
484         break;
485       }
486       if (!Valid)
487         continue; // Nope, try the next component.
488 
489       // Move the component to the target position, pushing any non-fixed
490       // components that are in the way to the right.  This tends to give
491       // good results in the common cases of a forgotten vendor component
492       // or a wrongly positioned environment.
493       if (Pos < Idx) {
494         // Insert left, pushing the existing components to the right.  For
495         // example, a-b-i386 -> i386-a-b when moving i386 to the front.
496         StringRef CurrentComponent(""); // The empty component.
497         // Replace the component we are moving with an empty component.
498         std::swap(CurrentComponent, Components[Idx]);
499         // Insert the component being moved at Pos, displacing any existing
500         // components to the right.
501         for (unsigned i = Pos; !CurrentComponent.empty(); ++i) {
502           // Skip over any fixed components.
503           while (i < array_lengthof(Found) && Found[i]) ++i;
504           // Place the component at the new position, getting the component
505           // that was at this position - it will be moved right.
506           std::swap(CurrentComponent, Components[i]);
507         }
508       } else if (Pos > Idx) {
509         // Push right by inserting empty components until the component at Idx
510         // reaches the target position Pos.  For example, pc-a -> -pc-a when
511         // moving pc to the second position.
512         do {
513           // Insert one empty component at Idx.
514           StringRef CurrentComponent(""); // The empty component.
515           for (unsigned i = Idx; i < Components.size();) {
516             // Place the component at the new position, getting the component
517             // that was at this position - it will be moved right.
518             std::swap(CurrentComponent, Components[i]);
519             // If it was placed on top of an empty component then we are done.
520             if (CurrentComponent.empty())
521               break;
522             // Advance to the next component, skipping any fixed components.
523             while (++i < array_lengthof(Found) && Found[i])
524               ;
525           }
526           // The last component was pushed off the end - append it.
527           if (!CurrentComponent.empty())
528             Components.push_back(CurrentComponent);
529 
530           // Advance Idx to the component's new position.
531           while (++Idx < array_lengthof(Found) && Found[Idx]) {}
532         } while (Idx < Pos); // Add more until the final position is reached.
533       }
534       assert(Pos < Components.size() && Components[Pos] == Comp &&
535              "Component moved wrong!");
536       Found[Pos] = true;
537       break;
538     }
539   }
540 
541   // Special case logic goes here.  At this point Arch, Vendor and OS have the
542   // correct values for the computed components.
543 
544   // Stick the corrected components back together to form the normalized string.
545   std::string Normalized;
546   for (unsigned i = 0, e = Components.size(); i != e; ++i) {
547     if (i) Normalized += '-';
548     Normalized += Components[i];
549   }
550   return Normalized;
551 }
552 
getArchName() const553 StringRef Triple::getArchName() const {
554   return StringRef(Data).split('-').first;           // Isolate first component
555 }
556 
getVendorName() const557 StringRef Triple::getVendorName() const {
558   StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
559   return Tmp.split('-').first;                       // Isolate second component
560 }
561 
getOSName() const562 StringRef Triple::getOSName() const {
563   StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
564   Tmp = Tmp.split('-').second;                       // Strip second component
565   return Tmp.split('-').first;                       // Isolate third component
566 }
567 
getEnvironmentName() const568 StringRef Triple::getEnvironmentName() const {
569   StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
570   Tmp = Tmp.split('-').second;                       // Strip second component
571   return Tmp.split('-').second;                      // Strip third component
572 }
573 
getOSAndEnvironmentName() const574 StringRef Triple::getOSAndEnvironmentName() const {
575   StringRef Tmp = StringRef(Data).split('-').second; // Strip first component
576   return Tmp.split('-').second;                      // Strip second component
577 }
578 
EatNumber(StringRef & Str)579 static unsigned EatNumber(StringRef &Str) {
580   assert(!Str.empty() && Str[0] >= '0' && Str[0] <= '9' && "Not a number");
581   unsigned Result = 0;
582 
583   do {
584     // Consume the leading digit.
585     Result = Result*10 + (Str[0] - '0');
586 
587     // Eat the digit.
588     Str = Str.substr(1);
589   } while (!Str.empty() && Str[0] >= '0' && Str[0] <= '9');
590 
591   return Result;
592 }
593 
getOSVersion(unsigned & Major,unsigned & Minor,unsigned & Micro) const594 void Triple::getOSVersion(unsigned &Major, unsigned &Minor,
595                           unsigned &Micro) const {
596   StringRef OSName = getOSName();
597 
598   // Assume that the OS portion of the triple starts with the canonical name.
599   StringRef OSTypeName = getOSTypeName(getOS());
600   if (OSName.startswith(OSTypeName))
601     OSName = OSName.substr(OSTypeName.size());
602 
603   // Any unset version defaults to 0.
604   Major = Minor = Micro = 0;
605 
606   // Parse up to three components.
607   unsigned *Components[3] = { &Major, &Minor, &Micro };
608   for (unsigned i = 0; i != 3; ++i) {
609     if (OSName.empty() || OSName[0] < '0' || OSName[0] > '9')
610       break;
611 
612     // Consume the leading number.
613     *Components[i] = EatNumber(OSName);
614 
615     // Consume the separator, if present.
616     if (OSName.startswith("."))
617       OSName = OSName.substr(1);
618   }
619 }
620 
setTriple(const Twine & Str)621 void Triple::setTriple(const Twine &Str) {
622   Data = Str.str();
623   Arch = InvalidArch;
624 }
625 
setArch(ArchType Kind)626 void Triple::setArch(ArchType Kind) {
627   setArchName(getArchTypeName(Kind));
628 }
629 
setVendor(VendorType Kind)630 void Triple::setVendor(VendorType Kind) {
631   setVendorName(getVendorTypeName(Kind));
632 }
633 
setOS(OSType Kind)634 void Triple::setOS(OSType Kind) {
635   setOSName(getOSTypeName(Kind));
636 }
637 
setEnvironment(EnvironmentType Kind)638 void Triple::setEnvironment(EnvironmentType Kind) {
639   setEnvironmentName(getEnvironmentTypeName(Kind));
640 }
641 
setArchName(StringRef Str)642 void Triple::setArchName(StringRef Str) {
643   // Work around a miscompilation bug for Twines in gcc 4.0.3.
644   SmallString<64> Triple;
645   Triple += Str;
646   Triple += "-";
647   Triple += getVendorName();
648   Triple += "-";
649   Triple += getOSAndEnvironmentName();
650   setTriple(Triple.str());
651 }
652 
setVendorName(StringRef Str)653 void Triple::setVendorName(StringRef Str) {
654   setTriple(getArchName() + "-" + Str + "-" + getOSAndEnvironmentName());
655 }
656 
setOSName(StringRef Str)657 void Triple::setOSName(StringRef Str) {
658   if (hasEnvironment())
659     setTriple(getArchName() + "-" + getVendorName() + "-" + Str +
660               "-" + getEnvironmentName());
661   else
662     setTriple(getArchName() + "-" + getVendorName() + "-" + Str);
663 }
664 
setEnvironmentName(StringRef Str)665 void Triple::setEnvironmentName(StringRef Str) {
666   setTriple(getArchName() + "-" + getVendorName() + "-" + getOSName() +
667             "-" + Str);
668 }
669 
setOSAndEnvironmentName(StringRef Str)670 void Triple::setOSAndEnvironmentName(StringRef Str) {
671   setTriple(getArchName() + "-" + getVendorName() + "-" + Str);
672 }
673