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

codetools: on jvm target: parse class external stringpkgname name stringclassname

Browse Source 
git-svn-id: trunk@34299 -
This commit is contained in:
mattias 2011-12-19 23:31:04 +00:00
parent e302aba155
commit 3f6db54739
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/codetools/pascalparsertool.pas
View File

@ -3823,6 +3823,7 @@ begin
if CurNode.Parent.Desc<>ctnTypeSection then
SaveRaiseExceptionFmt(ctsNestedDefinitionsAreNotAllowed,[GetAtom]);
end;
// packed class, bitpacked object
if LastUpAtomIs(0,'PACKED') or LastUpAtomIs(0,'BITPACKED') then begin
ClassAtomPos:=LastAtoms.GetValueAt(0);
end else begin
@ -3865,17 +3866,30 @@ begin
ReadNextAtom;
end;
end
else if UpAtomIs('EXTERNAL') and (ClassDesc in [ctnObjCClass,ctnObjCCategory]) then
begin
CreateChildNode;
CurNode.Desc:=ctnClassExternal;
ReadNextAtom;
if UpAtomIs('NAME') then begin
else if UpAtomIs('EXTERNAL') then begin
if (ClassDesc in [ctnObjCClass,ctnObjCCategory]) then begin
CreateChildNode;
CurNode.Desc:=ctnClassExternal;
ReadNextAtom;
if UpAtomIs('NAME') then begin
ReadNextAtom;
ReadConstant(true,false,[]);
end;
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end else if (ClassDesc in [ctnClass]) and (Scanner.Values.IsDefined('JVM'))
then begin
CreateChildNode;
CurNode.Desc:=ctnClassExternal;
ReadNextAtom;
ReadConstant(true,false,[]);
if UpAtomIs('NAME') then begin
ReadNextAtom;
ReadConstant(true,false,[]);
end;
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end;
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end;
end;
if (CurPos.Flag=cafRoundBracketOpen) then begin