paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 09:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed usage of already release memory in getdir

Browse Source
This commit is contained in:
peter 2001-04-12 17:53:43 +00:00
parent 9d1f81129f
commit 273db58aed
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/unix/sysunix.inc
View File

@ -540,10 +540,12 @@ begin
validdir:=false; validdir:=false;
until (d=nil) or until (d=nil) or
((validdir) and (thisdir.dev=thisdev) and (thisdir.ino=thisino) ); ((validdir) and (thisdir.dev=thisdev) and (thisdir.ino=thisino) );
{ At this point, d.name contains the name of the current dir}
if (d<>nil) then
thedir:='/'+strpas(@(d^.name[0]))+thedir;
{ closedir also makes d invalid }
if (closedir(dirstream)<0) or (d=nil) then if (closedir(dirstream)<0) or (d=nil) then
exit; exit;
{ At this point, d.name contains the name of the current dir}
thedir:='/'+strpas(@(d^.name[0]))+thedir;
thisdev:=dotdotdev; thisdev:=dotdotdev;
thisino:=dotdotino; thisino:=dotdotino;
predot:=predot+'../'; predot:=predot+'../';
@ -746,7 +748,10 @@ End.
{ {
$Log$ $Log$
Revision 1.7 2001-03-21 21:08:20 hajny Revision 1.8 2001-04-12 17:53:43 peter
* fixed usage of already release memory in getdir
Revision 1.7 2001/03/21 21:08:20 hajny
* GetDir fixed * GetDir fixed
Revision 1.6 2001/03/16 20:09:58 hajny Revision 1.6 2001/03/16 20:09:58 hajny