paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 21:58:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@34478 -
This commit is contained in:
mattias 2011-12-28 22:06:49 +00:00
parent 544e05b6e9
commit b03ad1543e
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -469,7 +469,6 @@ begin
'R': 'R':
if CompareSrcIdentifiers(p,'REQUIRED') if CompareSrcIdentifiers(p,'REQUIRED')
and (CurNode.Parent.Desc=ctnObjCProtocol) and (CurNode.Parent.Desc=ctnObjCProtocol)
and ([cmsObjectiveC1,cmsObjectiveC2]*Scanner.CompilerModeSwitches<>[])
then exit(KeyWordFuncClassSection); then exit(KeyWordFuncClassSection);
'S': 'S':
if CompareSrcIdentifiers(p,'STATIC') if CompareSrcIdentifiers(p,'STATIC')
@ -482,7 +481,6 @@ begin
'O': 'O':
if CompareSrcIdentifiers(p,'OPTIONAL') if CompareSrcIdentifiers(p,'OPTIONAL')
and (CurNode.Parent.Desc=ctnObjCProtocol) and (CurNode.Parent.Desc=ctnObjCProtocol)
and ([cmsObjectiveC1,cmsObjectiveC2]*Scanner.CompilerModeSwitches<>[])
then exit(KeyWordFuncClassSection); then exit(KeyWordFuncClassSection);
'V': 'V':
if CompareSrcIdentifiers(p,'VAR') then exit(KeyWordFuncClassVarSection); if CompareSrcIdentifiers(p,'VAR') then exit(KeyWordFuncClassVarSection);