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

codetools: parsing class/interface deprecated

Browse Source 
git-svn-id: trunk@22451 -
This commit is contained in:
mattias 2009-11-05 16:54:51 +00:00
parent 64f6b721a6
commit c9f863d3a3
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/codetools/pascalparsertool.pas
View File

@ -2013,6 +2013,8 @@ begin
RaiseSemicolonAfterPropSpecMissing('nodefault');
end else if UpAtomIs('DEPRECATED') then begin
ReadNextAtom;
if AtomIsStringConstant then
ReadConstant(true,false,[]);
if CurPos.Flag<>cafSemicolon then
RaiseSemicolonAfterPropSpecMissing('deprecated');
end else if UpAtomIs('ENUMERATOR') then begin
@ -3500,9 +3502,17 @@ begin
SaveRaiseException(ctsEndForClassNotFound);
end;
if CurPos.Flag=cafEND then begin
// read extra flags
ReadNextAtom;
if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') or
UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY')
if CurPos.Flag=cafSemicolon then
ReadNextAtom;
if UpAtomIs('DEPRECATED') then begin
ReadNextAtom;
if AtomIsStringConstant then
ReadConstant(true,false,[]);
end else if UpAtomIs('PLATFORM')
or UpAtomIs('UNIMPLEMENTED') or UpAtomIs('EXPERIMENTAL')
or UpAtomIs('LIBRARY')
then
ReadNextAtom;
if CurPos.Flag=cafSemicolon then
@ -3577,10 +3587,18 @@ begin
end;
if CurPos.Flag=cafEND then begin
ReadNextAtom;
if UpAtomIs('DEPRECATED') or UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') or
if CurPos.Flag=cafSemicolon then
ReadNextAtom;
if UpAtomIs('DEPRECATED') then begin
ReadNextAtom;
if AtomIsStringConstant then
ReadConstant(true,false,[]);
end else if UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') or
UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY')
then
ReadNextAtom;
if CurPos.Flag<>cafSemicolon then
UndoReadNextAtom;
end;
Result:=true;
end;