From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 14 Oct 2020 21:43:21 +0000 (+0200)
Subject: [Ada] Merge duplicated processing for gnatmake -u and -U switches
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ea89e1c31ec9c5fa68d6d963e7b40fca155377fd;p=gcc.git

[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 0034d1ad052..1288875b777 100644
--- 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;