diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-19 00:04:43 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-11 05:53:53 -0400 |
| commit | 5c4adf10c5637284e63fffce8a7ac4ee6afbce29 (patch) | |
| tree | a3077934effa4436cc5db1271bed5cc7df2964e8 /gcc | |
| parent | cbbe41d1f7b87e4f1889d0412ee46517bb7d5674 (diff) | |
| download | gcc-5c4adf10c5637284e63fffce8a7ac4ee6afbce29.zip gcc-5c4adf10c5637284e63fffce8a7ac4ee6afbce29.tar.gz gcc-5c4adf10c5637284e63fffce8a7ac4ee6afbce29.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; |