paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 19:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't fail if multiple dotests try to create the same directory in parallel

Browse Source 
git-svn-id: trunk@30220 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:37 +00:00
parent a02fb7c794
commit f4a580d669
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/utils/dotest.pp
View File

@ -380,8 +380,13 @@ begin
Err := IOResult;
if Err <> 0 then
begin
Str (Err, SErr);
Verbose (V_Error, 'Directory creation failed ' + SErr);
{ did another parallel instance create it in the mean time? }
if not PathExists(hs) then
begin
{ no -> error }
Str (Err, SErr);
Verbose (V_Error, 'Directory creation of "'+HS+'" failed ' + SErr);
end;
end;
end;
end;