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

IdeDebugger: fix display enum watches with out of range value.

Browse Source
This commit is contained in:
Martin 2024-04-26 11:54:27 +02:00
parent c4d26f3da9
commit f874fee43d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/packages/idedebugger/idedebuggerwatchresprinter.pas
View File

@ -864,6 +864,12 @@ function TWatchResultPrinter.PrintWatchValueEx(AResValue: TWatchResultData;
s := '';
if Resolved.Enum.MainFormat <> vdfEnumOrd then begin
Result := AResValue.AsString;
if Result = '' then begin
Result := AResValue.TypeName;
if Result <> ''
then Result := Result + '(' + IntToStr(AResValue.AsInt64) + ')'
else Result := IntToStr(AResValue.AsInt64);
end;
s := ' = ';
end;