From c35b8eed79041b1d8f6001904a4c55d6e56ebb21 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 3 Jan 2020 11:18:18 -0500 Subject: [PATCH] [Ada] Add Address_Int declaration in s-auxdec.ads 2020-06-03 Arnaud Charlet gcc/ada/ * libgnat/s-auxdec.ads (Address_Int): New. --- 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 f421b2c..66a9c9e 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); -- 2.7.4