pastojs: fixed const eval float - currency, bug #34936

git-svn-id: trunk@41026 -

packages/fcl-passrc/src/pasresolveeval.pas

@@ -1865,7 +1865,7 @@ begin
       // float - currency
       try
         {$Q+}
-        aCurrency:=aCurrency - TResEvalCurrency(RightValue).Value;
+        aCurrency:=Flo - TResEvalCurrency(RightValue).Value;
         {$IFNDEF OverflowCheckOn}{$Q-}{$ENDIF}
         Result:=TResEvalCurrency.CreateValue(aCurrency);
       except