From: Arnaud Charlet <charlet@adacore.com>
Date: Sat, 30 May 2020 18:01:17 +0000 (-0400)
Subject: [Ada] Fix potentially uninitialized variable flagged by CodePeer
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3eda546ad07c7e64a66b5fc183ad1b324190c2f0;p=thirdparty%2Fgcc.git

[Ada] Fix potentially uninitialized variable flagged by CodePeer

gcc/ada/

	* libgnat/g-socket.adb (Wait_On_Socket): Fix potentially
	uninitialized variable.
---

diff --git a/gcc/ada/libgnat/g-socket.adb b/gcc/ada/libgnat/g-socket.adb
index da631e381dc5..719d9a96826c 100644
--- a/gcc/ada/libgnat/g-socket.adb
+++ b/gcc/ada/libgnat/g-socket.adb
@@ -2062,8 +2062,11 @@ package body GNAT.Sockets is
          Close_Selector (S.all);
          Unchecked_Free (Local_S);
       end if;
+
    exception
       when others =>
+         Status := Completed;
+
          if Selector = null then
             Close_Selector (S.all);
             Unchecked_Free (Local_S);