forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix operator lexing bug

This commit is contained in:
Basile Burg 2016-07-30 19:37:41 +02:00
parent c753bf2b32
commit 6de74e9beb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_dlang.pas
View File

@ -819,12 +819,12 @@ begin
if isOperator1(reader.head^) then
begin
reader.saveBeginning;
identifier += reader.head^;
while isOperator1(reader.Next^) do
while isOperator1(reader.head^) do
begin
if isOutOfBound then
exit;
identifier += reader.head^;
reader.next;
if length(identifier) = 4 then
break;
end;
@ -839,6 +839,7 @@ begin
end;
if isOperator3(identifier[1..3]) then
begin
setLength(identifier, 3);
reader.previous;
addToken(ltkOperator);
if callBackDoStop then
@ -847,6 +848,7 @@ begin
end;
if isOperator2(identifier[1..2]) then
begin
setLength(identifier, 2);
reader.previous;
reader.previous;
addToken(ltkOperator);
@ -856,6 +858,7 @@ begin
end;
if isOperator1(identifier[1]) then
begin
setLength(identifier, 1);
reader.previous;
reader.previous;
reader.previous;
@ -876,6 +879,7 @@ begin
end;
if isOperator2(identifier[1..2]) then
begin
setLength(identifier, 2);
reader.previous;
addToken(ltkOperator);
if callBackDoStop then
@ -884,6 +888,7 @@ begin
end;
if isOperator1(identifier[1]) then
begin
setLength(identifier, 1);
reader.previous;
reader.previous;
addToken(ltkOperator);
@ -903,6 +908,7 @@ begin
end;
if isOperator1(identifier[1]) then
begin
setLength(identifier, 1);
reader.previous;
addToken(ltkOperator);
if callBackDoStop then