Просмотр исходного кода

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

git-svn-id: branches/jvmbackend@18731 -
Jonas Maebe 14 лет назад
Родитель
Сommit
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;