Commit 5f8abbd9 by Arnaud Charlet

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
parent bd7f7a65
......@@ -55,7 +55,6 @@
with Gnatvsn; use Gnatvsn;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO;
with Ada.Integer_Text_IO;
......@@ -233,8 +232,8 @@ procedure Gnatmem is
begin
New_Line;
Put ("GNATMEM ");
Put (Gnat_Version_String);
Put_Line (" Copyright 1997-2004 Free Software Foundation, Inc.");
Put_Line (Gnat_Version_String);
Put_Line ("Copyright 1997-2004 Free Software Foundation, Inc.");
New_Line;
Put_Line ("Usage: gnatmem switches [depth] exename");
......
......@@ -170,9 +170,9 @@ procedure Gnatname is
Version_Output := True;
Output.Write_Eol;
Output.Write_Str ("GNATNAME ");
Output.Write_Str (Gnatvsn.Gnat_Version_String);
Output.Write_Line (Gnatvsn.Gnat_Version_String);
Output.Write_Line
(" Copyright 2001-2004 Free Software Foundation, Inc.");
("Copyright 2001-2004 Free Software Foundation, Inc.");
end if;
end Output_Version;
......
......@@ -111,7 +111,8 @@ procedure Gnatsym is
Write_Eol;
Write_Str ("GNATSYMB ");
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;
Copyright_Displayed := True;
end if;
......
......@@ -53,7 +53,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib;
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.Regpat; use GNAT.Regpat;
procedure Gprcmd is
-- ??? comments are thin throughout this unit
......@@ -398,9 +397,9 @@ begin
-- go to standard output.
Put (Standard_Error, "GPRCMD ");
Put (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line (Standard_Error,
" Copyright 2002-2004, Free Software Fundation, Inc.");
"Copyright 2002-2004, Free Software Fundation, Inc.");
Usage;
elsif Cmd = "pwd" then
......
......@@ -661,8 +661,8 @@ package body VMS_Conv is
procedure Output_Version is
begin
Put ("GNAT ");
Put (Gnatvsn.Gnat_Version_String);
Put_Line (" Copyright 1996-2004 Free Software Foundation, Inc.");
Put_Line (Gnatvsn.Gnat_Version_String);
Put_Line ("Copyright 1996-2004 Free Software Foundation, Inc.");
end Output_Version;
-----------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment