--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gen/todebug.c	Fri Nov 02 01:17:26 2007 +0100
@@ -0,0 +1,183 @@
+#include "gen/llvm.h"
+#include "llvm/Support/Dwarf.h"
+#include "llvm/CodeGen/MachineModuleInfo.h"
+
+#include "declaration.h"
+#include "module.h"
+#include "mars.h"
+
+#include "gen/todebug.h"
+#include "gen/irstate.h"
+#include "gen/tollvm.h"
+#include "gen/logger.h"
+
+using namespace llvm::dwarf;
+
+static const llvm::PointerType* ptrTy(const llvm::Type* t)
+{
+    return llvm::PointerType::get(t);
+}
+
+static const llvm::PointerType* dbgArrTy()
+{
+    std::vector<const llvm::Type*> t;
+    return ptrTy(llvm::StructType::get(t));
+}
+
+static llvm::Constant* dbgToArrTy(llvm::Constant* c)
+{
+    Logger::cout() << "casting: " << *c << '\n';
+    return llvm::ConstantExpr::getBitCast(c, dbgArrTy());
+}
+
+#define Ty(X) llvm::Type::X
+
+//////////////////////////////////////////////////////////////////////////////////////////////////
+
+static llvm::GlobalVariable* dbg_compile_units = 0;
+static llvm::GlobalVariable* dbg_global_variables = 0;
+static llvm::GlobalVariable* dbg_subprograms = 0;
+
+const llvm::StructType* GetDwarfAnchorType()
+{
+    /*
+    %llvm.dbg.anchor.type = type {
+        uint,   ;; Tag = 0 + LLVMDebugVersion
+        uint    ;; Tag of descriptors grouped by the anchor
+    }
+    */
+    std::vector<const llvm::Type*> elems(2, Ty(Int32Ty));
+    const llvm::StructType* t = llvm::cast<llvm::StructType>(gIR->module->getTypeByName("llvm.dbg.anchor.type"));
+
+    /*
+    %llvm.dbg.compile_units       = linkonce constant %llvm.dbg.anchor.type  { uint 0, uint 17 } ;; DW_TAG_compile_unit
+    %llvm.dbg.global_variables    = linkonce constant %llvm.dbg.anchor.type  { uint 0, uint 52 } ;; DW_TAG_variable
+    %llvm.dbg.subprograms         = linkonce constant %llvm.dbg.anchor.type  { uint 0, uint 46 } ;; DW_TAG_subprogram
+    */
+    if (!gIR->module->getNamedGlobal("llvm.dbg.compile_units")) {
+        std::vector<llvm::Constant*> vals;
+        vals.push_back(DtoConstUint(0));
+        vals.push_back(DtoConstUint(DW_TAG_compile_unit));
+        llvm::Constant* i = llvm::ConstantStruct::get(t, vals);
+        dbg_compile_units = new llvm::GlobalVariable(t,true,llvm::GlobalValue::LinkOnceLinkage,i,"llvm.dbg.compile_units",gIR->module);
+        dbg_compile_units->setSection("llvm.metadata");
+    }
+    if (!gIR->module->getNamedGlobal("llvm.dbg.global_variables")) {
+        std::vector<llvm::Constant*> vals;
+        vals.push_back(DtoConstUint(0));
+        vals.push_back(DtoConstUint(DW_TAG_variable));
+        llvm::Constant* i = llvm::ConstantStruct::get(t, vals);
+        dbg_global_variables = new llvm::GlobalVariable(t,true,llvm::GlobalValue::LinkOnceLinkage,i,"llvm.dbg.global_variables",gIR->module);
+        dbg_global_variables->setSection("llvm.metadata");
+    }
+    if (!gIR->module->getNamedGlobal("llvm.dbg.subprograms")) {
+        std::vector<llvm::Constant*> vals;
+        vals.push_back(DtoConstUint(0));
+        vals.push_back(DtoConstUint(DW_TAG_subprogram));
+        llvm::Constant* i = llvm::ConstantStruct::get(t, vals);
+        dbg_subprograms = new llvm::GlobalVariable(t,true,llvm::GlobalValue::LinkOnceLinkage,i,"llvm.dbg.subprograms",gIR->module);
+        dbg_subprograms->setSection("llvm.metadata");
+    }
+
+    return t;
+}
+
+llvm::Constant* GetDwarfAnchor(llvm::dwarf::dwarf_constants c)
+{
+    GetDwarfAnchorType();
+    switch (c)
+    {
+    case DW_TAG_compile_unit:
+        return dbg_compile_units;
+    case DW_TAG_variable:
+        return dbg_global_variables;
+    case DW_TAG_subprogram:
+        return dbg_subprograms;
+    }
+    assert(0);
+    return 0;
+}
+
+//////////////////////////////////////////////////////////////////////////////////////////////////
+
+const llvm::StructType* GetDwarfCompileUnitType() {
+    return llvm::cast<llvm::StructType>(gIR->module->getTypeByName("llvm.dbg.compile_unit.type"));
+}
+
+const llvm::StructType* GetDwarfSubProgramType() {
+    return llvm::cast<llvm::StructType>(gIR->module->getTypeByName("llvm.dbg.subprogram.type"));
+}
+
+//////////////////////////////////////////////////////////////////////////////////////////////////
+
+llvm::GlobalVariable* DtoDwarfCompileUnit(Module* m)
+{
+    std::vector<llvm::Constant*> vals;
+    vals.push_back(llvm::ConstantExpr::getAdd(
+        DtoConstUint(DW_TAG_compile_unit),
+        DtoConstUint(llvm::LLVMDebugVersion)));
+    vals.push_back(dbgToArrTy(GetDwarfAnchor(DW_TAG_compile_unit)));
+
+    vals.push_back(DtoConstUint(DW_LANG_D));
+    vals.push_back(DtoConstStringPtr(m->srcfile->name->toChars(), "llvm.metadata"));
+    std::string srcpath(FileName::path(m->srcfile->name->toChars()));
+    srcpath.append("/");
+    vals.push_back(DtoConstStringPtr(srcpath.c_str(), "llvm.metadata"));
+    vals.push_back(DtoConstStringPtr("LLVMDC (http://www.dsource.org/projects/llvmdc)", "llvm.metadata"));
+
+    llvm::Constant* c = llvm::ConstantStruct::get(GetDwarfCompileUnitType(), vals);
+    llvm::GlobalVariable* gv = new llvm::GlobalVariable(c->getType(), true, llvm::GlobalValue::InternalLinkage, c, "llvm.dbg.compile_unit", gIR->module);
+    gv->setSection("llvm.metadata");
+    return gv;
+}
+
+//////////////////////////////////////////////////////////////////////////////////////////////////
+
+llvm::GlobalVariable* DtoDwarfSubProgram(FuncDeclaration* fd)
+{
+    std::vector<llvm::Constant*> vals;
+    vals.push_back(llvm::ConstantExpr::getAdd(
+        DtoConstUint(DW_TAG_subprogram),
+        DtoConstUint(llvm::LLVMDebugVersion)));
+    vals.push_back(dbgToArrTy(GetDwarfAnchor(DW_TAG_subprogram)));
+
+    vals.push_back(dbgToArrTy(gIR->dwarfCompileUnit));
+    vals.push_back(DtoConstStringPtr(fd->toPrettyChars(), "llvm.metadata"));
+    vals.push_back(DtoConstStringPtr(fd->mangle(), "llvm.metadata"));
+    vals.push_back(llvm::ConstantPointerNull::get(llvm::PointerType::get(llvm::Type::Int8Ty)));
+    vals.push_back(dbgToArrTy(gIR->dwarfCompileUnit));
+    vals.push_back(DtoConstUint(fd->loc.linnum));
+    vals.push_back(llvm::ConstantPointerNull::get(dbgArrTy()));
+    vals.push_back(DtoConstBool(fd->protection == PROTprivate));
+    vals.push_back(DtoConstBool(fd->getModule() == gIR->dmodule));
+
+    llvm::Constant* c = llvm::ConstantStruct::get(GetDwarfSubProgramType(), vals);
+    llvm::GlobalVariable* gv = new llvm::GlobalVariable(c->getType(), true, llvm::GlobalValue::InternalLinkage, c, "llvm.dbg.subprogram", gIR->module);
+    gv->setSection("llvm.metadata");
+    return gv;
+}
+
+//////////////////////////////////////////////////////////////////////////////////////////////////
+
+void DtoDwarfFuncStart(FuncDeclaration* fd)
+{
+    assert(fd->llvmDwarfSubProgram);
+    gIR->ir->CreateCall(gIR->module->getFunction("llvm.dbg.func.start"), dbgToArrTy(fd->llvmDwarfSubProgram));
+}
+
+void DtoDwarfFuncEnd(FuncDeclaration* fd)
+{
+    assert(fd->llvmDwarfSubProgram);
+    gIR->ir->CreateCall(gIR->module->getFunction("llvm.dbg.region.end"), dbgToArrTy(fd->llvmDwarfSubProgram));
+}
+
+//////////////////////////////////////////////////////////////////////////////////////////////////
+
+void DtoDwarfStopPoint(unsigned ln)
+{
+    std::vector<llvm::Value*> args;
+    args.push_back(DtoConstUint(ln));
+    args.push_back(DtoConstUint(0));
+    args.push_back(dbgToArrTy(gIR->dwarfCompileUnit));
+    gIR->ir->CreateCall(gIR->module->getFunction("llvm.dbg.stoppoint"), args.begin(), args.end());
+}