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

FpDebug: fix crash with cached flatten data. Prevent caching any array slice, as it needs access to the expression.

Browse Source 
(cherry picked from commit 4de7b7574a)
This commit is contained in:
Martin 2024-10-09 08:49:19 +02:00
parent db38137c63
commit 82f0349829
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fppascalparser.pas
View File

@ -3003,6 +3003,7 @@ var
MaxCnt, ExpandArrayDepth: integer;
TpSym: TFpSymbol;
CacheKey: TFpPascalExpressionCacheFlattenKey;
SkipCache: Boolean;
function FlattenRecurse(ACurrentVal: TFpValue; ACurDepth: integer; ACurKey: String): boolean; forward;
@ -3014,6 +3015,8 @@ var
TmpVal: TFpValueConstStruct;
TmpVal2: TFpValue;
begin
if ACurrentVal is TFpPasParserValueSlicedArray then
SkipCache := True;
if iffObj1 in Flags then begin
TmpVal := TFpValueConstStruct.Create;
TmpVal2 := TFpValueConstNumber.Create(ACurDepth, False);
@ -3396,7 +3399,7 @@ var
OptSet: TFpPascalExpressionPartBracketSet absolute LastParam;
i: Integer;
OName: String;
OVal, CustomMaxCnt, LastParamNeg, SkipCache: Boolean;
OVal, CustomMaxCnt, LastParamNeg: Boolean;
PParent: TFpPascalExpressionPartContainer;
ListCache: TFpPascalExpressionCacheFlatten;
begin