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

FpDebug: Fix PascalParser.ResetEvaluation

Browse Source
This commit is contained in:
Martin 2022-04-07 02:23:36 +02:00
parent 1c70c5f1f8
commit ca8c6a84e2
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/fpdebug/fppascalparser.pas
View File

@ -132,7 +132,7 @@ type
procedure Init; virtual;
function DoGetIsTypeCast: Boolean; virtual; deprecated;
function DoGetResultValue: TFpValue; virtual;
procedure ResetEvaluation;
procedure ResetEvaluation; virtual;
Procedure ReplaceInParent(AReplacement: TFpPascalExpressionPart);
procedure DoHandleEndOfExpression; virtual;
@ -175,6 +175,7 @@ type
procedure SetLastItem(AValue: TFpPascalExpressionPart);
protected
procedure Init; override;
procedure ResetEvaluation; override;
function DebugDump(AIndent: String; AWithResults: Boolean): String; override;
public
destructor Destroy; override;
@ -2413,6 +2414,15 @@ begin
inherited Init;
end;
procedure TFpPascalExpressionPartContainer.ResetEvaluation;
var
i: Integer;
begin
inherited ResetEvaluation;
for i := 0 to Count - 1 do
Items[i].ResetEvaluation;
end;
function TFpPascalExpressionPartContainer.DebugDump(AIndent: String;
AWithResults: Boolean): String;
var