소스 검색

* don't mark final class methods as virtual

git-svn-id: branches/jvmbackend@21040 -
Jonas Maebe 13 년 전
부모
커밋
9a10c5aea8
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  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 "";