diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-07-18 21:53:31 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-09-05 09:21:02 +0200 |
| commit | f85d7deec9bce88bc9bc2124d0422272d3eb26d5 (patch) | |
| tree | 3f76f7c5a4531cafcd98a8fbd575185ec492e243 /gcc | |
| parent | 022f98942cb9d9d1f3c5b9d1c694d6607d4fbc26 (diff) | |
| download | gcc-f85d7deec9bce88bc9bc2124d0422272d3eb26d5.zip gcc-f85d7deec9bce88bc9bc2124d0422272d3eb26d5.tar.gz gcc-f85d7deec9bce88bc9bc2124d0422272d3eb26d5.tar.bz2 | |
[Ada] Cleanup resolution of aggregates with mixed component associations
Code cleanup only; semantics is unaffected.
gcc/ada/
* sem_aggr.adb (Resolve_Array_Aggregate): Change an inconsistent
use of False into its local equivalent Failure.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 349ec77..96d7dae 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1926,7 +1926,7 @@ package body Sem_Aggr is and then No (Component_Associations (N)) and then not Null_Record_Present (N) then - return False; + return Failure; end if; -- Disable the warning for GNAT Mode to allow for easier transition. @@ -1966,7 +1966,7 @@ package body Sem_Aggr is Error_Msg_N ("mixed iterated component association" & " (RM 4.3.3 (17.1/5))", Assoc); - return False; + return Failure; end if; Next (Assoc); @@ -1985,7 +1985,7 @@ package body Sem_Aggr is Error_Msg_N ("mixed iterated component association" & " (RM 4.3.3 (17.1/5))", Assoc); - return False; + return Failure; end if; Next (Assoc); |