瀏覽代碼

+ Fixed memory leak in findfirst/findnext

michael 26 年之前
父節點
當前提交
5076475236
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. 5 1
      rtl/linux/dos.pp

+ 5 - 1
rtl/linux/dos.pp

@@ -544,6 +544,7 @@ Begin
          {$ELSE}
          {$ELSE}
            closedir(pdir(f.dirptr));
            closedir(pdir(f.dirptr));
          {$ENDIF}
          {$ENDIF}
+         Dispose(pdir(f.dirptr)^.buf);
          Dispose(pdir(f.dirptr));
          Dispose(pdir(f.dirptr));
          end;
          end;
       End;
       End;
@@ -1043,7 +1044,10 @@ End.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.7  1999-01-28 12:10:42  michael
+  Revision 1.8  1999-01-28 12:54:13  michael
+  + Fixed memory leak in findfirst/findnext
+
+  Revision 1.7  1999/01/28 12:10:42  michael
   + Fixed findclose bug
   + Fixed findclose bug
 
 
   Revision 1.6  1998/11/23 12:32:31  peter
   Revision 1.6  1998/11/23 12:32:31  peter