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

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

Browse Source 
git-svn-id: branches/jvmbackend@18731 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:28:57 +00:00
parent 441787672d
commit c7f6ee94e6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/jvmdef.pas
View File

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