OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Robert Dewar 2013-09-10 15:17:44 +00:00 committed by Arnaud Charlet
parent f2c0ca6632
commit ac40189179
7 changed files with 50 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/ChangeLog
View File

@ -1,3 +1,14 @@
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.
2013-09-10 Robert Dewar <dewar@adacore.com>
* switch-c.adb: Minor reformatting.

2
gcc/ada/gnatbind.adb
View File

@ -572,7 +572,7 @@ begin
-- First, scan to detect --version and/or --help
Check_Version_And_Help ("GNATBIND", "1995");
Check_Version_And_Help ("GNATBIND", "1992");
-- We need to Scan_Bind_Args first, to set Verbose_Mode, so we know whether
-- to Put_Bind_Args.

18
gcc/ada/gnatdll.adb
View File

@ -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

28
gcc/ada/gnatkr.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- Copyright (C) 1992-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- --
@ -23,10 +23,13 @@
-- --
------------------------------------------------------------------------------
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Command_Line; use Ada.Command_Line;
with Gnatvsn;
with Krunch;
with Switch; use Switch;
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Command_Line; use Ada.Command_Line;
with System.IO; use System.IO;
procedure Gnatkr is
@ -38,13 +41,28 @@ procedure Gnatkr is
function Get_Maximum_File_Name_Length return Integer;
pragma Import (C, Get_Maximum_File_Name_Length,
"__gnat_get_maximum_file_name_length");
"__gnat_get_maximum_file_name_length");
procedure Usage;
-- Output usage information
-----------
-- Usage --
-----------
procedure Usage is
begin
Put_Line ("Usage: gnatkr filename[.extension] [krunch-count]");
end Usage;
procedure Check_Version_And_Help is new Check_Version_And_Help_G (Usage);
begin
Check_Version_And_Help ("GNATKR", "1992");
Count := Argument_Count;
if Count < 1 or else Count > 2 then
Put_Line ("Usage: gnatkr filename[.extension] [krunch-count]");
Usage;
raise Exit_Program;
else

2
gcc/ada/gnatlink.adb
View File

@ -355,7 +355,7 @@ procedure Gnatlink is
begin
-- First, check for --version and --help
Check_Version_And_Help ("GNATLINK", "1995");
Check_Version_And_Help ("GNATLINK", "1996");
-- Loop through arguments of gnatlink command

2
gcc/ada/gnatls.adb
View File

@ -1556,7 +1556,7 @@ begin
-- First check for --version or --help
Check_Version_And_Help ("GNATLS", "1997");
Check_Version_And_Help ("GNATLS", "1992");
-- Loop to scan out arguments

2
gcc/ada/make.adb
View File

@ -5803,7 +5803,7 @@ package body Make is
if Verbose_Mode then
Write_Eol;
Display_Version ("GNATMAKE", "1995");
Display_Version ("GNATMAKE", "1992");
end if;
if Osint.Number_Of_Files = 0 then