Răsfoiți Sursa

* Fixed memory leak

daniel 21 ani în urmă
părinte
comite
c57e542a81
1 a modificat fișierele cu 6 adăugiri și 2 ștergeri
  1. 6 2
      compiler/ncgcal.pas

+ 6 - 2
compiler/ncgcal.pas

@@ -1091,6 +1091,7 @@ implementation
          current_procinfo:=cprocinfo.create(nil);
          current_procinfo.procdef:=tprocdef(procdefinition);
          current_procinfo.flags:=oldprocinfo.flags;
+         current_procinfo.aktlocaldata.destroy;
          current_procinfo.aktlocaldata:=oldprocinfo.aktlocaldata;
 
          { when the oldprocinfo is also being inlined reuse the
@@ -1214,7 +1215,7 @@ implementation
 
          { restore }
          current_procinfo.aktlocaldata:=nil;
-         current_procinfo.free;
+         current_procinfo.destroy;
          current_procinfo:=oldprocinfo;
          inlining_procedure:=oldinlining_procedure;
       end;
@@ -1235,7 +1236,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.157  2004-02-22 12:04:04  florian
+  Revision 1.158  2004-02-22 13:01:15  daniel
+    * Fixed memory leak
+
+  Revision 1.157  2004/02/22 12:04:04  florian
     + nx86set added
     * some more x86-64 fixes