[Ada] Improve EINTR error handling on "poll" system call

gcc/ada/

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

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