From patchwork Thu Sep 11 09:19:03 2025 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: =?utf-8?q?Marc_Poulhi=C3=A8s?= X-Patchwork-Id: 120057 Return-Path: X-Original-To: patchwork@sourceware.org Delivered-To: patchwork@sourceware.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id D67973858416 for ; Thu, 11 Sep 2025 09:53:06 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org D67973858416 Authentication-Results: sourceware.org; dkim=pass (2048-bit key, secure) header.d=adacore.com header.i=@adacore.com header.a=rsa-sha256 header.s=google header.b=B7cU1B0s X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-wr1-x431.google.com (mail-wr1-x431.google.com [IPv6:2a00:1450:4864:20::431]) by sourceware.org (Postfix) with ESMTPS id 9CC89385841C for ; Thu, 11 Sep 2025 09:19:41 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 9CC89385841C Authentication-Results: sourceware.org; dmarc=pass (p=quarantine dis=none) header.from=adacore.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=adacore.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 9CC89385841C Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2a00:1450:4864:20::431 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1757582381; cv=none; b=v7t4A41Em85wjy9cYBt3J8i82JTS1K26A8H4QSexa2B74QVpisIca0gGDkeXzSlVuDHborWVSmoWKR1eBsWaK3X9HrTv9eVx42d1+L9i0+OzL8liXtC+11cxuMnjM1yUucQ2H0tgdQQ8paFgBfvqNwgkDM684kqKxVNDnfObTYc= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1757582381; c=relaxed/simple; bh=QNIbUFSbSTXFbjO3XPFgx98cVQ0CxIac0nNwpCOMQEw=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=oCGoQkKTUVkKG4GHVebsiHO6VzYBJlMnc2AGK5jV+jFSCRE1kegODPWsL2c0s/z2l/x0MlD7N5giYzaegQUmNl5r5pFoOs7ZkjrXnCvq9YkVrxQo9GuSOfnANEcz4zXt4VZE41ZnFWcMt4reKI/D27UTNqzF3yR/hKZ8RrI+9Nw= ARC-Authentication-Results: i=1; server2.sourceware.org DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 9CC89385841C Received: by mail-wr1-x431.google.com with SMTP id ffacd0b85a97d-3da4c14a5f9so951232f8f.0 for ; Thu, 11 Sep 2025 02:19:41 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1757582380; x=1758187180; darn=gcc.gnu.org; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:from:to:cc:subject:date :message-id:reply-to; bh=O0+7Ovi3eOJM8Zl7WvK+yEV4NQJ+0pD0zFLE7rUzpM8=; b=B7cU1B0slpb9Iqv4R2VHufKbR+/lttfM+mBwtgdIr4eEe/91Fc5fvDM9FDieqJecF0 FmvsPa73AyivUCUPkecupYxgtgMBSrz4SfWLIE+11yA17f+ZYVbpSFWXxazWdVg6U0ru YfUvhredZOkOyHP8ccoPXwbJiidW9IveLCVCP6usHIWNfB3N7RRlGZSGXVhfml2i58MR mhj6st1c/Nz/nWZ9c5RoMzKfK/zLViuB99ZkFxVodaut+8fnIZ3Jzv5vmG8UISu8eGr4 co2zLMMB8ULQrJB3fVPoHwZAFqXJ5+P1t2QM4oBKgsE25xi6yf7/DuifqtKyJviKTZpw D3iw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1757582380; x=1758187180; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:x-gm-message-state:from:to:cc :subject:date:message-id:reply-to; bh=O0+7Ovi3eOJM8Zl7WvK+yEV4NQJ+0pD0zFLE7rUzpM8=; b=KZM2XuXWmHP3a5gjJFe20TlT3gtMO2zm1Umn9o4DI2Tc+r2IT+n+fE+FWr0ke30nnn K4hR7N8a4OWxqMdh15AgmNNhss/ObFaolRSnJD2iBdeNxhNK5ZfeS9KIz3hWQXc7nl3y Fxw++mdKc+5Ck1N3e9utyrF3kzFjwqEp1zEqrfk3h1t36wNaL9WBocPg8WMA2gWY6HEh QrWh50TLkGg21sA5PK6EZQT7KbwDZrpezkpOePzMOkSwP5fi4vANu6FeBtlAQaoli88w MRbz6vE6XTeYoPUcA1bc+iQG9AoS1LDFoTyerzCat4za8lW41xm0y6wkmNDGikvZdns5 6dGQ== X-Gm-Message-State: AOJu0YzTPrG4j2Dr8Fy+8FF58te7KEcBPtHrtiTVghOZIC+vRJ7hJf0J KSVC4ugsE7iHkfgCMVoKzAw6rhH+NJQdJ7j6xQaCU2agnxLHY98bNW8GdyQntgPSkW2aFmlEQDc QAjM= X-Gm-Gg: ASbGncusNjh7o01DbFV0OLdYTMmI8FWxlJ5V/BuDw5oG0yoCom7NBHqISVL4i0HhACw oRR9hV5J8DGjeAU31n2t4qd01GpwX1jYMDFGiQUrTKlMmpibo0RnpCLiNVSklI/2u8al2kPyLnm Oce6coATVwqgp+COW2QUOKJ6z6CWwW2qcR+gNDTP63RTpUieXKJXVuX5Dp2QJztFng9N2yVxguf S6QEeZJ8iRVpC/nA1T2+P5XNyLTl9DwwtGwRfMj9w8yBAiuTG28biZpxUr3Sp4sVZiV9tWdjnEz OBygsykaQ+65pAJohtOMpkCPBP2VXthvCjtw7yMHYGhqgyyuqKUYxjb3nImt3yg6H/d/AMK38RX gOq2UcPQHCm4M2iuMGHna9cXDTU83N/n+gomMo5wF1Yq1DaA0/Ihmjy7KvLaidKBdBgnbo79dV5 CKa+LIY5IoUNh2ZM7Wplpe6vLwGr6ZsWQrzizt7JZYjDPysI6C X-Google-Smtp-Source: AGHT+IFuu7Bc74xNafqmfRPXuvW5ETJZqTBIYUjJJ6D5wF59RNlp7ZSuMgglBW5X3IftqJnVbCx2nA== X-Received: by 2002:a5d:5d8a:0:b0:3dc:2f0e:5e2e with SMTP id ffacd0b85a97d-3e75e0ed9admr2084628f8f.13.1757582380106; Thu, 11 Sep 2025 02:19:40 -0700 (PDT) Received: from poulhies-Precision-5550.telnowedge.local (lmontsouris-659-1-24-67.w81-250.abo.wanadoo.fr. [81.250.175.67]) by smtp.gmail.com with ESMTPSA id ffacd0b85a97d-3e7607cd27dsm1649971f8f.41.2025.09.11.02.19.39 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 11 Sep 2025 02:19:39 -0700 (PDT) From: =?utf-8?q?Marc_Poulhi=C3=A8s?= To: gcc-patches@gcc.gnu.org Cc: =?utf-8?q?Marc_Poulhi=C3=A8s?= Subject: [COMMITTED 31/31] ada: add BACKLOG_MAX OS constant Date: Thu, 11 Sep 2025 11:19:03 +0200 Message-ID: <20250911091904.1505690-31-poulhies@adacore.com> X-Mailer: git-send-email 2.43.0 In-Reply-To: <20250911091904.1505690-1-poulhies@adacore.com> References: <20250911091904.1505690-1-poulhies@adacore.com> MIME-Version: 1.0 X-Spam-Status: No, score=-13.8 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.30 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: gcc-patches-bounces~patchwork=sourceware.org@gcc.gnu.org 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. Tested on x86_64-pc-linux-gnu, committed on master. --- 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 0fed79177544..303640f7fcca 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 1fe8a74ef11e..7c6534cd71c9 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 7a5e987cefc4..4f9ff2aac867 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")