diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:12:09 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:12:09 +0200 |
| commit | d2d8b2a70d792987761480ac14301816498a6454 (patch) | |
| tree | dbf1a3f04bae9a8d171e9ca2a7b1aaec91d67569 /gcc/ada/gprep.adb | |
| parent | 3fad4d00acc3ccc59e4d028eb94d759e9ed4c55f (diff) | |
| download | gcc-d2d8b2a70d792987761480ac14301816498a6454.zip gcc-d2d8b2a70d792987761480ac14301816498a6454.tar.gz gcc-d2d8b2a70d792987761480ac14301816498a6454.tar.bz2 | |
[multiple changes]
2014-07-17 Robert Dewar <dewar@adacore.com>
* exp_ch7.adb, exp_ch7.ads, sinfo.ads: Minor reformatting.
2014-07-17 Ed Schonberg <schonberg@adacore.com>
* sem_case.adb (Check_Choice_Set): If the case expression is the
expression in a predicate, do not recheck coverage against itself,
to prevent spurious errors.
* sem_ch13.adb (Check_Aspect_At_End_Of_Declarations): Indicate that
expression comes from an aspect specification, to prevent spurious
errors when expression is a case expression in a predicate.
2014-07-17 Pascal Obry <obry@adacore.com>
* adaint.c, adaint.h (__gnat_set_executable): Add mode parameter.
* s-os_lib.ads, s-os_lib.adb (Set_Executable): Add Mode parameter.
2014-07-17 Vincent Celier <celier@adacore.com>
* gnatchop.adb, make.adb, gnatbind.adb, clean.adb, gprep.adb,
gnatxref.adb, gnatls.adb, gnatfind.adb, gnatname.adb: Do not output
the usage for an erroneous invocation of a gnat tool.
From-SVN: r212716
Diffstat (limited to 'gcc/ada/gprep.adb')
| -rw-r--r-- | gcc/ada/gprep.adb | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb index 54d2c8e..63286ca 100644 --- a/gcc/ada/gprep.adb +++ b/gcc/ada/gprep.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -38,7 +38,8 @@ with Stringt; use Stringt; with Switch; use Switch; with Types; use Types; -with Ada.Text_IO; use Ada.Text_IO; +with Ada.Command_Line; use Ada.Command_Line; +with Ada.Text_IO; use Ada.Text_IO; with GNAT.Case_Util; use GNAT.Case_Util; with GNAT.Command_Line; @@ -205,14 +206,19 @@ package body GPrep is -- No input file specified, just output the usage and exit - Usage; + if Argument_Count = 0 then + Usage; + else + Put_Line ("type ""gnatprep --help"" for help"); + end if; + return; elsif Outfile_Name = No_Name then - -- No output file specified, just output the usage and exit + -- No output file specified, exit - Usage; + Put_Line ("type ""gnatprep --help"" for help"); return; end if; @@ -767,7 +773,7 @@ package body GPrep is when GNAT.Command_Line.Invalid_Switch => Write_Str ("Invalid Switch: -"); Write_Line (GNAT.Command_Line.Full_Switch); - Usage; + Put_Line ("type ""gnatprep --help"" for help"); OS_Exit (1); end; end loop; |