diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-19 00:04:43 +0100 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:12:12 -0300 |
| commit | bb1bc927507523339f183d9109e462b64112d894 (patch) | |
| tree | 98286aebc470eba1ae999212b73799df45e78072 /gcc | |
| parent | 2b71b38cbfb94a7bac6524bf5878a0172422d079 (diff) | |
| download | gcc-bb1bc927507523339f183d9109e462b64112d894.zip gcc-bb1bc927507523339f183d9109e462b64112d894.tar.gz gcc-bb1bc927507523339f183d9109e462b64112d894.tar.bz2 | |
[Ada] Refine type of a counter-like variable
2020-06-11 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* sem_aggr.adb (Resolve_Record_Aggregate): Refine type of
Others_Box.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 84695b4..19c44c2 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -3283,7 +3283,7 @@ package body Sem_Aggr is Box_Node : Node_Id := Empty; Is_Box_Present : Boolean := False; - Others_Box : Integer := 0; + Others_Box : Natural := 0; -- Ada 2005 (AI-287): Variables used in case of default initialization -- to provide a functionality similar to Others_Etype. Box_Present -- indicates that the component takes its default initialization; |