[gcc(refs/users/guojiufu/heads/guojiufu-branch)] [Ada] Add Address_Int declaration in s-auxdec.ads

Jiu Fu Guo guojiufu@gcc.gnu.org
Wed Jun 10 03:27:05 GMT 2020


https://gcc.gnu.org/g:c35b8eed79041b1d8f6001904a4c55d6e56ebb21

commit c35b8eed79041b1d8f6001904a4c55d6e56ebb21
Author: Arnaud Charlet <charlet@adacore.com>
Date:   Fri Jan 3 11:18:18 2020 -0500

    [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:
---
 gcc/ada/libgnat/s-auxdec.ads | 2 ++
 1 file changed, 2 insertions(+)

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);


More information about the Gcc-cvs mailing list