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

codetools: jvm class interface var modifier external

Browse Source 
git-svn-id: trunk@34438 -
This commit is contained in:
mattias 2011-12-26 17:47:50 +00:00
parent d8b85e3a4c
commit 5a60b9e824
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/pascalparsertool.pas
View File

@ -3171,9 +3171,12 @@ begin
RaiseCharExpectedButAtomFound(';');
ReadNextAtom;
end;
//if UpAtomIs('EXTERNAL') then
// debugln(['TPascalParserTool.ReadVariableType ',CurNode.Parent.Parent.DescAsString,' ',CurNode.Parent.DescAsString,' ',CurNode.DescAsString]);
if (CurNode.Parent.Desc in [ctnVarSection,ctnClassClassVar])
and ((CurNode.Parent.Parent.Desc in AllCodeSections)
or ((CurNode.Parent.Parent.Desc in AllClassBaseSections) and Scanner.Values.IsDefined('JVM')))
or ((CurNode.Parent.Parent.Desc in (AllClassBaseSections+AllClassInterfaces))
and Scanner.Values.IsDefined('JVM')))
and (UpAtomIs('PUBLIC') or UpAtomIs('EXPORT') or UpAtomIs('EXTERNAL')
or UpAtomIs('WEAKEXTERNAL') or UpAtomIs('CVAR')) then
begin