From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 29 Apr 2020 19:42:22 +0000 (+0200)
Subject: [Ada] Deal with enumeration types with very large size
X-Git-Tag: basepoints/gcc-12~6716
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c5c69d05a905069496f81a3e2fe78ec85aa8dd36;p=thirdparty%2Fgcc.git

[Ada] Deal with enumeration types with very large size

2020-06-19  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* exp_attr.adb (Get_Integer_Type): Return the largest supported
	unsigned integer type if need be.
---

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 30bb7cce1e47..f21ec9e91173 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -1766,7 +1766,7 @@ package body Exp_Attr is
             Int_Typ := Standard_Unsigned;
 
          else
-            raise Program_Error;
+            Int_Typ := Standard_Long_Long_Unsigned;
          end if;
 
          return Int_Typ;