From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 29 Sep 2021 10:13:17 +0000 (+0200)
Subject: [Ada] Remove redundant guard against an empty component list
X-Git-Tag: basepoints/gcc-13~4019
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=7dc58f3fc27ac9620b469dc56c44d55b7ee9d1a6;p=thirdparty%2Fgcc.git

[Ada] Remove redundant guard against an empty component list

gcc/ada/

	* exp_aggr.adb (Component_OK_For_Backend): Remove redundant
	guard.
---

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 71bad3cb6765..06cdafda4187 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -8547,10 +8547,6 @@ package body Exp_Aggr is
          Expr_Q : Node_Id;
 
       begin
-         if No (Comps) then
-            return True;
-         end if;
-
          C := First (Comps);
          while Present (C) loop