gnatvsn.ads (Current_Year): New constant, used to easily update copyright on all...

2006-02-13  Robert Dewar  <dewar@adacore.com>

	* gnatvsn.ads (Current_Year): New constant, used to easily update
	copyright on all GNAT tools.

	* gnatls.adb, gnatname.adb, vms_conv.adb: Add 2006 to displayed
	copyright notice.

From-SVN: r111047

diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb
index fbf927646de170f8a85822d9b2a22281c396a29f..ba18d00d886d213172a656b1726033b8540e1092 100644 (file)
--- a/gcc/ada/gnatls.adb
+++ b/gcc/ada/gnatls.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -1500,7 +1500,9 @@ begin
       Write_Str ("GNATLS ");
       Write_Str (Gnat_Version_String);
       Write_Eol;
-      Write_Str ("Copyright 1997-2005 Free Software Foundation, Inc.");
+      Write_Str ("Copyright 1997-" &
+                 Current_Year &
+                 ", Free Software Foundation, Inc.");
       Write_Eol;
       Write_Eol;
       Write_Str ("Source Search Path:");
@@ -1579,7 +1581,7 @@ begin
                end loop;
 
                --  If the directory is No_Default_Project_Dir, set
-               --  Add_Default_Dir to False
+               --  Add_Default_Dir to False.
 
                if Project_Path (First .. Last) = No_Project_Default_Dir then
                   Add_Default_Dir := False;

diff --git a/gcc/ada/gnatname.adb b/gcc/ada/gnatname.adb
index 773bc73ced8d36d9f1daf6fe891d03f9d6c232d3..b746ba02f2360724eae815d16ae65f0a4c48aa27 100644 (file)
--- a/gcc/ada/gnatname.adb
+++ b/gcc/ada/gnatname.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---           Copyright (C) 2001-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2001-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -24,7 +24,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with Gnatvsn;
+with Gnatvsn;  use Gnatvsn;
 with Hostparm;
 with Opt;
 with Osint;    use Osint;
@@ -172,7 +172,9 @@ procedure Gnatname is
          Output.Write_Str ("GNATNAME ");
          Output.Write_Line (Gnatvsn.Gnat_Version_String);
          Output.Write_Line
-           ("Copyright 2001-2005 Free Software Foundation, Inc.");
+           ("Copyright 2001-" &
+            Current_Year &
+            ", Free Software Foundation, Inc.");
       end if;
    end Output_Version;
 

diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads
index 06153b9e768c728767db441249e760ed8c7fed34..f17343e0686716862680d4a42bdf2e2188ae9d38 100644 (file)
--- a/gcc/ada/gnatvsn.ads
+++ b/gcc/ada/gnatvsn.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2006 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -92,4 +92,7 @@ package Gnatvsn is
    --  the tree format that would result in a compiler being incompatible with
    --  an older version of ASIS, or vice versa.
 
+   Current_Year : constant String := "2006";
+   --  Used in printing copyright messages
+
 end Gnatvsn;

diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb
index b9da2bb2bd74a06d74e396e7dc8b88895163b648..e626ca9ea6d5ed5449af34234998477b944de930 100644 (file)
--- a/gcc/ada/vms_conv.adb
+++ b/gcc/ada/vms_conv.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1996-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1996-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -24,7 +24,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with Gnatvsn;
+with Gnatvsn;  use Gnatvsn;
 with Hostparm;
 with Opt;
 with Osint;    use Osint;
@@ -662,7 +662,9 @@ package body VMS_Conv is
    begin
       Put ("GNAT ");
       Put_Line (Gnatvsn.Gnat_Version_String);
-      Put_Line ("Copyright 1996-2005, Free Software Foundation, Inc.");
+      Put_Line ("Copyright 1996-" &
+                Current_Year &
+                ", Free Software Foundation, Inc.");
    end Output_Version;
 
    -----------