prevent successive tests

This commit is contained in:
Basile Burg 2016-10-28 11:26:12 +02:00
parent a4c142d345
commit 5145259308
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 2 additions and 3 deletions

View File

@ -944,9 +944,8 @@ begin
fTokKind := tkIdent; fTokKind := tkIdent;
while(true) do while(true) do
begin begin
if isWhite(readerNext^) then break; if isWhite(readerNext^) or isSymbol(reader^) or isOperator1(reader^) then
if isSymbol(reader^) then break; break;
if isOperator1(reader^) then break;
end; end;
if keywordsMap.match(fLineBuf[FTokStart..fTokStop-1]) then if keywordsMap.match(fLineBuf[FTokStart..fTokStop-1]) then
begin begin