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

codetools: fixed parsing const public

Browse Source 
git-svn-id: trunk@34791 -
This commit is contained in:
mattias 2012-01-19 10:01:12 +00:00
parent 8f717d8e6f
commit 42006c76d8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -3652,7 +3652,7 @@ begin
ReadHintModifier; ReadHintModifier;
if CurPos.Flag=cafSemicolon then begin if CurPos.Flag=cafSemicolon then begin
if (CurNode.Parent.Desc=ctnConstSection) if (CurNode.Parent.Desc=ctnConstSection)
and (CurNode.Parent.Desc in AllCodeSections) then begin and (CurNode.Parent.Parent.Desc in AllCodeSections) then begin
repeat repeat
ReadNextAtom; ReadNextAtom;
if UpAtomIs('PUBLIC') then begin if UpAtomIs('PUBLIC') then begin