paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Fix ".." intrinsic, reset error from previous elements (deref nil sets error on Expression, rather than value)

Browse Source
This commit is contained in:
Martin 2023-09-03 14:44:39 +02:00
parent b38ca94a08
commit 81596aa0bf
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fppascalparser.pas
View File

@ -5191,6 +5191,12 @@ begin
if SlicePart.FCurrentIndex <> AIndex then begin
SlicePart.FCurrentIndex := AIndex;
FArraySlice.ResetEvaluationForIndex;
// Some evaluation errors (such as deref nil) are marked on the Expression,
// rather than on the value(s).
// If this code is called, the Expression should have been valid before.
FExpressionPart.Expression.FValid := True;
FExpressionPart.Expression.FError := nil;
end;
Result := FArraySlice.Items[0].ResultValue;