]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - contrib/llvm/tools/clang/lib/Basic/TargetInfo.cpp
Merge bmake-20180512
[FreeBSD/FreeBSD.git] / contrib / llvm / tools / clang / lib / Basic / TargetInfo.cpp
1 //===--- TargetInfo.cpp - Information about Target machine ----------------===//
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 //  This file implements the TargetInfo and TargetInfoImpl interfaces.
11 //
12 //===----------------------------------------------------------------------===//
13
14 #include "clang/Basic/TargetInfo.h"
15 #include "clang/Basic/AddressSpaces.h"
16 #include "clang/Basic/CharInfo.h"
17 #include "clang/Basic/LangOptions.h"
18 #include "llvm/ADT/APFloat.h"
19 #include "llvm/ADT/STLExtras.h"
20 #include "llvm/Support/ErrorHandling.h"
21 #include "llvm/Support/TargetParser.h"
22 #include <cstdlib>
23 using namespace clang;
24
25 static const LangASMap DefaultAddrSpaceMap = {0};
26
27 // TargetInfo Constructor.
28 TargetInfo::TargetInfo(const llvm::Triple &T) : TargetOpts(), Triple(T) {
29   // Set defaults.  Defaults are set for a 32-bit RISC platform, like PPC or
30   // SPARC.  These should be overridden by concrete targets as needed.
31   BigEndian = !T.isLittleEndian();
32   TLSSupported = true;
33   VLASupported = true;
34   NoAsmVariants = false;
35   HasFloat128 = false;
36   PointerWidth = PointerAlign = 32;
37   BoolWidth = BoolAlign = 8;
38   IntWidth = IntAlign = 32;
39   LongWidth = LongAlign = 32;
40   LongLongWidth = LongLongAlign = 64;
41   SuitableAlign = 64;
42   DefaultAlignForAttributeAligned = 128;
43   MinGlobalAlign = 0;
44   // From the glibc documentation, on GNU systems, malloc guarantees 16-byte
45   // alignment on 64-bit systems and 8-byte alignment on 32-bit systems. See
46   // https://www.gnu.org/software/libc/manual/html_node/Malloc-Examples.html
47   if (T.isGNUEnvironment() || T.isWindowsMSVCEnvironment())
48     NewAlign = Triple.isArch64Bit() ? 128 : Triple.isArch32Bit() ? 64 : 0;
49   else
50     NewAlign = 0; // Infer from basic type alignment.
51   HalfWidth = 16;
52   HalfAlign = 16;
53   FloatWidth = 32;
54   FloatAlign = 32;
55   DoubleWidth = 64;
56   DoubleAlign = 64;
57   LongDoubleWidth = 64;
58   LongDoubleAlign = 64;
59   Float128Align = 128;
60   LargeArrayMinWidth = 0;
61   LargeArrayAlign = 0;
62   MaxAtomicPromoteWidth = MaxAtomicInlineWidth = 0;
63   MaxVectorAlign = 0;
64   MaxTLSAlign = 0;
65   SimdDefaultAlign = 0;
66   SizeType = UnsignedLong;
67   PtrDiffType = SignedLong;
68   IntMaxType = SignedLongLong;
69   IntPtrType = SignedLong;
70   WCharType = SignedInt;
71   WIntType = SignedInt;
72   Char16Type = UnsignedShort;
73   Char32Type = UnsignedInt;
74   Int64Type = SignedLongLong;
75   SigAtomicType = SignedInt;
76   ProcessIDType = SignedInt;
77   UseSignedCharForObjCBool = true;
78   UseBitFieldTypeAlignment = true;
79   UseZeroLengthBitfieldAlignment = false;
80   UseExplicitBitFieldAlignment = true;
81   ZeroLengthBitfieldBoundary = 0;
82   HalfFormat = &llvm::APFloat::IEEEhalf();
83   FloatFormat = &llvm::APFloat::IEEEsingle();
84   DoubleFormat = &llvm::APFloat::IEEEdouble();
85   LongDoubleFormat = &llvm::APFloat::IEEEdouble();
86   Float128Format = &llvm::APFloat::IEEEquad();
87   MCountName = "mcount";
88   RegParmMax = 0;
89   SSERegParmMax = 0;
90   HasAlignMac68kSupport = false;
91   HasBuiltinMSVaList = false;
92   IsRenderScriptTarget = false;
93
94   // Default to no types using fpret.
95   RealTypeUsesObjCFPRet = 0;
96
97   // Default to not using fp2ret for __Complex long double
98   ComplexLongDoubleUsesFP2Ret = false;
99
100   // Set the C++ ABI based on the triple.
101   TheCXXABI.set(Triple.isKnownWindowsMSVCEnvironment()
102                     ? TargetCXXABI::Microsoft
103                     : TargetCXXABI::GenericItanium);
104
105   // Default to an empty address space map.
106   AddrSpaceMap = &DefaultAddrSpaceMap;
107   UseAddrSpaceMapMangling = false;
108
109   // Default to an unknown platform name.
110   PlatformName = "unknown";
111   PlatformMinVersion = VersionTuple();
112 }
113
114 // Out of line virtual dtor for TargetInfo.
115 TargetInfo::~TargetInfo() {}
116
117 /// getTypeName - Return the user string for the specified integer type enum.
118 /// For example, SignedShort -> "short".
119 const char *TargetInfo::getTypeName(IntType T) {
120   switch (T) {
121   default: llvm_unreachable("not an integer!");
122   case SignedChar:       return "signed char";
123   case UnsignedChar:     return "unsigned char";
124   case SignedShort:      return "short";
125   case UnsignedShort:    return "unsigned short";
126   case SignedInt:        return "int";
127   case UnsignedInt:      return "unsigned int";
128   case SignedLong:       return "long int";
129   case UnsignedLong:     return "long unsigned int";
130   case SignedLongLong:   return "long long int";
131   case UnsignedLongLong: return "long long unsigned int";
132   }
133 }
134
135 /// getTypeConstantSuffix - Return the constant suffix for the specified
136 /// integer type enum. For example, SignedLong -> "L".
137 const char *TargetInfo::getTypeConstantSuffix(IntType T) const {
138   switch (T) {
139   default: llvm_unreachable("not an integer!");
140   case SignedChar:
141   case SignedShort:
142   case SignedInt:        return "";
143   case SignedLong:       return "L";
144   case SignedLongLong:   return "LL";
145   case UnsignedChar:
146     if (getCharWidth() < getIntWidth())
147       return "";
148     LLVM_FALLTHROUGH;
149   case UnsignedShort:
150     if (getShortWidth() < getIntWidth())
151       return "";
152     LLVM_FALLTHROUGH;
153   case UnsignedInt:      return "U";
154   case UnsignedLong:     return "UL";
155   case UnsignedLongLong: return "ULL";
156   }
157 }
158
159 /// getTypeFormatModifier - Return the printf format modifier for the
160 /// specified integer type enum. For example, SignedLong -> "l".
161
162 const char *TargetInfo::getTypeFormatModifier(IntType T) {
163   switch (T) {
164   default: llvm_unreachable("not an integer!");
165   case SignedChar:
166   case UnsignedChar:     return "hh";
167   case SignedShort:
168   case UnsignedShort:    return "h";
169   case SignedInt:
170   case UnsignedInt:      return "";
171   case SignedLong:
172   case UnsignedLong:     return "l";
173   case SignedLongLong:
174   case UnsignedLongLong: return "ll";
175   }
176 }
177
178 /// getTypeWidth - Return the width (in bits) of the specified integer type
179 /// enum. For example, SignedInt -> getIntWidth().
180 unsigned TargetInfo::getTypeWidth(IntType T) const {
181   switch (T) {
182   default: llvm_unreachable("not an integer!");
183   case SignedChar:
184   case UnsignedChar:     return getCharWidth();
185   case SignedShort:
186   case UnsignedShort:    return getShortWidth();
187   case SignedInt:
188   case UnsignedInt:      return getIntWidth();
189   case SignedLong:
190   case UnsignedLong:     return getLongWidth();
191   case SignedLongLong:
192   case UnsignedLongLong: return getLongLongWidth();
193   };
194 }
195
196 TargetInfo::IntType TargetInfo::getIntTypeByWidth(
197     unsigned BitWidth, bool IsSigned) const {
198   if (getCharWidth() == BitWidth)
199     return IsSigned ? SignedChar : UnsignedChar;
200   if (getShortWidth() == BitWidth)
201     return IsSigned ? SignedShort : UnsignedShort;
202   if (getIntWidth() == BitWidth)
203     return IsSigned ? SignedInt : UnsignedInt;
204   if (getLongWidth() == BitWidth)
205     return IsSigned ? SignedLong : UnsignedLong;
206   if (getLongLongWidth() == BitWidth)
207     return IsSigned ? SignedLongLong : UnsignedLongLong;
208   return NoInt;
209 }
210
211 TargetInfo::IntType TargetInfo::getLeastIntTypeByWidth(unsigned BitWidth,
212                                                        bool IsSigned) const {
213   if (getCharWidth() >= BitWidth)
214     return IsSigned ? SignedChar : UnsignedChar;
215   if (getShortWidth() >= BitWidth)
216     return IsSigned ? SignedShort : UnsignedShort;
217   if (getIntWidth() >= BitWidth)
218     return IsSigned ? SignedInt : UnsignedInt;
219   if (getLongWidth() >= BitWidth)
220     return IsSigned ? SignedLong : UnsignedLong;
221   if (getLongLongWidth() >= BitWidth)
222     return IsSigned ? SignedLongLong : UnsignedLongLong;
223   return NoInt;
224 }
225
226 TargetInfo::RealType TargetInfo::getRealTypeByWidth(unsigned BitWidth) const {
227   if (getFloatWidth() == BitWidth)
228     return Float;
229   if (getDoubleWidth() == BitWidth)
230     return Double;
231
232   switch (BitWidth) {
233   case 96:
234     if (&getLongDoubleFormat() == &llvm::APFloat::x87DoubleExtended())
235       return LongDouble;
236     break;
237   case 128:
238     if (&getLongDoubleFormat() == &llvm::APFloat::PPCDoubleDouble() ||
239         &getLongDoubleFormat() == &llvm::APFloat::IEEEquad())
240       return LongDouble;
241     if (hasFloat128Type())
242       return Float128;
243     break;
244   }
245
246   return NoFloat;
247 }
248
249 /// getTypeAlign - Return the alignment (in bits) of the specified integer type
250 /// enum. For example, SignedInt -> getIntAlign().
251 unsigned TargetInfo::getTypeAlign(IntType T) const {
252   switch (T) {
253   default: llvm_unreachable("not an integer!");
254   case SignedChar:
255   case UnsignedChar:     return getCharAlign();
256   case SignedShort:
257   case UnsignedShort:    return getShortAlign();
258   case SignedInt:
259   case UnsignedInt:      return getIntAlign();
260   case SignedLong:
261   case UnsignedLong:     return getLongAlign();
262   case SignedLongLong:
263   case UnsignedLongLong: return getLongLongAlign();
264   };
265 }
266
267 /// isTypeSigned - Return whether an integer types is signed. Returns true if
268 /// the type is signed; false otherwise.
269 bool TargetInfo::isTypeSigned(IntType T) {
270   switch (T) {
271   default: llvm_unreachable("not an integer!");
272   case SignedChar:
273   case SignedShort:
274   case SignedInt:
275   case SignedLong:
276   case SignedLongLong:
277     return true;
278   case UnsignedChar:
279   case UnsignedShort:
280   case UnsignedInt:
281   case UnsignedLong:
282   case UnsignedLongLong:
283     return false;
284   };
285 }
286
287 /// adjust - Set forced language options.
288 /// Apply changes to the target information with respect to certain
289 /// language options which change the target configuration and adjust
290 /// the language based on the target options where applicable.
291 void TargetInfo::adjust(LangOptions &Opts) {
292   if (Opts.NoBitFieldTypeAlign)
293     UseBitFieldTypeAlignment = false;
294
295   switch (Opts.WCharSize) {
296   default: llvm_unreachable("invalid wchar_t width");
297   case 0: break;
298   case 1: WCharType = Opts.WCharIsSigned ? SignedChar : UnsignedChar; break;
299   case 2: WCharType = Opts.WCharIsSigned ? SignedShort : UnsignedShort; break;
300   case 4: WCharType = Opts.WCharIsSigned ? SignedInt : UnsignedInt; break;
301   }
302
303   if (Opts.AlignDouble) {
304     DoubleAlign = LongLongAlign = 64;
305     LongDoubleAlign = 64;
306   }
307
308   if (Opts.OpenCL) {
309     // OpenCL C requires specific widths for types, irrespective of
310     // what these normally are for the target.
311     // We also define long long and long double here, although the
312     // OpenCL standard only mentions these as "reserved".
313     IntWidth = IntAlign = 32;
314     LongWidth = LongAlign = 64;
315     LongLongWidth = LongLongAlign = 128;
316     HalfWidth = HalfAlign = 16;
317     FloatWidth = FloatAlign = 32;
318
319     // Embedded 32-bit targets (OpenCL EP) might have double C type
320     // defined as float. Let's not override this as it might lead
321     // to generating illegal code that uses 64bit doubles.
322     if (DoubleWidth != FloatWidth) {
323       DoubleWidth = DoubleAlign = 64;
324       DoubleFormat = &llvm::APFloat::IEEEdouble();
325     }
326     LongDoubleWidth = LongDoubleAlign = 128;
327
328     unsigned MaxPointerWidth = getMaxPointerWidth();
329     assert(MaxPointerWidth == 32 || MaxPointerWidth == 64);
330     bool Is32BitArch = MaxPointerWidth == 32;
331     SizeType = Is32BitArch ? UnsignedInt : UnsignedLong;
332     PtrDiffType = Is32BitArch ? SignedInt : SignedLong;
333     IntPtrType = Is32BitArch ? SignedInt : SignedLong;
334
335     IntMaxType = SignedLongLong;
336     Int64Type = SignedLong;
337
338     HalfFormat = &llvm::APFloat::IEEEhalf();
339     FloatFormat = &llvm::APFloat::IEEEsingle();
340     LongDoubleFormat = &llvm::APFloat::IEEEquad();
341   }
342
343   if (Opts.NewAlignOverride)
344     NewAlign = Opts.NewAlignOverride * getCharWidth();
345 }
346
347 bool TargetInfo::initFeatureMap(
348     llvm::StringMap<bool> &Features, DiagnosticsEngine &Diags, StringRef CPU,
349     const std::vector<std::string> &FeatureVec) const {
350   for (const auto &F : FeatureVec) {
351     StringRef Name = F;
352     // Apply the feature via the target.
353     bool Enabled = Name[0] == '+';
354     setFeatureEnabled(Features, Name.substr(1), Enabled);
355   }
356   return true;
357 }
358
359 LangAS TargetInfo::getOpenCLTypeAddrSpace(OpenCLTypeKind TK) const {
360   switch (TK) {
361   case OCLTK_Image:
362   case OCLTK_Pipe:
363     return LangAS::opencl_global;
364
365   case OCLTK_Sampler:
366     return LangAS::opencl_constant;
367
368   default:
369     return LangAS::Default;
370   }
371 }
372
373 //===----------------------------------------------------------------------===//
374
375
376 static StringRef removeGCCRegisterPrefix(StringRef Name) {
377   if (Name[0] == '%' || Name[0] == '#')
378     Name = Name.substr(1);
379
380   return Name;
381 }
382
383 /// isValidClobber - Returns whether the passed in string is
384 /// a valid clobber in an inline asm statement. This is used by
385 /// Sema.
386 bool TargetInfo::isValidClobber(StringRef Name) const {
387   return (isValidGCCRegisterName(Name) ||
388           Name == "memory" || Name == "cc");
389 }
390
391 /// isValidGCCRegisterName - Returns whether the passed in string
392 /// is a valid register name according to GCC. This is used by Sema for
393 /// inline asm statements.
394 bool TargetInfo::isValidGCCRegisterName(StringRef Name) const {
395   if (Name.empty())
396     return false;
397
398   // Get rid of any register prefix.
399   Name = removeGCCRegisterPrefix(Name);
400   if (Name.empty())
401     return false;
402
403   ArrayRef<const char *> Names = getGCCRegNames();
404
405   // If we have a number it maps to an entry in the register name array.
406   if (isDigit(Name[0])) {
407     unsigned n;
408     if (!Name.getAsInteger(0, n))
409       return n < Names.size();
410   }
411
412   // Check register names.
413   if (std::find(Names.begin(), Names.end(), Name) != Names.end())
414     return true;
415
416   // Check any additional names that we have.
417   for (const AddlRegName &ARN : getGCCAddlRegNames())
418     for (const char *AN : ARN.Names) {
419       if (!AN)
420         break;
421       // Make sure the register that the additional name is for is within
422       // the bounds of the register names from above.
423       if (AN == Name && ARN.RegNum < Names.size())
424         return true;
425     }
426
427   // Now check aliases.
428   for (const GCCRegAlias &GRA : getGCCRegAliases())
429     for (const char *A : GRA.Aliases) {
430       if (!A)
431         break;
432       if (A == Name)
433         return true;
434     }
435
436   return false;
437 }
438
439 StringRef TargetInfo::getNormalizedGCCRegisterName(StringRef Name,
440                                                    bool ReturnCanonical) const {
441   assert(isValidGCCRegisterName(Name) && "Invalid register passed in");
442
443   // Get rid of any register prefix.
444   Name = removeGCCRegisterPrefix(Name);
445
446   ArrayRef<const char *> Names = getGCCRegNames();
447
448   // First, check if we have a number.
449   if (isDigit(Name[0])) {
450     unsigned n;
451     if (!Name.getAsInteger(0, n)) {
452       assert(n < Names.size() && "Out of bounds register number!");
453       return Names[n];
454     }
455   }
456
457   // Check any additional names that we have.
458   for (const AddlRegName &ARN : getGCCAddlRegNames())
459     for (const char *AN : ARN.Names) {
460       if (!AN)
461         break;
462       // Make sure the register that the additional name is for is within
463       // the bounds of the register names from above.
464       if (AN == Name && ARN.RegNum < Names.size())
465         return ReturnCanonical ? Names[ARN.RegNum] : Name;
466     }
467
468   // Now check aliases.
469   for (const GCCRegAlias &RA : getGCCRegAliases())
470     for (const char *A : RA.Aliases) {
471       if (!A)
472         break;
473       if (A == Name)
474         return RA.Register;
475     }
476
477   return Name;
478 }
479
480 bool TargetInfo::validateOutputConstraint(ConstraintInfo &Info) const {
481   const char *Name = Info.getConstraintStr().c_str();
482   // An output constraint must start with '=' or '+'
483   if (*Name != '=' && *Name != '+')
484     return false;
485
486   if (*Name == '+')
487     Info.setIsReadWrite();
488
489   Name++;
490   while (*Name) {
491     switch (*Name) {
492     default:
493       if (!validateAsmConstraint(Name, Info)) {
494         // FIXME: We temporarily return false
495         // so we can add more constraints as we hit it.
496         // Eventually, an unknown constraint should just be treated as 'g'.
497         return false;
498       }
499       break;
500     case '&': // early clobber.
501       Info.setEarlyClobber();
502       break;
503     case '%': // commutative.
504       // FIXME: Check that there is a another register after this one.
505       break;
506     case 'r': // general register.
507       Info.setAllowsRegister();
508       break;
509     case 'm': // memory operand.
510     case 'o': // offsetable memory operand.
511     case 'V': // non-offsetable memory operand.
512     case '<': // autodecrement memory operand.
513     case '>': // autoincrement memory operand.
514       Info.setAllowsMemory();
515       break;
516     case 'g': // general register, memory operand or immediate integer.
517     case 'X': // any operand.
518       Info.setAllowsRegister();
519       Info.setAllowsMemory();
520       break;
521     case ',': // multiple alternative constraint.  Pass it.
522       // Handle additional optional '=' or '+' modifiers.
523       if (Name[1] == '=' || Name[1] == '+')
524         Name++;
525       break;
526     case '#': // Ignore as constraint.
527       while (Name[1] && Name[1] != ',')
528         Name++;
529       break;
530     case '?': // Disparage slightly code.
531     case '!': // Disparage severely.
532     case '*': // Ignore for choosing register preferences.
533     case 'i': // Ignore i,n,E,F as output constraints (match from the other
534               // chars)
535     case 'n':
536     case 'E':
537     case 'F':
538       break;  // Pass them.
539     }
540
541     Name++;
542   }
543
544   // Early clobber with a read-write constraint which doesn't permit registers
545   // is invalid.
546   if (Info.earlyClobber() && Info.isReadWrite() && !Info.allowsRegister())
547     return false;
548
549   // If a constraint allows neither memory nor register operands it contains
550   // only modifiers. Reject it.
551   return Info.allowsMemory() || Info.allowsRegister();
552 }
553
554 bool TargetInfo::resolveSymbolicName(const char *&Name,
555                                      ArrayRef<ConstraintInfo> OutputConstraints,
556                                      unsigned &Index) const {
557   assert(*Name == '[' && "Symbolic name did not start with '['");
558   Name++;
559   const char *Start = Name;
560   while (*Name && *Name != ']')
561     Name++;
562
563   if (!*Name) {
564     // Missing ']'
565     return false;
566   }
567
568   std::string SymbolicName(Start, Name - Start);
569
570   for (Index = 0; Index != OutputConstraints.size(); ++Index)
571     if (SymbolicName == OutputConstraints[Index].getName())
572       return true;
573
574   return false;
575 }
576
577 bool TargetInfo::validateInputConstraint(
578                               MutableArrayRef<ConstraintInfo> OutputConstraints,
579                               ConstraintInfo &Info) const {
580   const char *Name = Info.ConstraintStr.c_str();
581
582   if (!*Name)
583     return false;
584
585   while (*Name) {
586     switch (*Name) {
587     default:
588       // Check if we have a matching constraint
589       if (*Name >= '0' && *Name <= '9') {
590         const char *DigitStart = Name;
591         while (Name[1] >= '0' && Name[1] <= '9')
592           Name++;
593         const char *DigitEnd = Name;
594         unsigned i;
595         if (StringRef(DigitStart, DigitEnd - DigitStart + 1)
596                 .getAsInteger(10, i))
597           return false;
598
599         // Check if matching constraint is out of bounds.
600         if (i >= OutputConstraints.size()) return false;
601
602         // A number must refer to an output only operand.
603         if (OutputConstraints[i].isReadWrite())
604           return false;
605
606         // If the constraint is already tied, it must be tied to the
607         // same operand referenced to by the number.
608         if (Info.hasTiedOperand() && Info.getTiedOperand() != i)
609           return false;
610
611         // The constraint should have the same info as the respective
612         // output constraint.
613         Info.setTiedOperand(i, OutputConstraints[i]);
614       } else if (!validateAsmConstraint(Name, Info)) {
615         // FIXME: This error return is in place temporarily so we can
616         // add more constraints as we hit it.  Eventually, an unknown
617         // constraint should just be treated as 'g'.
618         return false;
619       }
620       break;
621     case '[': {
622       unsigned Index = 0;
623       if (!resolveSymbolicName(Name, OutputConstraints, Index))
624         return false;
625
626       // If the constraint is already tied, it must be tied to the
627       // same operand referenced to by the number.
628       if (Info.hasTiedOperand() && Info.getTiedOperand() != Index)
629         return false;
630
631       // A number must refer to an output only operand.
632       if (OutputConstraints[Index].isReadWrite())
633         return false;
634
635       Info.setTiedOperand(Index, OutputConstraints[Index]);
636       break;
637     }
638     case '%': // commutative
639       // FIXME: Fail if % is used with the last operand.
640       break;
641     case 'i': // immediate integer.
642     case 'n': // immediate integer with a known value.
643       break;
644     case 'I':  // Various constant constraints with target-specific meanings.
645     case 'J':
646     case 'K':
647     case 'L':
648     case 'M':
649     case 'N':
650     case 'O':
651     case 'P':
652       if (!validateAsmConstraint(Name, Info))
653         return false;
654       break;
655     case 'r': // general register.
656       Info.setAllowsRegister();
657       break;
658     case 'm': // memory operand.
659     case 'o': // offsettable memory operand.
660     case 'V': // non-offsettable memory operand.
661     case '<': // autodecrement memory operand.
662     case '>': // autoincrement memory operand.
663       Info.setAllowsMemory();
664       break;
665     case 'g': // general register, memory operand or immediate integer.
666     case 'X': // any operand.
667       Info.setAllowsRegister();
668       Info.setAllowsMemory();
669       break;
670     case 'E': // immediate floating point.
671     case 'F': // immediate floating point.
672     case 'p': // address operand.
673       break;
674     case ',': // multiple alternative constraint.  Ignore comma.
675       break;
676     case '#': // Ignore as constraint.
677       while (Name[1] && Name[1] != ',')
678         Name++;
679       break;
680     case '?': // Disparage slightly code.
681     case '!': // Disparage severely.
682     case '*': // Ignore for choosing register preferences.
683       break;  // Pass them.
684     }
685
686     Name++;
687   }
688
689   return true;
690 }