|
|
@@ -334,6 +334,7 @@ function CloseDir(p:pdir):integer;
|
|
|
begin
|
|
|
closedir:=sys_close(p^.fd)
|
|
|
dispose(p^.buf);
|
|
|
+ dispose(p);
|
|
|
end;
|
|
|
|
|
|
|
|
|
@@ -369,7 +370,10 @@ end;
|
|
|
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.4 1999-07-28 12:14:37 michael
|
|
|
+ Revision 1.5 1999-07-28 12:15:16 michael
|
|
|
+ * Memory leak fixed in CloseDir, by Sebastian Guenther
|
|
|
+
|
|
|
+ Revision 1.4 1999/07/28 12:14:37 michael
|
|
|
* Memory leak fixed in CloseDir, by Sebastian Guenther
|
|
|
|
|
|
Revision 1.3 1998/05/30 14:18:42 peter
|
michael