From 858f81da8780777f57a1528578d778b61dd11d32 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 15 Feb 2006 10:35:33 +0100 Subject: [PATCH] gnatvsn.ads (Current_Year): New constant, used to easily update copyright on all GNAT tools. 2006-02-13 Robert Dewar * 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 --- gcc/ada/gnatls.adb | 8 +++++--- gcc/ada/gnatname.adb | 8 +++++--- gcc/ada/gnatvsn.ads | 5 ++++- gcc/ada/vms_conv.adb | 8 +++++--- 4 files changed, 19 insertions(+), 10 deletions(-) diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index fbf927646de..ba18d00d886 100644 --- 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 773bc73ced8..b746ba02f23 100644 --- 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 06153b9e768..f17343e0686 100644 --- 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 b9da2bb2bd7..e626ca9ea6d 100644 --- 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; ----------- -- 2.30.2