projects / platform / upstream / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5a6c36a)
[Ada] Remove redundant guard against an empty component list
authorPiotr Trojanek <trojanek@adacore.com>
Wed, 29 Sep 2021 10:13:17 +0000 (12:13 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 11 Oct 2021 13:38:10 +0000 (13:38 +0000)
gcc/ada/

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

gcc/ada/exp_aggr.adb patch | blob | history

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 71bad3c..06cdafd 100644 (file)
--- 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
 
Domain: System / Toolchain;