2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@33156 -
Jonas Maebe 9 жил өмнө
parent
commit
74eb0de460

+ 1 - 1
compiler/jvm/symcpu.pas

@@ -677,7 +677,7 @@ implementation
             container:=owner;
             container:=owner;
             while container.symtabletype=localsymtable do
             while container.symtabletype=localsymtable do
               begin
               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;
                 container:=container.defowner.owner;
               end;
               end;
           end;
           end;