diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-01 10:14:49 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-01 10:14:49 +0200 |
| commit | 8e983d807e96f2b993e1bc840c915c8f461077d4 (patch) | |
| tree | 6f0271e566e17f424763b6a9433eabc8f59c42de /gcc/ada/make.adb | |
| parent | 7246b890962539d475f0f4737c4e87be6f197be9 (diff) | |
| download | gcc-8e983d807e96f2b993e1bc840c915c8f461077d4.zip gcc-8e983d807e96f2b993e1bc840c915c8f461077d4.tar.gz gcc-8e983d807e96f2b993e1bc840c915c8f461077d4.tar.bz2 | |
[multiple changes]
2012-10-01 Thomas Quinot <quinot@adacore.com>
* gnatcmd.adb, make.adb (Scan_Make_Arg, Inspect_Switches): Recognize
and reject an invalid parameter passed to -vP.
2012-10-01 Yannick Moy <moy@adacore.com>
* sem_warn.adb (Check_Infinite_Loop_Warning/Test_Ref): Improve
the detection of modifications to the loop variable by noting
that, if the type of variable is elementary and the condition
does not contain a function call, then the condition cannot be
modified by side-effects from a procedure call.
2012-10-01 Robert Dewar <dewar@adacore.com>
* checks.adb: Add comments.
2012-10-01 Javier Miranda <miranda@adacore.com>
* exp_ch3.adb (Expand_N_Object_Declaration): Improve condition catching
never-ending recursion. The previous condition erroneously disabled
silently the expansion of the class-wide interface object
initialization in cases not involving the recursion.
From-SVN: r191892
Diffstat (limited to 'gcc/ada/make.adb')
| -rw-r--r-- | gcc/ada/make.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 957e35d..2d53ee2 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -7825,11 +7825,12 @@ package body Make is -- -vPx (verbosity of the parsing of the project files) - elsif Argv'Last = 4 - and then Argv (2 .. 3) = "vP" - and then Argv (4) in '0' .. '2' - then - if And_Save then + elsif Argv (2 .. 3) = "vP" then + if Argv'Last /= 4 or else Argv (4) not in '0' .. '2' then + Make_Failed + ("invalid verbosity level " & Argv (4 .. Argv'Last)); + + elsif And_Save then case Argv (4) is when '0' => Current_Verbosity := Prj.Default; |