diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:23:29 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:23:29 +0000 |
| commit | 453c24fb4dcaabaa2ef129d61468fc1e8733dcaa (patch) | |
| tree | 740c5aba3c0949b0af4ce8a5af9213a4c4837b5f /gcc/ada/gnatchop.adb | |
| parent | 7b17e51b9ad5916b8df45cf5bedaf1ba81aaa0a2 (diff) | |
| download | gcc-453c24fb4dcaabaa2ef129d61468fc1e8733dcaa.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130824 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatchop.adb')
| -rw-r--r-- | gcc/ada/gnatchop.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index 9957dee094f..8a72c4e3bb6 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -1724,6 +1724,8 @@ procedure Gnatchop is end; end Write_Unit; + procedure Check_Version_And_Help is new Check_Version_And_Help_G (Usage); + -- Start of processing for gnatchop begin @@ -1763,7 +1765,7 @@ begin -- First, scan to detect --version and/or --help - Check_Version_And_Help ("GNATCHOP", "1998", Usage'Unrestricted_Access); + Check_Version_And_Help ("GNATCHOP", "1998"); if not Scan_Arguments then Set_Exit_Status (Failure); |