Fix RomanYankovsky#134: Fails to parse code with ^\

jason156 · Oct 10, 2015 · 25519b3 · 25519b3
1 parent 2a4ce1f
commit 25519b3
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/Source/SimpleParser/SimpleParser.Lexer.pas b/Source/SimpleParser/SimpleParser.Lexer.pas
@@ -1864,7 +1864,7 @@ procedure TmwBasePasLex.PointerSymbolProc;
 const
   PointerChars = ['a'..'z', 'A'..'Z', '\', '!', '"', '#', '$', '%', '&', '''', '(', ')',
                   '*', '+', ',', '-', '.', '/', ':', ';', '<', '=', '>', '?', '@', '[',
-                  ']', '^', '_', '`', '{', '|', '}', '~'];
+                  '^', '_', '`', '{', '|', '}', '~']; // TODO: support ']'
 begin
   Inc(Run);
   FTokenID := ptPointerSymbol;

diff --git a/Test/Snippets/pointerchars.pas b/Test/Snippets/pointerchars.pas
@@ -5,7 +5,15 @@ interface
 implementation
 
 procedure FormKeyPress(Sender: TObject; var Key: Char);
+var
+  P: PInteger;
+  Arr: array of Integer;
 begin
+   if Arr[P^] > 0 then
+   begin
+     // some code
+   end;
+
    if Key = ^\ then 
    begin
       //some code
@@ -16,10 +24,10 @@ procedure FormKeyPress(Sender: TObject; var Key: Char);
       //some code
    end;
 
-   if Key = ^] then 
+   if Key = ^[ then 
    begin
       //some code
    end;
 end;
 
-end.
+end.