paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 13:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix range check error with enum values (negative ord value). Issue #41240

Browse Source 
(cherry picked from commit d93235de52)
This commit is contained in:
Martin 2024-11-17 13:15:26 +01:00
parent 9512487328
commit bcd6d2ced6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarf.pas
View File

@ -3126,7 +3126,7 @@ end;
function TFpValueDwarfEnumMember.GetAsCardinal: QWord;
begin
Result := FOwnerVal.OrdinalValue;
Result := QWord(FOwnerVal.OrdinalValue);
end;
function TFpValueDwarfEnumMember.GetAsInteger: Int64;