contrib/llvm/tools/clang/lib/AST/MicrosoftMangle.cpp

   1 //===--- MicrosoftMangle.cpp - Microsoft Visual C++ Name Mangling ---------===//
   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 provides C++ name mangling targeting the Microsoft Visual C++ ABI.
  11 //
  12 //===----------------------------------------------------------------------===//
  13
  14 #include "clang/AST/Mangle.h"
  15 #include "clang/AST/ASTContext.h"
  16 #include "clang/AST/CharUnits.h"
  17 #include "clang/AST/Decl.h"
  18 #include "clang/AST/DeclCXX.h"
  19 #include "clang/AST/DeclObjC.h"
  20 #include "clang/AST/DeclTemplate.h"
  21 #include "clang/AST/ExprCXX.h"
  22 #include "clang/Basic/ABI.h"
  23
  24 using namespace clang;
  25
  26 namespace {
  27
  28 /// MicrosoftCXXNameMangler - Manage the mangling of a single name for the
  29 /// Microsoft Visual C++ ABI.
  30 class MicrosoftCXXNameMangler {
  31   MangleContext &Context;
  32   raw_ostream &Out;
  33
  34   ASTContext &getASTContext() const { return Context.getASTContext(); }
  35
  36 public:
  37   MicrosoftCXXNameMangler(MangleContext &C, raw_ostream &Out_)
  38   : Context(C), Out(Out_) { }
  39
  40   void mangle(const NamedDecl *D, StringRef Prefix = "?");
  41   void mangleName(const NamedDecl *ND);
  42   void mangleFunctionEncoding(const FunctionDecl *FD);
  43   void mangleVariableEncoding(const VarDecl *VD);
  44   void mangleNumber(int64_t Number);
  45   void mangleType(QualType T);
  46
  47 private:
  48   void mangleUnqualifiedName(const NamedDecl *ND) {
  49     mangleUnqualifiedName(ND, ND->getDeclName());
  50   }
  51   void mangleUnqualifiedName(const NamedDecl *ND, DeclarationName Name);
  52   void mangleSourceName(const IdentifierInfo *II);
  53   void manglePostfix(const DeclContext *DC, bool NoFunction=false);
  54   void mangleOperatorName(OverloadedOperatorKind OO);
  55   void mangleQualifiers(Qualifiers Quals, bool IsMember);
  56
  57   void mangleObjCMethodName(const ObjCMethodDecl *MD);
  58
  59   // Declare manglers for every type class.
  60 #define ABSTRACT_TYPE(CLASS, PARENT)
  61 #define NON_CANONICAL_TYPE(CLASS, PARENT)
  62 #define TYPE(CLASS, PARENT) void mangleType(const CLASS##Type *T);
  63 #include "clang/AST/TypeNodes.def"
  64
  65   void mangleType(const TagType*);
  66   void mangleType(const FunctionType *T, const FunctionDecl *D,
  67                   bool IsStructor, bool IsInstMethod);
  68   void mangleType(const ArrayType *T, bool IsGlobal);
  69   void mangleExtraDimensions(QualType T);
  70   void mangleFunctionClass(const FunctionDecl *FD);
  71   void mangleCallingConvention(const FunctionType *T, bool IsInstMethod = false);
  72   void mangleThrowSpecification(const FunctionProtoType *T);
  73
  74 };
  75
  76 /// MicrosoftMangleContext - Overrides the default MangleContext for the
  77 /// Microsoft Visual C++ ABI.
  78 class MicrosoftMangleContext : public MangleContext {
  79 public:
  80   MicrosoftMangleContext(ASTContext &Context,
  81                    DiagnosticsEngine &Diags) : MangleContext(Context, Diags) { }
  82   virtual bool shouldMangleDeclName(const NamedDecl *D);
  83   virtual void mangleName(const NamedDecl *D, raw_ostream &Out);
  84   virtual void mangleThunk(const CXXMethodDecl *MD,
  85                            const ThunkInfo &Thunk,
  86                            raw_ostream &);
  87   virtual void mangleCXXDtorThunk(const CXXDestructorDecl *DD, CXXDtorType Type,
  88                                   const ThisAdjustment &ThisAdjustment,
  89                                   raw_ostream &);
  90   virtual void mangleCXXVTable(const CXXRecordDecl *RD,
  91                                raw_ostream &);
  92   virtual void mangleCXXVTT(const CXXRecordDecl *RD,
  93                             raw_ostream &);
  94   virtual void mangleCXXCtorVTable(const CXXRecordDecl *RD, int64_t Offset,
  95                                    const CXXRecordDecl *Type,
  96                                    raw_ostream &);
  97   virtual void mangleCXXRTTI(QualType T, raw_ostream &);
  98   virtual void mangleCXXRTTIName(QualType T, raw_ostream &);
  99   virtual void mangleCXXCtor(const CXXConstructorDecl *D, CXXCtorType Type,
 100                              raw_ostream &);
 101   virtual void mangleCXXDtor(const CXXDestructorDecl *D, CXXDtorType Type,
 102                              raw_ostream &);
 103   virtual void mangleReferenceTemporary(const clang::VarDecl *,
 104                                         raw_ostream &);
 105 };
 106
 107 }
 108
 109 static bool isInCLinkageSpecification(const Decl *D) {
 110   D = D->getCanonicalDecl();
 111   for (const DeclContext *DC = D->getDeclContext();
 112        !DC->isTranslationUnit(); DC = DC->getParent()) {
 113     if (const LinkageSpecDecl *Linkage = dyn_cast<LinkageSpecDecl>(DC))
 114       return Linkage->getLanguage() == LinkageSpecDecl::lang_c;
 115   }
 116
 117   return false;
 118 }
 119
 120 bool MicrosoftMangleContext::shouldMangleDeclName(const NamedDecl *D) {
 121   // In C, functions with no attributes never need to be mangled. Fastpath them.
 122   if (!getASTContext().getLangOpts().CPlusPlus && !D->hasAttrs())
 123     return false;
 124
 125   // Any decl can be declared with __asm("foo") on it, and this takes precedence
 126   // over all other naming in the .o file.
 127   if (D->hasAttr<AsmLabelAttr>())
 128     return true;
 129
 130   // Clang's "overloadable" attribute extension to C/C++ implies name mangling
 131   // (always) as does passing a C++ member function and a function
 132   // whose name is not a simple identifier.
 133   const FunctionDecl *FD = dyn_cast<FunctionDecl>(D);
 134   if (FD && (FD->hasAttr<OverloadableAttr>() || isa<CXXMethodDecl>(FD) ||
 135              !FD->getDeclName().isIdentifier()))
 136     return true;
 137
 138   // Otherwise, no mangling is done outside C++ mode.
 139   if (!getASTContext().getLangOpts().CPlusPlus)
 140     return false;
 141
 142   // Variables at global scope with internal linkage are not mangled.
 143   if (!FD) {
 144     const DeclContext *DC = D->getDeclContext();
 145     if (DC->isTranslationUnit() && D->getLinkage() == InternalLinkage)
 146       return false;
 147   }
 148
 149   // C functions and "main" are not mangled.
 150   if ((FD && FD->isMain()) || isInCLinkageSpecification(D))
 151     return false;
 152
 153   return true;
 154 }
 155
 156 void MicrosoftCXXNameMangler::mangle(const NamedDecl *D,
 157                                      StringRef Prefix) {
 158   // MSVC doesn't mangle C++ names the same way it mangles extern "C" names.
 159   // Therefore it's really important that we don't decorate the
 160   // name with leading underscores or leading/trailing at signs. So, emit a
 161   // asm marker at the start so we get the name right.
 162   Out << '\01';  // LLVM IR Marker for __asm("foo")
 163
 164   // Any decl can be declared with __asm("foo") on it, and this takes precedence
 165   // over all other naming in the .o file.
 166   if (const AsmLabelAttr *ALA = D->getAttr<AsmLabelAttr>()) {
 167     // If we have an asm name, then we use it as the mangling.
 168     Out << ALA->getLabel();
 169     return;
 170   }
 171
 172   // <mangled-name> ::= ? <name> <type-encoding>
 173   Out << Prefix;
 174   mangleName(D);
 175   if (const FunctionDecl *FD = dyn_cast<FunctionDecl>(D))
 176     mangleFunctionEncoding(FD);
 177   else if (const VarDecl *VD = dyn_cast<VarDecl>(D))
 178     mangleVariableEncoding(VD);
 179   // TODO: Fields? Can MSVC even mangle them?
 180 }
 181
 182 void MicrosoftCXXNameMangler::mangleFunctionEncoding(const FunctionDecl *FD) {
 183   // <type-encoding> ::= <function-class> <function-type>
 184
 185   // Don't mangle in the type if this isn't a decl we should typically mangle.
 186   if (!Context.shouldMangleDeclName(FD))
 187     return;
 188
 189   // We should never ever see a FunctionNoProtoType at this point.
 190   // We don't even know how to mangle their types anyway :).
 191   const FunctionProtoType *FT = cast<FunctionProtoType>(FD->getType());
 192
 193   bool InStructor = false, InInstMethod = false;
 194   const CXXMethodDecl *MD = dyn_cast<CXXMethodDecl>(FD);
 195   if (MD) {
 196     if (MD->isInstance())
 197       InInstMethod = true;
 198     if (isa<CXXConstructorDecl>(MD) || isa<CXXDestructorDecl>(MD))
 199       InStructor = true;
 200   }
 201
 202   // First, the function class.
 203   mangleFunctionClass(FD);
 204
 205   mangleType(FT, FD, InStructor, InInstMethod);
 206 }
 207
 208 void MicrosoftCXXNameMangler::mangleVariableEncoding(const VarDecl *VD) {
 209   // <type-encoding> ::= <storage-class> <variable-type>
 210   // <storage-class> ::= 0  # private static member
 211   //                 ::= 1  # protected static member
 212   //                 ::= 2  # public static member
 213   //                 ::= 3  # global
 214   //                 ::= 4  # static local
 215
 216   // The first character in the encoding (after the name) is the storage class.
 217   if (VD->isStaticDataMember()) {
 218     // If it's a static member, it also encodes the access level.
 219     switch (VD->getAccess()) {
 220       default:
 221       case AS_private: Out << '0'; break;
 222       case AS_protected: Out << '1'; break;
 223       case AS_public: Out << '2'; break;
 224     }
 225   }
 226   else if (!VD->isStaticLocal())
 227     Out << '3';
 228   else
 229     Out << '4';
 230   // Now mangle the type.
 231   // <variable-type> ::= <type> <cvr-qualifiers>
 232   //                 ::= <type> A # pointers, references, arrays
 233   // Pointers and references are odd. The type of 'int * const foo;' gets
 234   // mangled as 'QAHA' instead of 'PAHB', for example.
 235   QualType Ty = VD->getType();
 236   if (Ty->isPointerType() || Ty->isReferenceType()) {
 237     mangleType(Ty);
 238     Out << 'A';
 239   } else if (Ty->isArrayType()) {
 240     // Global arrays are funny, too.
 241     mangleType(cast<ArrayType>(Ty.getTypePtr()), true);
 242     Out << 'A';
 243   } else {
 244     mangleType(Ty.getLocalUnqualifiedType());
 245     mangleQualifiers(Ty.getLocalQualifiers(), false);
 246   }
 247 }
 248
 249 void MicrosoftCXXNameMangler::mangleName(const NamedDecl *ND) {
 250   // <name> ::= <unscoped-name> {[<named-scope>]+ | [<nested-name>]}? @
 251   const DeclContext *DC = ND->getDeclContext();
 252
 253   // Always start with the unqualified name.
 254   mangleUnqualifiedName(ND);
 255
 256   // If this is an extern variable declared locally, the relevant DeclContext
 257   // is that of the containing namespace, or the translation unit.
 258   if (isa<FunctionDecl>(DC) && ND->hasLinkage())
 259     while (!DC->isNamespace() && !DC->isTranslationUnit())
 260       DC = DC->getParent();
 261
 262   manglePostfix(DC);
 263
 264   // Terminate the whole name with an '@'.
 265   Out << '@';
 266 }
 267
 268 void MicrosoftCXXNameMangler::mangleNumber(int64_t Number) {
 269   // <number> ::= [?] <decimal digit> # <= 9
 270   //          ::= [?] <hex digit>+ @ # > 9; A = 0, B = 1, etc...
 271   if (Number < 0) {
 272     Out << '?';
 273     Number = -Number;
 274   }
 275   if (Number >= 1 && Number <= 10) {
 276     Out << Number-1;
 277   } else {
 278     // We have to build up the encoding in reverse order, so it will come
 279     // out right when we write it out.
 280     char Encoding[16];
 281     char *EndPtr = Encoding+sizeof(Encoding);
 282     char *CurPtr = EndPtr;
 283     while (Number) {
 284       *--CurPtr = 'A' + (Number % 16);
 285       Number /= 16;
 286     }
 287     Out.write(CurPtr, EndPtr-CurPtr);
 288     Out << '@';
 289   }
 290 }
 291
 292 void
 293 MicrosoftCXXNameMangler::mangleUnqualifiedName(const NamedDecl *ND,
 294                                                DeclarationName Name) {
 295   //  <unqualified-name> ::= <operator-name>
 296   //                     ::= <ctor-dtor-name>
 297   //                     ::= <source-name>
 298   switch (Name.getNameKind()) {
 299     case DeclarationName::Identifier: {
 300       if (const IdentifierInfo *II = Name.getAsIdentifierInfo()) {
 301         mangleSourceName(II);
 302         break;
 303       }
 304
 305       // Otherwise, an anonymous entity.  We must have a declaration.
 306       assert(ND && "mangling empty name without declaration");
 307
 308       if (const NamespaceDecl *NS = dyn_cast<NamespaceDecl>(ND)) {
 309         if (NS->isAnonymousNamespace()) {
 310           Out << "?A";
 311           break;
 312         }
 313       }
 314
 315       // We must have an anonymous struct.
 316       const TagDecl *TD = cast<TagDecl>(ND);
 317       if (const TypedefNameDecl *D = TD->getTypedefNameForAnonDecl()) {
 318         assert(TD->getDeclContext() == D->getDeclContext() &&
 319                "Typedef should not be in another decl context!");
 320         assert(D->getDeclName().getAsIdentifierInfo() &&
 321                "Typedef was not named!");
 322         mangleSourceName(D->getDeclName().getAsIdentifierInfo());
 323         break;
 324       }
 325
 326       // When VC encounters an anonymous type with no tag and no typedef,
 327       // it literally emits '<unnamed-tag>'.
 328       Out << "<unnamed-tag>";
 329       break;
 330     }
 331
 332     case DeclarationName::ObjCZeroArgSelector:
 333     case DeclarationName::ObjCOneArgSelector:
 334     case DeclarationName::ObjCMultiArgSelector:
 335       llvm_unreachable("Can't mangle Objective-C selector names here!");
 336
 337     case DeclarationName::CXXConstructorName:
 338       Out << "?0";
 339       break;
 340
 341     case DeclarationName::CXXDestructorName:
 342       Out << "?1";
 343       break;
 344
 345     case DeclarationName::CXXConversionFunctionName:
 346       // <operator-name> ::= ?B # (cast)
 347       // The target type is encoded as the return type.
 348       Out << "?B";
 349       break;
 350
 351     case DeclarationName::CXXOperatorName:
 352       mangleOperatorName(Name.getCXXOverloadedOperator());
 353       break;
 354
 355     case DeclarationName::CXXLiteralOperatorName:
 356       // FIXME: Was this added in VS2010? Does MS even know how to mangle this?
 357       llvm_unreachable("Don't know how to mangle literal operators yet!");
 358
 359     case DeclarationName::CXXUsingDirective:
 360       llvm_unreachable("Can't mangle a using directive name!");
 361   }
 362 }
 363
 364 void MicrosoftCXXNameMangler::manglePostfix(const DeclContext *DC,
 365                                             bool NoFunction) {
 366   // <postfix> ::= <unqualified-name> [<postfix>]
 367   //           ::= <template-postfix> <template-args> [<postfix>]
 368   //           ::= <template-param>
 369   //           ::= <substitution> [<postfix>]
 370
 371   if (!DC) return;
 372
 373   while (isa<LinkageSpecDecl>(DC))
 374     DC = DC->getParent();
 375
 376   if (DC->isTranslationUnit())
 377     return;
 378
 379   if (const BlockDecl *BD = dyn_cast<BlockDecl>(DC)) {
 380     Context.mangleBlock(BD, Out);
 381     Out << '@';
 382     return manglePostfix(DC->getParent(), NoFunction);
 383   }
 384
 385   if (NoFunction && (isa<FunctionDecl>(DC) || isa<ObjCMethodDecl>(DC)))
 386     return;
 387   else if (const ObjCMethodDecl *Method = dyn_cast<ObjCMethodDecl>(DC))
 388     mangleObjCMethodName(Method);
 389   else {
 390     mangleUnqualifiedName(cast<NamedDecl>(DC));
 391     manglePostfix(DC->getParent(), NoFunction);
 392   }
 393 }
 394
 395 void MicrosoftCXXNameMangler::mangleOperatorName(OverloadedOperatorKind OO) {
 396   switch (OO) {
 397   //                     ?0 # constructor
 398   //                     ?1 # destructor
 399   // <operator-name> ::= ?2 # new
 400   case OO_New: Out << "?2"; break;
 401   // <operator-name> ::= ?3 # delete
 402   case OO_Delete: Out << "?3"; break;
 403   // <operator-name> ::= ?4 # =
 404   case OO_Equal: Out << "?4"; break;
 405   // <operator-name> ::= ?5 # >>
 406   case OO_GreaterGreater: Out << "?5"; break;
 407   // <operator-name> ::= ?6 # <<
 408   case OO_LessLess: Out << "?6"; break;
 409   // <operator-name> ::= ?7 # !
 410   case OO_Exclaim: Out << "?7"; break;
 411   // <operator-name> ::= ?8 # ==
 412   case OO_EqualEqual: Out << "?8"; break;
 413   // <operator-name> ::= ?9 # !=
 414   case OO_ExclaimEqual: Out << "?9"; break;
 415   // <operator-name> ::= ?A # []
 416   case OO_Subscript: Out << "?A"; break;
 417   //                     ?B # conversion
 418   // <operator-name> ::= ?C # ->
 419   case OO_Arrow: Out << "?C"; break;
 420   // <operator-name> ::= ?D # *
 421   case OO_Star: Out << "?D"; break;
 422   // <operator-name> ::= ?E # ++
 423   case OO_PlusPlus: Out << "?E"; break;
 424   // <operator-name> ::= ?F # --
 425   case OO_MinusMinus: Out << "?F"; break;
 426   // <operator-name> ::= ?G # -
 427   case OO_Minus: Out << "?G"; break;
 428   // <operator-name> ::= ?H # +
 429   case OO_Plus: Out << "?H"; break;
 430   // <operator-name> ::= ?I # &
 431   case OO_Amp: Out << "?I"; break;
 432   // <operator-name> ::= ?J # ->*
 433   case OO_ArrowStar: Out << "?J"; break;
 434   // <operator-name> ::= ?K # /
 435   case OO_Slash: Out << "?K"; break;
 436   // <operator-name> ::= ?L # %
 437   case OO_Percent: Out << "?L"; break;
 438   // <operator-name> ::= ?M # <
 439   case OO_Less: Out << "?M"; break;
 440   // <operator-name> ::= ?N # <=
 441   case OO_LessEqual: Out << "?N"; break;
 442   // <operator-name> ::= ?O # >
 443   case OO_Greater: Out << "?O"; break;
 444   // <operator-name> ::= ?P # >=
 445   case OO_GreaterEqual: Out << "?P"; break;
 446   // <operator-name> ::= ?Q # ,
 447   case OO_Comma: Out << "?Q"; break;
 448   // <operator-name> ::= ?R # ()
 449   case OO_Call: Out << "?R"; break;
 450   // <operator-name> ::= ?S # ~
 451   case OO_Tilde: Out << "?S"; break;
 452   // <operator-name> ::= ?T # ^
 453   case OO_Caret: Out << "?T"; break;
 454   // <operator-name> ::= ?U # |
 455   case OO_Pipe: Out << "?U"; break;
 456   // <operator-name> ::= ?V # &&
 457   case OO_AmpAmp: Out << "?V"; break;
 458   // <operator-name> ::= ?W # ||
 459   case OO_PipePipe: Out << "?W"; break;
 460   // <operator-name> ::= ?X # *=
 461   case OO_StarEqual: Out << "?X"; break;
 462   // <operator-name> ::= ?Y # +=
 463   case OO_PlusEqual: Out << "?Y"; break;
 464   // <operator-name> ::= ?Z # -=
 465   case OO_MinusEqual: Out << "?Z"; break;
 466   // <operator-name> ::= ?_0 # /=
 467   case OO_SlashEqual: Out << "?_0"; break;
 468   // <operator-name> ::= ?_1 # %=
 469   case OO_PercentEqual: Out << "?_1"; break;
 470   // <operator-name> ::= ?_2 # >>=
 471   case OO_GreaterGreaterEqual: Out << "?_2"; break;
 472   // <operator-name> ::= ?_3 # <<=
 473   case OO_LessLessEqual: Out << "?_3"; break;
 474   // <operator-name> ::= ?_4 # &=
 475   case OO_AmpEqual: Out << "?_4"; break;
 476   // <operator-name> ::= ?_5 # |=
 477   case OO_PipeEqual: Out << "?_5"; break;
 478   // <operator-name> ::= ?_6 # ^=
 479   case OO_CaretEqual: Out << "?_6"; break;
 480   //                     ?_7 # vftable
 481   //                     ?_8 # vbtable
 482   //                     ?_9 # vcall
 483   //                     ?_A # typeof
 484   //                     ?_B # local static guard
 485   //                     ?_C # string
 486   //                     ?_D # vbase destructor
 487   //                     ?_E # vector deleting destructor
 488   //                     ?_F # default constructor closure
 489   //                     ?_G # scalar deleting destructor
 490   //                     ?_H # vector constructor iterator
 491   //                     ?_I # vector destructor iterator
 492   //                     ?_J # vector vbase constructor iterator
 493   //                     ?_K # virtual displacement map
 494   //                     ?_L # eh vector constructor iterator
 495   //                     ?_M # eh vector destructor iterator
 496   //                     ?_N # eh vector vbase constructor iterator
 497   //                     ?_O # copy constructor closure
 498   //                     ?_P<name> # udt returning <name>
 499   //                     ?_Q # <unknown>
 500   //                     ?_R0 # RTTI Type Descriptor
 501   //                     ?_R1 # RTTI Base Class Descriptor at (a,b,c,d)
 502   //                     ?_R2 # RTTI Base Class Array
 503   //                     ?_R3 # RTTI Class Hierarchy Descriptor
 504   //                     ?_R4 # RTTI Complete Object Locator
 505   //                     ?_S # local vftable
 506   //                     ?_T # local vftable constructor closure
 507   // <operator-name> ::= ?_U # new[]
 508   case OO_Array_New: Out << "?_U"; break;
 509   // <operator-name> ::= ?_V # delete[]
 510   case OO_Array_Delete: Out << "?_V"; break;
 511
 512   case OO_Conditional:
 513     llvm_unreachable("Don't know how to mangle ?:");
 514
 515   case OO_None:
 516   case NUM_OVERLOADED_OPERATORS:
 517     llvm_unreachable("Not an overloaded operator");
 518   }
 519 }
 520
 521 void MicrosoftCXXNameMangler::mangleSourceName(const IdentifierInfo *II) {
 522   // <source name> ::= <identifier> @
 523   Out << II->getName() << '@';
 524 }
 525
 526 void MicrosoftCXXNameMangler::mangleObjCMethodName(const ObjCMethodDecl *MD) {
 527   Context.mangleObjCMethodName(MD, Out);
 528 }
 529
 530 void MicrosoftCXXNameMangler::mangleQualifiers(Qualifiers Quals,
 531                                                bool IsMember) {
 532   // <cvr-qualifiers> ::= [E] [F] [I] <base-cvr-qualifiers>
 533   // 'E' means __ptr64 (32-bit only); 'F' means __unaligned (32/64-bit only);
 534   // 'I' means __restrict (32/64-bit).
 535   // Note that the MSVC __restrict keyword isn't the same as the C99 restrict
 536   // keyword!
 537   // <base-cvr-qualifiers> ::= A  # near
 538   //                       ::= B  # near const
 539   //                       ::= C  # near volatile
 540   //                       ::= D  # near const volatile
 541   //                       ::= E  # far (16-bit)
 542   //                       ::= F  # far const (16-bit)
 543   //                       ::= G  # far volatile (16-bit)
 544   //                       ::= H  # far const volatile (16-bit)
 545   //                       ::= I  # huge (16-bit)
 546   //                       ::= J  # huge const (16-bit)
 547   //                       ::= K  # huge volatile (16-bit)
 548   //                       ::= L  # huge const volatile (16-bit)
 549   //                       ::= M <basis> # based
 550   //                       ::= N <basis> # based const
 551   //                       ::= O <basis> # based volatile
 552   //                       ::= P <basis> # based const volatile
 553   //                       ::= Q  # near member
 554   //                       ::= R  # near const member
 555   //                       ::= S  # near volatile member
 556   //                       ::= T  # near const volatile member
 557   //                       ::= U  # far member (16-bit)
 558   //                       ::= V  # far const member (16-bit)
 559   //                       ::= W  # far volatile member (16-bit)
 560   //                       ::= X  # far const volatile member (16-bit)
 561   //                       ::= Y  # huge member (16-bit)
 562   //                       ::= Z  # huge const member (16-bit)
 563   //                       ::= 0  # huge volatile member (16-bit)
 564   //                       ::= 1  # huge const volatile member (16-bit)
 565   //                       ::= 2 <basis> # based member
 566   //                       ::= 3 <basis> # based const member
 567   //                       ::= 4 <basis> # based volatile member
 568   //                       ::= 5 <basis> # based const volatile member
 569   //                       ::= 6  # near function (pointers only)
 570   //                       ::= 7  # far function (pointers only)
 571   //                       ::= 8  # near method (pointers only)
 572   //                       ::= 9  # far method (pointers only)
 573   //                       ::= _A <basis> # based function (pointers only)
 574   //                       ::= _B <basis> # based function (far?) (pointers only)
 575   //                       ::= _C <basis> # based method (pointers only)
 576   //                       ::= _D <basis> # based method (far?) (pointers only)
 577   //                       ::= _E # block (Clang)
 578   // <basis> ::= 0 # __based(void)
 579   //         ::= 1 # __based(segment)?
 580   //         ::= 2 <name> # __based(name)
 581   //         ::= 3 # ?
 582   //         ::= 4 # ?
 583   //         ::= 5 # not really based
 584   if (!IsMember) {
 585     if (!Quals.hasVolatile()) {
 586       if (!Quals.hasConst())
 587         Out << 'A';
 588       else
 589         Out << 'B';
 590     } else {
 591       if (!Quals.hasConst())
 592         Out << 'C';
 593       else
 594         Out << 'D';
 595     }
 596   } else {
 597     if (!Quals.hasVolatile()) {
 598       if (!Quals.hasConst())
 599         Out << 'Q';
 600       else
 601         Out << 'R';
 602     } else {
 603       if (!Quals.hasConst())
 604         Out << 'S';
 605       else
 606         Out << 'T';
 607     }
 608   }
 609
 610   // FIXME: For now, just drop all extension qualifiers on the floor.
 611 }
 612
 613 void MicrosoftCXXNameMangler::mangleType(QualType T) {
 614   // Only operate on the canonical type!
 615   T = getASTContext().getCanonicalType(T);
 616
 617   Qualifiers Quals = T.getLocalQualifiers();
 618   if (Quals) {
 619     // We have to mangle these now, while we still have enough information.
 620     // <pointer-cvr-qualifiers> ::= P  # pointer
 621     //                          ::= Q  # const pointer
 622     //                          ::= R  # volatile pointer
 623     //                          ::= S  # const volatile pointer
 624     if (T->isAnyPointerType() || T->isMemberPointerType() ||
 625         T->isBlockPointerType()) {
 626       if (!Quals.hasVolatile())
 627         Out << 'Q';
 628       else {
 629         if (!Quals.hasConst())
 630           Out << 'R';
 631         else
 632           Out << 'S';
 633       }
 634     } else
 635       // Just emit qualifiers like normal.
 636       // NB: When we mangle a pointer/reference type, and the pointee
 637       // type has no qualifiers, the lack of qualifier gets mangled
 638       // in there.
 639       mangleQualifiers(Quals, false);
 640   } else if (T->isAnyPointerType() || T->isMemberPointerType() ||
 641              T->isBlockPointerType()) {
 642     Out << 'P';
 643   }
 644   switch (T->getTypeClass()) {
 645 #define ABSTRACT_TYPE(CLASS, PARENT)
 646 #define NON_CANONICAL_TYPE(CLASS, PARENT) \
 647 case Type::CLASS: \
 648 llvm_unreachable("can't mangle non-canonical type " #CLASS "Type"); \
 649 return;
 650 #define TYPE(CLASS, PARENT) \
 651 case Type::CLASS: \
 652 mangleType(static_cast<const CLASS##Type*>(T.getTypePtr())); \
 653 break;
 654 #include "clang/AST/TypeNodes.def"
 655   }
 656 }
 657
 658 void MicrosoftCXXNameMangler::mangleType(const BuiltinType *T) {
 659   //  <type>         ::= <builtin-type>
 660   //  <builtin-type> ::= X  # void
 661   //                 ::= C  # signed char
 662   //                 ::= D  # char
 663   //                 ::= E  # unsigned char
 664   //                 ::= F  # short
 665   //                 ::= G  # unsigned short (or wchar_t if it's not a builtin)
 666   //                 ::= H  # int
 667   //                 ::= I  # unsigned int
 668   //                 ::= J  # long
 669   //                 ::= K  # unsigned long
 670   //                     L  # <none>
 671   //                 ::= M  # float
 672   //                 ::= N  # double
 673   //                 ::= O  # long double (__float80 is mangled differently)
 674   //                 ::= _J # long long, __int64
 675   //                 ::= _K # unsigned long long, __int64
 676   //                 ::= _L # __int128
 677   //                 ::= _M # unsigned __int128
 678   //                 ::= _N # bool
 679   //                     _O # <array in parameter>
 680   //                 ::= _T # __float80 (Intel)
 681   //                 ::= _W # wchar_t
 682   //                 ::= _Z # __float80 (Digital Mars)
 683   switch (T->getKind()) {
 684   case BuiltinType::Void: Out << 'X'; break;
 685   case BuiltinType::SChar: Out << 'C'; break;
 686   case BuiltinType::Char_U: case BuiltinType::Char_S: Out << 'D'; break;
 687   case BuiltinType::UChar: Out << 'E'; break;
 688   case BuiltinType::Short: Out << 'F'; break;
 689   case BuiltinType::UShort: Out << 'G'; break;
 690   case BuiltinType::Int: Out << 'H'; break;
 691   case BuiltinType::UInt: Out << 'I'; break;
 692   case BuiltinType::Long: Out << 'J'; break;
 693   case BuiltinType::ULong: Out << 'K'; break;
 694   case BuiltinType::Float: Out << 'M'; break;
 695   case BuiltinType::Double: Out << 'N'; break;
 696   // TODO: Determine size and mangle accordingly
 697   case BuiltinType::LongDouble: Out << 'O'; break;
 698   case BuiltinType::LongLong: Out << "_J"; break;
 699   case BuiltinType::ULongLong: Out << "_K"; break;
 700   case BuiltinType::Int128: Out << "_L"; break;
 701   case BuiltinType::UInt128: Out << "_M"; break;
 702   case BuiltinType::Bool: Out << "_N"; break;
 703   case BuiltinType::WChar_S:
 704   case BuiltinType::WChar_U: Out << "_W"; break;
 705
 706 #define BUILTIN_TYPE(Id, SingletonId)
 707 #define PLACEHOLDER_TYPE(Id, SingletonId) \
 708   case BuiltinType::Id:
 709 #include "clang/AST/BuiltinTypes.def"
 710   case BuiltinType::Dependent:
 711     llvm_unreachable("placeholder types shouldn't get to name mangling");
 712
 713   case BuiltinType::ObjCId: Out << "PAUobjc_object@@"; break;
 714   case BuiltinType::ObjCClass: Out << "PAUobjc_class@@"; break;
 715   case BuiltinType::ObjCSel: Out << "PAUobjc_selector@@"; break;
 716
 717   case BuiltinType::Char16:
 718   case BuiltinType::Char32:
 719   case BuiltinType::Half:
 720   case BuiltinType::NullPtr:
 721     assert(0 && "Don't know how to mangle this type yet");
 722   }
 723 }
 724
 725 // <type>          ::= <function-type>
 726 void MicrosoftCXXNameMangler::mangleType(const FunctionProtoType *T) {
 727   // Structors only appear in decls, so at this point we know it's not a
 728   // structor type.
 729   // I'll probably have mangleType(MemberPointerType) call the mangleType()
 730   // method directly.
 731   mangleType(T, NULL, false, false);
 732 }
 733 void MicrosoftCXXNameMangler::mangleType(const FunctionNoProtoType *T) {
 734   llvm_unreachable("Can't mangle K&R function prototypes");
 735 }
 736
 737 void MicrosoftCXXNameMangler::mangleType(const FunctionType *T,
 738                                          const FunctionDecl *D,
 739                                          bool IsStructor,
 740                                          bool IsInstMethod) {
 741   // <function-type> ::= <this-cvr-qualifiers> <calling-convention>
 742   //                     <return-type> <argument-list> <throw-spec>
 743   const FunctionProtoType *Proto = cast<FunctionProtoType>(T);
 744
 745   // If this is a C++ instance method, mangle the CVR qualifiers for the
 746   // this pointer.
 747   if (IsInstMethod)
 748     mangleQualifiers(Qualifiers::fromCVRMask(Proto->getTypeQuals()), false);
 749
 750   mangleCallingConvention(T, IsInstMethod);
 751
 752   // <return-type> ::= <type>
 753   //               ::= @ # structors (they have no declared return type)
 754   if (IsStructor)
 755     Out << '@';
 756   else
 757     mangleType(Proto->getResultType());
 758
 759   // <argument-list> ::= X # void
 760   //                 ::= <type>+ @
 761   //                 ::= <type>* Z # varargs
 762   if (Proto->getNumArgs() == 0 && !Proto->isVariadic()) {
 763     Out << 'X';
 764   } else {
 765     if (D) {
 766       // If we got a decl, use the "types-as-written" to make sure arrays
 767       // get mangled right.
 768       for (FunctionDecl::param_const_iterator Parm = D->param_begin(),
 769            ParmEnd = D->param_end();
 770            Parm != ParmEnd; ++Parm)
 771         mangleType((*Parm)->getTypeSourceInfo()->getType());
 772     } else {
 773       for (FunctionProtoType::arg_type_iterator Arg = Proto->arg_type_begin(),
 774            ArgEnd = Proto->arg_type_end();
 775            Arg != ArgEnd; ++Arg)
 776         mangleType(*Arg);
 777     }
 778     // <builtin-type>      ::= Z  # ellipsis
 779     if (Proto->isVariadic())
 780       Out << 'Z';
 781     else
 782       Out << '@';
 783   }
 784
 785   mangleThrowSpecification(Proto);
 786 }
 787
 788 void MicrosoftCXXNameMangler::mangleFunctionClass(const FunctionDecl *FD) {
 789   // <function-class> ::= A # private: near
 790   //                  ::= B # private: far
 791   //                  ::= C # private: static near
 792   //                  ::= D # private: static far
 793   //                  ::= E # private: virtual near
 794   //                  ::= F # private: virtual far
 795   //                  ::= G # private: thunk near
 796   //                  ::= H # private: thunk far
 797   //                  ::= I # protected: near
 798   //                  ::= J # protected: far
 799   //                  ::= K # protected: static near
 800   //                  ::= L # protected: static far
 801   //                  ::= M # protected: virtual near
 802   //                  ::= N # protected: virtual far
 803   //                  ::= O # protected: thunk near
 804   //                  ::= P # protected: thunk far
 805   //                  ::= Q # public: near
 806   //                  ::= R # public: far
 807   //                  ::= S # public: static near
 808   //                  ::= T # public: static far
 809   //                  ::= U # public: virtual near
 810   //                  ::= V # public: virtual far
 811   //                  ::= W # public: thunk near
 812   //                  ::= X # public: thunk far
 813   //                  ::= Y # global near
 814   //                  ::= Z # global far
 815   if (const CXXMethodDecl *MD = dyn_cast<CXXMethodDecl>(FD)) {
 816     switch (MD->getAccess()) {
 817       default:
 818       case AS_private:
 819         if (MD->isStatic())
 820           Out << 'C';
 821         else if (MD->isVirtual())
 822           Out << 'E';
 823         else
 824           Out << 'A';
 825         break;
 826       case AS_protected:
 827         if (MD->isStatic())
 828           Out << 'K';
 829         else if (MD->isVirtual())
 830           Out << 'M';
 831         else
 832           Out << 'I';
 833         break;
 834       case AS_public:
 835         if (MD->isStatic())
 836           Out << 'S';
 837         else if (MD->isVirtual())
 838           Out << 'U';
 839         else
 840           Out << 'Q';
 841     }
 842   } else
 843     Out << 'Y';
 844 }
 845 void MicrosoftCXXNameMangler::mangleCallingConvention(const FunctionType *T,
 846                                                       bool IsInstMethod) {
 847   // <calling-convention> ::= A # __cdecl
 848   //                      ::= B # __export __cdecl
 849   //                      ::= C # __pascal
 850   //                      ::= D # __export __pascal
 851   //                      ::= E # __thiscall
 852   //                      ::= F # __export __thiscall
 853   //                      ::= G # __stdcall
 854   //                      ::= H # __export __stdcall
 855   //                      ::= I # __fastcall
 856   //                      ::= J # __export __fastcall
 857   // The 'export' calling conventions are from a bygone era
 858   // (*cough*Win16*cough*) when functions were declared for export with
 859   // that keyword. (It didn't actually export them, it just made them so
 860   // that they could be in a DLL and somebody from another module could call
 861   // them.)
 862   CallingConv CC = T->getCallConv();
 863   if (CC == CC_Default)
 864     CC = IsInstMethod ? getASTContext().getDefaultMethodCallConv() : CC_C;
 865   switch (CC) {
 866     default:
 867       llvm_unreachable("Unsupported CC for mangling");
 868     case CC_Default:
 869     case CC_C: Out << 'A'; break;
 870     case CC_X86Pascal: Out << 'C'; break;
 871     case CC_X86ThisCall: Out << 'E'; break;
 872     case CC_X86StdCall: Out << 'G'; break;
 873     case CC_X86FastCall: Out << 'I'; break;
 874   }
 875 }
 876 void MicrosoftCXXNameMangler::mangleThrowSpecification(
 877                                                 const FunctionProtoType *FT) {
 878   // <throw-spec> ::= Z # throw(...) (default)
 879   //              ::= @ # throw() or __declspec/__attribute__((nothrow))
 880   //              ::= <type>+
 881   // NOTE: Since the Microsoft compiler ignores throw specifications, they are
 882   // all actually mangled as 'Z'. (They're ignored because their associated
 883   // functionality isn't implemented, and probably never will be.)
 884   Out << 'Z';
 885 }
 886
 887 void MicrosoftCXXNameMangler::mangleType(const UnresolvedUsingType *T) {
 888   llvm_unreachable("Don't know how to mangle UnresolvedUsingTypes yet!");
 889 }
 890
 891 // <type>        ::= <union-type> | <struct-type> | <class-type> | <enum-type>
 892 // <union-type>  ::= T <name>
 893 // <struct-type> ::= U <name>
 894 // <class-type>  ::= V <name>
 895 // <enum-type>   ::= W <size> <name>
 896 void MicrosoftCXXNameMangler::mangleType(const EnumType *T) {
 897   mangleType(static_cast<const TagType*>(T));
 898 }
 899 void MicrosoftCXXNameMangler::mangleType(const RecordType *T) {
 900   mangleType(static_cast<const TagType*>(T));
 901 }
 902 void MicrosoftCXXNameMangler::mangleType(const TagType *T) {
 903   switch (T->getDecl()->getTagKind()) {
 904     case TTK_Union:
 905       Out << 'T';
 906       break;
 907     case TTK_Struct:
 908       Out << 'U';
 909       break;
 910     case TTK_Class:
 911       Out << 'V';
 912       break;
 913     case TTK_Enum:
 914       Out << 'W';
 915       Out << getASTContext().getTypeSizeInChars(
 916                 cast<EnumDecl>(T->getDecl())->getIntegerType()).getQuantity();
 917       break;
 918   }
 919   mangleName(T->getDecl());
 920 }
 921
 922 // <type>       ::= <array-type>
 923 // <array-type> ::= P <cvr-qualifiers> [Y <dimension-count> <dimension>+]
 924 //                                                  <element-type> # as global
 925 //              ::= Q <cvr-qualifiers> [Y <dimension-count> <dimension>+]
 926 //                                                  <element-type> # as param
 927 // It's supposed to be the other way around, but for some strange reason, it
 928 // isn't. Today this behavior is retained for the sole purpose of backwards
 929 // compatibility.
 930 void MicrosoftCXXNameMangler::mangleType(const ArrayType *T, bool IsGlobal) {
 931   // This isn't a recursive mangling, so now we have to do it all in this
 932   // one call.
 933   if (IsGlobal)
 934     Out << 'P';
 935   else
 936     Out << 'Q';
 937   mangleExtraDimensions(T->getElementType());
 938 }
 939 void MicrosoftCXXNameMangler::mangleType(const ConstantArrayType *T) {
 940   mangleType(static_cast<const ArrayType *>(T), false);
 941 }
 942 void MicrosoftCXXNameMangler::mangleType(const VariableArrayType *T) {
 943   mangleType(static_cast<const ArrayType *>(T), false);
 944 }
 945 void MicrosoftCXXNameMangler::mangleType(const DependentSizedArrayType *T) {
 946   mangleType(static_cast<const ArrayType *>(T), false);
 947 }
 948 void MicrosoftCXXNameMangler::mangleType(const IncompleteArrayType *T) {
 949   mangleType(static_cast<const ArrayType *>(T), false);
 950 }
 951 void MicrosoftCXXNameMangler::mangleExtraDimensions(QualType ElementTy) {
 952   SmallVector<llvm::APInt, 3> Dimensions;
 953   for (;;) {
 954     if (ElementTy->isConstantArrayType()) {
 955       const ConstantArrayType *CAT =
 956       static_cast<const ConstantArrayType *>(ElementTy.getTypePtr());
 957       Dimensions.push_back(CAT->getSize());
 958       ElementTy = CAT->getElementType();
 959     } else if (ElementTy->isVariableArrayType()) {
 960       llvm_unreachable("Don't know how to mangle VLAs!");
 961     } else if (ElementTy->isDependentSizedArrayType()) {
 962       // The dependent expression has to be folded into a constant (TODO).
 963       llvm_unreachable("Don't know how to mangle dependent-sized arrays!");
 964     } else if (ElementTy->isIncompleteArrayType()) continue;
 965     else break;
 966   }
 967   mangleQualifiers(ElementTy.getQualifiers(), false);
 968   // If there are any additional dimensions, mangle them now.
 969   if (Dimensions.size() > 0) {
 970     Out << 'Y';
 971     // <dimension-count> ::= <number> # number of extra dimensions
 972     mangleNumber(Dimensions.size());
 973     for (unsigned Dim = 0; Dim < Dimensions.size(); ++Dim) {
 974       mangleNumber(Dimensions[Dim].getLimitedValue());
 975     }
 976   }
 977   mangleType(ElementTy.getLocalUnqualifiedType());
 978 }
 979
 980 // <type>                   ::= <pointer-to-member-type>
 981 // <pointer-to-member-type> ::= <pointer-cvr-qualifiers> <cvr-qualifiers>
 982 //                                                          <class name> <type>
 983 void MicrosoftCXXNameMangler::mangleType(const MemberPointerType *T) {
 984   QualType PointeeType = T->getPointeeType();
 985   if (const FunctionProtoType *FPT = dyn_cast<FunctionProtoType>(PointeeType)) {
 986     Out << '8';
 987     mangleName(cast<RecordType>(T->getClass())->getDecl());
 988     mangleType(FPT, NULL, false, true);
 989   } else {
 990     mangleQualifiers(PointeeType.getQualifiers(), true);
 991     mangleName(cast<RecordType>(T->getClass())->getDecl());
 992     mangleType(PointeeType.getLocalUnqualifiedType());
 993   }
 994 }
 995
 996 void MicrosoftCXXNameMangler::mangleType(const TemplateTypeParmType *T) {
 997   llvm_unreachable("Don't know how to mangle TemplateTypeParmTypes yet!");
 998 }
 999
1000 void MicrosoftCXXNameMangler::mangleType(
1001                                        const SubstTemplateTypeParmPackType *T) {
1002   llvm_unreachable(
1003          "Don't know how to mangle SubstTemplateTypeParmPackTypes yet!");
1004 }
1005
1006 // <type> ::= <pointer-type>
1007 // <pointer-type> ::= <pointer-cvr-qualifiers> <cvr-qualifiers> <type>
1008 void MicrosoftCXXNameMangler::mangleType(const PointerType *T) {
1009   QualType PointeeTy = T->getPointeeType();
1010   if (PointeeTy->isArrayType()) {
1011     // Pointers to arrays are mangled like arrays.
1012     mangleExtraDimensions(T->getPointeeType());
1013   } else if (PointeeTy->isFunctionType()) {
1014     // Function pointers are special.
1015     Out << '6';
1016     mangleType(static_cast<const FunctionType *>(PointeeTy.getTypePtr()),
1017                NULL, false, false);
1018   } else {
1019     if (!PointeeTy.hasQualifiers())
1020       // Lack of qualifiers is mangled as 'A'.
1021       Out << 'A';
1022     mangleType(PointeeTy);
1023   }
1024 }
1025 void MicrosoftCXXNameMangler::mangleType(const ObjCObjectPointerType *T) {
1026   // Object pointers never have qualifiers.
1027   Out << 'A';
1028   mangleType(T->getPointeeType());
1029 }
1030
1031 // <type> ::= <reference-type>
1032 // <reference-type> ::= A <cvr-qualifiers> <type>
1033 void MicrosoftCXXNameMangler::mangleType(const LValueReferenceType *T) {
1034   Out << 'A';
1035   QualType PointeeTy = T->getPointeeType();
1036   if (!PointeeTy.hasQualifiers())
1037     // Lack of qualifiers is mangled as 'A'.
1038     Out << 'A';
1039   mangleType(PointeeTy);
1040 }
1041
1042 void MicrosoftCXXNameMangler::mangleType(const RValueReferenceType *T) {
1043   llvm_unreachable("Don't know how to mangle RValueReferenceTypes yet!");
1044 }
1045
1046 void MicrosoftCXXNameMangler::mangleType(const ComplexType *T) {
1047   llvm_unreachable("Don't know how to mangle ComplexTypes yet!");
1048 }
1049
1050 void MicrosoftCXXNameMangler::mangleType(const VectorType *T) {
1051   llvm_unreachable("Don't know how to mangle VectorTypes yet!");
1052 }
1053 void MicrosoftCXXNameMangler::mangleType(const ExtVectorType *T) {
1054   llvm_unreachable("Don't know how to mangle ExtVectorTypes yet!");
1055 }
1056 void MicrosoftCXXNameMangler::mangleType(const DependentSizedExtVectorType *T) {
1057   llvm_unreachable(
1058                   "Don't know how to mangle DependentSizedExtVectorTypes yet!");
1059 }
1060
1061 void MicrosoftCXXNameMangler::mangleType(const ObjCInterfaceType *T) {
1062   // ObjC interfaces have structs underlying them.
1063   Out << 'U';
1064   mangleName(T->getDecl());
1065 }
1066
1067 void MicrosoftCXXNameMangler::mangleType(const ObjCObjectType *T) {
1068   // We don't allow overloading by different protocol qualification,
1069   // so mangling them isn't necessary.
1070   mangleType(T->getBaseType());
1071 }
1072
1073 void MicrosoftCXXNameMangler::mangleType(const BlockPointerType *T) {
1074   Out << "_E";
1075   mangleType(T->getPointeeType());
1076 }
1077
1078 void MicrosoftCXXNameMangler::mangleType(const InjectedClassNameType *T) {
1079   llvm_unreachable("Don't know how to mangle InjectedClassNameTypes yet!");
1080 }
1081
1082 void MicrosoftCXXNameMangler::mangleType(const TemplateSpecializationType *T) {
1083   llvm_unreachable("Don't know how to mangle TemplateSpecializationTypes yet!");
1084 }
1085
1086 void MicrosoftCXXNameMangler::mangleType(const DependentNameType *T) {
1087   llvm_unreachable("Don't know how to mangle DependentNameTypes yet!");
1088 }
1089
1090 void MicrosoftCXXNameMangler::mangleType(
1091                                  const DependentTemplateSpecializationType *T) {
1092   llvm_unreachable(
1093          "Don't know how to mangle DependentTemplateSpecializationTypes yet!");
1094 }
1095
1096 void MicrosoftCXXNameMangler::mangleType(const PackExpansionType *T) {
1097   llvm_unreachable("Don't know how to mangle PackExpansionTypes yet!");
1098 }
1099
1100 void MicrosoftCXXNameMangler::mangleType(const TypeOfType *T) {
1101   llvm_unreachable("Don't know how to mangle TypeOfTypes yet!");
1102 }
1103
1104 void MicrosoftCXXNameMangler::mangleType(const TypeOfExprType *T) {
1105   llvm_unreachable("Don't know how to mangle TypeOfExprTypes yet!");
1106 }
1107
1108 void MicrosoftCXXNameMangler::mangleType(const DecltypeType *T) {
1109   llvm_unreachable("Don't know how to mangle DecltypeTypes yet!");
1110 }
1111
1112 void MicrosoftCXXNameMangler::mangleType(const UnaryTransformType *T) {
1113   llvm_unreachable("Don't know how to mangle UnaryTransformationTypes yet!");
1114 }
1115
1116 void MicrosoftCXXNameMangler::mangleType(const AutoType *T) {
1117   llvm_unreachable("Don't know how to mangle AutoTypes yet!");
1118 }
1119
1120 void MicrosoftCXXNameMangler::mangleType(const AtomicType *T) {
1121   llvm_unreachable("Don't know how to mangle AtomicTypes yet!");
1122 }
1123
1124 void MicrosoftMangleContext::mangleName(const NamedDecl *D,
1125                                         raw_ostream &Out) {
1126   assert((isa<FunctionDecl>(D) || isa<VarDecl>(D)) &&
1127          "Invalid mangleName() call, argument is not a variable or function!");
1128   assert(!isa<CXXConstructorDecl>(D) && !isa<CXXDestructorDecl>(D) &&
1129          "Invalid mangleName() call on 'structor decl!");
1130
1131   PrettyStackTraceDecl CrashInfo(D, SourceLocation(),
1132                                  getASTContext().getSourceManager(),
1133                                  "Mangling declaration");
1134
1135   MicrosoftCXXNameMangler Mangler(*this, Out);
1136   return Mangler.mangle(D);
1137 }
1138 void MicrosoftMangleContext::mangleThunk(const CXXMethodDecl *MD,
1139                                          const ThunkInfo &Thunk,
1140                                          raw_ostream &) {
1141   llvm_unreachable("Can't yet mangle thunks!");
1142 }
1143 void MicrosoftMangleContext::mangleCXXDtorThunk(const CXXDestructorDecl *DD,
1144                                                 CXXDtorType Type,
1145                                                 const ThisAdjustment &,
1146                                                 raw_ostream &) {
1147   llvm_unreachable("Can't yet mangle destructor thunks!");
1148 }
1149 void MicrosoftMangleContext::mangleCXXVTable(const CXXRecordDecl *RD,
1150                                              raw_ostream &) {
1151   llvm_unreachable("Can't yet mangle virtual tables!");
1152 }
1153 void MicrosoftMangleContext::mangleCXXVTT(const CXXRecordDecl *RD,
1154                                           raw_ostream &) {
1155   llvm_unreachable("The MS C++ ABI does not have virtual table tables!");
1156 }
1157 void MicrosoftMangleContext::mangleCXXCtorVTable(const CXXRecordDecl *RD,
1158                                                  int64_t Offset,
1159                                                  const CXXRecordDecl *Type,
1160                                                  raw_ostream &) {
1161   llvm_unreachable("The MS C++ ABI does not have constructor vtables!");
1162 }
1163 void MicrosoftMangleContext::mangleCXXRTTI(QualType T,
1164                                            raw_ostream &) {
1165   llvm_unreachable("Can't yet mangle RTTI!");
1166 }
1167 void MicrosoftMangleContext::mangleCXXRTTIName(QualType T,
1168                                                raw_ostream &) {
1169   llvm_unreachable("Can't yet mangle RTTI names!");
1170 }
1171 void MicrosoftMangleContext::mangleCXXCtor(const CXXConstructorDecl *D,
1172                                            CXXCtorType Type,
1173                                            raw_ostream & Out) {
1174   MicrosoftCXXNameMangler mangler(*this, Out);
1175   mangler.mangle(D);
1176 }
1177 void MicrosoftMangleContext::mangleCXXDtor(const CXXDestructorDecl *D,
1178                                            CXXDtorType Type,
1179                                            raw_ostream & Out) {
1180   MicrosoftCXXNameMangler mangler(*this, Out);
1181   mangler.mangle(D);
1182 }
1183 void MicrosoftMangleContext::mangleReferenceTemporary(const clang::VarDecl *,
1184                                                       raw_ostream &) {
1185   llvm_unreachable("Can't yet mangle reference temporaries!");
1186 }
1187
1188 MangleContext *clang::createMicrosoftMangleContext(ASTContext &Context,
1189                                                    DiagnosticsEngine &Diags) {
1190   return new MicrosoftMangleContext(Context, Diags);
1191 }