diff options
| author | Bob Duff <duff@adacore.com> | 2007-12-13 11:23:29 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:23:29 +0100 |
| commit | 6a1cb33a404025cb4d97876dd47e55c6800c6942 (patch) | |
| tree | 740c5aba3c0949b0af4ce8a5af9213a4c4837b5f /gcc/ada/clean.adb | |
| parent | 16a55e63a98590ef71a37ff61c828c6b16bd75fb (diff) | |
| download | gcc-6a1cb33a404025cb4d97876dd47e55c6800c6942.tar.gz | |
clean.adb (Usage): Add line for -aP
2007-12-06 Bob Duff <duff@adacore.com>
* clean.adb (Usage): Add line for -aP
(Check_Version_And_Help): Change Check_Version_And_Help to be generic,
with a parameter "procedure Usage", instead of passing a pointer to a
procedure. This is to eliminate trampolines (since the Usage procedure
is often nested in a main procedure, and it would be inconvenient to
unnest it).
* g-comlin.adb (For_Each_Simple_Switch): Change For_Each_Simple_Switch
to be generic, with a parameter "procedure Callback (...)", instead of
passing a pointer to a procedure. This is to eliminate trampolines
(since the Callback procedure is usually nested).
* gnatfind.adb, switch.adb, switch.ads, gnatlink.adb, gnatls.adb,
gnatname.adb, gnatxref.adb, gnatchop.adb, gprep.adb, gnatbind.adb
(Check_Version_And_Help): Change Check_Version_And_Help to be generic.
* g-pehage.adb (Compute_Edges_And_Vertices, Build_Identical_Key_Sets):
Use the generic Heap_Sort_G instead of Heap_Sort_A.
From-SVN: r130824
Diffstat (limited to 'gcc/ada/clean.adb')
| -rw-r--r-- | gcc/ada/clean.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index 2a02c84e611..bbe84edf61b 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -1637,10 +1637,12 @@ package body Clean is Source_Index : Int := 0; Index : Positive; + procedure Check_Version_And_Help is new Check_Version_And_Help_G (Usage); + begin -- First, check for --version and --help - Check_Version_And_Help ("GNATCLEAN", "2003", Usage'Access); + Check_Version_And_Help ("GNATCLEAN", "2003"); Index := 1; while Index <= Last loop @@ -1970,6 +1972,9 @@ package body Clean is "for GNAT Project Files"); New_Line; + Put_Line (" -aPdir Add directory dir to project search path"); + New_Line; + Put_Line (" -aOdir Specify ALI/object files search path"); Put_Line (" -Idir Like -aOdir"); Put_Line (" -I- Don't look for source/library files " & |