From d7dd00883c9db6f4ca901fea441d61589cba9c40 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 9 Nov 2009 14:02:56 +0000
Subject: [PATCH] codetools: parsing proc modifier external delayed

git-svn-id: trunk@22505 -
---
 components/codetools/pascalparsertool.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index c1061e5b45..13bc73d7fc 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1194,7 +1194,7 @@ function TPascalParserTool.ReadParamList(ExceptionOnError, Extract: boolean;
    message <id or number>;
    external;
    external <id>;
-   external name <id>;
+   external name <id> delayed;
    external <id or number> name <id>;
    external <id or number> index <id>;
    [alias: <string constant>]
@@ -1487,7 +1487,7 @@ function TPascalParserTool.ReadTilProcedureHeadEnd(
    message <id or number>;
    external;
    external <id>;
-   external name <id>;
+   external name <id> delayed;
    external <id or number> name <id>;
    external <id or number> index <id>;
    [alias: <string constant>]
@@ -1608,6 +1608,8 @@ begin
             ReadNextAtom;
             ReadConstant(true,false,[]);
           end;
+          if UpAtomIs('DELAYED') then
+            ReadNextAtom;
         end;
       end else if UpAtomIs('ALIAS') then begin
         if not ReadNextAtomIsChar(':') then