+ Fixed findclose bug

rtl/linux/dos.pp

@@ -544,6 +544,7 @@ Begin
          {$ELSE}
            closedir(pdir(f.dirptr));
          {$ENDIF}
+         Dispose(pdir(f.dirptr));
          end;
       End;
    end;
@@ -1042,7 +1043,10 @@ End.
 
 {
   $Log$
-  Revision 1.6  1998-11-23 12:32:31  peter
+  Revision 1.7  1999-01-28 12:10:42  michael
+  + Fixed findclose bug
+
+  Revision 1.6  1998/11/23 12:32:31  peter
     * fix for findclose from the mailinglist
 
   Revision 1.5  1998/11/05 14:24:08  peter