diff options
| -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 |