From c76dedceeeea7ceb1f1a3c158317809efdaa977b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 8 May 2009 09:39:05 +0000
Subject: [PATCH] codetools: forward proc completion: copying pascal calling
 convention

git-svn-id: trunk@19850 -
---
 components/codetools/codecompletiontool.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index e54d6a0c16..3986a0fae1 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -6238,7 +6238,8 @@ var CleanCursorPos, Indent, insertPos: integer;
         ProcCode:=ExtractProcHead(CurProcNode,[phpWithStart,
                     phpWithoutClassKeyword,
                     phpWithVarModifiers,phpWithParameterNames,phpWithResultType,
-                    phpWithCallingSpecs,phpDoNotAddSemicolon]);
+                    phpWithCallingSpecs,phpWithProcModifiers,
+                    phpDoNotAddSemicolon]);
         if ProcCode='' then
           RaiseException('CompleteForwardProcs: unable to parse forward proc node');
         if ProcCode[length(ProcCode)]<>';' then begin