codetools: parsing objcprotocol external, bug #15157

git-svn-id: trunk@22708 -
This commit is contained in:
mattias 2009-11-22 19:19:26 +00:00
parent 2b1408184e
commit 10bf020df1

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