From 7dc58f3fc27ac9620b469dc56c44d55b7ee9d1a6 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 29 Sep 2021 12:13:17 +0200
Subject: [Ada] Remove redundant guard against an empty component list

gcc/ada/

	* exp_aggr.adb (Component_OK_For_Backend): Remove redundant
	guard.
---
 gcc/ada/exp_aggr.adb | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'gcc')

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 71bad3c..06cdafd 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
 
-- 
cgit v1.1