diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-04-29 21:42:22 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-19 04:17:22 -0400 |
| commit | c5c69d05a905069496f81a3e2fe78ec85aa8dd36 (patch) | |
| tree | 66157ce4cf09fd105a9ac2aab39050ce05c78057 | |
| parent | 650abc2c93ab2e599df3053c8556e70de003dd79 (diff) | |
| download | gcc-c5c69d05a905069496f81a3e2fe78ec85aa8dd36.zip gcc-c5c69d05a905069496f81a3e2fe78ec85aa8dd36.tar.gz gcc-c5c69d05a905069496f81a3e2fe78ec85aa8dd36.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; |