diff mbox series

[Ada] Cleanup resolution of aggregates with mixed component associations

Message ID 20220905072558.GA1174608@poulhies-Precision-5550
State New, archived
Headers
Series [Ada] Cleanup resolution of aggregates with mixed component associations |

Commit Message

Marc Poulhiès Sept. 5, 2022, 7:25 a.m. UTC 
  Code cleanup only; semantics is unaffected.

Tested on x86_64-pc-linux-gnu, committed on trunk

gcc/ada/

	* sem_aggr.adb (Resolve_Array_Aggregate): Change an inconsistent
	use of False into its local equivalent Failure.
diff mbox series

Patch

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
--- 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);