private void EmitDebugLineFileName(EndianAwareBinaryWriter wr, uint directoryIndex, string name)
{
wr.WriteNullTerminatedString(name);
wr.WriteULEB128(directoryIndex);
wr.WriteULEB128(DwarfConstants.NullFileTime);
wr.WriteULEB128(DwarfConstants.NullFileLength);
}
private void EmitDebugAbbrev(EndianAwareBinaryWriter wr)
{
foreach (var abbr in AbbrevList)
{
EmitDebugAbbrev(wr, abbr);
}
wr.WriteULEB128(DwarfConstants.NullTag);
}
private void EmitDebugAbbrev(EndianAwareBinaryWriter wr, DwarfAbbrev abbr)
{
wr.WriteULEB128(abbr.Number);
wr.WriteULEB128((uint)abbr.Tag);
wr.WriteByte(abbr.HasChildren ? DwarfConstants.DW_CHILDREN_yes : DwarfConstants.DW_CHILDREN_no);
foreach (var attr in abbr.Attributes)
{
wr.WriteULEB128((uint)attr.Attribute);
wr.WriteULEB128((uint)attr.Form);
}
wr.WriteULEB128(DwarfConstants.NullAttributeName);
wr.WriteULEB128(DwarfConstants.NullAttributeValue);
if (abbr.HasChildren)
{
foreach (var child in abbr.Children)
{
EmitDebugAbbrev(wr, child);
}
}
}
private void EmitDebugLineTypes(EndianAwareBinaryWriter wr)
{
uint line = 1;
uint file = 1;
foreach (var type in TypeSystem.AllTypes)
{
if (type.IsModule)
{
continue;
}
foreach (var method in type.Methods)
{
if (!method.HasImplementation)
{
continue;
}
var symbol = Linker.GetSymbol(method.FullName);
if (symbol == null)
{
continue;
}
if (symbol.VirtualAddress == 0)
{
continue;
}
var methodData = Compiler.CompilerData.GetMethodData(method);
if (methodData == null)
{
continue;
}
uint methodVirtAddr = (uint)symbol.VirtualAddress;
var locations = SourceRegions.GetSourceRegions(methodData);
if (locations.Count == 0)
{
continue;
}
var pc = methodVirtAddr + (uint)locations[0].Address;
wr.WriteByte(0); // signals an extended opcode
wr.WriteULEB128(0x05); // number of bytes after this used by the extended opcode (unsigned LEB128 encoded)
wr.Write((byte)DwarfExtendedOpcode.DW_LNE_set_address);
wr.Write(pc);
foreach (var loc in locations)
{
uint newPc = methodVirtAddr + (uint)loc.Address;
uint pcDiff = newPc - pc;
int lineDiff = loc.StartLine - (int)line;
var newFile = FileHash[loc.Filename].FileNum;
if (newFile != file)
{
file = newFile;
wr.Write((byte)DwarfOpcodes.DW_LNS_set_file);
wr.WriteULEB128(file);
}
wr.Write((byte)DwarfOpcodes.DW_LNS_advance_pc);
wr.WriteSLEB128(pcDiff);
wr.Write((byte)DwarfOpcodes.DW_LNS_advance_line);
wr.WriteSLEB128(lineDiff);
wr.Write((byte)DwarfOpcodes.DW_LNS_set_column);
wr.WriteULEB128((uint)loc.StartColumn);
wr.Write((byte)DwarfOpcodes.DW_LNS_copy);
pc += pcDiff;
line = (uint)loc.StartLine;
}
}
}
}