paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-20 21:46:14 +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 if (CurPos.Flag=cafEdgedBracketOpen) then begin
ReadTilBracketClose(false); ReadTilBracketClose(false);
ReadNextAtom; 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; ReadNextAtom;
ReadConstant(true,false,[]); 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; ReadNextAtom;
if CurPos.Flag<>cafSemicolon then begin if CurPos.Flag<>cafSemicolon then begin
if not UpAtomIs('NAME') then if not UpAtomIs('NAME') then
@ -976,6 +982,8 @@ begin
ReadNextAtom; ReadNextAtom;
ReadConstant(true,false,[]); ReadConstant(true,false,[]);
end; end;
if UpAtomIs('DELAYED') then
ReadNextAtom;
end; end;
end else begin end else begin
ReadNextAtom; ReadNextAtom;
@ -995,6 +1003,7 @@ begin
InsertFromPos:=CurPos.StartPos; InsertFromPos:=CurPos.StartPos;
NeedLeftSemicolon:=true; NeedLeftSemicolon:=true;
end; end;
NeedRightSemicolon:=true;
end; end;
end; end;
end; end;