Browse Source

* don't mark final class methods as virtual

git-svn-id: branches/jvmbackend@21040 -
Jonas Maebe 13 years ago
parent
commit
9a10c5aea8
1 changed files with 5 additions and 1 deletions
  1. 5 1
      utils/javapp/src/fpc/tools/javapp/PascalMethodData.java

+ 5 - 1
utils/javapp/src/fpc/tools/javapp/PascalMethodData.java

@@ -26,7 +26,11 @@ public class PascalMethodData extends MethodData {
      * Return modifiers of the method that matter to Pascal import.
      */
     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 (!isStatic()) return " virtual;";
         return "";