[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 f421b2c0ec193c0f8f77860b0ba96b23572fd215..66a9c9e77c7dd8a8c508116d4da2be5479e29968 100644 (file)
--- 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);