diff options
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/gnatbind.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/gnatchop.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/gnatfind.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/gnatlink.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/gnatls.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/gnatxref.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/gprep.adb | 6 |
8 files changed, 16 insertions, 14 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 0c2b939b546..eccb6bb9226 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -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; diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 48c23f07eb8..a64990ec590 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -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; diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index 29bb2e9225f..0c5a25227af 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -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; diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb index c59ae499106..44abac594c2 100644 --- a/gcc/ada/gnatfind.adb +++ b/gcc/ada/gnatfind.adb @@ -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; diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index 5d30a57c709..19728a86d88 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -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; diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index cdc924cb418..a2dd0a1ac49 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -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:"); diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb index d7b668d9bf5..513127817a4 100644 --- a/gcc/ada/gnatxref.adb +++ b/gcc/ada/gnatxref.adb @@ -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, " & diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb index fdd1f8ba25b..53b2bd6f46f 100644 --- a/gcc/ada/gprep.adb +++ b/gcc/ada/gprep.adb @@ -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; |