diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-01-03 11:18:18 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-03 06:01:27 -0400 |
| commit | c35b8eed79041b1d8f6001904a4c55d6e56ebb21 (patch) | |
| tree | 609382222e2bae10183fbc612ea7183daecec872 | |
| parent | ba2034610fcc0d56dd52cb20c26f9ab1997b520e (diff) | |
| download | gcc-c35b8eed79041b1d8f6001904a4c55d6e56ebb21.zip gcc-c35b8eed79041b1d8f6001904a4c55d6e56ebb21.tar.gz gcc-c35b8eed79041b1d8f6001904a4c55d6e56ebb21.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/libgnat/s-auxdec.ads | 2 |
1 files changed, 2 insertions, 0 deletions
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); |