paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:19:22 +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

22
components/codetools/pascalparsertool.pas
View File

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