diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-04-29 21:42:22 +0200 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:14:10 -0300 |
| commit | 919f132d904f090b5ac0b66c33359a01bf5932b8 (patch) | |
| tree | b4a7c1e8b661742f4bf4ee95c26f599f8d7f7106 | |
| parent | da79ec2dc16ffdc2d4bb720e17577f1bd1b9a884 (diff) | |
| download | gcc-919f132d904f090b5ac0b66c33359a01bf5932b8.zip gcc-919f132d904f090b5ac0b66c33359a01bf5932b8.tar.gz gcc-919f132d904f090b5ac0b66c33359a01bf5932b8.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/exp_attr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 30bb7cc..f21ec9e 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; |