[gcc r13-1525] [Ada] Cleanup use of local scalars in GNAT.Socket.Get_Address_Info

[gcc r13-1525] [Ada] Cleanup use of local scalars in GNAT.Socket.Get_Address_Info

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:b65a875a7c1a728ddb5d58fb97777394a6f773e2

commit r13-1525-gb65a875a7c1a728ddb5d58fb97777394a6f773e2
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Tue Jun 14 13:47:27 2022 +0200

    [Ada] Cleanup use of local scalars in GNAT.Socket.Get_Address_Info
    
    A cleanup opportunity spotted while working on improved detection of
    uninitialised local scalar objects.
    
    gcc/ada/
    
            * libgnat/g-socket.adb (Get_Address_Info): Reduce scope of the
            Found variable; avoid repeated assignment inside the loop.

Diff:
---
 gcc/ada/libgnat/g-socket.adb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gcc/ada/libgnat/g-socket.adb b/gcc/ada/libgnat/g-socket.adb
index 4267d9f408f..86ce3b84372 100644
--- a/gcc/ada/libgnat/g-socket.adb
+++ b/gcc/ada/libgnat/g-socket.adb
@@ -1036,7 +1036,6 @@ package body GNAT.Sockets is
 
       R     : C.int;
       Iter  : Addrinfo_Access;
-      Found : Boolean;
 
       function To_Array return Address_Info_Array;
       --  Convert taken from OS addrinfo list A into Address_Info_Array
@@ -1046,8 +1045,6 @@ package body GNAT.Sockets is
       --------------
 
       function To_Array return Address_Info_Array is
-         Result : Address_Info_Array (1 .. 8);
-
          procedure Unsupported;
          --  Calls Unknown callback if defiend
 
@@ -1066,6 +1063,9 @@ package body GNAT.Sockets is
             end if;
          end Unsupported;
 
+         Found  : Boolean;
+         Result : Address_Info_Array (1 .. 8);
+
       --  Start of processing for To_Array
 
       begin
@@ -1087,8 +1087,8 @@ package body GNAT.Sockets is
                if Result (J).Addr.Family = Family_Unspec then
                   Unsupported;
                else
+                  Found := False;
                   for M in Modes'Range loop
-                     Found := False;
                      if Modes (M) = Iter.ai_socktype then
                         Result (J).Mode := M;
                         Found := True;