//===--- DebugInfo.cpp - Debug Information Helper Classes -----------------===// // // The LLVM Compiler Infrastructure // // This file is distributed under the University of Illinois Open Source // License. See LICENSE.TXT for details. // //===----------------------------------------------------------------------===// // // This file implements the helper classes used to build and interpret debug // information in LLVM IR form. // //===----------------------------------------------------------------------===// #include "llvm/Analysis/DebugInfo.h" #include "llvm/Constants.h" #include "llvm/DerivedTypes.h" #include "llvm/Intrinsics.h" #include "llvm/IntrinsicInst.h" #include "llvm/Instructions.h" #include "llvm/Module.h" #include "llvm/Analysis/ValueTracking.h" #include "llvm/Support/Streams.h" using namespace llvm; //===----------------------------------------------------------------------===// // DIDescriptor //===----------------------------------------------------------------------===// DIDescriptor::DIDescriptor(GlobalVariable *gv, unsigned RequiredTag) { GV = gv; // If this is non-null, check to see if the Tag matches. If not, set to null. if (GV && getTag() != RequiredTag) GV = 0; } std::string DIDescriptor::getStringField(unsigned Elt) const { if (GV == 0) return ""; Constant *C = GV->getInitializer(); if (C == 0 || Elt >= C->getNumOperands()) return ""; std::string Result; // Fills in the string if it succeeds if (!GetConstantStringInfo(C->getOperand(Elt), Result)) Result.clear(); return Result; } uint64_t DIDescriptor::getUInt64Field(unsigned Elt) const { if (GV == 0) return 0; Constant *C = GV->getInitializer(); if (C == 0 || Elt >= C->getNumOperands()) return 0; if (ConstantInt *CI = dyn_cast(C->getOperand(Elt))) return CI->getZExtValue(); return 0; } DIDescriptor DIDescriptor::getDescriptorField(unsigned Elt) const { if (GV == 0) return DIDescriptor(); Constant *C = GV->getInitializer(); if (C == 0 || Elt >= C->getNumOperands()) return DIDescriptor(); C = C->getOperand(Elt); return DIDescriptor(dyn_cast(C->stripPointerCasts())); } GlobalVariable *DIDescriptor::getGlobalVariableField(unsigned Elt) const { if (GV == 0) return 0; Constant *C = GV->getInitializer(); if (C == 0 || Elt >= C->getNumOperands()) return 0; C = C->getOperand(Elt); return dyn_cast(C->stripPointerCasts()); } //===----------------------------------------------------------------------===// // Simple Descriptor Constructors and other Methods //===----------------------------------------------------------------------===// DIAnchor::DIAnchor(GlobalVariable *GV) : DIDescriptor(GV, dwarf::DW_TAG_anchor) {} DIEnumerator::DIEnumerator(GlobalVariable *GV) : DIDescriptor(GV, dwarf::DW_TAG_enumerator) {} DISubrange::DISubrange(GlobalVariable *GV) : DIDescriptor(GV, dwarf::DW_TAG_subrange_type) {} DICompileUnit::DICompileUnit(GlobalVariable *GV) : DIDescriptor(GV, dwarf::DW_TAG_compile_unit) {} DIBasicType::DIBasicType(GlobalVariable *GV) : DIType(GV, dwarf::DW_TAG_base_type) {} DISubprogram::DISubprogram(GlobalVariable *GV) : DIGlobal(GV, dwarf::DW_TAG_subprogram) {} DIGlobalVariable::DIGlobalVariable(GlobalVariable *GV) : DIGlobal(GV, dwarf::DW_TAG_variable) {} DIBlock::DIBlock(GlobalVariable *GV) : DIDescriptor(GV, dwarf::DW_TAG_lexical_block) {} // needed by DIVariable::getType() DIType::DIType(GlobalVariable *gv) : DIDescriptor(gv) { if (!gv) return; unsigned tag = getTag(); if (tag != dwarf::DW_TAG_base_type && !DIDerivedType::isDerivedType(tag) && !DICompositeType::isCompositeType(tag)) GV = 0; } /// isDerivedType - Return true if the specified tag is legal for /// DIDerivedType. bool DIType::isDerivedType(unsigned Tag) { switch (Tag) { case dwarf::DW_TAG_typedef: case dwarf::DW_TAG_pointer_type: case dwarf::DW_TAG_reference_type: case dwarf::DW_TAG_const_type: case dwarf::DW_TAG_volatile_type: case dwarf::DW_TAG_restrict_type: case dwarf::DW_TAG_member: case dwarf::DW_TAG_inheritance: return true; default: // FIXME: Even though it doesn't make sense, CompositeTypes are current // modelled as DerivedTypes, this should return true for them as well. return false; } } DIDerivedType::DIDerivedType(GlobalVariable *GV) : DIType(GV, true, true) { if (GV && !isDerivedType(getTag())) GV = 0; } /// isCompositeType - Return true if the specified tag is legal for /// DICompositeType. bool DIType::isCompositeType(unsigned TAG) { switch (TAG) { case dwarf::DW_TAG_array_type: case dwarf::DW_TAG_structure_type: case dwarf::DW_TAG_union_type: case dwarf::DW_TAG_enumeration_type: case dwarf::DW_TAG_vector_type: case dwarf::DW_TAG_subroutine_type: return true; default: return false; } } DICompositeType::DICompositeType(GlobalVariable *GV) : DIDerivedType(GV, true, true) { if (GV && !isCompositeType(getTag())) GV = 0; } /// isVariable - Return true if the specified tag is legal for DIVariable. bool DIVariable::isVariable(unsigned Tag) { switch (Tag) { case dwarf::DW_TAG_auto_variable: case dwarf::DW_TAG_arg_variable: case dwarf::DW_TAG_return_variable: return true; default: return false; } } DIVariable::DIVariable(GlobalVariable *gv) : DIDescriptor(gv) { if (gv && !isVariable(getTag())) GV = 0; } unsigned DIArray::getNumElements() const { assert (GV && "Invalid DIArray"); Constant *C = GV->getInitializer(); assert (C && "Invalid DIArray initializer"); return C->getNumOperands(); } /// Verify - Verify that a compile unit is well formed. bool DICompileUnit::Verify() const { if (isNull()) return false; if (getFilename().empty()) return false; // It is possible that directory and produce string is empty. return true; } /// Verify - Verify that a type descriptor is well formed. bool DIType::Verify() const { if (isNull()) return false; if (getContext().isNull()) return false; DICompileUnit CU = getCompileUnit(); if (!CU.isNull() && !CU.Verify()) return false; return true; } /// Verify - Verify that a composite type descriptor is well formed. bool DICompositeType::Verify() const { if (isNull()) return false; if (getContext().isNull()) return false; DICompileUnit CU = getCompileUnit(); if (!CU.isNull() && !CU.Verify()) return false; return true; } /// Verify - Verify that a subprogram descriptor is well formed. bool DISubprogram::Verify() const { if (isNull()) return false; if (getContext().isNull()) return false; DICompileUnit CU = getCompileUnit(); if (!CU.Verify()) return false; DICompositeType Ty = getType(); if (!Ty.isNull() && !Ty.Verify()) return false; return true; } /// Verify - Verify that a global variable descriptor is well formed. bool DIGlobalVariable::Verify() const { if (isNull()) return false; if (getContext().isNull()) return false; DICompileUnit CU = getCompileUnit(); if (!CU.Verify()) return false; DIType Ty = getType(); if (!Ty.Verify()) return false; if (!getGlobal()) return false; return true; } /// Verify - Verify that a variable descriptor is well formed. bool DIVariable::Verify() const { if (isNull()) return false; if (getContext().isNull()) return false; DIType Ty = getType(); if (!Ty.Verify()) return false; return true; } /// getOriginalTypeSize - If this type is derived from a base type then /// return base type size. uint64_t DIDerivedType::getOriginalTypeSize() const { if (getTag() != dwarf::DW_TAG_member) return getSizeInBits(); DIType BT = getTypeDerivedFrom(); if (BT.getTag() != dwarf::DW_TAG_base_type) return getSizeInBits(); return BT.getSizeInBits(); } //===----------------------------------------------------------------------===// // DIFactory: Basic Helpers //===----------------------------------------------------------------------===// DIFactory::DIFactory(Module &m) : M(m) { StopPointFn = FuncStartFn = RegionStartFn = RegionEndFn = DeclareFn = 0; EmptyStructPtr = PointerType::getUnqual(StructType::get(NULL, NULL)); } /// getCastToEmpty - Return this descriptor as a Constant* with type '{}*'. /// This is only valid when the descriptor is non-null. Constant *DIFactory::getCastToEmpty(DIDescriptor D) { if (D.isNull()) return Constant::getNullValue(EmptyStructPtr); return ConstantExpr::getBitCast(D.getGV(), EmptyStructPtr); } Constant *DIFactory::GetTagConstant(unsigned TAG) { assert((TAG & LLVMDebugVersionMask) == 0 && "Tag too large for debug encoding!"); return ConstantInt::get(Type::Int32Ty, TAG | LLVMDebugVersion); } Constant *DIFactory::GetStringConstant(const std::string &String) { // Check string cache for previous edition. Constant *&Slot = StringCache[String]; // Return Constant if previously defined. if (Slot) return Slot; const PointerType *DestTy = PointerType::getUnqual(Type::Int8Ty); // If empty string then use a sbyte* null instead. if (String.empty()) return Slot = ConstantPointerNull::get(DestTy); // Construct string as an llvm constant. Constant *ConstStr = ConstantArray::get(String); // Otherwise create and return a new string global. GlobalVariable *StrGV = new GlobalVariable(ConstStr->getType(), true, GlobalVariable::InternalLinkage, ConstStr, ".str", &M); StrGV->setSection("llvm.metadata"); return Slot = ConstantExpr::getBitCast(StrGV, DestTy); } /// GetOrCreateAnchor - Look up an anchor for the specified tag and name. If it /// already exists, return it. If not, create a new one and return it. DIAnchor DIFactory::GetOrCreateAnchor(unsigned TAG, const char *Name) { const Type *EltTy = StructType::get(Type::Int32Ty, Type::Int32Ty, NULL); // Otherwise, create the global or return it if already in the module. Constant *C = M.getOrInsertGlobal(Name, EltTy); assert(isa(C) && "Incorrectly typed anchor?"); GlobalVariable *GV = cast(C); // If it has an initializer, it is already in the module. if (GV->hasInitializer()) return SubProgramAnchor = DIAnchor(GV); GV->setLinkage(GlobalValue::LinkOnceLinkage); GV->setSection("llvm.metadata"); GV->setConstant(true); M.addTypeName("llvm.dbg.anchor.type", EltTy); // Otherwise, set the initializer. Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_anchor), ConstantInt::get(Type::Int32Ty, TAG) }; GV->setInitializer(ConstantStruct::get(Elts, 2)); return DIAnchor(GV); } //===----------------------------------------------------------------------===// // DIFactory: Primary Constructors //===----------------------------------------------------------------------===// /// GetOrCreateCompileUnitAnchor - Return the anchor for compile units, /// creating a new one if there isn't already one in the module. DIAnchor DIFactory::GetOrCreateCompileUnitAnchor() { // If we already created one, just return it. if (!CompileUnitAnchor.isNull()) return CompileUnitAnchor; return CompileUnitAnchor = GetOrCreateAnchor(dwarf::DW_TAG_compile_unit, "llvm.dbg.compile_units"); } /// GetOrCreateSubprogramAnchor - Return the anchor for subprograms, /// creating a new one if there isn't already one in the module. DIAnchor DIFactory::GetOrCreateSubprogramAnchor() { // If we already created one, just return it. if (!SubProgramAnchor.isNull()) return SubProgramAnchor; return SubProgramAnchor = GetOrCreateAnchor(dwarf::DW_TAG_subprogram, "llvm.dbg.subprograms"); } /// GetOrCreateGlobalVariableAnchor - Return the anchor for globals, /// creating a new one if there isn't already one in the module. DIAnchor DIFactory::GetOrCreateGlobalVariableAnchor() { // If we already created one, just return it. if (!GlobalVariableAnchor.isNull()) return GlobalVariableAnchor; return GlobalVariableAnchor = GetOrCreateAnchor(dwarf::DW_TAG_variable, "llvm.dbg.global_variables"); } /// GetOrCreateArray - Create an descriptor for an array of descriptors. /// This implicitly uniques the arrays created. DIArray DIFactory::GetOrCreateArray(DIDescriptor *Tys, unsigned NumTys) { SmallVector Elts; for (unsigned i = 0; i != NumTys; ++i) Elts.push_back(getCastToEmpty(Tys[i])); Constant *Init = ConstantArray::get(ArrayType::get(EmptyStructPtr, Elts.size()), &Elts[0], Elts.size()); // If we already have this array, just return the uniqued version. DIDescriptor &Entry = SimpleConstantCache[Init]; if (!Entry.isNull()) return DIArray(Entry.getGV()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.array", &M); GV->setSection("llvm.metadata"); Entry = DIDescriptor(GV); return DIArray(GV); } /// GetOrCreateSubrange - Create a descriptor for a value range. This /// implicitly uniques the values returned. DISubrange DIFactory::GetOrCreateSubrange(int64_t Lo, int64_t Hi) { Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_subrange_type), ConstantInt::get(Type::Int64Ty, Lo), ConstantInt::get(Type::Int64Ty, Hi) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); // If we already have this range, just return the uniqued version. DIDescriptor &Entry = SimpleConstantCache[Init]; if (!Entry.isNull()) return DISubrange(Entry.getGV()); M.addTypeName("llvm.dbg.subrange.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.subrange", &M); GV->setSection("llvm.metadata"); Entry = DIDescriptor(GV); return DISubrange(GV); } /// CreateCompileUnit - Create a new descriptor for the specified compile /// unit. Note that this does not unique compile units within the module. DICompileUnit DIFactory::CreateCompileUnit(unsigned LangID, const std::string &Filename, const std::string &Directory, const std::string &Producer, bool isMain, bool isOptimized, const char *Flags, unsigned RunTimeVer) { Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_compile_unit), getCastToEmpty(GetOrCreateCompileUnitAnchor()), ConstantInt::get(Type::Int32Ty, LangID), GetStringConstant(Filename), GetStringConstant(Directory), GetStringConstant(Producer), ConstantInt::get(Type::Int1Ty, isMain), ConstantInt::get(Type::Int1Ty, isOptimized), GetStringConstant(Flags), ConstantInt::get(Type::Int32Ty, RunTimeVer) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.compile_unit.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.compile_unit", &M); GV->setSection("llvm.metadata"); return DICompileUnit(GV); } /// CreateEnumerator - Create a single enumerator value. DIEnumerator DIFactory::CreateEnumerator(const std::string &Name, uint64_t Val){ Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_enumerator), GetStringConstant(Name), ConstantInt::get(Type::Int64Ty, Val) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.enumerator.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.enumerator", &M); GV->setSection("llvm.metadata"); return DIEnumerator(GV); } /// CreateBasicType - Create a basic type like int, float, etc. DIBasicType DIFactory::CreateBasicType(DIDescriptor Context, const std::string &Name, DICompileUnit CompileUnit, unsigned LineNumber, uint64_t SizeInBits, uint64_t AlignInBits, uint64_t OffsetInBits, unsigned Flags, unsigned Encoding) { Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_base_type), getCastToEmpty(Context), GetStringConstant(Name), getCastToEmpty(CompileUnit), ConstantInt::get(Type::Int32Ty, LineNumber), ConstantInt::get(Type::Int64Ty, SizeInBits), ConstantInt::get(Type::Int64Ty, AlignInBits), ConstantInt::get(Type::Int64Ty, OffsetInBits), ConstantInt::get(Type::Int32Ty, Flags), ConstantInt::get(Type::Int32Ty, Encoding) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.basictype.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.basictype", &M); GV->setSection("llvm.metadata"); return DIBasicType(GV); } /// CreateDerivedType - Create a derived type like const qualified type, /// pointer, typedef, etc. DIDerivedType DIFactory::CreateDerivedType(unsigned Tag, DIDescriptor Context, const std::string &Name, DICompileUnit CompileUnit, unsigned LineNumber, uint64_t SizeInBits, uint64_t AlignInBits, uint64_t OffsetInBits, unsigned Flags, DIType DerivedFrom) { Constant *Elts[] = { GetTagConstant(Tag), getCastToEmpty(Context), GetStringConstant(Name), getCastToEmpty(CompileUnit), ConstantInt::get(Type::Int32Ty, LineNumber), ConstantInt::get(Type::Int64Ty, SizeInBits), ConstantInt::get(Type::Int64Ty, AlignInBits), ConstantInt::get(Type::Int64Ty, OffsetInBits), ConstantInt::get(Type::Int32Ty, Flags), getCastToEmpty(DerivedFrom) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.derivedtype.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.derivedtype", &M); GV->setSection("llvm.metadata"); return DIDerivedType(GV); } /// CreateCompositeType - Create a composite type like array, struct, etc. DICompositeType DIFactory::CreateCompositeType(unsigned Tag, DIDescriptor Context, const std::string &Name, DICompileUnit CompileUnit, unsigned LineNumber, uint64_t SizeInBits, uint64_t AlignInBits, uint64_t OffsetInBits, unsigned Flags, DIType DerivedFrom, DIArray Elements, unsigned RuntimeLang) { Constant *Elts[] = { GetTagConstant(Tag), getCastToEmpty(Context), GetStringConstant(Name), getCastToEmpty(CompileUnit), ConstantInt::get(Type::Int32Ty, LineNumber), ConstantInt::get(Type::Int64Ty, SizeInBits), ConstantInt::get(Type::Int64Ty, AlignInBits), ConstantInt::get(Type::Int64Ty, OffsetInBits), ConstantInt::get(Type::Int32Ty, Flags), getCastToEmpty(DerivedFrom), getCastToEmpty(Elements), ConstantInt::get(Type::Int32Ty, RuntimeLang) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.composite.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.composite", &M); GV->setSection("llvm.metadata"); return DICompositeType(GV); } /// CreateSubprogram - Create a new descriptor for the specified subprogram. /// See comments in DISubprogram for descriptions of these fields. This /// method does not unique the generated descriptors. DISubprogram DIFactory::CreateSubprogram(DIDescriptor Context, const std::string &Name, const std::string &DisplayName, const std::string &LinkageName, DICompileUnit CompileUnit, unsigned LineNo, DIType Type, bool isLocalToUnit, bool isDefinition) { Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_subprogram), getCastToEmpty(GetOrCreateSubprogramAnchor()), getCastToEmpty(Context), GetStringConstant(Name), GetStringConstant(DisplayName), GetStringConstant(LinkageName), getCastToEmpty(CompileUnit), ConstantInt::get(Type::Int32Ty, LineNo), getCastToEmpty(Type), ConstantInt::get(Type::Int1Ty, isLocalToUnit), ConstantInt::get(Type::Int1Ty, isDefinition) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.subprogram.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.subprogram", &M); GV->setSection("llvm.metadata"); return DISubprogram(GV); } /// CreateGlobalVariable - Create a new descriptor for the specified global. DIGlobalVariable DIFactory::CreateGlobalVariable(DIDescriptor Context, const std::string &Name, const std::string &DisplayName, const std::string &LinkageName, DICompileUnit CompileUnit, unsigned LineNo, DIType Type,bool isLocalToUnit, bool isDefinition, llvm::GlobalVariable *Val) { Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_variable), getCastToEmpty(GetOrCreateGlobalVariableAnchor()), getCastToEmpty(Context), GetStringConstant(Name), GetStringConstant(DisplayName), GetStringConstant(LinkageName), getCastToEmpty(CompileUnit), ConstantInt::get(Type::Int32Ty, LineNo), getCastToEmpty(Type), ConstantInt::get(Type::Int1Ty, isLocalToUnit), ConstantInt::get(Type::Int1Ty, isDefinition), ConstantExpr::getBitCast(Val, EmptyStructPtr) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.global_variable.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.global_variable", &M); GV->setSection("llvm.metadata"); return DIGlobalVariable(GV); } /// CreateVariable - Create a new descriptor for the specified variable. DIVariable DIFactory::CreateVariable(unsigned Tag, DIDescriptor Context, const std::string &Name, DICompileUnit CompileUnit, unsigned LineNo, DIType Type) { Constant *Elts[] = { GetTagConstant(Tag), getCastToEmpty(Context), GetStringConstant(Name), getCastToEmpty(CompileUnit), ConstantInt::get(Type::Int32Ty, LineNo), getCastToEmpty(Type) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.variable.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.variable", &M); GV->setSection("llvm.metadata"); return DIVariable(GV); } /// CreateBlock - This creates a descriptor for a lexical block with the /// specified parent context. DIBlock DIFactory::CreateBlock(DIDescriptor Context) { Constant *Elts[] = { GetTagConstant(dwarf::DW_TAG_lexical_block), getCastToEmpty(Context) }; Constant *Init = ConstantStruct::get(Elts, sizeof(Elts)/sizeof(Elts[0])); M.addTypeName("llvm.dbg.block.type", Init->getType()); GlobalVariable *GV = new GlobalVariable(Init->getType(), true, GlobalValue::InternalLinkage, Init, "llvm.dbg.block", &M); GV->setSection("llvm.metadata"); return DIBlock(GV); } //===----------------------------------------------------------------------===// // DIFactory: Routines for inserting code into a function //===----------------------------------------------------------------------===// /// InsertStopPoint - Create a new llvm.dbg.stoppoint intrinsic invocation, /// inserting it at the end of the specified basic block. void DIFactory::InsertStopPoint(DICompileUnit CU, unsigned LineNo, unsigned ColNo, BasicBlock *BB) { // Lazily construct llvm.dbg.stoppoint function. if (!StopPointFn) StopPointFn = llvm::Intrinsic::getDeclaration(&M, llvm::Intrinsic::dbg_stoppoint); // Invoke llvm.dbg.stoppoint Value *Args[] = { llvm::ConstantInt::get(llvm::Type::Int32Ty, LineNo), llvm::ConstantInt::get(llvm::Type::Int32Ty, ColNo), getCastToEmpty(CU) }; CallInst::Create(StopPointFn, Args, Args+3, "", BB); } /// InsertSubprogramStart - Create a new llvm.dbg.func.start intrinsic to /// mark the start of the specified subprogram. void DIFactory::InsertSubprogramStart(DISubprogram SP, BasicBlock *BB) { // Lazily construct llvm.dbg.func.start. if (!FuncStartFn) FuncStartFn = llvm::Intrinsic::getDeclaration(&M, llvm::Intrinsic::dbg_func_start); // Call llvm.dbg.func.start which also implicitly sets a stoppoint. CallInst::Create(FuncStartFn, getCastToEmpty(SP), "", BB); } /// InsertRegionStart - Insert a new llvm.dbg.region.start intrinsic call to /// mark the start of a region for the specified scoping descriptor. void DIFactory::InsertRegionStart(DIDescriptor D, BasicBlock *BB) { // Lazily construct llvm.dbg.region.start function. if (!RegionStartFn) RegionStartFn = llvm::Intrinsic::getDeclaration(&M, llvm::Intrinsic::dbg_region_start); // Call llvm.dbg.func.start. CallInst::Create(RegionStartFn, getCastToEmpty(D), "", BB); } /// InsertRegionEnd - Insert a new llvm.dbg.region.end intrinsic call to /// mark the end of a region for the specified scoping descriptor. void DIFactory::InsertRegionEnd(DIDescriptor D, BasicBlock *BB) { // Lazily construct llvm.dbg.region.end function. if (!RegionEndFn) RegionEndFn = llvm::Intrinsic::getDeclaration(&M, llvm::Intrinsic::dbg_region_end); CallInst::Create(RegionEndFn, getCastToEmpty(D), "", BB); } /// InsertDeclare - Insert a new llvm.dbg.declare intrinsic call. void DIFactory::InsertDeclare(llvm::Value *Storage, DIVariable D, BasicBlock *BB) { // Cast the storage to a {}* for the call to llvm.dbg.declare. Storage = new llvm::BitCastInst(Storage, EmptyStructPtr, "", BB); if (!DeclareFn) DeclareFn = llvm::Intrinsic::getDeclaration(&M, llvm::Intrinsic::dbg_declare); Value *Args[] = { Storage, getCastToEmpty(D) }; CallInst::Create(DeclareFn, Args, Args+2, "", BB); } namespace llvm { /// Finds the stoppoint coressponding to this instruction, that is the /// stoppoint that dominates this instruction const DbgStopPointInst *findStopPoint(const Instruction *Inst) { if (const DbgStopPointInst *DSI = dyn_cast(Inst)) return DSI; const BasicBlock *BB = Inst->getParent(); BasicBlock::const_iterator I = Inst, B; do { B = BB->begin(); // A BB consisting only of a terminator can't have a stoppoint. if (I != B) { do { --I; if (const DbgStopPointInst *DSI = dyn_cast(I)) return DSI; } while (I != B); } // This BB didn't have a stoppoint: if there is only one // predecessor, look for a stoppoint there. // We could use getIDom(), but that would require dominator info. BB = I->getParent()->getUniquePredecessor(); if (BB) I = BB->getTerminator(); } while (BB != 0); return 0; } /// Finds the stoppoint corresponding to first real (non-debug intrinsic) /// instruction in this Basic Block, and returns the stoppoint for it. const DbgStopPointInst *findBBStopPoint(const BasicBlock *BB) { for(BasicBlock::const_iterator I = BB->begin(), E = BB->end(); I != E; ++I) { if (const DbgStopPointInst *DSI = dyn_cast(I)) return DSI; } // Fallback to looking for stoppoint of unique predecessor. // Useful if this BB contains no stoppoints, but unique predecessor does. BB = BB->getUniquePredecessor(); if (BB) return findStopPoint(BB->getTerminator()); return 0; } /// Finds the dbg.declare intrinsic corresponding to this value if any. /// It looks through pointer casts too. const DbgDeclareInst *findDbgDeclare(const Value *V, bool stripCasts) { if (stripCasts) { V = V->stripPointerCasts(); // Look for the bitcast. for (Value::use_const_iterator I = V->use_begin(), E =V->use_end(); I != E; ++I) { if (isa(I)) return findDbgDeclare(*I, false); } return 0; } // Find dbg.declare among uses of the instruction. for (Value::use_const_iterator I = V->use_begin(), E =V->use_end(); I != E; ++I) { if (const DbgDeclareInst *DDI = dyn_cast(I)) return DDI; } return 0; } } /// dump - print compile unit. void DICompileUnit::dump() const { cerr << " [" << dwarf::LanguageString(getLanguage()) << "] "; cerr << " [" << getDirectory() << "/" << getFilename() << " ]"; } /// dump - print type. void DIType::dump() const { if (isNull()) return; if (!getName().empty()) cerr << " [" << getName() << "] "; unsigned Tag = getTag(); cerr << " [" << dwarf::TagString(Tag) << "] "; // TODO : Print context getCompileUnit().dump(); cerr << " [" << getLineNumber() << ", " << getSizeInBits() << ", " << getAlignInBits() << ", " << getOffsetInBits() << "] "; if (isPrivate()) cerr << " [private] "; else if (isProtected()) cerr << " [protected] "; if (isForwardDecl()) cerr << " [fwd] "; if (isBasicType(Tag)) DIBasicType(GV).dump(); else if (isDerivedType(Tag)) DIDerivedType(GV).dump(); else if (isCompositeType(Tag)) DICompositeType(GV).dump(); else { cerr << "Invalid DIType\n"; return; } cerr << "\n"; } /// dump - print basic type. void DIBasicType::dump() const { cerr << " [" << dwarf::AttributeEncodingString(getEncoding()) << "] "; } /// dump - print derived type. void DIDerivedType::dump() const { cerr << "\n\t Derived From: "; getTypeDerivedFrom().dump(); } /// dump - print composite type. void DICompositeType::dump() const { DIArray A = getTypeArray(); if (A.isNull()) return; cerr << " [" << A.getNumElements() << " elements]"; } /// dump - print global. void DIGlobal::dump() const { if (!getName().empty()) cerr << " [" << getName() << "] "; unsigned Tag = getTag(); cerr << " [" << dwarf::TagString(Tag) << "] "; // TODO : Print context getCompileUnit().dump(); cerr << " [" << getLineNumber() << "] "; if (isLocalToUnit()) cerr << " [local] "; if (isDefinition()) cerr << " [def] "; if (isGlobalVariable(Tag)) DIGlobalVariable(GV).dump(); cerr << "\n"; } /// dump - print subprogram. void DISubprogram::dump() const { DIGlobal::dump(); } /// dump - print global variable. void DIGlobalVariable::dump() const { cerr << " ["; getGlobal()->dump(); cerr << "] "; } /// dump - print variable. void DIVariable::dump() const { if (!getName().empty()) cerr << " [" << getName() << "] "; getCompileUnit().dump(); cerr << " [" << getLineNumber() << "] "; getType().dump(); cerr << "\n"; }