[Ada] Fix possible memory corruption for hostnames longer than 1024 bytes

gcc/ada/

	* libgnat/g-socket.ads (Max_Name_Length): Initialize with
	NI_MAXHOST.
This commit is contained in:
Pascal Obry 2021-11-17 17:20:32 +01:00 committed by Pierre-Marie de Rodat
parent 0ef5185a15
commit 261d367a10

View File

@ -1558,8 +1558,10 @@ private
No_Sock_Addr : constant Sock_Addr_Type := (Family_Inet, No_Inet_Addr, 0);
Max_Name_Length : constant := 64;
-- The constant MAXHOSTNAMELEN is usually set to 64
Max_Name_Length : constant := SOSC.NI_MAXHOST;
-- Most systems don't provide constants that specify the maximum size
-- of either a FQDN or a service name. In order to aid applications in
-- allocating buffers, the constant NI_MAXHOST is defined in <netdb.h>.
subtype Name_Index is Natural range 1 .. Max_Name_Length;