paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 21:47:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix identifier value callback

Browse Source
This commit is contained in:
michael 2018-12-30 16:16:53 +00:00
parent 460c0fa4a3
commit 50d5a647bd
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/fcl_base_pas2js.lpk
View File

@ -22,7 +22,7 @@
Port to pas2js."/>
<License Value="Modified LGPL-2"/>
<Version Major="1"/>
<Files Count="3">
<Files Count="4">
<Item1>
<Filename Value="custapp.pas"/>
<UnitName Value="custapp"/>
@ -35,6 +35,10 @@ Port to pas2js."/>
<Filename Value="browserapp.pas"/>
<UnitName Value="browserapp"/>
</Item3>
<Item4>
<Filename Value="fpexprpars.pas"/>
<UnitName Value="fpexprpars"/>
</Item4>
</Files>
<RequiredPkgs Count="1">
<Item1>

5
packages/fcl-base/fpexprpars.pas
View File

@ -756,7 +756,7 @@ Type
Property Identifiers : TFPExprIdentifierDefs Read FIdentifiers Write SetIdentifiers;
Property BuiltIns : TBuiltInCategories Read FBuiltIns Write SetBuiltIns;
end;
TFPExpressionParserClass = Class of TFPExpressionParser;
{ TExprBuiltInManager }
TExprBuiltInManager = Class(TComponent)
@ -3666,7 +3666,10 @@ end;
Function TFPExprIdentifierNode.GetNodeValue : TFPExpressionResult;
begin
if Identifier.EventBasedVariable then
begin
Identifier.FetchValue;
PResult:=@FID.FValue;
end;
Result:=PResult^;
Result.ResultType:=FResultType;
end;