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

* stabs info for this if in register

Browse Source 
git-svn-id: trunk@7127 -
This commit is contained in:
pierre 2007-04-17 23:09:51 +00:00
parent a7f5951cb0
commit d4ee12c000
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/dbgstabs.pas
View File

@ -1233,10 +1233,13 @@ implementation
begin
if (sym.localloc.loc=LOC_REFERENCE) then
result:=sym_stabstr_evaluate(sym,'"pvmt:p$1",${N_TSYM},0,0,$2',
[def_stab_number(pvmttype),tostr(sym.localloc.reference.offset)]);
(* else
result:=sym_stabstr_evaluate(sym,'"pvmt:r$1",${N_RSYM},0,0,$2',
[def_stab_number(pvmttype),tostr(regstabs_table[regidx])]) *)
[def_stab_number(pvmttype),tostr(sym.localloc.reference.offset)])
else
begin
regidx:=findreg_by_number(sym.localloc.register);
result:=sym_stabstr_evaluate(sym,'"pvmt:r$1",${N_RSYM},0,0,$2',
[def_stab_number(pvmttype),tostr(regstabs_table[regidx])]);
end
end
else
begin
@ -1246,10 +1249,13 @@ implementation
c:='p';
if (sym.localloc.loc=LOC_REFERENCE) then
result:=sym_stabstr_evaluate(sym,'"$$t:$1",${N_TSYM},0,0,$2',
[c+def_stab_number(tprocdef(sym.owner.defowner)._class),tostr(sym.localloc.reference.offset)]);
(* else
result:=sym_stabstr_evaluate(sym,'"$$t:r$1",${N_RSYM},0,0,$2',
[c+def_stab_number(tprocdef(sym.owner.defowner)._class),tostr(regstabs_table[regidx])]); *)
[c+def_stab_number(tprocdef(sym.owner.defowner)._class),tostr(sym.localloc.reference.offset)])
else
begin
regidx:=findreg_by_number(sym.localloc.register);
result:=sym_stabstr_evaluate(sym,'"$$t:r$1",${N_RSYM},0,0,$2',
[c+def_stab_number(tprocdef(sym.owner.defowner)._class),tostr(regstabs_table[regidx])]);
end
end;
end
else