paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't mark nested interfaces as "static", only do so for classes

Browse Source 
(static interfaces don't exist)

git-svn-id: branches/jvmbackend@19556 -
This commit is contained in:
Jonas Maebe 2011-10-28 21:19:16 +00:00
parent cfca607b9b
commit 8bca3e9b0b
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/agjasmin.pas
View File

@ -859,10 +859,13 @@ implementation
begin
if not(obj.owner.defowner.typ in [objectdef,recorddef]) then
internalerror(2011021701);
{ Nested classes in the Pascal sense are equivalent to "static"
inner classes in Java -- will be changed when support for
Java-style non-static classes is added }
case obj.typ of
recorddef:
begin
kindname:='class ';
kindname:='class static ';
extname:=obj.symtable.realname;
end;
objectdef:
@ -870,7 +873,7 @@ implementation
extname:=tobjectdef(obj).objextname;
case tobjectdef(obj).objecttype of
odt_javaclass:
kindname:='class ';
kindname:='class static ';
odt_interfacejava:
kindname:='interface ';
else
@ -884,10 +887,6 @@ implementation
'.inner '+
kindname+
VisibilityToStr(obj.typesym.visibility)+
{ Nested classes in the Pascal sense are equivalent to "static"
inner classes in Java -- will be changed when support for
Java-style non-static classes is added }
' static '+
extname^+
' inner '+
obj.jvm_full_typename(true)+