paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 16:20:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix nil deref crash in pascal parser.

Browse Source
This commit is contained in:
Martin 2023-03-22 11:02:10 +01:00
parent 73bbf37840
commit 0d507a4009
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fppascalparser.pas
View File

@ -5016,7 +5016,7 @@ end;
constructor TFpPasParserValueSlicedArray.Create(ASlice: TFpPascalExpressionPartOperatorArraySliceController);
begin
inherited Create(nil);
inherited Create(ASlice);
FArraySlice := ASlice;
FLowBoundIndex := TFpPasParserValueSlicedArrayIndex.Create('');
FLowBoundIndex.FLowBound := SlicePart.StartValue;