projects/ldc: gen/todebug.cpp annotate

annotate gen/todebug.cpp @ 270:d9d5d59873d8 trunk

[svn r291] Fixed a bunch of the old Phobos tests to work with Tango. Branch statements now emit a new block after it. Fixed the _adSort runtime function had a bad signature. Added a missing dot prefix on compiler generated string tables for string switch. Fixed, PTRSIZE seems like it was wrong on 64bit, now it definitely gets set properly.

author	lindquist
date	Mon, 16 Jun 2008 16:01:19 +0200
parents	23d0d9855cad
children	297690b5d4a5

rev	line source
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	1 #include "gen/llvm.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	2 #include "llvm/Support/Dwarf.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	3 #include "llvm/CodeGen/MachineModuleInfo.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	4
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	5 #include "declaration.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	6 #include "module.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	7 #include "mars.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	8
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	9 #include "gen/todebug.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	10 #include "gen/irstate.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	11 #include "gen/tollvm.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	12 #include "gen/logger.h"
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	13
139 0ab29b838084 [svn r143] Fixed: a few bugs in debug information, still only line info, but should be correct files now :) lindquist parents: 136 diff changeset	14 #include "ir/irmodule.h"
0ab29b838084 [svn r143] Fixed: a few bugs in debug information, still only line info, but should be correct files now :) lindquist parents: 136 diff changeset	15
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	16 using namespace llvm::dwarf;
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	17
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	18 #define DBG_NULL ( LLConstant::getNullValue(DBG_TYPE) )
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	19 #define DBG_TYPE ( getPtrToType(llvm::StructType::get(NULL,NULL)) )
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	20 #define DBG_CAST(X) ( llvm::ConstantExpr::getBitCast(X, DBG_TYPE) )
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	21
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	22 #define DBG_TAG(X) ( llvm::ConstantExpr::getAdd( DtoConstUint( X ), DtoConstUint( llvm::LLVMDebugVersion ) ) )
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	23
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	24 //////////////////////////////////////////////////////////////////////////////////////////////////
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	25
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	26 /**
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	27 * Emits a global variable, LLVM Dwarf style.
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	28 * @param type Type of variable.
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	29 * @param values Initializers.
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	30 * @param name Name.
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	31 * @return The global variable.
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	32 */
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	33 static LLGlobalVariable* emitDwarfGlobal(const LLStructType* type, const std::vector<LLConstant> values, const char name, bool linkonce=false)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	34 {
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	35 LLConstant* c = llvm::ConstantStruct::get(type, values);
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	36 LLGlobalValue::LinkageTypes linkage = linkonce ? LLGlobalValue::LinkOnceLinkage : LLGlobalValue::InternalLinkage;
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	37 LLGlobalVariable* gv = new LLGlobalVariable(type, true, linkage, c, name, gIR->module);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	38 gv->setSection("llvm.metadata");
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	39 return gv;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	40 }
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	41
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	42 /**
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	43 * Emits a global variable, LLVM Dwarf style, only declares.
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	44 * @param type Type of variable.
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	45 * @param name Name.
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	46 * @return The global variable.
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	47 */
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	48 static LLGlobalVariable* emitDwarfGlobalDecl(const LLStructType* type, const char* name, bool linkonce=false)
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	49 {
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	50 LLGlobalValue::LinkageTypes linkage = linkonce ? LLGlobalValue::LinkOnceLinkage : LLGlobalValue::InternalLinkage;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	51 LLGlobalVariable* gv = new LLGlobalVariable(type, true, linkage, NULL, name, gIR->module);
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	52 gv->setSection("llvm.metadata");
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	53 return gv;
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	54 }
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	55
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	56 //////////////////////////////////////////////////////////////////////////////////////////////////
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	57
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	58 /**
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	59 * Emits the Dwarf anchors that are used repeatedly by LLVM debug info.
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	60 */
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	61 static void emitDwarfAnchors()
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	62 {
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	63 const llvm::StructType* anchorTy = isaStruct(gIR->module->getTypeByName("llvm.dbg.anchor.type"));
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	64 std::vector<LLConstant*> vals(2);
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	65
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	66 vals[0] = DtoConstUint(llvm::LLVMDebugVersion);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	67 vals[1] = DtoConstUint(DW_TAG_compile_unit);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	68 gIR->dwarfCUs = emitDwarfGlobal(anchorTy, vals, "llvm.dbg.compile_units", true);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	69
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	70 vals[0] = DtoConstUint(llvm::LLVMDebugVersion);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	71 vals[1] = DtoConstUint(DW_TAG_variable);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	72 gIR->dwarfGVs = emitDwarfGlobal(anchorTy, vals, "llvm.dbg.global_variables", true);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	73
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	74 vals[0] = DtoConstUint(llvm::LLVMDebugVersion);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	75 vals[1] = DtoConstUint(DW_TAG_subprogram);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	76 gIR->dwarfSPs = emitDwarfGlobal(anchorTy, vals, "llvm.dbg.subprograms", true);
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	77 }
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	78
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	79 //////////////////////////////////////////////////////////////////////////////////////////////////
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	80
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	81 static LLConstant* getDwarfAnchor(dwarf_constants c)
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	82 {
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	83 if (!gIR->dwarfCUs)
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	84 emitDwarfAnchors();
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	85 switch (c)
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	86 {
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	87 case DW_TAG_compile_unit:
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	88 return gIR->dwarfCUs;
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	89 case DW_TAG_variable:
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	90 return gIR->dwarfGVs;
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	91 case DW_TAG_subprogram:
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	92 return gIR->dwarfSPs;
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	93 default:
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	94 assert(0);
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	95 }
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	96 }
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	97
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	98 //////////////////////////////////////////////////////////////////////////////////////////////////
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	99
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	100 static const llvm::StructType* getDwarfCompileUnitType() {
96 ce7ed8f59b99 [svn r100] Moved test/ray.d to demos/ray.d. lindquist parents: 94 diff changeset	101 return isaStruct(gIR->module->getTypeByName("llvm.dbg.compile_unit.type"));
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	102 }
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	103
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	104 static const llvm::StructType* getDwarfSubProgramType() {
96 ce7ed8f59b99 [svn r100] Moved test/ray.d to demos/ray.d. lindquist parents: 94 diff changeset	105 return isaStruct(gIR->module->getTypeByName("llvm.dbg.subprogram.type"));
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	106 }
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	107
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	108 static const llvm::StructType* getDwarfVariableType() {
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	109 return isaStruct(gIR->module->getTypeByName("llvm.dbg.variable.type"));
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	110 }
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	111
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	112 static const llvm::StructType* getDwarfDerivedTypeType() {
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	113 return isaStruct(gIR->module->getTypeByName("llvm.dbg.derivedtype.type"));
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	114 }
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	115
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	116 static const llvm::StructType* getDwarfBasicTypeType() {
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	117 return isaStruct(gIR->module->getTypeByName("llvm.dbg.basictype.type"));
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	118 }
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	119
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	120 static const llvm::StructType* getDwarfCompositeTypeType() {
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	121 return isaStruct(gIR->module->getTypeByName("llvm.dbg.compositetype.type"));
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	122 }
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	123
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	124 static const llvm::StructType* getDwarfGlobalVariableType() {
56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	125 return isaStruct(gIR->module->getTypeByName("llvm.dbg.global_variable.type"));
56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	126 }
56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	127
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	128 //////////////////////////////////////////////////////////////////////////////////////////////////
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	129
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	130 static LLGlobalVariable* dwarfCompileUnit(Module* m)
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	131 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	132 std::vector<LLConstant*> vals(6);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	133 vals[0] = DBG_TAG(DW_TAG_compile_unit);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	134 vals[1] = DBG_CAST(getDwarfAnchor(DW_TAG_compile_unit));
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	135
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	136 vals[2] = DtoConstUint(DW_LANG_C);// _D)); // doesn't seem to work
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	137 vals[3] = DtoConstStringPtr(m->srcfile->name->toChars(), "llvm.metadata");
139 0ab29b838084 [svn r143] Fixed: a few bugs in debug information, still only line info, but should be correct files now :) lindquist parents: 136 diff changeset	138 std::string srcpath(FileName::path(m->srcfile->name->toChars()));
140 ffcc9a2f3d9d [svn r144] fixes lindquist parents: 139 diff changeset	139 if (srcpath.empty()) {
ffcc9a2f3d9d [svn r144] fixes lindquist parents: 139 diff changeset	140 const char* str = get_current_dir_name();
ffcc9a2f3d9d [svn r144] fixes lindquist parents: 139 diff changeset	141 assert(str != NULL);
ffcc9a2f3d9d [svn r144] fixes lindquist parents: 139 diff changeset	142 srcpath = str;
ffcc9a2f3d9d [svn r144] fixes lindquist parents: 139 diff changeset	143 }
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	144 vals[4] = DtoConstStringPtr(srcpath.c_str(), "llvm.metadata");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	145 vals[5] = DtoConstStringPtr("LLVMDC (http://www.dsource.org/projects/llvmdc)", "llvm.metadata");
139 0ab29b838084 [svn r143] Fixed: a few bugs in debug information, still only line info, but should be correct files now :) lindquist parents: 136 diff changeset	146
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	147 LLGlobalVariable* gv = emitDwarfGlobal(getDwarfCompileUnitType(), vals, "llvm.dbg.compile_unit");
173 db9890b3fb64 [svn r189] moving IR data back into DMD frontend nodes ChristianK parents: 156 diff changeset	148 m->ir.irModule->dwarfCompileUnit = gv;
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	149 return gv;
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	150 }
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	151
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	152 //////////////////////////////////////////////////////////////////////////////////////////////////
d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	153
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	154 static LLGlobalVariable* dwarfSubProgram(FuncDeclaration* fd, llvm::GlobalVariable* compileUnit)
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	155 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	156 std::vector<LLConstant*> vals(11);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	157 vals[0] = DBG_TAG(DW_TAG_subprogram);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	158 vals[1] = DBG_CAST(getDwarfAnchor(DW_TAG_subprogram));
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	159
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	160 vals[2] = DBG_CAST(compileUnit);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	161 vals[3] = DtoConstStringPtr(fd->toPrettyChars(), "llvm.metadata");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	162 vals[4] = vals[3];
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	163 vals[5] = DtoConstStringPtr(fd->mangle(), "llvm.metadata");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	164 vals[6] = DBG_CAST( DtoDwarfCompileUnit(fd->getModule()) );
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	165 vals[7] = DtoConstUint(fd->loc.linnum);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	166 vals[8] = DBG_NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	167 vals[9] = DtoConstBool(fd->protection == PROTprivate);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	168 vals[10] = DtoConstBool(fd->getModule() == gIR->dmodule);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	169
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	170 Logger::println("emitting subprogram global");
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	171
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	172 return emitDwarfGlobal(getDwarfSubProgramType(), vals, "llvm.dbg.subprogram");
82 d8dd47ef3973 [svn r86] Changed the way arguments are given storage. It is now detected if they will need it during semantic passes. lindquist parents: diff changeset	173 }
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	174
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	175 //////////////////////////////////////////////////////////////////////////////////////////////////
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	176
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	177 static LLGlobalVariable* dwarfTypeDescription_impl(Type* type, LLGlobalVariable* cu, const char* c_name);
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	178 static LLGlobalVariable* dwarfTypeDescription(Type* type, LLGlobalVariable* cu, const char* c_name);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	179
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	180 //////////////////////////////////////////////////////////////////////////////////////////////////
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	181
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	182 static LLGlobalVariable* dwarfBasicType(Type* type, llvm::GlobalVariable* compileUnit)
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	183 {
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	184 Type* t = type->toBasetype();
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	185
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	186 const LLType* T = DtoType(type);
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	187
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	188 std::vector<LLConstant*> vals(10);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	189
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	190 // tag
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	191 vals[0] = DBG_TAG(DW_TAG_base_type);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	192
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	193 // context
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	194 vals[1] = DBG_CAST(compileUnit);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	195
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	196 // name
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	197 vals[2] = DtoConstStringPtr(type->toChars(), "llvm.metadata");
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	198
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	199 // compile unit where defined
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	200 vals[3] = DBG_NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	201
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	202 // line number where defined
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	203 vals[4] = DtoConstInt(0);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	204
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	205 // size in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	206 vals[5] = LLConstantInt::get(LLType::Int64Ty, getTypeBitSize(T), false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	207
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	208 // alignment in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	209 vals[6] = LLConstantInt::get(LLType::Int64Ty, getABITypeAlign(T)*8, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	210
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	211 // offset in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	212 vals[7] = LLConstantInt::get(LLType::Int64Ty, 0, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	213
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	214 // FIXME: dont know what this is
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	215 vals[8] = DtoConstUint(0);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	216
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	217 // dwarf type
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	218 unsigned id;
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	219 if (t->isintegral())
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	220 {
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	221 if (type->isunsigned())
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	222 id = DW_ATE_unsigned;
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	223 else
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	224 id = DW_ATE_signed;
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	225 }
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	226 else if (t->isfloating())
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	227 {
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	228 id = DW_ATE_float;
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	229 }
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	230 else
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	231 {
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	232 assert(0 && "unsupported basictype for debug info");
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	233 }
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	234 vals[9] = DtoConstUint(id);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	235
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	236 return emitDwarfGlobal(getDwarfBasicTypeType(), vals, "llvm.dbg.basictype");
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	237 }
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	238
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	239 //////////////////////////////////////////////////////////////////////////////////////////////////
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	240
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	241 static LLGlobalVariable* dwarfDerivedType(Type* type, llvm::GlobalVariable* compileUnit)
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	242 {
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	243 const LLType* T = DtoType(type);
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	244 Type* t = DtoDType(type);
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	245
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	246 // defaults
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	247 LLConstant* name = getNullPtr(getVoidPtrType());
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	248
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	249 // find tag
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	250 unsigned tag;
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	251 if (t->ty == Tpointer)
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	252 {
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	253 tag = DW_TAG_pointer_type;
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	254 }
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	255 else
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	256 {
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	257 assert(0 && "unsupported derivedtype for debug info");
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	258 }
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	259
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	260 std::vector<LLConstant*> vals(10);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	261
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	262 // tag
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	263 vals[0] = DBG_TAG(tag);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	264
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	265 // context
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	266 vals[1] = DBG_CAST(compileUnit);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	267
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	268 // name
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	269 vals[2] = name;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	270
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	271 // compile unit where defined
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	272 vals[3] = DBG_NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	273
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	274 // line number where defined
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	275 vals[4] = DtoConstInt(0);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	276
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	277 // size in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	278 vals[5] = LLConstantInt::get(LLType::Int64Ty, getTypeBitSize(T), false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	279
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	280 // alignment in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	281 vals[6] = LLConstantInt::get(LLType::Int64Ty, getABITypeAlign(T)*8, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	282
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	283 // offset in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	284 vals[7] = LLConstantInt::get(LLType::Int64Ty, 0, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	285
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	286 // FIXME: dont know what this is
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	287 vals[8] = DtoConstUint(0);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	288
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	289 // base type
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	290 Type* nt = t->nextOf();
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	291 LLGlobalVariable* nTD = dwarfTypeDescription_impl(nt, compileUnit, NULL);
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	292 if (nt->ty == Tvoid \|\| !nTD)
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	293 vals[9] = DBG_NULL;
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	294 else
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	295 vals[9] = DBG_CAST(nTD);
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	296
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	297 return emitDwarfGlobal(getDwarfDerivedTypeType(), vals, "llvm.dbg.derivedtype");
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	298 }
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	299
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	300 //////////////////////////////////////////////////////////////////////////////////////////////////
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	301
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	302 static LLGlobalVariable* dwarfMemberType(unsigned linnum, Type* type, LLGlobalVariable* compileUnit, LLGlobalVariable* definedCU, const char* c_name, unsigned offset)
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	303 {
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	304 const LLType* T = DtoType(type);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	305 Type* t = DtoDType(type);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	306
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	307 // defaults
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	308 LLConstant* name;
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	309 if (c_name)
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	310 name = DtoConstStringPtr(c_name, "llvm.metadata");
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	311 else
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	312 name = getNullPtr(getVoidPtrType());
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	313
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	314 std::vector<LLConstant*> vals(10);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	315
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	316 // tag
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	317 vals[0] = DBG_TAG(DW_TAG_member);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	318
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	319 // context
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	320 vals[1] = DBG_CAST(compileUnit);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	321
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	322 // name
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	323 vals[2] = name;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	324
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	325 // compile unit where defined
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	326 if (definedCU)
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	327 vals[3] = DBG_CAST(definedCU);
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	328 else
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	329 vals[3] = DBG_NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	330
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	331 // line number where defined
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	332 vals[4] = DtoConstInt(linnum);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	333
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	334 // size in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	335 vals[5] = LLConstantInt::get(LLType::Int64Ty, getTypeBitSize(T), false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	336
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	337 // alignment in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	338 vals[6] = LLConstantInt::get(LLType::Int64Ty, getABITypeAlign(T)*8, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	339
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	340 // offset in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	341 vals[7] = LLConstantInt::get(LLType::Int64Ty, offset*8, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	342
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	343 // FIXME: dont know what this is
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	344 vals[8] = DtoConstUint(0);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	345
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	346 // base type
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	347 LLGlobalVariable* nTD = dwarfTypeDescription(t, compileUnit, NULL);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	348 if (t->ty == Tvoid \|\| !nTD)
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	349 vals[9] = DBG_NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	350 else
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	351 vals[9] = DBG_CAST(nTD);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	352
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	353 return emitDwarfGlobal(getDwarfDerivedTypeType(), vals, "llvm.dbg.derivedtype");
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	354 }
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	355
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	356 //////////////////////////////////////////////////////////////////////////////////////////////////
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	357
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	358 static LLGlobalVariable* dwarfCompositeType(Type* type, llvm::GlobalVariable* compileUnit)
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	359 {
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	360 const LLType* T = DtoType(type);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	361 Type* t = DtoDType(type);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	362
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	363 // defaults
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	364 LLConstant* name = getNullPtr(getVoidPtrType());
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	365 LLGlobalVariable* members = NULL;
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	366 unsigned linnum = 0;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	367 LLGlobalVariable* definedCU = NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	368
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	369 // prepare tag and members
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	370 unsigned tag;
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	371
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	372 // declare final global variable
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	373 LLGlobalVariable* gv = NULL;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	374
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	375 // dynamic array
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	376 if (t->ty == Tarray)
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	377 {
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	378 tag = DW_TAG_structure_type;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	379
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	380 LLGlobalVariable* len = dwarfMemberType(0, Type::tsize_t, compileUnit, NULL, "length", 0);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	381 assert(len);
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	382 LLGlobalVariable* ptr = dwarfMemberType(0, t->nextOf()->pointerTo(), compileUnit, NULL, "ptr", global.params.is64bit?8:4);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	383 assert(ptr);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	384
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	385 const LLArrayType* at = LLArrayType::get(DBG_TYPE, 2);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	386
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	387 std::vector<LLConstant*> elems(2);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	388 elems[0] = DBG_CAST(len);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	389 elems[1] = DBG_CAST(ptr);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	390
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	391 LLConstant* ca = LLConstantArray::get(at, elems);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	392 members = new LLGlobalVariable(ca->getType(), true, LLGlobalValue::InternalLinkage, ca, ".array", gIR->module);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	393 members->setSection("llvm.metadata");
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	394
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	395 name = DtoConstStringPtr(t->toChars(), "llvm.metadata");
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	396 }
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	397
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	398 // struct/class
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	399 else if (t->ty == Tstruct \|\| t->ty == Tclass)
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	400 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	401 AggregateDeclaration* sd;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	402 if (t->ty == Tstruct)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	403 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	404 TypeStruct* ts = (TypeStruct*)t;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	405 sd = ts->sym;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	406 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	407 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	408 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	409 TypeClass* tc = (TypeClass*)t;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	410 sd = tc->sym;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	411 }
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	412 assert(sd);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	413
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	414 IrStruct* ir = sd->ir.irStruct;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	415 assert(ir);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	416 if (ir->dwarfComposite)
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	417 return ir->dwarfComposite;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	418
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	419 // set to handle recursive types properly
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	420 gv = emitDwarfGlobalDecl(getDwarfCompositeTypeType(), "llvm.dbg.compositetype");
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	421 ir->dwarfComposite = gv;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	422
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	423 tag = DW_TAG_structure_type;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	424
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	425 name = DtoConstStringPtr(sd->toChars(), "llvm.metadata");
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	426 linnum = sd->loc.linnum;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	427 definedCU = DtoDwarfCompileUnit(sd->getModule());
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	428
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	429 std::vector<LLConstant*> elems;
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	430 elems.reserve(ir->offsets.size());
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	431 for (IrStruct::OffsetMap::iterator i=ir->offsets.begin(); i!=ir->offsets.end(); ++i)
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	432 {
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	433 unsigned offset = i->first;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	434 IrStruct::Offset& o = i->second;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	435
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	436 LLGlobalVariable* ptr = dwarfMemberType(o.var->loc.linnum, o.var->type, compileUnit, definedCU, o.var->toChars(), offset);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	437 elems.push_back(DBG_CAST(ptr));
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	438 }
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	439
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	440 const LLArrayType* at = LLArrayType::get(DBG_TYPE, elems.size());
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	441 LLConstant* ca = LLConstantArray::get(at, elems);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	442 members = new LLGlobalVariable(ca->getType(), true, LLGlobalValue::InternalLinkage, ca, ".array", gIR->module);
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	443 members->setSection("llvm.metadata");
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	444 }
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	445
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	446 // unsupported composite type
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	447 else
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	448 {
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	449 assert(0 && "unsupported compositetype for debug info");
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	450 }
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	451
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	452 std::vector<LLConstant*> vals(11);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	453
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	454 // tag
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	455 vals[0] = DBG_TAG(tag);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	456
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	457 // context
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	458 vals[1] = DBG_CAST(compileUnit);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	459
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	460 // name
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	461 vals[2] = name;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	462
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	463 // compile unit where defined
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	464 if (definedCU)
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	465 vals[3] = DBG_CAST(definedCU);
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	466 else
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	467 vals[3] = DBG_NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	468
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	469 // line number where defined
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	470 vals[4] = DtoConstInt(linnum);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	471
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	472 // size in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	473 vals[5] = LLConstantInt::get(LLType::Int64Ty, getTypeBitSize(T), false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	474
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	475 // alignment in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	476 vals[6] = LLConstantInt::get(LLType::Int64Ty, getABITypeAlign(T)*8, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	477
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	478 // offset in bits
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	479 vals[7] = LLConstantInt::get(LLType::Int64Ty, 0, false);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	480
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	481 // FIXME: dont know what this is
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	482 vals[8] = DtoConstUint(0);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	483
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	484 // FIXME: ditto
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	485 vals[9] = DBG_NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	486
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	487 // members array
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	488 if (members)
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	489 vals[10] = DBG_CAST(members);
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	490 else
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	491 vals[10] = DBG_NULL;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	492
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	493 // set initializer
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	494 if (!gv)
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	495 gv = emitDwarfGlobalDecl(getDwarfCompositeTypeType(), "llvm.dbg.compositetype");
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	496 LLConstant* initia = LLConstantStruct::get(getDwarfCompositeTypeType(), vals);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	497 gv->setInitializer(initia);
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	498
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	499 return gv;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	500 }
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	501
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	502 //////////////////////////////////////////////////////////////////////////////////////////////////
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	503
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	504 static LLGlobalVariable* dwarfGlobalVariable(LLGlobalVariable* ll, VarDeclaration* vd)
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	505 {
56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	506 assert(vd->isDataseg());
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	507 LLGlobalVariable* compileUnit = DtoDwarfCompileUnit(gIR->dmodule);
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	508
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	509 std::vector<LLConstant*> vals(12);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	510 vals[0] = DBG_TAG(DW_TAG_variable);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	511 vals[1] = DBG_CAST(getDwarfAnchor(DW_TAG_variable));
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	512
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	513 vals[2] = DBG_CAST(compileUnit);
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	514
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	515 vals[3] = DtoConstStringPtr(vd->mangle(), "llvm.metadata");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	516 vals[4] = DtoConstStringPtr(vd->toPrettyChars(), "llvm.metadata");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	517 vals[5] = DtoConstStringPtr(vd->toChars(), "llvm.metadata");
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	518
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	519 vals[6] = DBG_CAST(DtoDwarfCompileUnit(vd->getModule()));
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	520 vals[7] = DtoConstUint(vd->loc.linnum);
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	521
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	522 LLGlobalVariable* TY = dwarfTypeDescription_impl(vd->type, compileUnit, NULL);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	523 vals[8] = TY ? DBG_CAST(TY) : DBG_NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	524 vals[9] = DtoConstBool(vd->protection == PROTprivate);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	525 vals[10] = DtoConstBool(vd->getModule() == gIR->dmodule);
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	526
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	527 vals[11] = DBG_CAST(ll);
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	528
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	529 return emitDwarfGlobal(getDwarfGlobalVariableType(), vals, "llvm.dbg.global_variable");
247 56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	530 }
56199753e637 [svn r264] Fixed debug info for global variables. lindquist parents: 246 diff changeset	531
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	532 //////////////////////////////////////////////////////////////////////////////////////////////////
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	533
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	534 static LLGlobalVariable* dwarfVariable(VarDeclaration* vd, LLGlobalVariable* typeDescr)
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	535 {
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	536 assert(!vd->isDataseg() && "static variable");
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	537
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	538 unsigned tag;
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	539 if (vd->isParameter())
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	540 tag = DW_TAG_arg_variable;
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	541 else
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	542 tag = DW_TAG_auto_variable;
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	543
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	544 std::vector<LLConstant*> vals(6);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	545 // tag
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	546 vals[0] = DBG_TAG(tag);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	547 // context
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	548 vals[1] = DBG_CAST(gIR->func()->dwarfSubProg);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	549 // name
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	550 vals[2] = DtoConstStringPtr(vd->toChars(), "llvm.metadata");
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	551 // compile unit where defined
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	552 vals[3] = DBG_CAST(DtoDwarfCompileUnit(vd->getModule()));
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	553 // line number where defined
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	554 vals[4] = DtoConstUint(vd->loc.linnum);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	555 // type descriptor
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	556 vals[5] = DBG_CAST(typeDescr);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	557
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	558 return emitDwarfGlobal(getDwarfVariableType(), vals, "llvm.dbg.variable");
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	559 }
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	560
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	561 //////////////////////////////////////////////////////////////////////////////////////////////////
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	562
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	563 static void dwarfDeclare(LLValue* var, LLGlobalVariable* varDescr)
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	564 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	565 LLSmallVector<LLValue*,2> args(2);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	566 args[0] = DtoBitCast(var, DBG_TYPE);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	567 args[1] = DBG_CAST(varDescr);
244 a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	568 gIR->ir->CreateCall(gIR->module->getFunction("llvm.dbg.declare"), args.begin(), args.end());
a95056b3c996 [svn r261] Fixed debug info for integer and floating local variables, can now be inspected in GDB. lindquist parents: 217 diff changeset	569 }
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	570
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	571 //////////////////////////////////////////////////////////////////////////////////////////////////
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	572
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	573 static LLGlobalVariable* dwarfTypeDescription_impl(Type* type, LLGlobalVariable* cu, const char* c_name)
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	574 {
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	575 Type* t = type->toBasetype();
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	576 if (t->ty == Tvoid)
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	577 return NULL;
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	578 else if (t->isintegral() \|\| t->isfloating())
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	579 return dwarfBasicType(type, cu);
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	580 else if (t->ty == Tpointer)
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	581 return dwarfDerivedType(type, cu);
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	582 else if (t->ty == Tarray \|\| t->ty == Tstruct \|\| t->ty == Tclass)
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	583 return dwarfCompositeType(type, cu);
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	584
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	585 return NULL;
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	586 }
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	587
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	588 static LLGlobalVariable* dwarfTypeDescription(Type* type, LLGlobalVariable* cu, const char* c_name)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	589 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	590 Type* t = type->toBasetype();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	591 if (t->ty == Tclass)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	592 return dwarfTypeDescription_impl(type->pointerTo(), cu, c_name);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	593 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	594 return dwarfTypeDescription_impl(type, cu, c_name);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	595 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	596
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	597 //////////////////////////////////////////////////////////////////////////////////////////////////
b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	598
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	599 void DtoDwarfLocalVariable(LLValue* ll, VarDeclaration* vd)
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	600 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	601 Logger::println("D to dwarf local variable");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	602 LOG_SCOPE;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	603
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	604 // get compile units
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	605 LLGlobalVariable* thisCU = DtoDwarfCompileUnit(gIR->dmodule);
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	606 LLGlobalVariable* varCU = thisCU;
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	607 if (vd->getModule() != gIR->dmodule)
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	608 varCU = DtoDwarfCompileUnit(vd->getModule());
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	609
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	610 // get type description
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	611 Type* t = vd->type->toBasetype();
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 250 diff changeset	612 LLGlobalVariable* TD = dwarfTypeDescription(vd->type, thisCU, NULL);
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	613 if (TD == NULL)
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	614 return; // unsupported
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	615
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	616 // get variable description
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	617 LLGlobalVariable* VD;
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	618 VD = dwarfVariable(vd, TD);
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	619
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	620 // declare
246 b604c56945b0 [svn r263] Changed * ATTENTION * to warnings. lindquist parents: 245 diff changeset	621 dwarfDeclare(ll, VD);
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	622 }
d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	623
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	624 //////////////////////////////////////////////////////////////////////////////////////////////////
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	625
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	626 LLGlobalVariable* DtoDwarfCompileUnit(Module* m)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	627 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	628 Logger::println("D to dwarf compile_unit");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	629 LOG_SCOPE;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	630
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	631 // we might be generating for an import
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	632 if (!m->ir.irModule)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	633 m->ir.irModule = new IrModule(m);
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	634 else if (m->ir.irModule->dwarfCompileUnit)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	635 {
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	636 if (m->ir.irModule->dwarfCompileUnit->getParent() == gIR->module)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	637 return m->ir.irModule->dwarfCompileUnit;
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	638 }
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	639
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	640 LLGlobalVariable* gv = dwarfCompileUnit(m);
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	641 m->ir.irModule->dwarfCompileUnit = gv;
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	642 return gv;
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	643 }
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	644
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	645 //////////////////////////////////////////////////////////////////////////////////////////////////
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	646
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	647 LLGlobalVariable* DtoDwarfSubProgram(FuncDeclaration* fd)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	648 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	649 Logger::println("D to dwarf subprogram");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	650 LOG_SCOPE;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	651
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	652 // FIXME: duplicates ?
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	653 return dwarfSubProgram(fd, DtoDwarfCompileUnit(gIR->dmodule));
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	654 }
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	655
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	656 //////////////////////////////////////////////////////////////////////////////////////////////////
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	657
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	658 LLGlobalVariable* DtoDwarfGlobalVariable(LLGlobalVariable* ll, VarDeclaration* vd)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	659 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	660 Logger::println("D to dwarf global_variable");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	661 LOG_SCOPE;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	662
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	663 // FIXME: duplicates ?
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	664 return dwarfGlobalVariable(ll, vd);
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	665 }
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	666
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	667 //////////////////////////////////////////////////////////////////////////////////////////////////
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	668
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	669 void DtoDwarfFuncStart(FuncDeclaration* fd)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	670 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	671 Logger::println("D to dwarf funcstart");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	672 LOG_SCOPE;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	673
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	674 assert(fd->ir.irFunc->dwarfSubProg);
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	675 gIR->ir->CreateCall(gIR->module->getFunction("llvm.dbg.func.start"), DBG_CAST(fd->ir.irFunc->dwarfSubProg));
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	676 }
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	677
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	678 //////////////////////////////////////////////////////////////////////////////////////////////////
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	679
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	680 void DtoDwarfFuncEnd(FuncDeclaration* fd)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	681 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	682 Logger::println("D to dwarf funcend");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	683 LOG_SCOPE;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	684
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	685 assert(fd->ir.irFunc->dwarfSubProg);
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	686 gIR->ir->CreateCall(gIR->module->getFunction("llvm.dbg.region.end"), DBG_CAST(fd->ir.irFunc->dwarfSubProg));
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	687 }
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	688
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	689 //////////////////////////////////////////////////////////////////////////////////////////////////
245 d61ce72c39ab [svn r262] Fixed debug info for normal function parameters. lindquist parents: 244 diff changeset	690
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	691 void DtoDwarfStopPoint(unsigned ln)
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	692 {
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	693 Logger::println("D to dwarf stoppoint at line %u", ln);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	694 LOG_SCOPE;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	695
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	696 LLSmallVector<LLValue*,3> args(3);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	697 args[0] = DtoConstUint(ln);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	698 args[1] = DtoConstUint(0);
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	699 FuncDeclaration* fd = gIR->func()->decl;
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 252 diff changeset	700 args[2] = DBG_CAST(DtoDwarfCompileUnit(fd->getModule()));
250 fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	701 gIR->ir->CreateCall(gIR->module->getFunction("llvm.dbg.stoppoint"), args.begin(), args.end());
fc9c1a0eabbd [svn r267] Fixed debug info for global variables. lindquist parents: 247 diff changeset	702 }

Mercurial > projects > ldc

annotate gen/todebug.cpp @ 270:d9d5d59873d8 trunk