paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug in event-based variables

Browse Source 
git-svn-id: trunk@33986 -
This commit is contained in:
michael 2016-06-14 17:25:14 +00:00
parent 638339812e
commit 15c5ea3b9c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-base/src/fpexprpars.pp
View File

@ -2836,6 +2836,8 @@ end;
Procedure TFPExprIdentifierNode.GetNodeValue(var Result : TFPExpressionResult);
begin
if Identifier.EventBasedVariable then
Identifier.FetchValue;
Result:=PResult^;
Result.ResultType:=FResultType;
end;
@ -2861,7 +2863,9 @@ Var
begin
For I:=0 to Length(FArgumentParams)-1 do
begin
FArgumentNodes[i].GetNodeValue(FArgumentParams[i]);
end;
end;
procedure TFPExprFunction.Check;
@ -2942,6 +2946,7 @@ Procedure TFPFunctionCallBack.GetNodeValue(var Result : TFPExpressionResult);
begin
If Length(FArgumentParams)>0 then
CalcParams;
FCallBack(Result,FArgumentParams);
Result.ResultType:=NodeType;
end;