paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 10:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ debug info for register variables

Browse Source 
git-svn-id: trunk@2410 -
This commit is contained in:
florian 2006-02-02 21:47:18 +00:00
parent 94038b0d83
commit e1e611b86e
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/dbgdwarf.pas
View File

@ -25,6 +25,10 @@
Currently a lot of code looks like being mergable with dbgstabs. This might
change however when improved dwarf info is generated, so the stuff shouldn't be
merged yet. (FK)
The easiest way to debug dwarf debug info generation is the usage of
readelf --debug-dump <executable>
This works only with elf targets though.
}
unit dbgdwarf;
@ -1208,13 +1212,10 @@ implementation
LOC_FPUREGISTER,
LOC_CFPUREGISTER :
begin
{
regidx:=findreg_by_number(sym.localloc.register);
{ "eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi", "eip", "ps", "cs", "ss", "ds", "es", "fs", "gs", }
{ this is the register order for GDB}
if regidx<>0 then
result:=sym_stabstr_evaluate(sym,'"${name}:r$1",${N_RSYM},0,${line},$2',[st,tostr(regstabs_table[regidx])]);
}
templist.concat(tai_const.create_8bit(ord(DW_OP_regx)));
templist.concat(tai_const.create_uleb128bit(regdwarf_table[regidx]));
blocksize:=Lengthuleb128(regdwarf_table[regidx])+1;
end;
else
begin