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

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

* gnat1drv.adb, gnatbind.adb, gnatchop.adb, gnatfind.adb, gnatlink.adb,
	gnatls.adb, gnatxref.adb, gprep.adb: Output the copyright message on a
	separate line from the version message.

From-SVN: r90910
This commit is contained in:
Arnaud Charlet 2004-11-19 12:25:05 +01:00
parent 47190c6bc9
commit 87b62748db
8 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ada/gnat1drv.adb
View File

@ -170,7 +170,8 @@ begin
Write_Eol;
Write_Str ("GNAT ");
Write_Str (Gnat_Version_String);
Write_Str (" Copyright 1992-2004 Free Software Foundation, Inc.");
Write_Eol;
Write_Str ("Copyright 1992-2004 Free Software Foundation, Inc.");
Write_Eol;
end if;

3
gcc/ada/gnatbind.adb
View File

@ -480,7 +480,8 @@ begin
Write_Eol;
Write_Str ("GNATBIND ");
Write_Str (Gnat_Version_String);
Write_Str (" Copyright 1995-2004 Free Software Foundation, Inc.");
Write_Eol;
Write_Str ("Copyright 1995-2004 Free Software Foundation, Inc.");
Write_Eol;
end if;

4
gcc/ada/gnatchop.adb
View File

@ -1145,10 +1145,10 @@ procedure Gnatchop is
-- tools write to standard output ???
Put (Standard_Error, "GNATCHOP ");
Put (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line
(Standard_Error,
" Copyright 1998-2004, Ada Core Technologies Inc.");
"Copyright 1998-2004, Ada Core Technologies Inc.");
when 'w' =>
Overwrite_Files := True;

4
gcc/ada/gnatfind.adb
View File

@ -238,8 +238,8 @@ procedure Gnatfind is
procedure Write_Usage is
begin
Put_Line ("GNATFIND " & Gnatvsn.Gnat_Version_String
& " Copyright 1998-2004, Ada Core Technologies Inc.");
Put_Line ("GNATFIND " & Gnatvsn.Gnat_Version_String);
Put_Line ("Copyright 1998-2004, Ada Core Technologies Inc.");
Put_Line ("Usage: gnatfind pattern[:sourcefile[:line[:column]]] "
& "[file1 file2 ...]");
New_Line;

3
gcc/ada/gnatlink.adb
View File

@ -1278,7 +1278,8 @@ procedure Gnatlink is
Write_Eol;
Write_Str ("GNATLINK ");
Write_Str (Gnat_Version_String);
Write_Str (" Copyright 1995-2004 Free Software Foundation, Inc");
Write_Eol;
Write_Str ("Copyright 1995-2004 Free Software Foundation, Inc");
Write_Eol;
end if;
end Write_Header;

3
gcc/ada/gnatls.adb
View File

@ -1484,7 +1484,8 @@ begin
Write_Eol;
Write_Str ("GNATLS ");
Write_Str (Gnat_Version_String);
Write_Str (" Copyright 1997-2004 Free Software Foundation, Inc.");
Write_Eol;
Write_Str ("Copyright 1997-2004 Free Software Foundation, Inc.");
Write_Eol;
Write_Eol;
Write_Str ("Source Search Path:");

4
gcc/ada/gnatxref.adb
View File

@ -209,8 +209,8 @@ procedure Gnatxref is
procedure Write_Usage is
begin
Put_Line ("GNATXREF " & Gnatvsn.Gnat_Version_String
& " Copyright 1998-2004, Ada Core Technologies Inc.");
Put_Line ("GNATXREF " & Gnatvsn.Gnat_Version_String);
Put_Line ("Copyright 1998-2004, Ada Core Technologies Inc.");
Put_Line ("Usage: gnatxref [switches] file1 file2 ...");
New_Line;
Put_Line (" file ... list of source files to xref, " &

6
gcc/ada/gprep.adb
View File

@ -45,7 +45,6 @@ with GNAT.Command_Line;
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.OS_Lib; use GNAT.OS_Lib;
package body GPrep is
Copyright_Displayed : Boolean := False;
@ -133,9 +132,8 @@ package body GPrep is
procedure Display_Copyright is
begin
if not Copyright_Displayed then
Write_Line ("GNAT Preprocessor " &
Gnatvsn.Gnat_Version_String &
" Copyright 1996-2004 Free Software Foundation, Inc.");
Write_Line ("GNAT Preprocessor " & Gnatvsn.Gnat_Version_String);
Write_Line ("Copyright 1996-2004 Free Software Foundation, Inc.");
Copyright_Displayed := True;
end if;
end Display_Copyright;