diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:35:33 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:35:33 +0000 |
| commit | 50171e4b1f3f6cc294517fceee27260ba86d7272 (patch) | |
| tree | 7326d4d3bff74aed87dc2d0c4a72f6cb275eb749 | |
| parent | abc1896c6fa094b59bfde6afc5129490df031a9c (diff) | |
| download | gcc-50171e4b1f3f6cc294517fceee27260ba86d7272.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111047 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/gnatls.adb | 8 | ||||
| -rw-r--r-- | gcc/ada/gnatname.adb | 8 | ||||
| -rw-r--r-- | gcc/ada/gnatvsn.ads | 5 | ||||
| -rw-r--r-- | 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; ----------- |