diff options
| author | Robert Dewar <dewar@adacore.com> | 2013-09-10 15:17:44 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-09-10 17:17:44 +0200 |
| commit | ac4018917999464e601b2e675ac326cbbf0044da (patch) | |
| tree | 81b16ffbb2cf1f32082b96888c42553b80b15434 /gcc/ada/gnatdll.adb | |
| parent | f2c0ca66325e53b302a2ccbfd25b28ffa4a619c9 (diff) | |
| download | gcc-ac4018917999464e601b2e675ac326cbbf0044da.zip gcc-ac4018917999464e601b2e675ac326cbbf0044da.tar.gz gcc-ac4018917999464e601b2e675ac326cbbf0044da.tar.bz2 | |
gnatbind.adb: Correct starting date in --version string.
2013-09-10 Robert Dewar <dewar@adacore.com>
* gnatbind.adb: Correct starting date in --version string.
* gnatdll.adb: Use Check_Version_And_Help_G to implement --help
and --version.
* gnatkr.adb: Use Check_Version_And_Help_G to implement --help
and --version.
* gnatlink.adb: Correct starting date in --version string.
* gnatls.adb: Correct starting date in --version string.
* make.adb: Correct starting date in --version string.
From-SVN: r202465
Diffstat (limited to 'gcc/ada/gnatdll.adb')
| -rw-r--r-- | gcc/ada/gnatdll.adb | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb index 6917e63..426c00f 100644 --- a/gcc/ada/gnatdll.adb +++ b/gcc/ada/gnatdll.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -26,16 +26,18 @@ -- GNATDLL is a Windows specific tool for building a DLL. -- Both relocatable and non-relocatable DLL's are supported +with Gnatvsn; +with MDLL.Fil; use MDLL.Fil; +with MDLL.Utl; use MDLL.Utl; +with Switch; use Switch; + with Ada.Text_IO; use Ada.Text_IO; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with Ada.Exceptions; use Ada.Exceptions; with Ada.Command_Line; use Ada.Command_Line; -with GNAT.OS_Lib; use GNAT.OS_Lib; -with GNAT.Command_Line; use GNAT.Command_Line; -with Gnatvsn; -with MDLL.Fil; use MDLL.Fil; -with MDLL.Utl; use MDLL.Utl; +with GNAT.OS_Lib; use GNAT.OS_Lib; +with GNAT.Command_Line; use GNAT.Command_Line; procedure Gnatdll is @@ -502,9 +504,13 @@ procedure Gnatdll is end loop; end Check_Context; + procedure Check_Version_And_Help is new Check_Version_And_Help_G (Syntax); + -- Start of processing for Gnatdll begin + Check_Version_And_Help ("GNATDLL", "1997"); + if Ada.Command_Line.Argument_Count = 0 then Help := True; else |