paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 21:20:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also mark all non-virtual methods as "final" (since regular methods

Browse Source 
don't exist in Java)

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

4
compiler/agjasmin.pas
View File

@ -691,7 +691,9 @@ implementation
if is_javainterface(tdef(pd.owner.defowner)) then
result:=result+'abstract ';
if (pd.procsym.owner.symtabletype in [globalsymtable,staticsymtable,localsymtable]) or
(po_finalmethod in pd.procoptions) then
(po_finalmethod in pd.procoptions) or
(not(po_virtualmethod in pd.procoptions) and
not(pd.proctypeoption in [potype_constructor,potype_class_constructor])) then
result:=result+'final ';
result:=result+pd.jvmmangledbasename;
end;