diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-01-06 13:14:58 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-03 06:01:28 -0400 |
| commit | fe2684adda4c471b48e1cb1a69a8ea3d02bf4e1a (patch) | |
| tree | 42ca4b9a8d734f3028adfefe94499acae21dc194 /gcc | |
| parent | c35b8eed79041b1d8f6001904a4c55d6e56ebb21 (diff) | |
| download | gcc-fe2684adda4c471b48e1cb1a69a8ea3d02bf4e1a.tar.gz | |
[Ada] Get rid of more references to Universal_Integer in expanded code
2020-06-03 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* exp_attr.adb (Attribute_Valid): Use Standard_Long_Long_Integer
in lieu of Universal_Integer as large integer type.
* exp_ch3.adb (Expand_Freeze_Enumeration_Type): Likewise.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 4859ef06abe..0a52fecca38 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -6924,7 +6924,7 @@ package body Exp_Attr is if Esize (Ptyp) <= Esize (Standard_Integer) then PBtyp := Standard_Integer; else - PBtyp := Universal_Integer; + PBtyp := Standard_Long_Long_Integer; end if; Rewrite (N, Make_Range_Test); diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 5ecda624457..0a18d0dd131 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -4806,7 +4806,7 @@ package body Exp_Ch3 is if Esize (Typ) <= Standard_Integer_Size then Ityp := Standard_Integer; else - Ityp := Universal_Integer; + Ityp := Standard_Long_Long_Integer; end if; -- Representations are unsigned |