From bcd6d2ced68a66a2c94152cde6b04e2335d7dbcc Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sun, 17 Nov 2024 13:15:26 +0100
Subject: [PATCH] FpDebug: fix range check error with enum values (negative ord
 value). Issue #41240

(cherry picked from commit d93235de52a779bdd7843c4eb7fe40884a93eb80)
---
 components/fpdebug/fpdbgdwarf.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpdebug/fpdbgdwarf.pas b/components/fpdebug/fpdbgdwarf.pas
index 82c20203f5..c4d7fe913b 100644
--- a/components/fpdebug/fpdbgdwarf.pas
+++ b/components/fpdebug/fpdbgdwarf.pas
@@ -3126,7 +3126,7 @@ end;
 
 function TFpValueDwarfEnumMember.GetAsCardinal: QWord;
 begin
-  Result := FOwnerVal.OrdinalValue;
+  Result := QWord(FOwnerVal.OrdinalValue);
 end;
 
 function TFpValueDwarfEnumMember.GetAsInteger: Int64;