| //===--- CGDebugInfo.cpp - Emit Debug Information for a Module ------------===// |
| // |
| // The LLVM Compiler Infrastructure |
| // |
| // This file is distributed under the University of Illinois Open Source |
| // License. See LICENSE.TXT for details. |
| // |
| //===----------------------------------------------------------------------===// |
| // |
| // This coordinates the debug information generation while generating code. |
| // |
| //===----------------------------------------------------------------------===// |
| |
| #include "CGDebugInfo.h" |
| #include "CodeGenFunction.h" |
| #include "CodeGenModule.h" |
| #include "clang/AST/ASTContext.h" |
| #include "clang/AST/DeclObjC.h" |
| #include "clang/AST/Expr.h" |
| #include "clang/AST/RecordLayout.h" |
| #include "clang/Basic/SourceManager.h" |
| #include "clang/Basic/FileManager.h" |
| #include "clang/Basic/Version.h" |
| #include "clang/CodeGen/CodeGenOptions.h" |
| #include "llvm/Constants.h" |
| #include "llvm/DerivedTypes.h" |
| #include "llvm/Instructions.h" |
| #include "llvm/Intrinsics.h" |
| #include "llvm/Module.h" |
| #include "llvm/ADT/StringExtras.h" |
| #include "llvm/ADT/SmallVector.h" |
| #include "llvm/Support/Dwarf.h" |
| #include "llvm/System/Path.h" |
| #include "llvm/Target/TargetMachine.h" |
| using namespace clang; |
| using namespace clang::CodeGen; |
| |
| CGDebugInfo::CGDebugInfo(CodeGenModule *m) |
| : M(m), isMainCompileUnitCreated(false), DebugFactory(M->getModule()), |
| BlockLiteralGenericSet(false) { |
| } |
| |
| CGDebugInfo::~CGDebugInfo() { |
| assert(RegionStack.empty() && "Region stack mismatch, stack not empty!"); |
| } |
| |
| void CGDebugInfo::setLocation(SourceLocation Loc) { |
| if (Loc.isValid()) |
| CurLoc = M->getContext().getSourceManager().getInstantiationLoc(Loc); |
| } |
| |
| /// getContext - Get context info for the decl. |
| llvm::DIDescriptor CGDebugInfo::getContext(const VarDecl *Decl, |
| llvm::DIDescriptor &CompileUnit) { |
| if (Decl->isFileVarDecl()) |
| return CompileUnit; |
| if (Decl->getDeclContext()->isFunctionOrMethod()) { |
| // Find the last subprogram in region stack. |
| for (unsigned RI = RegionStack.size(), RE = 0; RI != RE; --RI) { |
| llvm::DIDescriptor R(RegionStack[RI - 1]); |
| if (R.isSubprogram()) |
| return R; |
| } |
| } |
| return CompileUnit; |
| } |
| |
| /// getOrCreateCompileUnit - Get the compile unit from the cache or create a new |
| /// one if necessary. This returns null for invalid source locations. |
| llvm::DICompileUnit CGDebugInfo::getOrCreateCompileUnit(SourceLocation Loc) { |
| // Get source file information. |
| const char *FileName = "<unknown>"; |
| SourceManager &SM = M->getContext().getSourceManager(); |
| unsigned FID = 0; |
| if (Loc.isValid()) { |
| PresumedLoc PLoc = SM.getPresumedLoc(Loc); |
| FileName = PLoc.getFilename(); |
| FID = PLoc.getIncludeLoc().getRawEncoding(); |
| } |
| |
| // See if this compile unit has been used before. |
| llvm::DICompileUnit &Unit = CompileUnitCache[FID]; |
| if (!Unit.isNull()) return Unit; |
| |
| // Get absolute path name. |
| llvm::sys::Path AbsFileName(FileName); |
| if (!AbsFileName.isAbsolute()) { |
| llvm::sys::Path tmp = llvm::sys::Path::GetCurrentDirectory(); |
| tmp.appendComponent(FileName); |
| AbsFileName = tmp; |
| } |
| |
| // See if thie compile unit is representing main source file. Each source |
| // file has corresponding compile unit. There is only one main source |
| // file at a time. |
| bool isMain = false; |
| const LangOptions &LO = M->getLangOptions(); |
| const char *MainFileName = LO.getMainFileName(); |
| if (isMainCompileUnitCreated == false) { |
| if (MainFileName) { |
| if (!strcmp(AbsFileName.getLast().c_str(), MainFileName)) |
| isMain = true; |
| } else { |
| if (Loc.isValid() && SM.isFromMainFile(Loc)) |
| isMain = true; |
| } |
| if (isMain) |
| isMainCompileUnitCreated = true; |
| } |
| |
| unsigned LangTag; |
| if (LO.CPlusPlus) { |
| if (LO.ObjC1) |
| LangTag = llvm::dwarf::DW_LANG_ObjC_plus_plus; |
| else |
| LangTag = llvm::dwarf::DW_LANG_C_plus_plus; |
| } else if (LO.ObjC1) { |
| LangTag = llvm::dwarf::DW_LANG_ObjC; |
| } else if (LO.C99) { |
| LangTag = llvm::dwarf::DW_LANG_C99; |
| } else { |
| LangTag = llvm::dwarf::DW_LANG_C89; |
| } |
| |
| std::string Producer = |
| #ifdef CLANG_VENDOR |
| CLANG_VENDOR |
| #endif |
| "clang " CLANG_VERSION_STRING; |
| bool isOptimized = LO.Optimize; |
| const char *Flags = ""; // FIXME: Encode command line options. |
| |
| // Figure out which version of the ObjC runtime we have. |
| unsigned RuntimeVers = 0; |
| if (LO.ObjC1) |
| RuntimeVers = LO.ObjCNonFragileABI ? 2 : 1; |
| |
| // Create new compile unit. |
| return Unit = DebugFactory.CreateCompileUnit(LangTag, |
| AbsFileName.getLast().c_str(), |
| AbsFileName.getDirname().c_str(), |
| Producer.c_str(), isMain, |
| isOptimized, Flags, RuntimeVers); |
| } |
| |
| /// CreateType - Get the Basic type from the cache or create a new |
| /// one if necessary. |
| llvm::DIType CGDebugInfo::CreateType(const BuiltinType *BT, |
| llvm::DICompileUnit Unit) { |
| unsigned Encoding = 0; |
| switch (BT->getKind()) { |
| default: |
| case BuiltinType::Void: |
| return llvm::DIType(); |
| case BuiltinType::UChar: |
| case BuiltinType::Char_U: Encoding = llvm::dwarf::DW_ATE_unsigned_char; break; |
| case BuiltinType::Char_S: |
| case BuiltinType::SChar: Encoding = llvm::dwarf::DW_ATE_signed_char; break; |
| case BuiltinType::UShort: |
| case BuiltinType::UInt: |
| case BuiltinType::ULong: |
| case BuiltinType::ULongLong: Encoding = llvm::dwarf::DW_ATE_unsigned; break; |
| case BuiltinType::Short: |
| case BuiltinType::Int: |
| case BuiltinType::Long: |
| case BuiltinType::LongLong: Encoding = llvm::dwarf::DW_ATE_signed; break; |
| case BuiltinType::Bool: Encoding = llvm::dwarf::DW_ATE_boolean; break; |
| case BuiltinType::Float: |
| case BuiltinType::LongDouble: |
| case BuiltinType::Double: Encoding = llvm::dwarf::DW_ATE_float; break; |
| } |
| // Bit size, align and offset of the type. |
| uint64_t Size = M->getContext().getTypeSize(BT); |
| uint64_t Align = M->getContext().getTypeAlign(BT); |
| uint64_t Offset = 0; |
| |
| llvm::DIType DbgTy = |
| DebugFactory.CreateBasicType(Unit, |
| BT->getName(M->getContext().getLangOptions()), |
| Unit, 0, Size, Align, |
| Offset, /*flags*/ 0, Encoding); |
| return DbgTy; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const ComplexType *Ty, |
| llvm::DICompileUnit Unit) { |
| // Bit size, align and offset of the type. |
| unsigned Encoding = llvm::dwarf::DW_ATE_complex_float; |
| if (Ty->isComplexIntegerType()) |
| Encoding = llvm::dwarf::DW_ATE_lo_user; |
| |
| uint64_t Size = M->getContext().getTypeSize(Ty); |
| uint64_t Align = M->getContext().getTypeAlign(Ty); |
| uint64_t Offset = 0; |
| |
| llvm::DIType DbgTy = |
| DebugFactory.CreateBasicType(Unit, "complex", |
| Unit, 0, Size, Align, |
| Offset, /*flags*/ 0, Encoding); |
| return DbgTy; |
| } |
| |
| /// CreateCVRType - Get the qualified type from the cache or create |
| /// a new one if necessary. |
| llvm::DIType CGDebugInfo::CreateQualifiedType(QualType Ty, llvm::DICompileUnit Unit) { |
| QualifierCollector Qc; |
| const Type *T = Qc.strip(Ty); |
| |
| // Ignore these qualifiers for now. |
| Qc.removeObjCGCAttr(); |
| Qc.removeAddressSpace(); |
| |
| // We will create one Derived type for one qualifier and recurse to handle any |
| // additional ones. |
| unsigned Tag; |
| if (Qc.hasConst()) { |
| Tag = llvm::dwarf::DW_TAG_const_type; |
| Qc.removeConst(); |
| } else if (Qc.hasVolatile()) { |
| Tag = llvm::dwarf::DW_TAG_volatile_type; |
| Qc.removeVolatile(); |
| } else if (Qc.hasRestrict()) { |
| Tag = llvm::dwarf::DW_TAG_restrict_type; |
| Qc.removeRestrict(); |
| } else { |
| assert(Qc.empty() && "Unknown type qualifier for debug info"); |
| return getOrCreateType(QualType(T, 0), Unit); |
| } |
| |
| llvm::DIType FromTy = getOrCreateType(Qc.apply(T), Unit); |
| |
| // No need to fill in the Name, Line, Size, Alignment, Offset in case of |
| // CVR derived types. |
| llvm::DIType DbgTy = |
| DebugFactory.CreateDerivedType(Tag, Unit, "", llvm::DICompileUnit(), |
| 0, 0, 0, 0, 0, FromTy); |
| return DbgTy; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const ObjCObjectPointerType *Ty, |
| llvm::DICompileUnit Unit) { |
| llvm::DIType DbgTy = |
| CreatePointerLikeType(llvm::dwarf::DW_TAG_pointer_type, Ty, |
| Ty->getPointeeType(), Unit); |
| return DbgTy; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const PointerType *Ty, |
| llvm::DICompileUnit Unit) { |
| return CreatePointerLikeType(llvm::dwarf::DW_TAG_pointer_type, Ty, |
| Ty->getPointeeType(), Unit); |
| } |
| |
| llvm::DIType CGDebugInfo::CreatePointerLikeType(unsigned Tag, |
| const Type *Ty, |
| QualType PointeeTy, |
| llvm::DICompileUnit Unit) { |
| llvm::DIType EltTy = getOrCreateType(PointeeTy, Unit); |
| |
| // Bit size, align and offset of the type. |
| |
| // Size is always the size of a pointer. We can't use getTypeSize here |
| // because that does not return the correct value for references. |
| uint64_t Size = |
| M->getContext().Target.getPointerWidth(PointeeTy.getAddressSpace()); |
| uint64_t Align = M->getContext().getTypeAlign(Ty); |
| |
| return |
| DebugFactory.CreateDerivedType(Tag, Unit, "", llvm::DICompileUnit(), |
| 0, Size, Align, 0, 0, EltTy); |
| |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const BlockPointerType *Ty, |
| llvm::DICompileUnit Unit) { |
| if (BlockLiteralGenericSet) |
| return BlockLiteralGeneric; |
| |
| llvm::DICompileUnit DefUnit; |
| unsigned Tag = llvm::dwarf::DW_TAG_structure_type; |
| |
| llvm::SmallVector<llvm::DIDescriptor, 5> EltTys; |
| |
| llvm::DIType FieldTy; |
| |
| QualType FType; |
| uint64_t FieldSize, FieldOffset; |
| unsigned FieldAlign; |
| |
| llvm::DIArray Elements; |
| llvm::DIType EltTy, DescTy; |
| |
| FieldOffset = 0; |
| FType = M->getContext().UnsignedLongTy; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "reserved", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| |
| FieldOffset += FieldSize; |
| FType = M->getContext().UnsignedLongTy; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "Size", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| |
| FieldOffset += FieldSize; |
| Elements = DebugFactory.GetOrCreateArray(EltTys.data(), EltTys.size()); |
| EltTys.clear(); |
| |
| unsigned Flags = llvm::DIType::FlagAppleBlock; |
| |
| EltTy = DebugFactory.CreateCompositeType(Tag, Unit, "__block_descriptor", |
| DefUnit, 0, FieldOffset, 0, 0, Flags, |
| llvm::DIType(), Elements); |
| |
| // Bit size, align and offset of the type. |
| uint64_t Size = M->getContext().getTypeSize(Ty); |
| uint64_t Align = M->getContext().getTypeAlign(Ty); |
| |
| DescTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_pointer_type, |
| Unit, "", llvm::DICompileUnit(), |
| 0, Size, Align, 0, 0, EltTy); |
| |
| FieldOffset = 0; |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__isa", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| |
| FieldOffset += FieldSize; |
| FType = M->getContext().IntTy; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__flags", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| |
| FieldOffset += FieldSize; |
| FType = M->getContext().IntTy; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__reserved", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| |
| FieldOffset += FieldSize; |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__FuncPtr", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| |
| FieldOffset += FieldSize; |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = DescTy; |
| FieldSize = M->getContext().getTypeSize(Ty); |
| FieldAlign = M->getContext().getTypeAlign(Ty); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__descriptor", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| |
| FieldOffset += FieldSize; |
| Elements = DebugFactory.GetOrCreateArray(EltTys.data(), EltTys.size()); |
| |
| EltTy = DebugFactory.CreateCompositeType(Tag, Unit, "__block_literal_generic", |
| DefUnit, 0, FieldOffset, 0, 0, Flags, |
| llvm::DIType(), Elements); |
| |
| BlockLiteralGenericSet = true; |
| BlockLiteralGeneric |
| = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_pointer_type, Unit, |
| "", llvm::DICompileUnit(), |
| 0, Size, Align, 0, 0, EltTy); |
| return BlockLiteralGeneric; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const TypedefType *Ty, |
| llvm::DICompileUnit Unit) { |
| // Typedefs are derived from some other type. If we have a typedef of a |
| // typedef, make sure to emit the whole chain. |
| llvm::DIType Src = getOrCreateType(Ty->getDecl()->getUnderlyingType(), Unit); |
| |
| // We don't set size information, but do specify where the typedef was |
| // declared. |
| SourceLocation DefLoc = Ty->getDecl()->getLocation(); |
| llvm::DICompileUnit DefUnit = getOrCreateCompileUnit(DefLoc); |
| |
| SourceManager &SM = M->getContext().getSourceManager(); |
| PresumedLoc PLoc = SM.getPresumedLoc(DefLoc); |
| unsigned Line = PLoc.isInvalid() ? 0 : PLoc.getLine(); |
| |
| llvm::DIType DbgTy = |
| DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_typedef, Unit, |
| Ty->getDecl()->getNameAsCString(), |
| DefUnit, Line, 0, 0, 0, 0, Src); |
| return DbgTy; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const FunctionType *Ty, |
| llvm::DICompileUnit Unit) { |
| llvm::SmallVector<llvm::DIDescriptor, 16> EltTys; |
| |
| // Add the result type at least. |
| EltTys.push_back(getOrCreateType(Ty->getResultType(), Unit)); |
| |
| // Set up remainder of arguments if there is a prototype. |
| // FIXME: IF NOT, HOW IS THIS REPRESENTED? llvm-gcc doesn't represent '...'! |
| if (const FunctionProtoType *FTP = dyn_cast<FunctionProtoType>(Ty)) { |
| for (unsigned i = 0, e = FTP->getNumArgs(); i != e; ++i) |
| EltTys.push_back(getOrCreateType(FTP->getArgType(i), Unit)); |
| } else { |
| // FIXME: Handle () case in C. llvm-gcc doesn't do it either. |
| } |
| |
| llvm::DIArray EltTypeArray = |
| DebugFactory.GetOrCreateArray(EltTys.data(), EltTys.size()); |
| |
| llvm::DIType DbgTy = |
| DebugFactory.CreateCompositeType(llvm::dwarf::DW_TAG_subroutine_type, |
| Unit, "", llvm::DICompileUnit(), |
| 0, 0, 0, 0, 0, |
| llvm::DIType(), EltTypeArray); |
| return DbgTy; |
| } |
| |
| /// CreateType - get structure or union type. |
| llvm::DIType CGDebugInfo::CreateType(const RecordType *Ty, |
| llvm::DICompileUnit Unit) { |
| RecordDecl *Decl = Ty->getDecl(); |
| |
| unsigned Tag; |
| if (Decl->isStruct()) |
| Tag = llvm::dwarf::DW_TAG_structure_type; |
| else if (Decl->isUnion()) |
| Tag = llvm::dwarf::DW_TAG_union_type; |
| else { |
| assert(Decl->isClass() && "Unknown RecordType!"); |
| Tag = llvm::dwarf::DW_TAG_class_type; |
| } |
| |
| SourceManager &SM = M->getContext().getSourceManager(); |
| |
| // Get overall information about the record type for the debug info. |
| PresumedLoc PLoc = SM.getPresumedLoc(Decl->getLocation()); |
| llvm::DICompileUnit DefUnit; |
| unsigned Line = 0; |
| if (!PLoc.isInvalid()) { |
| DefUnit = getOrCreateCompileUnit(Decl->getLocation()); |
| Line = PLoc.getLine(); |
| } |
| |
| // Records and classes and unions can all be recursive. To handle them, we |
| // first generate a debug descriptor for the struct as a forward declaration. |
| // Then (if it is a definition) we go through and get debug info for all of |
| // its members. Finally, we create a descriptor for the complete type (which |
| // may refer to the forward decl if the struct is recursive) and replace all |
| // uses of the forward declaration with the final definition. |
| llvm::DICompositeType FwdDecl = |
| DebugFactory.CreateCompositeType(Tag, Unit, Decl->getNameAsString().data(), |
| DefUnit, Line, 0, 0, 0, 0, |
| llvm::DIType(), llvm::DIArray()); |
| |
| // If this is just a forward declaration, return it. |
| if (!Decl->getDefinition(M->getContext())) |
| return FwdDecl; |
| |
| llvm::TrackingVH<llvm::MDNode> FwdDeclNode = FwdDecl.getNode(); |
| // Otherwise, insert it into the TypeCache so that recursive uses will find |
| // it. |
| TypeCache[QualType(Ty, 0).getAsOpaquePtr()] = FwdDecl.getNode(); |
| |
| // Convert all the elements. |
| llvm::SmallVector<llvm::DIDescriptor, 16> EltTys; |
| |
| const ASTRecordLayout &RL = M->getContext().getASTRecordLayout(Decl); |
| |
| unsigned FieldNo = 0; |
| for (RecordDecl::field_iterator I = Decl->field_begin(), |
| E = Decl->field_end(); |
| I != E; ++I, ++FieldNo) { |
| FieldDecl *Field = *I; |
| llvm::DIType FieldTy = getOrCreateType(Field->getType(), Unit); |
| |
| const char *FieldName = Field->getNameAsCString(); |
| |
| // Ignore unnamed fields. |
| if (!FieldName) |
| continue; |
| |
| // Get the location for the field. |
| SourceLocation FieldDefLoc = Field->getLocation(); |
| PresumedLoc PLoc = SM.getPresumedLoc(FieldDefLoc); |
| llvm::DICompileUnit FieldDefUnit; |
| unsigned FieldLine = 0; |
| |
| if (!PLoc.isInvalid()) { |
| FieldDefUnit = getOrCreateCompileUnit(FieldDefLoc); |
| FieldLine = PLoc.getLine(); |
| } |
| |
| QualType FType = Field->getType(); |
| uint64_t FieldSize = 0; |
| unsigned FieldAlign = 0; |
| if (!FType->isIncompleteArrayType()) { |
| |
| // Bit size, align and offset of the type. |
| FieldSize = M->getContext().getTypeSize(FType); |
| Expr *BitWidth = Field->getBitWidth(); |
| if (BitWidth) |
| FieldSize = BitWidth->EvaluateAsInt(M->getContext()).getZExtValue(); |
| |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| } |
| |
| uint64_t FieldOffset = RL.getFieldOffset(FieldNo); |
| |
| // Create a DW_TAG_member node to remember the offset of this field in the |
| // struct. FIXME: This is an absolutely insane way to capture this |
| // information. When we gut debug info, this should be fixed. |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| FieldName, FieldDefUnit, |
| FieldLine, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| } |
| |
| llvm::DIArray Elements = |
| DebugFactory.GetOrCreateArray(EltTys.data(), EltTys.size()); |
| |
| // Bit size, align and offset of the type. |
| uint64_t Size = M->getContext().getTypeSize(Ty); |
| uint64_t Align = M->getContext().getTypeAlign(Ty); |
| |
| llvm::DICompositeType RealDecl = |
| DebugFactory.CreateCompositeType(Tag, Unit, Decl->getNameAsString().data(), |
| DefUnit, Line, Size, Align, 0, 0, |
| llvm::DIType(), Elements); |
| |
| // Now that we have a real decl for the struct, replace anything using the |
| // old decl with the new one. This will recursively update the debug info. |
| llvm::DIDerivedType(FwdDeclNode).replaceAllUsesWith(RealDecl); |
| |
| return RealDecl; |
| } |
| |
| /// CreateType - get objective-c interface type. |
| llvm::DIType CGDebugInfo::CreateType(const ObjCInterfaceType *Ty, |
| llvm::DICompileUnit Unit) { |
| ObjCInterfaceDecl *Decl = Ty->getDecl(); |
| |
| unsigned Tag = llvm::dwarf::DW_TAG_structure_type; |
| SourceManager &SM = M->getContext().getSourceManager(); |
| |
| // Get overall information about the record type for the debug info. |
| llvm::DICompileUnit DefUnit = getOrCreateCompileUnit(Decl->getLocation()); |
| PresumedLoc PLoc = SM.getPresumedLoc(Decl->getLocation()); |
| unsigned Line = PLoc.isInvalid() ? 0 : PLoc.getLine(); |
| |
| |
| unsigned RuntimeLang = DefUnit.getLanguage(); |
| |
| // To handle recursive interface, we |
| // first generate a debug descriptor for the struct as a forward declaration. |
| // Then (if it is a definition) we go through and get debug info for all of |
| // its members. Finally, we create a descriptor for the complete type (which |
| // may refer to the forward decl if the struct is recursive) and replace all |
| // uses of the forward declaration with the final definition. |
| llvm::DICompositeType FwdDecl = |
| DebugFactory.CreateCompositeType(Tag, Unit, Decl->getNameAsCString(), |
| DefUnit, Line, 0, 0, 0, 0, |
| llvm::DIType(), llvm::DIArray(), |
| RuntimeLang); |
| |
| // If this is just a forward declaration, return it. |
| if (Decl->isForwardDecl()) |
| return FwdDecl; |
| |
| llvm::TrackingVH<llvm::MDNode> FwdDeclNode = FwdDecl.getNode(); |
| // Otherwise, insert it into the TypeCache so that recursive uses will find |
| // it. |
| TypeCache[QualType(Ty, 0).getAsOpaquePtr()] = FwdDecl.getNode(); |
| |
| // Convert all the elements. |
| llvm::SmallVector<llvm::DIDescriptor, 16> EltTys; |
| |
| ObjCInterfaceDecl *SClass = Decl->getSuperClass(); |
| if (SClass) { |
| llvm::DIType SClassTy = |
| getOrCreateType(M->getContext().getObjCInterfaceType(SClass), Unit); |
| llvm::DIType InhTag = |
| DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_inheritance, |
| Unit, "", llvm::DICompileUnit(), 0, 0, 0, |
| 0 /* offset */, 0, SClassTy); |
| EltTys.push_back(InhTag); |
| } |
| |
| const ASTRecordLayout &RL = M->getContext().getASTObjCInterfaceLayout(Decl); |
| |
| unsigned FieldNo = 0; |
| for (ObjCInterfaceDecl::ivar_iterator I = Decl->ivar_begin(), |
| E = Decl->ivar_end(); I != E; ++I, ++FieldNo) { |
| ObjCIvarDecl *Field = *I; |
| llvm::DIType FieldTy = getOrCreateType(Field->getType(), Unit); |
| |
| const char *FieldName = Field->getNameAsCString(); |
| |
| // Ignore unnamed fields. |
| if (!FieldName) |
| continue; |
| |
| // Get the location for the field. |
| SourceLocation FieldDefLoc = Field->getLocation(); |
| llvm::DICompileUnit FieldDefUnit = getOrCreateCompileUnit(FieldDefLoc); |
| PresumedLoc PLoc = SM.getPresumedLoc(FieldDefLoc); |
| unsigned FieldLine = PLoc.isInvalid() ? 0 : PLoc.getLine(); |
| |
| |
| QualType FType = Field->getType(); |
| uint64_t FieldSize = 0; |
| unsigned FieldAlign = 0; |
| |
| if (!FType->isIncompleteArrayType()) { |
| |
| // Bit size, align and offset of the type. |
| FieldSize = M->getContext().getTypeSize(FType); |
| Expr *BitWidth = Field->getBitWidth(); |
| if (BitWidth) |
| FieldSize = BitWidth->EvaluateAsInt(M->getContext()).getZExtValue(); |
| |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| } |
| |
| uint64_t FieldOffset = RL.getFieldOffset(FieldNo); |
| |
| unsigned Flags = 0; |
| if (Field->getAccessControl() == ObjCIvarDecl::Protected) |
| Flags = llvm::DIType::FlagProtected; |
| else if (Field->getAccessControl() == ObjCIvarDecl::Private) |
| Flags = llvm::DIType::FlagPrivate; |
| |
| // Create a DW_TAG_member node to remember the offset of this field in the |
| // struct. FIXME: This is an absolutely insane way to capture this |
| // information. When we gut debug info, this should be fixed. |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| FieldName, FieldDefUnit, |
| FieldLine, FieldSize, FieldAlign, |
| FieldOffset, Flags, FieldTy); |
| EltTys.push_back(FieldTy); |
| } |
| |
| llvm::DIArray Elements = |
| DebugFactory.GetOrCreateArray(EltTys.data(), EltTys.size()); |
| |
| // Bit size, align and offset of the type. |
| uint64_t Size = M->getContext().getTypeSize(Ty); |
| uint64_t Align = M->getContext().getTypeAlign(Ty); |
| |
| llvm::DICompositeType RealDecl = |
| DebugFactory.CreateCompositeType(Tag, Unit, Decl->getNameAsCString(), DefUnit, |
| Line, Size, Align, 0, 0, llvm::DIType(), |
| Elements, RuntimeLang); |
| |
| // Now that we have a real decl for the struct, replace anything using the |
| // old decl with the new one. This will recursively update the debug info. |
| llvm::DIDerivedType(FwdDeclNode).replaceAllUsesWith(RealDecl); |
| |
| return RealDecl; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const EnumType *Ty, |
| llvm::DICompileUnit Unit) { |
| EnumDecl *Decl = Ty->getDecl(); |
| |
| llvm::SmallVector<llvm::DIDescriptor, 32> Enumerators; |
| |
| // Create DIEnumerator elements for each enumerator. |
| for (EnumDecl::enumerator_iterator |
| Enum = Decl->enumerator_begin(), EnumEnd = Decl->enumerator_end(); |
| Enum != EnumEnd; ++Enum) { |
| Enumerators.push_back(DebugFactory.CreateEnumerator(Enum->getNameAsCString(), |
| Enum->getInitVal().getZExtValue())); |
| } |
| |
| // Return a CompositeType for the enum itself. |
| llvm::DIArray EltArray = |
| DebugFactory.GetOrCreateArray(Enumerators.data(), Enumerators.size()); |
| |
| SourceLocation DefLoc = Decl->getLocation(); |
| llvm::DICompileUnit DefUnit = getOrCreateCompileUnit(DefLoc); |
| SourceManager &SM = M->getContext().getSourceManager(); |
| PresumedLoc PLoc = SM.getPresumedLoc(DefLoc); |
| unsigned Line = PLoc.isInvalid() ? 0 : PLoc.getLine(); |
| |
| |
| // Size and align of the type. |
| uint64_t Size = 0; |
| unsigned Align = 0; |
| if (!Ty->isIncompleteType()) { |
| Size = M->getContext().getTypeSize(Ty); |
| Align = M->getContext().getTypeAlign(Ty); |
| } |
| |
| llvm::DIType DbgTy = |
| DebugFactory.CreateCompositeType(llvm::dwarf::DW_TAG_enumeration_type, |
| Unit, Decl->getNameAsCString(), DefUnit, Line, |
| Size, Align, 0, 0, |
| llvm::DIType(), EltArray); |
| return DbgTy; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const TagType *Ty, |
| llvm::DICompileUnit Unit) { |
| if (const RecordType *RT = dyn_cast<RecordType>(Ty)) |
| return CreateType(RT, Unit); |
| else if (const EnumType *ET = dyn_cast<EnumType>(Ty)) |
| return CreateType(ET, Unit); |
| |
| return llvm::DIType(); |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const ArrayType *Ty, |
| llvm::DICompileUnit Unit) { |
| uint64_t Size; |
| uint64_t Align; |
| |
| |
| // FIXME: make getTypeAlign() aware of VLAs and incomplete array types |
| if (const VariableArrayType *VAT = dyn_cast<VariableArrayType>(Ty)) { |
| Size = 0; |
| Align = |
| M->getContext().getTypeAlign(M->getContext().getBaseElementType(VAT)); |
| } else if (Ty->isIncompleteArrayType()) { |
| Size = 0; |
| Align = M->getContext().getTypeAlign(Ty->getElementType()); |
| } else { |
| // Size and align of the whole array, not the element type. |
| Size = M->getContext().getTypeSize(Ty); |
| Align = M->getContext().getTypeAlign(Ty); |
| } |
| |
| // Add the dimensions of the array. FIXME: This loses CV qualifiers from |
| // interior arrays, do we care? Why aren't nested arrays represented the |
| // obvious/recursive way? |
| llvm::SmallVector<llvm::DIDescriptor, 8> Subscripts; |
| QualType EltTy(Ty, 0); |
| while ((Ty = dyn_cast<ArrayType>(EltTy))) { |
| uint64_t Upper = 0; |
| if (const ConstantArrayType *CAT = dyn_cast<ConstantArrayType>(Ty)) |
| if (CAT->getSize().getZExtValue()) |
| Upper = CAT->getSize().getZExtValue() - 1; |
| // FIXME: Verify this is right for VLAs. |
| Subscripts.push_back(DebugFactory.GetOrCreateSubrange(0, Upper)); |
| EltTy = Ty->getElementType(); |
| } |
| |
| llvm::DIArray SubscriptArray = |
| DebugFactory.GetOrCreateArray(Subscripts.data(), Subscripts.size()); |
| |
| llvm::DIType DbgTy = |
| DebugFactory.CreateCompositeType(llvm::dwarf::DW_TAG_array_type, |
| Unit, "", llvm::DICompileUnit(), |
| 0, Size, Align, 0, 0, |
| getOrCreateType(EltTy, Unit), |
| SubscriptArray); |
| return DbgTy; |
| } |
| |
| llvm::DIType CGDebugInfo::CreateType(const LValueReferenceType *Ty, |
| llvm::DICompileUnit Unit) { |
| return CreatePointerLikeType(llvm::dwarf::DW_TAG_reference_type, |
| Ty, Ty->getPointeeType(), Unit); |
| } |
| |
| static QualType CanonicalizeTypeForDebugInfo(QualType T) { |
| switch (T->getTypeClass()) { |
| default: |
| return T; |
| case Type::TemplateSpecialization: |
| return cast<TemplateSpecializationType>(T)->desugar(); |
| case Type::TypeOfExpr: { |
| TypeOfExprType *Ty = cast<TypeOfExprType>(T); |
| return CanonicalizeTypeForDebugInfo(Ty->getUnderlyingExpr()->getType()); |
| } |
| case Type::TypeOf: |
| return cast<TypeOfType>(T)->getUnderlyingType(); |
| case Type::Decltype: |
| return cast<DecltypeType>(T)->getUnderlyingType(); |
| case Type::QualifiedName: |
| return cast<QualifiedNameType>(T)->getNamedType(); |
| case Type::SubstTemplateTypeParm: |
| return cast<SubstTemplateTypeParmType>(T)->getReplacementType(); |
| case Type::Elaborated: |
| return cast<ElaboratedType>(T)->getUnderlyingType(); |
| } |
| } |
| |
| /// getOrCreateType - Get the type from the cache or create a new |
| /// one if necessary. |
| llvm::DIType CGDebugInfo::getOrCreateType(QualType Ty, |
| llvm::DICompileUnit Unit) { |
| if (Ty.isNull()) |
| return llvm::DIType(); |
| |
| // Canonicalize the type. |
| Ty = CanonicalizeTypeForDebugInfo(Ty); |
| |
| // Check for existing entry. |
| std::map<void *, llvm::WeakVH>::iterator it = |
| TypeCache.find(Ty.getAsOpaquePtr()); |
| if (it != TypeCache.end()) { |
| // Verify that the debug info still exists. |
| if (&*it->second) |
| return llvm::DIType(cast<llvm::MDNode>(it->second)); |
| } |
| |
| // Otherwise create the type. |
| llvm::DIType Res = CreateTypeNode(Ty, Unit); |
| |
| // And update the type cache. |
| TypeCache[Ty.getAsOpaquePtr()] = Res.getNode(); |
| return Res; |
| } |
| |
| /// CreateTypeNode - Create a new debug type node. |
| llvm::DIType CGDebugInfo::CreateTypeNode(QualType Ty, |
| llvm::DICompileUnit Unit) { |
| // Handle qualifiers, which recursively handles what they refer to. |
| if (Ty.hasLocalQualifiers()) |
| return CreateQualifiedType(Ty, Unit); |
| |
| // Work out details of type. |
| switch (Ty->getTypeClass()) { |
| #define TYPE(Class, Base) |
| #define ABSTRACT_TYPE(Class, Base) |
| #define NON_CANONICAL_TYPE(Class, Base) |
| #define DEPENDENT_TYPE(Class, Base) case Type::Class: |
| #include "clang/AST/TypeNodes.def" |
| assert(false && "Dependent types cannot show up in debug information"); |
| |
| // FIXME: Handle these. |
| case Type::ExtVector: |
| case Type::Vector: |
| case Type::FixedWidthInt: |
| return llvm::DIType(); |
| default: |
| assert(false && "Unhandled type class!"); |
| return llvm::DIType(); |
| case Type::ObjCObjectPointer: |
| return CreateType(cast<ObjCObjectPointerType>(Ty), Unit); |
| case Type::ObjCInterface: |
| return CreateType(cast<ObjCInterfaceType>(Ty), Unit); |
| case Type::Builtin: return CreateType(cast<BuiltinType>(Ty), Unit); |
| case Type::Complex: return CreateType(cast<ComplexType>(Ty), Unit); |
| case Type::Pointer: return CreateType(cast<PointerType>(Ty), Unit); |
| case Type::BlockPointer: |
| return CreateType(cast<BlockPointerType>(Ty), Unit); |
| case Type::Typedef: return CreateType(cast<TypedefType>(Ty), Unit); |
| case Type::Record: |
| case Type::Enum: |
| return CreateType(cast<TagType>(Ty), Unit); |
| case Type::FunctionProto: |
| case Type::FunctionNoProto: |
| return CreateType(cast<FunctionType>(Ty), Unit); |
| case Type::ConstantArray: |
| case Type::VariableArray: |
| case Type::IncompleteArray: |
| return CreateType(cast<ArrayType>(Ty), Unit); |
| |
| case Type::LValueReference: |
| return CreateType(cast<LValueReferenceType>(Ty), Unit); |
| |
| } |
| } |
| |
| /// EmitFunctionStart - Constructs the debug code for entering a function - |
| /// "llvm.dbg.func.start.". |
| void CGDebugInfo::EmitFunctionStart(const char *Name, QualType FnType, |
| llvm::Function *Fn, |
| CGBuilderTy &Builder) { |
| const char *LinkageName = Name; |
| |
| // Skip the asm prefix if it exists. |
| // |
| // FIXME: This should probably be the unmangled name? |
| if (Name[0] == '\01') |
| ++Name; |
| |
| // FIXME: Why is this using CurLoc??? |
| llvm::DICompileUnit Unit = getOrCreateCompileUnit(CurLoc); |
| SourceManager &SM = M->getContext().getSourceManager(); |
| unsigned LineNo = SM.getPresumedLoc(CurLoc).getLine(); |
| |
| llvm::DISubprogram SP = |
| DebugFactory.CreateSubprogram(Unit, Name, Name, LinkageName, Unit, LineNo, |
| getOrCreateType(FnType, Unit), |
| Fn->hasInternalLinkage(), true/*definition*/); |
| |
| // Push function on region stack. |
| RegionStack.push_back(SP.getNode()); |
| } |
| |
| |
| void CGDebugInfo::EmitStopPoint(llvm::Function *Fn, CGBuilderTy &Builder) { |
| if (CurLoc.isInvalid() || CurLoc.isMacroID()) return; |
| |
| // Don't bother if things are the same as last time. |
| SourceManager &SM = M->getContext().getSourceManager(); |
| if (CurLoc == PrevLoc |
| || (SM.getInstantiationLineNumber(CurLoc) == |
| SM.getInstantiationLineNumber(PrevLoc) |
| && SM.isFromSameFile(CurLoc, PrevLoc))) |
| return; |
| |
| // Update last state. |
| PrevLoc = CurLoc; |
| |
| // Get the appropriate compile unit. |
| llvm::DICompileUnit Unit = getOrCreateCompileUnit(CurLoc); |
| PresumedLoc PLoc = SM.getPresumedLoc(CurLoc); |
| |
| llvm::DIDescriptor DR(RegionStack.back()); |
| llvm::DIScope DS = llvm::DIScope(DR.getNode()); |
| llvm::DILocation DO(NULL); |
| llvm::DILocation DL = |
| DebugFactory.CreateLocation(PLoc.getLine(), PLoc.getColumn(), |
| DS, DO); |
| Builder.SetCurrentDebugLocation(DL.getNode()); |
| } |
| |
| /// EmitRegionStart- Constructs the debug code for entering a declarative |
| /// region - "llvm.dbg.region.start.". |
| void CGDebugInfo::EmitRegionStart(llvm::Function *Fn, CGBuilderTy &Builder) { |
| llvm::DIDescriptor D = |
| DebugFactory.CreateLexicalBlock(RegionStack.empty() ? |
| llvm::DIDescriptor() : |
| llvm::DIDescriptor(RegionStack.back())); |
| RegionStack.push_back(D.getNode()); |
| } |
| |
| /// EmitRegionEnd - Constructs the debug code for exiting a declarative |
| /// region - "llvm.dbg.region.end." |
| void CGDebugInfo::EmitRegionEnd(llvm::Function *Fn, CGBuilderTy &Builder) { |
| assert(!RegionStack.empty() && "Region stack mismatch, stack empty!"); |
| |
| // Provide an region stop point. |
| EmitStopPoint(Fn, Builder); |
| |
| RegionStack.pop_back(); |
| } |
| |
| /// EmitDeclare - Emit local variable declaration debug info. |
| void CGDebugInfo::EmitDeclare(const VarDecl *Decl, unsigned Tag, |
| llvm::Value *Storage, CGBuilderTy &Builder) { |
| assert(!RegionStack.empty() && "Region stack mismatch, stack empty!"); |
| |
| // Do not emit variable debug information while generating optimized code. |
| // The llvm optimizer and code generator are not yet ready to support |
| // optimized code debugging. |
| const CodeGenOptions &CGO = M->getCodeGenOpts(); |
| if (CGO.OptimizationLevel) |
| return; |
| |
| llvm::DICompileUnit Unit = getOrCreateCompileUnit(Decl->getLocation()); |
| QualType Type = Decl->getType(); |
| llvm::DIType Ty = getOrCreateType(Type, Unit); |
| if (Decl->hasAttr<BlocksAttr>()) { |
| llvm::DICompileUnit DefUnit; |
| unsigned Tag = llvm::dwarf::DW_TAG_structure_type; |
| |
| llvm::SmallVector<llvm::DIDescriptor, 5> EltTys; |
| |
| llvm::DIType FieldTy; |
| |
| QualType FType; |
| uint64_t FieldSize, FieldOffset; |
| unsigned FieldAlign; |
| |
| llvm::DIArray Elements; |
| llvm::DIType EltTy; |
| |
| // Build up structure for the byref. See BuildByRefType. |
| FieldOffset = 0; |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__isa", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__forwarding", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getFixedWidthIntType(32, true); // Int32Ty; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__flags", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getFixedWidthIntType(32, true); // Int32Ty; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__size", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| bool HasCopyAndDispose = M->BlockRequiresCopying(Type); |
| if (HasCopyAndDispose) { |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__copy_helper", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__destroy_helper", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| } |
| |
| unsigned Align = M->getContext().getDeclAlignInBytes(Decl); |
| if (Align > M->getContext().Target.getPointerAlign(0) / 8) { |
| unsigned AlignedOffsetInBytes |
| = llvm::RoundUpToAlignment(FieldOffset/8, Align); |
| unsigned NumPaddingBytes |
| = AlignedOffsetInBytes - FieldOffset/8; |
| |
| if (NumPaddingBytes > 0) { |
| llvm::APInt pad(32, NumPaddingBytes); |
| FType = M->getContext().getConstantArrayType(M->getContext().CharTy, |
| pad, ArrayType::Normal, 0); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, |
| Unit, "", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| } |
| } |
| |
| FType = Type; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = Align*8; |
| |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| Decl->getNameAsCString(), DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| Elements = DebugFactory.GetOrCreateArray(EltTys.data(), EltTys.size()); |
| |
| unsigned Flags = llvm::DIType::FlagBlockByrefStruct; |
| |
| Ty = DebugFactory.CreateCompositeType(Tag, Unit, "", |
| llvm::DICompileUnit(), |
| 0, FieldOffset, 0, 0, Flags, |
| llvm::DIType(), Elements); |
| } |
| |
| // Get location information. |
| SourceManager &SM = M->getContext().getSourceManager(); |
| PresumedLoc PLoc = SM.getPresumedLoc(Decl->getLocation()); |
| unsigned Line = 0; |
| unsigned Column = 0; |
| if (!PLoc.isInvalid()) { |
| Line = PLoc.getLine(); |
| Column = PLoc.getColumn(); |
| } else { |
| Unit = llvm::DICompileUnit(); |
| } |
| |
| // Create the descriptor for the variable. |
| llvm::DIVariable D = |
| DebugFactory.CreateVariable(Tag, llvm::DIDescriptor(RegionStack.back()), |
| Decl->getNameAsCString(), |
| Unit, Line, Ty); |
| // Insert an llvm.dbg.declare into the current block. |
| llvm::Instruction *Call = |
| DebugFactory.InsertDeclare(Storage, D, Builder.GetInsertBlock()); |
| |
| llvm::DIScope DS(RegionStack.back()); |
| llvm::DILocation DO(NULL); |
| llvm::DILocation DL = |
| DebugFactory.CreateLocation(Line, Column, DS, DO); |
| Builder.SetDebugLocation(Call, DL.getNode()); |
| } |
| |
| /// EmitDeclare - Emit local variable declaration debug info. |
| void CGDebugInfo::EmitDeclare(const BlockDeclRefExpr *BDRE, unsigned Tag, |
| llvm::Value *Storage, CGBuilderTy &Builder, |
| CodeGenFunction *CGF) { |
| const ValueDecl *Decl = BDRE->getDecl(); |
| assert(!RegionStack.empty() && "Region stack mismatch, stack empty!"); |
| |
| // Do not emit variable debug information while generating optimized code. |
| // The llvm optimizer and code generator are not yet ready to support |
| // optimized code debugging. |
| const CodeGenOptions &CGO = M->getCodeGenOpts(); |
| if (CGO.OptimizationLevel || Builder.GetInsertBlock() == 0) |
| return; |
| |
| uint64_t XOffset = 0; |
| llvm::DICompileUnit Unit = getOrCreateCompileUnit(Decl->getLocation()); |
| QualType Type = Decl->getType(); |
| llvm::DIType Ty = getOrCreateType(Type, Unit); |
| if (Decl->hasAttr<BlocksAttr>()) { |
| llvm::DICompileUnit DefUnit; |
| unsigned Tag = llvm::dwarf::DW_TAG_structure_type; |
| |
| llvm::SmallVector<llvm::DIDescriptor, 5> EltTys; |
| |
| llvm::DIType FieldTy; |
| |
| QualType FType; |
| uint64_t FieldSize, FieldOffset; |
| unsigned FieldAlign; |
| |
| llvm::DIArray Elements; |
| llvm::DIType EltTy; |
| |
| // Build up structure for the byref. See BuildByRefType. |
| FieldOffset = 0; |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__isa", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__forwarding", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getFixedWidthIntType(32, true); // Int32Ty; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__flags", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getFixedWidthIntType(32, true); // Int32Ty; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__size", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| bool HasCopyAndDispose = M->BlockRequiresCopying(Type); |
| if (HasCopyAndDispose) { |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__copy_helper", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| FType = M->getContext().getPointerType(M->getContext().VoidTy); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| "__destroy_helper", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| } |
| |
| unsigned Align = M->getContext().getDeclAlignInBytes(Decl); |
| if (Align > M->getContext().Target.getPointerAlign(0) / 8) { |
| unsigned AlignedOffsetInBytes |
| = llvm::RoundUpToAlignment(FieldOffset/8, Align); |
| unsigned NumPaddingBytes |
| = AlignedOffsetInBytes - FieldOffset/8; |
| |
| if (NumPaddingBytes > 0) { |
| llvm::APInt pad(32, NumPaddingBytes); |
| FType = M->getContext().getConstantArrayType(M->getContext().CharTy, |
| pad, ArrayType::Normal, 0); |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = M->getContext().getTypeAlign(FType); |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, |
| Unit, "", DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| } |
| } |
| |
| FType = Type; |
| FieldTy = CGDebugInfo::getOrCreateType(FType, Unit); |
| FieldSize = M->getContext().getTypeSize(FType); |
| FieldAlign = Align*8; |
| |
| XOffset = FieldOffset; |
| FieldTy = DebugFactory.CreateDerivedType(llvm::dwarf::DW_TAG_member, Unit, |
| Decl->getNameAsCString(), DefUnit, |
| 0, FieldSize, FieldAlign, |
| FieldOffset, 0, FieldTy); |
| EltTys.push_back(FieldTy); |
| FieldOffset += FieldSize; |
| |
| Elements = DebugFactory.GetOrCreateArray(EltTys.data(), EltTys.size()); |
| |
| unsigned Flags = llvm::DIType::FlagBlockByrefStruct; |
| |
| Ty = DebugFactory.CreateCompositeType(Tag, Unit, "", |
| llvm::DICompileUnit(), |
| 0, FieldOffset, 0, 0, Flags, |
| llvm::DIType(), Elements); |
| } |
| |
| // Get location information. |
| SourceManager &SM = M->getContext().getSourceManager(); |
| PresumedLoc PLoc = SM.getPresumedLoc(Decl->getLocation()); |
| unsigned Line = 0; |
| if (!PLoc.isInvalid()) |
| Line = PLoc.getLine(); |
| else |
| Unit = llvm::DICompileUnit(); |
| |
| uint64_t offset = CGF->BlockDecls[Decl]; |
| llvm::SmallVector<llvm::Value *, 9> addr; |
| llvm::LLVMContext &VMContext = M->getLLVMContext(); |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| llvm::DIFactory::OpDeref)); |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| llvm::DIFactory::OpPlus)); |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| offset)); |
| if (BDRE->isByRef()) { |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| llvm::DIFactory::OpDeref)); |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| llvm::DIFactory::OpPlus)); |
| offset = CGF->LLVMPointerWidth/8; // offset of __forwarding field |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| offset)); |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| llvm::DIFactory::OpDeref)); |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| llvm::DIFactory::OpPlus)); |
| offset = XOffset/8; // offset of x field |
| addr.push_back(llvm::ConstantInt::get(llvm::Type::getInt64Ty(VMContext), |
| offset)); |
| } |
| |
| // Create the descriptor for the variable. |
| llvm::DIVariable D = |
| DebugFactory.CreateComplexVariable(Tag, llvm::DIDescriptor(RegionStack.back()), |
| Decl->getNameAsCString(), Unit, Line, Ty, |
| addr); |
| // Insert an llvm.dbg.declare into the current block. |
| llvm::Instruction *Call = |
| DebugFactory.InsertDeclare(Storage, D, Builder.GetInsertPoint()); |
| |
| llvm::DIScope DS(RegionStack.back()); |
| llvm::DILocation DO(NULL); |
| llvm::DILocation DL = |
| DebugFactory.CreateLocation(Line, PLoc.getColumn(), DS, DO); |
| Builder.SetDebugLocation(Call, DL.getNode()); |
| } |
| |
| void CGDebugInfo::EmitDeclareOfAutoVariable(const VarDecl *Decl, |
| llvm::Value *Storage, |
| CGBuilderTy &Builder) { |
| EmitDeclare(Decl, llvm::dwarf::DW_TAG_auto_variable, Storage, Builder); |
| } |
| |
| void CGDebugInfo::EmitDeclareOfBlockDeclRefVariable( |
| const BlockDeclRefExpr *BDRE, llvm::Value *Storage, CGBuilderTy &Builder, |
| CodeGenFunction *CGF) { |
| EmitDeclare(BDRE, llvm::dwarf::DW_TAG_auto_variable, Storage, Builder, CGF); |
| } |
| |
| /// EmitDeclareOfArgVariable - Emit call to llvm.dbg.declare for an argument |
| /// variable declaration. |
| void CGDebugInfo::EmitDeclareOfArgVariable(const VarDecl *Decl, llvm::Value *AI, |
| CGBuilderTy &Builder) { |
| EmitDeclare(Decl, llvm::dwarf::DW_TAG_arg_variable, AI, Builder); |
| } |
| |
| |
| |
| /// EmitGlobalVariable - Emit information about a global variable. |
| void CGDebugInfo::EmitGlobalVariable(llvm::GlobalVariable *Var, |
| const VarDecl *Decl) { |
| |
| // Create global variable debug descriptor. |
| llvm::DICompileUnit Unit = getOrCreateCompileUnit(Decl->getLocation()); |
| SourceManager &SM = M->getContext().getSourceManager(); |
| PresumedLoc PLoc = SM.getPresumedLoc(Decl->getLocation()); |
| unsigned LineNo = PLoc.isInvalid() ? 0 : PLoc.getLine(); |
| |
| QualType T = Decl->getType(); |
| if (T->isIncompleteArrayType()) { |
| |
| // CodeGen turns int[] into int[1] so we'll do the same here. |
| llvm::APSInt ConstVal(32); |
| |
| ConstVal = 1; |
| QualType ET = M->getContext().getAsArrayType(T)->getElementType(); |
| |
| T = M->getContext().getConstantArrayType(ET, ConstVal, |
| ArrayType::Normal, 0); |
| } |
| const char *DeclName = Decl->getNameAsCString(); |
| DebugFactory.CreateGlobalVariable(getContext(Decl, Unit), DeclName, DeclName, |
| NULL, Unit, LineNo, |
| getOrCreateType(T, Unit), |
| Var->hasInternalLinkage(), |
| true/*definition*/, Var); |
| } |
| |
| /// EmitGlobalVariable - Emit information about an objective-c interface. |
| void CGDebugInfo::EmitGlobalVariable(llvm::GlobalVariable *Var, |
| ObjCInterfaceDecl *Decl) { |
| // Create global variable debug descriptor. |
| llvm::DICompileUnit Unit = getOrCreateCompileUnit(Decl->getLocation()); |
| SourceManager &SM = M->getContext().getSourceManager(); |
| PresumedLoc PLoc = SM.getPresumedLoc(Decl->getLocation()); |
| unsigned LineNo = PLoc.isInvalid() ? 0 : PLoc.getLine(); |
| |
| const char *Name = Decl->getNameAsCString(); |
| |
| QualType T = M->getContext().getObjCInterfaceType(Decl); |
| if (T->isIncompleteArrayType()) { |
| |
| // CodeGen turns int[] into int[1] so we'll do the same here. |
| llvm::APSInt ConstVal(32); |
| |
| ConstVal = 1; |
| QualType ET = M->getContext().getAsArrayType(T)->getElementType(); |
| |
| T = M->getContext().getConstantArrayType(ET, ConstVal, |
| ArrayType::Normal, 0); |
| } |
| |
| DebugFactory.CreateGlobalVariable(Unit, Name, Name, Name, Unit, LineNo, |
| getOrCreateType(T, Unit), |
| Var->hasInternalLinkage(), |
| true/*definition*/, Var); |
| } |