* Patch from Mattias Gaertner to fix range error

git-svn-id: trunk@35576 -

packages/fcl-js/src/jsscanner.pp

@@ -515,7 +515,10 @@ begin
       FCurToken := Result;
       exit;
       end;
+    {$Push}
+    {$R-}
     I:=Succ(I);
+    {$Pop}
     end
 end;