From: Ronan Desplanques <desplanques@adacore.com>
Date: Fri, 28 Mar 2025 11:58:36 +0000 (+0100)
Subject: ada: Factorize return statement
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a9cc2a22e9def732c5cdb40aa86b427f401786c7;p=thirdparty%2Fgcc.git

ada: Factorize return statement

Code cleanup; behavior is unaffected.

gcc/ada/ChangeLog:

	* sem_ch3.adb (Constrain_Index): Factorize return statement.
---

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index e56ec5be025..a5df3f89dac 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -15315,13 +15315,12 @@ package body Sem_Ch3 is
                   S, Entity (S));
             end if;
 
-            return;
-
          else
             Error_Msg_N ("invalid index constraint", S);
             Rewrite (S, New_Occurrence_Of (T, Sloc (S)));
-            return;
          end if;
+
+         return;
       end if;
 
       --  Complete construction of the Itype