[gcc(refs/users/guojiufu/heads/guojiufu-branch)] [Ada] Get rid of more references to Universal_Integer in expanded code

[Jiu Fu Guo]

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

commit fe2684adda4c471b48e1cb1a69a8ea3d02bf4e1a
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Mon Jan 6 13:14:58 2020 +0100

    [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.

Diff:
---
 gcc/ada/exp_attr.adb | 2 +-
 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