paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 03:50:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* mark classes that represent units, and classes declared in the interface

Browse Source 
of a unit, as public (the rest has "package" visibility)

git-svn-id: branches/jvmbackend@18435 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:59:21 +00:00
parent 20e55cd54e
commit 1aac04a639
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/agjasmin.pas
View File

@ -522,6 +522,7 @@ implementation
intf: tobjectdef;
n: string;
i: longint;
toplevelowner: tsymtable;
begin
{ JVM 1.5+ }
AsmWriteLn('.bytecode 49.0');
@ -538,20 +539,30 @@ implementation
begin
{ fake class type for unit -> name=unitname and
superclass=java.lang.object }
AsmWriteLn('.class '+current_module.realmodulename^);
AsmWrite('.class public ');
AsmWriteln(current_module.realmodulename^);
AsmWriteLn('.super java/lang/Object');
end
else
begin
toplevelowner:=obj.owner;
while not(toplevelowner.symtabletype in [staticsymtable,globalsymtable]) do
toplevelowner:=toplevelowner.defowner.owner;
case obj.objecttype of
odt_javaclass:
begin
AsmWriteLn('.class '+obj.jvm_full_typename(false));
AsmWrite('.class ');
if toplevelowner.symtabletype=globalsymtable then
AsmWrite('public ');
AsmWriteln(obj.jvm_full_typename(true));
superclass:=obj.childof;
end;
odt_interfacejava:
begin
AsmWriteLn('.interface abstract '+obj.objextname^);
AsmWrite('.interface abstract ');
if toplevelowner.symtabletype=globalsymtable then
AsmWrite('public ');
AsmWriteLn(obj.jvm_full_typename(true));
{ interfaces must always specify Java.lang.object as
superclass }
superclass:=java_jlobject;