paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-25 12:41:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: AddProcModifier fixed external name

Browse Source 
git-svn-id: trunk@57919 -
This commit is contained in:
mattias 2018-05-13 11:33:35 +00:00
parent 62b1cabdb9
commit 087d883674
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/changedeclarationtool.pas
View File

@ -964,10 +964,16 @@ begin
if (CurPos.Flag=cafEdgedBracketOpen) then begin
ReadTilBracketClose(false);
ReadNextAtom;
end else if UpAtomIs('MESSAGE') then begin
end else if UpAtomIs('MESSAGE') or UpAtomIs('DISPID') or UpAtomIs('ENUMERATOR')
or UpAtomIs('DEPRECATED') then begin
ReadNextAtom;
ReadConstant(true,false,[]);
end else if UpAtomIs('EXTERNAL') then begin
end else if UpAtomIs('IS') then begin
ReadNextAtom;
if UpAtomIs('NESTED') then
ReadNextAtom;
end else if UpAtomIs('EXTERNAL') or UpAtomIs('WEAKEXTERNAL')
or UpAtomIs('PUBLIC') then begin
ReadNextAtom;
if CurPos.Flag<>cafSemicolon then begin
if not UpAtomIs('NAME') then
@ -976,6 +982,8 @@ begin
ReadNextAtom;
ReadConstant(true,false,[]);
end;
if UpAtomIs('DELAYED') then
ReadNextAtom;
end;
end else begin
ReadNextAtom;
@ -995,6 +1003,7 @@ begin
InsertFromPos:=CurPos.StartPos;
NeedLeftSemicolon:=true;
end;
NeedRightSemicolon:=true;
end;
end;
end;