From 453c24fb4dcaabaa2ef129d61468fc1e8733dcaa Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 13 Dec 2007 10:23:29 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130824 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/gnatbind.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'gcc/ada/gnatbind.adb') diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 8a166991c5c..b8bb524f2ec 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -403,6 +403,9 @@ procedure Gnatbind is end if; end Scan_Bind_Arg; + procedure Check_Version_And_Help is + new Check_Version_And_Help_G (Bindusg.Display); + -- Start of processing for Gnatbind begin @@ -429,7 +432,7 @@ begin -- First, scan to detect --version and/or --help - Check_Version_And_Help ("GNATBIND", "1995", Bindusg.Display'Access); + Check_Version_And_Help ("GNATBIND", "1995"); -- Use low level argument routines to avoid dragging in the secondary stack -- cgit v1.2.1