paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid infinite loop on Unix

Browse Source 
git-svn-id: trunk@18242 -
This commit is contained in:
pierre 2011-08-17 11:22:54 +00:00
parent 79a96ab287
commit 8dc1ce55c1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/units/sysutils/tdirex.pp
View File

@ -55,7 +55,10 @@ begin
begin
dir:=copy(dir,1,maxpos-1);
TestDirectoryExists(dir,true);
end;
end
else
{ if length(dir)<=1, exit test }
exit;
end;
end;