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

* don't mark final class methods as virtual

Browse Source 
git-svn-id: branches/jvmbackend@21040 -
This commit is contained in:
Jonas Maebe 2012-04-25 18:14:29 +00:00
parent 8e3d7fe8d3
commit 9a10c5aea8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/javapp/src/fpc/tools/javapp/PascalMethodData.java
View File

@ -26,7 +26,11 @@ public class PascalMethodData extends MethodData {
* Return modifiers of the method that matter to Pascal import. * Return modifiers of the method that matter to Pascal import.
*/ */
public String getModifiers(){ public String getModifiers(){
if ((access & ACC_FINAL) !=0) return " virtual; final;"; if ((access & ACC_FINAL) !=0)
if (!isStatic())
return " virtual; final;";
else
return " final;";
if ((access & ACC_ABSTRACT) !=0) return " virtual; abstract;"; if ((access & ACC_ABSTRACT) !=0) return " virtual; abstract;";
if (!isStatic()) return " virtual;"; if (!isStatic()) return " virtual;";
return ""; return "";