Преглед изворни кода

* fixed mangled names for nested procedures on the JVM platform after r32153

git-svn-id: trunk@33156 -
Jonas Maebe пре 9 година
родитељ
комит
74eb0de460
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/jvm/symcpu.pas

+ 1 - 1
compiler/jvm/symcpu.pas

@@ -677,7 +677,7 @@ implementation
             container:=owner;
             while container.symtabletype=localsymtable do
               begin
-                tmpresult:='$'+tprocdef(owner.defowner).procsym.realname+'$'+tostr(tprocdef(owner.defowner).procsym.symid)+'$'+tmpresult;
+                tmpresult:='$'+tprocdef(owner.defowner).procsym.realname+'$$'+tprocdef(owner.defowner).unique_id_str+'$'+tmpresult;
                 container:=container.defowner.owner;
               end;
           end;