From 165b029d4dfaa18de907d8dc8a4e56f82f06b697 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Marc=20Poulhi=C3=A8s?= Date: Mon, 8 Sep 2025 16:42:48 +0200 Subject: [PATCH] ada: add BACKLOG_MAX OS constant BACKLOG_MAX represents the number of outstanding connections in the socket's listen queue. gcc/ada/ChangeLog: * libgnat/g-socket.adb (Listen_Socket): Change default value. * libgnat/g-socket.ads (Listen_Socket): Likewise. * s-oscons-tmplt.c (BACKLOG_MAX): New. --- gcc/ada/libgnat/g-socket.adb | 2 +- gcc/ada/libgnat/g-socket.ads | 2 +- gcc/ada/s-oscons-tmplt.c | 3 +++ 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/gcc/ada/libgnat/g-socket.adb b/gcc/ada/libgnat/g-socket.adb index 0fed7917754..303640f7fcc 100644 --- a/gcc/ada/libgnat/g-socket.adb +++ b/gcc/ada/libgnat/g-socket.adb @@ -1958,7 +1958,7 @@ package body GNAT.Sockets is procedure Listen_Socket (Socket : Socket_Type; - Length : Natural := 15) + Length : Natural := SOSC.BACKLOG_MAX) is Res : constant C.int := C_Listen (C.int (Socket), C.int (Length)); begin diff --git a/gcc/ada/libgnat/g-socket.ads b/gcc/ada/libgnat/g-socket.ads index 1fe8a74ef11..7c6534cd71c 100644 --- a/gcc/ada/libgnat/g-socket.ads +++ b/gcc/ada/libgnat/g-socket.ads @@ -1219,7 +1219,7 @@ package GNAT.Sockets is procedure Listen_Socket (Socket : Socket_Type; - Length : Natural := 15); + Length : Natural := SOSC.BACKLOG_MAX); -- To accept connections, a socket is first created with Create_Socket, -- a willingness to accept incoming connections and a queue Length for -- incoming connections are specified. Raise Socket_Error on error. diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c index 7a5e987cefc..4f9ff2aac86 100644 --- a/gcc/ada/s-oscons-tmplt.c +++ b/gcc/ada/s-oscons-tmplt.c @@ -1791,6 +1791,9 @@ struct sockaddr_un { #define SIZEOF_sockaddr_un (sizeof (struct sockaddr_un)) CND(SIZEOF_sockaddr_un, "struct sockaddr_un") +#define BACKLOG_MAX 15 +CND(BACKLOG_MAX, "number of outstanding connections in the socket's listen queue") + #define SIZEOF_fd_set (sizeof (fd_set)) CND(SIZEOF_fd_set, "fd_set") CND(FD_SETSIZE, "Max fd value") -- 2.47.3