瀏覽代碼

* always get the real class definition before writing out a mangled name

git-svn-id: branches/jvmbackend@18731 -
Jonas Maebe 14 年之前
父節點
當前提交
c7f6ee94e6
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/jvmdef.pas

+ 4 - 1
compiler/jvmdef.pas

@@ -346,7 +346,10 @@ implementation
             case tobjectdef(def).objecttype of
             case tobjectdef(def).objecttype of
               odt_javaclass,
               odt_javaclass,
               odt_interfacejava:
               odt_interfacejava:
-                encodedstr:=encodedstr+'L'+tobjectdef(def).jvm_full_typename(true)+';'
+                begin
+                  def:=maybe_find_real_class_definition(def,false);
+                  encodedstr:=encodedstr+'L'+tobjectdef(def).jvm_full_typename(true)+';'
+                end
               else
               else
                 result:=false;
                 result:=false;
             end;
             end;