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

* mark unit-level routines as "final", since they can't be overridden

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

3
compiler/agjasmin.pas
View File

@ -677,7 +677,8 @@ implementation
result:=result+'static ';
if is_javainterface(tdef(pd.owner.defowner)) then
result:=result+'abstract ';
if po_finalmethod in pd.procoptions then
if (pd.procsym.owner.symtabletype in [globalsymtable,staticsymtable,localsymtable]) or
(po_finalmethod in pd.procoptions) then
result:=result+'final ';
result:=result+pd.jvmmangledbasename;
end;