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

* fixed memory leak

git-svn-id: trunk@42101 -
Jonas Maebe 6 жил өмнө
parent
commit
4c34b7b67d

+ 1 - 1
compiler/pexpr.pas

@@ -1141,7 +1141,7 @@ implementation
                  hp2:=cloadnode.create_procvar(tprocsym(tcallnode(hp).symtableprocentry),currprocdef,tcallnode(hp).symtableproc);
                  hp2:=cloadnode.create_procvar(tprocsym(tcallnode(hp).symtableprocentry),currprocdef,tcallnode(hp).symtableproc);
                  if (po_methodpointer in pv.procoptions) then
                  if (po_methodpointer in pv.procoptions) then
                    tloadnode(hp2).set_mp(tcallnode(hp).methodpointer.getcopy);
                    tloadnode(hp2).set_mp(tcallnode(hp).methodpointer.getcopy);
-                 hp.destroy;
+                 hp.free;
                  { replace the old callnode with the new loadnode }
                  { replace the old callnode with the new loadnode }
                  hpp^:=hp2;
                  hpp^:=hp2;
                end;
                end;