فهرست منبع

* avoid memory leak for copy of withnode in tempnodes

git-svn-id: trunk@6067 -
pierre 18 سال پیش
والد
کامیت
d5e4828f6f
1فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  1. 4 0
      compiler/nbas.pas

+ 4 - 0
compiler/nbas.pas

@@ -1015,6 +1015,10 @@ implementation
 
     destructor ttempdeletenode.destroy;
       begin
+        if assigned(tempinfo^.withnode) then
+          begin
+            tempinfo^.withnode.free;
+          end;
         dispose(tempinfo);
       end;