paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-14 19:16:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: parsing objcprotocol external, bug #15157

Browse Source 
git-svn-id: trunk@22708 -
This commit is contained in:
mattias 2009-11-22 19:19:26 +00:00
parent 2b1408184e
commit 10bf020df1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -3560,7 +3560,7 @@ begin
if AtomIsStringConstant then if AtomIsStringConstant then
ReadConstant(true,false,[]); ReadConstant(true,false,[]);
end else if UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') or end else if UpAtomIs('PLATFORM') or UpAtomIs('UNIMPLEMENTED') or
UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY') UpAtomIs('EXPERIMENTAL') or UpAtomIs('LIBRARY') or UpAtomIs('EXTERNAL')
then then
ReadNextAtom; ReadNextAtom;
if CurPos.Flag<>cafSemicolon then if CurPos.Flag<>cafSemicolon then