paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 05:21:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: PascalParser, missing nil check

Browse Source
This commit is contained in:
Martin 2024-10-08 11:48:31 +02:00
parent 8f683d316c
commit 7e274a48e7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fppascalparser.pas
View File

@ -5990,6 +5990,7 @@ begin
end;
tmp := Items[0].ResultValue;
if (tmp = nil) then exit;
ff := tmp.FieldFlags;
if (ff * [svfBoolean] <> []) then b := tmp.AsBool
else if (ff * [svfCardinal, svfOrdinal] <> []) then b := tmp.AsCardinal <> 0