[Ada] Merge duplicated processing for gnatmake -u and -U switches

gcc/ada/

	* make.adb (Scan_Make_Arg): Merge ELSIF branches for -u and -U.

diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index 0034d1ad052046b9556276c6945bc960739910ba..1288875b7777bbb135f0d7128a0f5bc7625f7f68 100644 (file)
--- a/gcc/ada/make.adb
+++ b/gcc/ada/make.adb
@@ -4697,19 +4697,9 @@ package body Make is
             pragma Assert (Argv'Last = 2);
             Minimal_Recompilation := True;
 
-         --  -u
+         --  -u and -U (they are differentiated elsewhere)
 
-         elsif Argv (2) = 'u' and then Argv'Last = 2 then
-            Unique_Compile := True;
-            Compile_Only   := True;
-            Do_Bind_Step   := False;
-            Do_Link_Step   := False;
-
-         --  -U
-
-         elsif Argv (2) = 'U'
-           and then Argv'Last = 2
-         then
+         elsif Argv (2) in 'u' | 'U' and then Argv'Last = 2 then
             Unique_Compile := True;
             Compile_Only   := True;
             Do_Bind_Step   := False;