diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:47:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:47:15 +0200 |
| commit | bb01279084cc4ed7c7894d16be6af502fb5ad914 (patch) | |
| tree | 4d92ba93eaafdfb64c5c62d90193677f7811f7c7 /gcc/ada/gnatls.adb | |
| parent | ee10c0ec8875d997a4892fbbdf5f49c2d6d824b9 (diff) | |
| download | gcc-bb01279084cc4ed7c7894d16be6af502fb5ad914.zip gcc-bb01279084cc4ed7c7894d16be6af502fb5ad914.tar.gz gcc-bb01279084cc4ed7c7894d16be6af502fb5ad914.tar.bz2 | |
[multiple changes]
2014-07-17 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Document new restriction No_Long_Long_Integers.
* exp_ch4.adb (Make_Array_Comparison_Op): Add note that we
could do this by actually expanding a real generic.
* a-tags.ads: Add comments about performance.
* sprint.adb (Sprint_Node_Actual, case N_Object_Declaration):
Print Etype of defining identifier, rather than the object
definition. More information.
2014-07-17 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb: Minor documentation clarification.
2014-07-17 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Is_Aliased): Revert previous change.
2014-07-17 Vincent Celier <celier@adacore.com>
* g-comlin.adb (Try_Help): New procedure.
(Getopt): Use new procedure Try_Help.
* g-comlin.ads (Try_Help): New procedure.
2014-07-17 Bob Duff <duff@adacore.com>
* gnat_ugn.texi: Minor update.
From-SVN: r212728
Diffstat (limited to 'gcc/ada/gnatls.adb')
| -rw-r--r-- | gcc/ada/gnatls.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index 4df2503..4a7c217 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -47,7 +47,8 @@ with Types; use Types; with Ada.Command_Line; use Ada.Command_Line; -with GNAT.Case_Util; use GNAT.Case_Util; +with GNAT.Command_Line; use GNAT.Command_Line; +with GNAT.Case_Util; use GNAT.Case_Util; procedure Gnatls is pragma Ident (Gnat_Static_Version_String); @@ -1601,7 +1602,7 @@ begin Set_Standard_Error; Write_Str ("Can't use -l with another switch"); Write_Eol; - Write_Line ("type ""gnatls --help"" for help"); + Try_Help; Exit_Program (E_Fatal); end if; @@ -1753,7 +1754,7 @@ begin if Argument_Count = 0 then Usage; else - Write_Line ("type ""gnatls --help"" for help"); + Try_Help; end if; end if; |