paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 06:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: parse class var external

Browse Source 
git-svn-id: trunk@54492 -
This commit is contained in:
mattias 2017-03-27 22:51:14 +00:00
parent 7a925734c4
commit 16c115f088
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/pascalparsertool.pas
View File

@ -3358,9 +3358,9 @@ var
function CanExternal: Boolean; inline;
begin
if (CurNode.Parent.Desc in [ctnVarSection,ctnClassClassVar])
if (CurNode.Parent.Desc=ctnVarSection)
and (CurNode.Parent.Parent.Desc in AllCodeSections) then exit(true);
if (CurNode.Parent.Desc in (AllClassBaseSections+AllClassInterfaces))
if (CurNode.Parent.Desc in (AllClassBaseSections+AllClassSubSections+AllClassInterfaces))
and ((cmsExternalClass in Scanner.CompilerModeSwitches)
or Scanner.Values.IsDefined('CPUJVM')) then exit(true);
Result:=false;
@ -3426,7 +3426,7 @@ begin
ReadNextAtom;
end;
//if UpAtomIs('EXTERNAL') then
// debugln(['TPascalParserTool.ReadVariableType ',CurNode.Parent.Parent.DescAsString,' ',CurNode.Parent.DescAsString,' ',CurNode.DescAsString]);
// debugln(['TPascalParserTool.ReadVariableType Parent.Parent=',CurNode.Parent.Parent.DescAsString,' Parent=',CurNode.Parent.DescAsString,' Cur=',CurNode.DescAsString,' CanExternal=',CanExternal]);
if ((UpAtomIs('EXPORT') or UpAtomIs('EXTERNAL') or UpAtomIs('WEAKEXTERNAL'))
and CanExternal)
or (UpAtomIs('PUBLIC') and CanPublic) then