From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 3 Jan 2020 16:18:18 +0000 (-0500)
Subject: [Ada] Add Address_Int declaration in s-auxdec.ads
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c35b8eed79041b1d8f6001904a4c55d6e56ebb21;p=gcc.git

[Ada] Add Address_Int declaration in s-auxdec.ads

2020-06-03  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* libgnat/s-auxdec.ads (Address_Int): New.
---

diff --git a/gcc/ada/libgnat/s-auxdec.ads b/gcc/ada/libgnat/s-auxdec.ads
index f421b2c0ec1..66a9c9e77c7 100644
--- a/gcc/ada/libgnat/s-auxdec.ads
+++ b/gcc/ada/libgnat/s-auxdec.ads
@@ -198,6 +198,8 @@ package System.Aux_DEC is
    type Unsigned_Quadword_Array is
       array (Integer range <>) of Unsigned_Quadword;
 
+   subtype Address_Int is Integer;
+
    function To_Address (X : Integer) return Address;
    pragma Pure_Function (To_Address);