mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-10 11:26:54 +02:00
codetools: parsing objcprotocol external, bug #15157
git-svn-id: trunk@22708 -
This commit is contained in:
parent
2b1408184e
commit
10bf020df1
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user