From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1059) id BD4E73893678; Thu, 11 Jun 2020 13:14:42 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org BD4E73893678 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1591881282; bh=+7KiYqFs127NdAqF+AwqMCaLVcht7xQzFqdTPWXI+NI=; h=From:To:Subject:Date:From; b=SQH0aEaLvBeqZ8v+AIjz+we4sr2Yqkt9hP1CoGS2Nh7Hr2+U1bEjuG5lvhzHcLNi6 B/HKycbbVmu78J0txqqnOh1zso7WciQsAB698TUHW1LHrQUMqyOIxXVIhlXb9xSbTa DHTXW1K3Wms6Sh4ikV2Qjb+L9quwJrRZ4/75hRn0= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Nathan Sidwell To: gcc-cvs@gcc.gnu.org Subject: [gcc/devel/c++-modules] [Ada] AI12-0184: Long Long C Data types X-Act-Checkin: gcc X-Git-Author: Arnaud Charlet X-Git-Refname: refs/heads/devel/c++-modules X-Git-Oldrev: 301e2a16c443924c90e0d038862e957165dd899d X-Git-Newrev: 53ec04cbdd192468d1975640759084f4e37fe4e8 Message-Id: <20200611131442.BD4E73893678@sourceware.org> Date: Thu, 11 Jun 2020 13:14:42 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 11 Jun 2020 13:14:42 -0000 https://gcc.gnu.org/g:53ec04cbdd192468d1975640759084f4e37fe4e8 commit 53ec04cbdd192468d1975640759084f4e37fe4e8 Author: Arnaud Charlet Date: Thu Jan 30 04:05:44 2020 -0500 [Ada] AI12-0184: Long Long C Data types 2020-06-04 Arnaud Charlet gcc/ada/ * libgnat/i-c.ads (long_long, unsigned_long_long): New definitions. Diff: --- gcc/ada/libgnat/i-c.ads | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gcc/ada/libgnat/i-c.ads b/gcc/ada/libgnat/i-c.ads index 1088836e25e..279c75a2721 100644 --- a/gcc/ada/libgnat/i-c.ads +++ b/gcc/ada/libgnat/i-c.ads @@ -36,13 +36,15 @@ package Interfaces.C is type short is new Short_Integer; type long is range -(2 ** (System.Parameters.long_bits - Integer'(1))) .. +(2 ** (System.Parameters.long_bits - Integer'(1))) - 1; + type long_long is new Long_Long_Integer; type signed_char is range SCHAR_MIN .. SCHAR_MAX; for signed_char'Size use CHAR_BIT; - type unsigned is mod 2 ** int'Size; - type unsigned_short is mod 2 ** short'Size; - type unsigned_long is mod 2 ** long'Size; + type unsigned is mod 2 ** int'Size; + type unsigned_short is mod 2 ** short'Size; + type unsigned_long is mod 2 ** long'Size; + type unsigned_long_long is mod 2 ** long_long'Size; type unsigned_char is mod (UCHAR_MAX + 1); for unsigned_char'Size use CHAR_BIT;