paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 03:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add waiting time in case of access error on windows OS

Browse Source 
git-svn-id: trunk@32952 -
This commit is contained in:
pierre 2016-01-16 01:08:12 +00:00
parent c638559dc1
commit 8c5adb86cd
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/utils/dotest.pp
View File

@ -563,6 +563,17 @@ begin
assign(t,'out.'+UniqueSuffix);
{$I-}
reset(t);
{$ifdef windows}
{ try to cope with Windows problems related to AntiVirus scanner
that generate lag time during which access to a given if is forbidden }
if (inoutres=5) then
begin
Sleep(5000);
ioresult;
Verbose(V_Warning,'Windows file not accessible out.'+UniqueSuffix);
reset(t);
end;
{$endif windows}
readln(t,hs);
close(t);
erase(t);