paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-04 23:03:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

FPDebug: more dwarf types (enum)

Browse Source 
git-svn-id: trunk@43324 -
This commit is contained in:
martin 2013-10-26 19:28:25 +00:00
parent 43df650e1e
commit b674986c1a
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpdebug/fpdbgdwarf.pas
View File

@ -666,9 +666,11 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
procedure KindNeeded; override;
end;
TDbgDwarfIdentifierEnumElement = class(TDbgDwarfTypeIdentifier)
{ TDbgDwarfIdentifierEnumElement }
TDbgDwarfIdentifierEnumElement = class(TDbgDwarfValueIdentifier)
protected
//procedure KindNeeded; override;
procedure KindNeeded; override;
end;
@ -1280,6 +1282,13 @@ begin
end;
end;
{ TDbgDwarfIdentifierEnumElement }
procedure TDbgDwarfIdentifierEnumElement.KindNeeded;
begin
SetKind(skEnumValue);
end;
{ TDbgDwarfIdentifierSet }
procedure TDbgDwarfIdentifierSet.KindNeeded;