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

codetools: parsing objcprotocol external name constant

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

8
components/codetools/pascalparsertool.pas
View File

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