Workaround for GreaterEqual symbol in TypeSimple (fix RomanYankovsky#317

)
Irame · Oct 27, 2021 · 9e1ac5f · 9e1ac5f
1 parent 69c370e
commit 9e1ac5f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Source/SimpleParser/SimpleParser.pas b/Source/SimpleParser/SimpleParser.pas
@@ -5014,7 +5014,11 @@ procedure TmwSimplePasPar.TypeSimple;
   begin
     Expected(ptLower);
     TypeArgs;
-    Expected(ptGreater);
+    // workaround for TSomeClass< T >= class(TObject)
+    if TokenID = ptGreaterEqual then
+      Lexer.RunPos := Lexer.RunPos - 1
+    else
+      Expected(ptGreater);
   end;
 end;