Răsfoiți Sursa

* fixed memory leak

git-svn-id: trunk@42101 -
Jonas Maebe 6 ani în urmă
părinte
comite
4c34b7b67d
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      compiler/pexpr.pas

+ 1 - 1
compiler/pexpr.pas

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