Better support for 'delayed' keyword in external procedure declaration

SirRufo · Apr 19, 2017 · 840ab09 · 840ab09
1 parent 285a986
commit 840ab09
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Source/SimpleParser/SimpleParser.pas b/Source/SimpleParser/SimpleParser.pas
@@ -2139,6 +2139,10 @@ procedure TmwSimplePasPar.ExternalDirective;
     begin
       if FLexer.ExID <> ptName then
         SimpleExpression;
+
+      if FLexer.ExID = ptDelayed then
+        NextToken;
+
       ExternalDirectiveTwo;
     end;
   end;