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

gnatmem.adb, [...]: Output the copyright message on a separate line from the version message. 

* gnatmem.adb, gnatname.adb, gnatsym.adb, gprcmd.adb, vms_conv.adb:
	Output the copyright message on a separate line from the version
	message.

From-SVN: r91885
This commit is contained in:
Arnaud Charlet 2004-12-08 12:46:30 +01:00
parent bd7f7a653f
commit 5f8abbd98b
5 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/gnatmem.adb
View File

@ -55,7 +55,6 @@
with Gnatvsn; use Gnatvsn; with Gnatvsn; use Gnatvsn;
with Ada.Text_IO; use Ada.Text_IO; with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO; with Ada.Float_Text_IO;
with Ada.Integer_Text_IO; with Ada.Integer_Text_IO;
@ -233,8 +232,8 @@ procedure Gnatmem is
begin begin
New_Line; New_Line;
Put ("GNATMEM "); Put ("GNATMEM ");
Put (Gnat_Version_String); Put_Line (Gnat_Version_String);
Put_Line (" Copyright 1997-2004 Free Software Foundation, Inc."); Put_Line ("Copyright 1997-2004 Free Software Foundation, Inc.");
New_Line; New_Line;
Put_Line ("Usage: gnatmem switches [depth] exename"); Put_Line ("Usage: gnatmem switches [depth] exename");

4
gcc/ada/gnatname.adb
View File

@ -170,9 +170,9 @@ procedure Gnatname is
Version_Output := True; Version_Output := True;
Output.Write_Eol; Output.Write_Eol;
Output.Write_Str ("GNATNAME "); Output.Write_Str ("GNATNAME ");
Output.Write_Str (Gnatvsn.Gnat_Version_String); Output.Write_Line (Gnatvsn.Gnat_Version_String);
Output.Write_Line Output.Write_Line
(" Copyright 2001-2004 Free Software Foundation, Inc."); ("Copyright 2001-2004 Free Software Foundation, Inc.");
end if; end if;
end Output_Version; end Output_Version;

3
gcc/ada/gnatsym.adb
View File

@ -111,7 +111,8 @@ procedure Gnatsym is
Write_Eol; Write_Eol;
Write_Str ("GNATSYMB "); Write_Str ("GNATSYMB ");
Write_Str (Gnat_Version_String); Write_Str (Gnat_Version_String);
Write_Str (" Copyright 2003-2004 Free Software Foundation, Inc"); Write_Eol;
Write_Str ("Copyright 2003-2004 Free Software Foundation, Inc");
Write_Eol; Write_Eol;
Copyright_Displayed := True; Copyright_Displayed := True;
end if; end if;

5
gcc/ada/gprcmd.adb
View File

@ -53,7 +53,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib;
with GNAT.Directory_Operations; use GNAT.Directory_Operations; with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.Regpat; use GNAT.Regpat; with GNAT.Regpat; use GNAT.Regpat;
procedure Gprcmd is procedure Gprcmd is
-- ??? comments are thin throughout this unit -- ??? comments are thin throughout this unit
@ -398,9 +397,9 @@ begin
-- go to standard output. -- go to standard output.
Put (Standard_Error, "GPRCMD "); Put (Standard_Error, "GPRCMD ");
Put (Standard_Error, Gnatvsn.Gnat_Version_String); Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line (Standard_Error, Put_Line (Standard_Error,
" Copyright 2002-2004, Free Software Fundation, Inc."); "Copyright 2002-2004, Free Software Fundation, Inc.");
Usage; Usage;
elsif Cmd = "pwd" then elsif Cmd = "pwd" then

4
gcc/ada/vms_conv.adb
View File

@ -661,8 +661,8 @@ package body VMS_Conv is
procedure Output_Version is procedure Output_Version is
begin begin
Put ("GNAT "); Put ("GNAT ");
Put (Gnatvsn.Gnat_Version_String); Put_Line (Gnatvsn.Gnat_Version_String);
Put_Line (" Copyright 1996-2004 Free Software Foundation, Inc."); Put_Line ("Copyright 1996-2004 Free Software Foundation, Inc.");
end Output_Version; end Output_Version;
----------- -----------