paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 05:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix crash on nil object

Browse Source
This commit is contained in:
Martin 2022-06-11 03:02:34 +02:00
parent 2495ef1923
commit 41cb28febf
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -1440,7 +1440,10 @@ begin
exit; exit;
GetDwarfDataAddress(Addr); 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); Addr := TargetLoc(TypeCastSourceValue.AsCardinal);
if not IsReadableLoc(Addr) then if not IsReadableLoc(Addr) then
exit; exit;