* Fix identifier value callback

packages/fcl-base/fcl_base_pas2js.lpk

@@ -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>

packages/fcl-base/fpexprpars.pas

@@ -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:[email protected];
+    end;
   Result:=PResult^;
   Result.ResultType:=FResultType;
 end;