diff --git a/components/fpdebug/fpdbgdwarffreepascal.pas b/components/fpdebug/fpdbgdwarffreepascal.pas
index 2b5a89346b..486eb51bf0 100644
--- a/components/fpdebug/fpdbgdwarffreepascal.pas
+++ b/components/fpdebug/fpdbgdwarffreepascal.pas
@@ -1440,7 +1440,10 @@ begin
     exit;
 
   GetDwarfDataAddress(Addr);
-  if (not IsValidLoc(Addr)) and (svfOrdinal in TypeCastSourceValue.FieldFlags) then
+  if (not IsValidLoc(Addr)) and
+     (HasTypeCastInfo) and
+     (svfOrdinal in TypeCastSourceValue.FieldFlags)
+  then
     Addr := TargetLoc(TypeCastSourceValue.AsCardinal);
   if not IsReadableLoc(Addr) then
     exit;