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

codetools: parsing procedure deprecated without comment

Browse Source 
git-svn-id: trunk@22478 -
This commit is contained in:
mattias 2009-11-07 15:10:19 +00:00
parent 38cd84263c
commit 8838a2c5fd
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/pascalparsertool.pas
View File

@ -1596,6 +1596,7 @@ begin
or UpAtomIs('DEPRECATED') or UpAtomIs('DEPRECATED')
then begin then begin
ReadNextAtom; ReadNextAtom;
if AtomIsStringConstant then
ReadConstant(true,false,[]); ReadConstant(true,false,[]);
end else if UpAtomIs('EXTERNAL') or UpAtomIs('PUBLIC') then begin end else if UpAtomIs('EXTERNAL') or UpAtomIs('PUBLIC') then begin
HasForwardModifier:=UpAtomIs('EXTERNAL'); HasForwardModifier:=UpAtomIs('EXTERNAL');
@ -2748,6 +2749,11 @@ begin
ReadNextAtom; ReadNextAtom;
ReadConstant(true,false,[]); ReadConstant(true,false,[]);
end; end;
if UpAtomIs('DEPRECATED') then begin
ReadNextAtom;
if AtomIsStringConstant then
ReadConstant(true,false,[]);
end;
if CurPos.Flag=cafEqual then begin if CurPos.Flag=cafEqual then begin
// read constant // read constant
repeat repeat
@ -2809,13 +2815,7 @@ begin
if CurPos.Flag<>cafSemicolon then if CurPos.Flag<>cafSemicolon then
RaiseCharExpectedButAtomFound(';'); RaiseCharExpectedButAtomFound(';');
ReadNextAtom; ReadNextAtom;
end; end else
if UpAtomIs('DEPRECATED') then begin
ReadNextAtom;
if AtomIsStringConstant then
ReadConstant(true,false,[]);
ReadNextAtom;
end;
UndoReadNextAtom; UndoReadNextAtom;
CurNode.EndPos:=CurPos.EndPos; CurNode.EndPos:=CurPos.EndPos;
EndChildNode; EndChildNode;
@ -3139,8 +3139,10 @@ begin
if not AtomIsStringConstant then if not AtomIsStringConstant then
RaiseStringExpectedButAtomFound(ctsStringConstant); RaiseStringExpectedButAtomFound(ctsStringConstant);
ReadConstant(true,false,[]); ReadConstant(true,false,[]);
if UpAtomIs('DEPRECATED') then if UpAtomIs('DEPRECATED') then begin
ReadNextAtom; ReadNextAtom;
if AtomIsStringConstant then ReadConstant(true,false,[]);
end;
// read ; // read ;
if CurPos.Flag<>cafSemicolon then if CurPos.Flag<>cafSemicolon then
RaiseCharExpectedButAtomFound(';'); RaiseCharExpectedButAtomFound(';');