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

+ Fixed sleep: file needs to be closed again

Browse Source
This commit is contained in:
michael 2004-10-12 15:22:23 +00:00
parent 560a790a57
commit 30a74b36f2
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/sysutils.pp
View File

@ -615,12 +615,14 @@ Var
begin begin
fd:=FileOpen('/dev/null',fmOpenRead); fd:=FileOpen('/dev/null',fmOpenRead);
If Not(Fd<0) then If Not(Fd<0) then
begin try
fpfd_zero(fds); fpfd_zero(fds);
fpfd_set(0,fds); fpfd_set(0,fds);
timeout.tv_sec:=Milliseconds div 1000; timeout.tv_sec:=Milliseconds div 1000;
timeout.tv_usec:=(Milliseconds mod 1000) * 1000; timeout.tv_usec:=(Milliseconds mod 1000) * 1000;
fpSelect(1,Nil,Nil,@fds,@timeout); fpSelect(1,Nil,Nil,@fds,@timeout);
finally
FileClose(fd);
end; end;
end; end;
@ -713,7 +715,10 @@ end.
{ {
$Log$ $Log$
Revision 1.47 2004-10-10 10:28:34 michael Revision 1.48 2004-10-12 15:22:23 michael
+ Fixed sleep: file needs to be closed again
Revision 1.47 2004/10/10 10:28:34 michael
+ Implementation of GetTempDir and GetTempFileName + Implementation of GetTempDir and GetTempFileName
Revision 1.46 2004/08/30 11:20:39 michael Revision 1.46 2004/08/30 11:20:39 michael