diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-10-14 23:43:21 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-25 08:22:43 -0500 |
| commit | ea89e1c31ec9c5fa68d6d963e7b40fca155377fd (patch) | |
| tree | ab720e389787132c63857664b2b2fb91f756f294 /gcc/ada/make.adb | |
| parent | 47c2b77ffb9a2a1b5c1b8ab7ee01a258e7a9cae7 (diff) | |
| download | gcc-ea89e1c31ec9c5fa68d6d963e7b40fca155377fd.zip gcc-ea89e1c31ec9c5fa68d6d963e7b40fca155377fd.tar.gz gcc-ea89e1c31ec9c5fa68d6d963e7b40fca155377fd.tar.bz2 | |
[Ada] Merge duplicated processing for gnatmake -u and -U switches
gcc/ada/
* make.adb (Scan_Make_Arg): Merge ELSIF branches for -u and -U.
Diffstat (limited to 'gcc/ada/make.adb')
| -rw-r--r-- | gcc/ada/make.adb | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 0034d1a..1288875 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; |