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

codetools: fixed parsing property after const/type section

Browse Source 
git-svn-id: trunk@26937 -
This commit is contained in:
mattias 2010-07-31 15:38:48 +00:00
parent bd0d7d8bcd
commit 5dd1a92a8d
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/codetools/pascalparsertool.pas
View File

@ -3326,7 +3326,10 @@ begin
// close ctnGenericType
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
end else if AtomIsIdentifier(false) then begin
end else if AtomIsIdentifier(false)
and ((not (Scanner.CompilerMode in [cmOBJFPC,cmFPC]))
or (not UpAtomIs('PROPERTY')))
then begin
CreateChildNode;
CurNode.Desc:=ctnTypeDefinition;
ReadEqualsType;
@ -3430,7 +3433,10 @@ begin
ReadNextAtom; // name
if CurPos.Flag=cafSemicolon then begin
// ignore empty semicolons
end else if AtomIsIdentifier(false) then begin
end else if AtomIsIdentifier(false)
and ((not (Scanner.CompilerMode in [cmOBJFPC,cmFPC]))
or (not UpAtomIs('PROPERTY')))
then begin
CreateChildNode;
CurNode.Desc:=ctnConstDefinition;
ReadNextAtom;
@ -3493,7 +3499,10 @@ begin
// read all string constants Name = 'abc';
repeat
ReadNextAtom; // name
if AtomIsIdentifier(false) then begin
if AtomIsIdentifier(false)
and ((not (Scanner.CompilerMode in [cmOBJFPC,cmFPC]))
or (not UpAtomIs('PROPERTY')))
then begin
CreateChildNode;
CurNode.Desc:=ctnConstDefinition;
ReadNextAtom;