From 6a1cb33a404025cb4d97876dd47e55c6800c6942 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Thu, 13 Dec 2007 11:23:29 +0100 Subject: clean.adb (Usage): Add line for -aP 2007-12-06 Bob Duff * 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 --- gcc/ada/clean.adb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/ada/clean.adb') diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index 2a02c84..bbe84ed 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 " & -- cgit v1.1