paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 10:49:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix crash when evaluating enum "member". (The identifier representing one of the values of the enum)

Browse Source 
git-svn-id: trunk@61969 -
This commit is contained in:
martin 2019-10-03 18:38:13 +00:00
parent fa44aa0f0b
commit 1097debc48
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgdwarf.pas
View File

@ -324,6 +324,7 @@ type
function GetAsCardinal: QWord; override;
function GetAsString: AnsiString; override;
function IsValidTypeCast: Boolean; override;
function GetKind: TDbgSymbolKind; override;
public
constructor Create(AOwner: TFpSymbolDwarfData);
end;
@ -2181,6 +2182,11 @@ begin
Result := False;
end;
function TFpValueDwarfEnumMember.GetKind: TDbgSymbolKind;
begin
Result := skEnumValue;
end;
constructor TFpValueDwarfEnumMember.Create(AOwner: TFpSymbolDwarfData);
begin
FOwnerVal := AOwner;