From 1bd8e903d7bf45148858b3ed695e71fef030d112 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Sat, 3 Nov 2018 21:36:36 +0000
Subject: [PATCH] fcl-js: simplified

git-svn-id: trunk@40203 -
---
 packages/fcl-js/src/jsscanner.pp | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/packages/fcl-js/src/jsscanner.pp b/packages/fcl-js/src/jsscanner.pp
index af074d5f93..6d514eee14 100644
--- a/packages/fcl-js/src/jsscanner.pp
+++ b/packages/fcl-js/src/jsscanner.pp
@@ -504,22 +504,15 @@ begin
   SetLength(FCurTokenString,Len);
   if Len > 0 then
     Move(TokenStart^,FCurTokenString[1],Len);
- // Check if this is a keyword or identifier
- // !!!: Optimize this!
-  I:=FirstKeyword;
-  While (Result=tjsIdentifier) and (I<=Lastkeyword) do
-    begin
-    if (CurTokenString=TokenInfos[i]) then
+  // Check if this is a keyword or identifier
+  // !!!: Optimize this!
+  for i:=FirstKeyword to Lastkeyword do
+    if CurTokenString=TokenInfos[i] then
       begin
       Result := i;
       FCurToken := Result;
       exit;
       end;
-    {$Push}
-    {$R-}
-    I:=Succ(I);
-    {$Pop}
-    end
 end;
 
 Function TJSScanner.FetchToken: TJSToken;