From patchwork Thu Sep 11 09:18:44 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: 120036 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 D2ECD3858401 for ; Thu, 11 Sep 2025 09:28:53 +0000 (GMT) X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-wr1-x429.google.com (mail-wr1-x429.google.com [IPv6:2a00:1450:4864:20::429]) by sourceware.org (Postfix) with ESMTPS id 4FAE73858405 for ; Thu, 11 Sep 2025 09:19:26 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 4FAE73858405 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 4FAE73858405 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2a00:1450:4864:20::429 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1757582366; cv=none; b=Bio5yUE3XBxqLgoRNWNpf8LhRc3Oj5uhStQUHGYmaCqTLJoPOXrFKkN93s15At9r6AVxyoREadCpkuakWbR8T+HUVphRCyScsRF8OvYadZmkw0F5c/04ny6ahurBBcCNZDyw3JCLEYFusJQkqPpbu++FzvjY8jwIQip02XMJvsc= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1757582366; c=relaxed/simple; bh=YcHkGQ0dNXSmG/elxmTxGBtrttsAqFG3uK0gBpYjlPQ=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=pxklv5Yqx4ro40v9mMsEdo2XqI02l0fZHxh0uPl4YK7w/YQ9Nh37OsP3ywUlSEKry3ebgvyMO5VLzoDHUXV5NU4tt6ruvaDjKwUf39HLK2wSi8xUaaKEM73ZtFMv9Im344xtScalD2cPmW3zl+kwMMVwhG+hWorL1y06P3/KPJ4= ARC-Authentication-Results: i=1; server2.sourceware.org DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 4FAE73858405 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=JTtrHjSX Received: by mail-wr1-x429.google.com with SMTP id ffacd0b85a97d-3df35a67434so336608f8f.3 for ; Thu, 11 Sep 2025 02:19:26 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1757582365; x=1758187165; 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=gTSlDsSyesIbBdJpJesW8jZRgsr/C+L0C0xsI6NqNbE=; b=JTtrHjSXXSRcKBWqv/91ejDdWyem8DinyXW9fd5Dki1nqIqkjloDJzZt3YB3RPM85P f11rN5YyfSlJCTOKSUpuU7SDGBG6FncuFEvDfUgULK1D8oGn3wpRoI/JyMqUGZeb6Zsi LcVgk268bNYQMugF/vdqSqMYamJB6yYEGXajDMFMRMlEiBnyGki058BFINGrb5T9VGWA 0yTYYjuUXvGJfagI69jXR40CHF70TZJuJHsWgnIAYDKD6hFuu2RgfJrQtOtco24hnUIx yQqcaU7UX6AX7kI/l5iAeskWgLJKGBaYrIczMV1yx5TwzJ9w1BJMd0sNcp+qK1R0z0Qu Ma4A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1757582365; x=1758187165; 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=gTSlDsSyesIbBdJpJesW8jZRgsr/C+L0C0xsI6NqNbE=; b=r2sM2vV/woAZ9FJ+sg9b32MAj2Fr2TBXe1sMhuKmdtLaj0+rtxW3tu+jgZryDENXnR hKaPyvkDFZVxH7oFsFoIGAtyAByLGZlfgA67/0SrT3XlVeDYa4DH9ugLaI/kDHgDcgyE QMed5ni6HFjhjBr2QICjGqoJ3qYlUMTE5PiTNZMUbqtM6IhLUoAq3tl2ejp4+zkfgs1m E0I8TvVCxvF9bced2qUQv2Bk7HlatDWKhflDpges4F4Gl4ehlbl2Zn2b3pYMtlvfv6Bq izjSTuk2bOsd8Y+tfhwu+3KOcicmyuMPr2dKc/Sk+X+V4Cv7/XKODCHyF6cOn9aP7n7E dEuA== X-Gm-Message-State: AOJu0YysW5C6TIIPSJLP07nbp+Z3f68oPDLVScVw6qNdj58zavXXlNYr p6VGMfN0xhh6H8uI76l08UC6/9WQktlYFqi8BvUlxayjqur+dmmclwT36c+ayKkBxHerfSpR0Dq lUpg= X-Gm-Gg: ASbGnctsIezTLCVqV7MMfdbDNCQnz12MbnUyYM0JaMw7Zo11cGOvNgJZsHjC7H6iq39 FhvNzc10/FNbNlc2hPdVB/D1wSXxR6mKbxLKBz3j1yY2eGXINZTYOYyUnu7ggLx4sxtxrEcZYHn mmam7Hl6C5WwBz9gCIcqUg1CxJT/ha6ageVv4ApM9rGTcRD0FubmNVhGYADo98/r3LaIjKp5GBp 47ehrPNbmOujV4UoOF/zdaL81xiyzzNtY4/Geb3w++l16xpzg5E+s3J+VlCsFYkY42XJ4gBJ8O9 Y3B7hxOAoBlQ5tktdersPk4PFuHColfS6GCdo35ZzpVhdWJKnFUCniEw06wBZwEDLdG//v8DPm9 G3pMzn2oW8Bkxl4p0rnhhOxTR+5CfSAAjLmfJIcO5DZsIur39H08ow0vnd2tSmop2Z4IhHzr+Fv sFee2r6SFWCK8oD29KZpZeJuBn42VQrWsMeI/5ybfYgpLbJsdu X-Google-Smtp-Source: AGHT+IEGywPTLIFwCNB6GexiT8o5uunGvQC+WJrPDT03zhwjLclFNH7kIGlK4TKesC3p3pA3tkbFfQ== X-Received: by 2002:a05:6000:2f87:b0:3e0:c28a:abbb with SMTP id ffacd0b85a97d-3e6374655a1mr14261160f8f.13.1757582364910; Thu, 11 Sep 2025 02:19:24 -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.24 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 11 Sep 2025 02:19:24 -0700 (PDT) From: =?utf-8?q?Marc_Poulhi=C3=A8s?= To: gcc-patches@gcc.gnu.org Cc: Tonu Naks Subject: [COMMITTED 12/31] ada: Fix argument type of read() and write() on windows Date: Thu, 11 Sep 2025 11:18:44 +0200 Message-ID: <20250911091904.1505690-12-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 From: Tonu Naks gcc/ada/ChangeLog: * libgnat/s-crtl.ads: define unsigned * libgnat/s-crtl__mingw.adb (read, write): change arg type Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/libgnat/s-crtl.ads | 3 +++ gcc/ada/libgnat/s-crtl__mingw.adb | 8 ++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/gcc/ada/libgnat/s-crtl.ads b/gcc/ada/libgnat/s-crtl.ads index 196b0109ab55..5ca7fc468495 100644 --- a/gcc/ada/libgnat/s-crtl.ads +++ b/gcc/ada/libgnat/s-crtl.ads @@ -50,6 +50,9 @@ package System.CRTL is subtype int is Integer; + type unsigned is mod 2 ** 32; + for unsigned'Size use 32; + type long is range -(2 ** (System.Parameters.long_bits - 1)) .. +(2 ** (System.Parameters.long_bits - 1)) - 1; diff --git a/gcc/ada/libgnat/s-crtl__mingw.adb b/gcc/ada/libgnat/s-crtl__mingw.adb index 6b1035974519..8f10cb8c13f4 100644 --- a/gcc/ada/libgnat/s-crtl__mingw.adb +++ b/gcc/ada/libgnat/s-crtl__mingw.adb @@ -40,10 +40,10 @@ package body System.CRTL is function read (fd : int; buffer : chars; count : size_t) return ssize_t is function read_raw - (fd : int; buffer : chars; count : size_t) return int; + (fd : int; buffer : chars; count : unsigned) return int; pragma Import (C, read_raw, "read"); begin - return ssize_t (read_raw (fd, buffer, count)); + return ssize_t (read_raw (fd, buffer, unsigned (count))); end read; ----------- @@ -53,10 +53,10 @@ package body System.CRTL is function write (fd : int; buffer : chars; count : size_t) return ssize_t is function write_raw - (fd : int; buffer : chars; count : size_t) return int; + (fd : int; buffer : chars; count : unsigned) return int; pragma Import (C, write_raw, "write"); begin - return ssize_t (write_raw (fd, buffer, count)); + return ssize_t (write_raw (fd, buffer, unsigned (count))); end write; end System.CRTL;