paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 20:09:24 +01: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 var
BracketPart: TFpPascalExpressionPartBracket; BracketPart: TFpPascalExpressionPartBracket;
begin begin
if (CurPart=nil) then begin
SetError(fpErrPasParserUnexpectedToken, [GetFirstToken(CurPtr), PosFromPChar(CurPtr)]);
exit;
end;
BracketPart := CurPart.SurroundingBracket; BracketPart := CurPart.SurroundingBracket;
if BracketPart = nil then begin if BracketPart = nil then begin
SetError('Closing bracket found without opening') SetError('Closing bracket found without opening')
@ -1920,7 +1924,7 @@ var
procedure HandleComma; procedure HandleComma;
begin begin
if not CurPart.HandleSeparator(ppstComma) then if (CurPart=nil) or (not CurPart.HandleSeparator(ppstComma)) then
SetError(fpErrPasParserUnexpectedToken, [GetFirstToken(CurPtr), PosFromPChar(CurPtr)]); SetError(fpErrPasParserUnexpectedToken, [GetFirstToken(CurPtr), PosFromPChar(CurPtr)]);
end; end;