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

+ support for dwarf parameter symbols

Browse Source 
git-svn-id: trunk@2397 -
This commit is contained in:
florian 2006-02-01 22:44:19 +00:00
parent 4b078de51e
commit c0f80338ab
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/dbgdwarf.pas
View File

@ -1184,6 +1184,7 @@ implementation
templist : taasmoutput;
blocksize : longint;
regidx : longint;
tag : tdwarf_tag;
begin
{ external symbols can't be resolved at link time, so we
can't generate stabs for them
@ -1243,7 +1244,13 @@ implementation
end;
end;
end;
append_entry(DW_TAG_variable,false,[
if sym.typ=paravarsym then
tag:=DW_TAG_formal_parameter
else
tag:=DW_TAG_variable;
append_entry(tag,false,[
DW_AT_name,DW_FORM_string,sym.name+#0,
{
DW_AT_decl_file,DW_FORM_data1,0,
@ -1263,11 +1270,7 @@ implementation
end;
function paravarsym_stabstr(sym:tparavarsym):Pchar;
var
st : string;
regidx : Tregisterindex;
c : char;
procedure paravarsym_stabstr(sym:tparavarsym);
begin
{
result:=nil;
@ -1430,16 +1433,10 @@ implementation
can have more than one label associated e.g. in case of
an inline procedure expansion }
;
{
fieldvarsym :
stabstr:=fieldvarsym_stabstr(tfieldvarsym(sym));
}
localvarsym :
append_varsym(tlocalvarsym(sym));
{
paravarsym :
stabstr:=paravarsym_stabstr(tparavarsym(sym));
}
append_varsym(tparavarsym(sym));
typedconstsym :
begin
append_entry(DW_TAG_variable,false,[