diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:46:30 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:46:30 +0000 |
| commit | abd1693db6f4a3a9ba01c15d76539ed34b3a3fa5 (patch) | |
| tree | cb08c5e15b482ceb57d03bac66c94e79f3240ec8 | |
| parent | c8b24b3e5723fea58f3a7972c21fec7b38ff737e (diff) | |
| download | gcc-abd1693db6f4a3a9ba01c15d76539ed34b3a3fa5.tar.gz | |
* gnatmem.adb, gnatname.adb, gnatsym.adb, gprcmd.adb, vms_conv.adb:
Output the copyright message on a separate line from the version
message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91885 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/gnatmem.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/gnatname.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/gnatsym.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/gprcmd.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/vms_conv.adb | 4 |
5 files changed, 10 insertions, 11 deletions
diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb index 1b69183ec18..f2a13770f85 100644 --- a/gcc/ada/gnatmem.adb +++ b/gcc/ada/gnatmem.adb @@ -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"); diff --git a/gcc/ada/gnatname.adb b/gcc/ada/gnatname.adb index b38fac06f61..bdce127628f 100644 --- a/gcc/ada/gnatname.adb +++ b/gcc/ada/gnatname.adb @@ -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; diff --git a/gcc/ada/gnatsym.adb b/gcc/ada/gnatsym.adb index f639f43fd14..790ff40531d 100644 --- a/gcc/ada/gnatsym.adb +++ b/gcc/ada/gnatsym.adb @@ -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; diff --git a/gcc/ada/gprcmd.adb b/gcc/ada/gprcmd.adb index 64bc74fd61d..143b62b1dea 100644 --- a/gcc/ada/gprcmd.adb +++ b/gcc/ada/gprcmd.adb @@ -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 diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb index fc924434ad2..f623727a986 100644 --- a/gcc/ada/vms_conv.adb +++ b/gcc/ada/vms_conv.adb @@ -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; ----------- |