From ea89e1c31ec9c5fa68d6d963e7b40fca155377fd Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 14 Oct 2020 23:43:21 +0200 Subject: [PATCH] [Ada] Merge duplicated processing for gnatmake -u and -U switches gcc/ada/ * make.adb (Scan_Make_Arg): Merge ELSIF branches for -u and -U. --- gcc/ada/make.adb | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) 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; -- 2.30.2