paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 18:42:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix accessing nil pointer

Browse Source
This commit is contained in:
Martin 2022-08-05 12:44:10 +02:00
parent 683d087e36
commit dd22337fc3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgdwarf.pas
View File

@ -2614,8 +2614,10 @@ begin
if ti <> nil then begin if ti <> nil then begin
Result := ti.TypeCastValue(Tmp); Result := ti.TypeCastValue(Tmp);
Tmp.ReleaseReference; Tmp.ReleaseReference;
TFpValueDwarf(Result).SetStructureValue(Self); if Result <> nil then begin // TODO: maybe return "tmp" ??
TFpValueDwarf(Result).Context := Context; TFpValueDwarf(Result).SetStructureValue(Self);
TFpValueDwarf(Result).Context := Context;
end;
end end
else begin else begin
Result := Tmp; Result := Tmp;