paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: forward proc completion: copying pascal calling convention

Browse Source 
git-svn-id: trunk@19850 -
This commit is contained in:
mattias 2009-05-08 09:39:05 +00:00
parent 7438cdff7a
commit c76dedceee
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codecompletiontool.pas
View File

@ -6238,7 +6238,8 @@ var CleanCursorPos, Indent, insertPos: integer;
ProcCode:=ExtractProcHead(CurProcNode,[phpWithStart, ProcCode:=ExtractProcHead(CurProcNode,[phpWithStart,
phpWithoutClassKeyword, phpWithoutClassKeyword,
phpWithVarModifiers,phpWithParameterNames,phpWithResultType, phpWithVarModifiers,phpWithParameterNames,phpWithResultType,
phpWithCallingSpecs,phpDoNotAddSemicolon]); phpWithCallingSpecs,phpWithProcModifiers,
phpDoNotAddSemicolon]);
if ProcCode='' then if ProcCode='' then
RaiseException('CompleteForwardProcs: unable to parse forward proc node'); RaiseException('CompleteForwardProcs: unable to parse forward proc node');
if ProcCode[length(ProcCode)]<>';' then begin if ProcCode[length(ProcCode)]<>';' then begin