pas2js: debug val() failure

git-svn-id: trunk@40144 -

packages/fcl-passrc/src/pasresolveeval.pas

@@ -4239,6 +4239,9 @@ begin
           {$ENDIF}
           exit;
           end;
+        {$IFDEF VerbosePasResEval}
+        writeln('TResExprEvaluator.Eval Value="',TPrimitiveExpr(Expr).Value,'"');
+        {$ENDIF}
         RaiseRangeCheck(20170518202252,Expr);
         end;
       pekString:

utils/pas2js/nodepas2js.lpi

@@ -61,9 +61,15 @@
     <Other>
       <CustomOptions Value="-Jeutf-8
 -Jc
--dVerboseFileCache"/>
-      <OtherDefines Count="1">
+-dVerboseFileCache
+-dVerbosePasResolver
+-dVerbosePas2JS
+-dVerbosePasResEval"/>
+      <OtherDefines Count="4">
         <Define0 Value="VerboseFileCache"/>
+        <Define1 Value="VerbosePasResolver"/>
+        <Define2 Value="VerbosePas2JS"/>
+        <Define3 Value="VerbosePasResEval"/>
       </OtherDefines>
       <CompilerPath Value="$(pas2js)"/>
     </Other>