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

* don't mark non-virtual class methods automatically as "final"

Browse Source 
git-svn-id: branches/jvmbackend@18729 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:28:30 +00:00
parent 13d68da2be
commit 2338463a4b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/agjasmin.pas
View File

@ -728,6 +728,7 @@ implementation
if (pd.procsym.owner.symtabletype in [globalsymtable,staticsymtable,localsymtable]) or if (pd.procsym.owner.symtabletype in [globalsymtable,staticsymtable,localsymtable]) or
(po_finalmethod in pd.procoptions) or (po_finalmethod in pd.procoptions) or
(not(po_virtualmethod in pd.procoptions) and (not(po_virtualmethod in pd.procoptions) and
not(po_classmethod in pd.procoptions) and
not(pd.proctypeoption in [potype_constructor,potype_class_constructor])) then not(pd.proctypeoption in [potype_constructor,potype_class_constructor])) then
result:=result+'final '; result:=result+'final ';
result:=result+pd.jvmmangledbasename(false); result:=result+pd.jvmmangledbasename(false);