projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 0365b9e)
[Ada] Improve EINTR error handling on "poll" system call
authorDmitriy Anisimkov <anisimko@adacore.com>
Mon, 21 Sep 2020 06:00:41 +0000 (12:00 +0600)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 27 Oct 2020 09:19:28 +0000 (05:19 -0400)
gcc/ada/

* libgnat/g-socpol.adb (Wait): Do not exit from loop on EINTR
error and timeout is over.

gcc/ada/libgnat/g-socpol.adb patch | blob | history

diff --git a/gcc/ada/libgnat/g-socpol.adb b/gcc/ada/libgnat/g-socpol.adb
index ab3286c87fd22b476d95a84e231215f009f4a1f1..cd82bb83b5dfe9031481f5c2d83e40a9d72ac1f2 100644 (file)
--- a/gcc/ada/libgnat/g-socpol.adb
+++ b/gcc/ada/libgnat/g-socpol.adb
@@ -368,8 +368,7 @@ package body GNAT.Sockets.Poll is
                Poll_Timeout := Timeout - (Clock - Stamp);
 
                if Poll_Timeout < 0.0 then
-                  Count := 0;
-                  return;
+                  Poll_Timeout := 0.0;
 
                elsif Poll_Timeout > Timeout then
                   --  Clock moved back in time. This should not be happen when