paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: PascalParser fix nil object access.

Browse Source
This commit is contained in:
Martin 2022-06-09 01:54:31 +02:00
parent 1bc575aeff
commit f2cbe3d582
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fppascalparser.pas
View File

@ -1855,6 +1855,10 @@ var
var
BracketPart: TFpPascalExpressionPartBracket;
begin
if (CurPart=nil) then begin
SetError(fpErrPasParserUnexpectedToken, [GetFirstToken(CurPtr), PosFromPChar(CurPtr)]);
exit;
end;
BracketPart := CurPart.SurroundingBracket;
if BracketPart = nil then begin
SetError('Closing bracket found without opening')
@ -1920,7 +1924,7 @@ var
procedure HandleComma;
begin
if not CurPart.HandleSeparator(ppstComma) then
if (CurPart=nil) or (not CurPart.HandleSeparator(ppstComma)) then
SetError(fpErrPasParserUnexpectedToken, [GetFirstToken(CurPtr), PosFromPChar(CurPtr)]);
end;