diff options
| author | Robert Dewar <dewar@adacore.com> | 2006-02-15 10:35:33 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:35:33 +0100 |
| commit | 858f81da8780777f57a1528578d778b61dd11d32 (patch) | |
| tree | 7326d4d3bff74aed87dc2d0c4a72f6cb275eb749 /gcc/ada | |
| parent | 003dd7a72fac48ef8dad290770e75d2adc58ee25 (diff) | |
| download | gcc-858f81da8780777f57a1528578d778b61dd11d32.zip gcc-858f81da8780777f57a1528578d778b61dd11d32.tar.gz gcc-858f81da8780777f57a1528578d778b61dd11d32.tar.bz2 | |
gnatvsn.ads (Current_Year): New constant, used to easily update copyright on all GNAT tools.
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
Diffstat (limited to 'gcc/ada')
| -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 fbf9276..ba18d00 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 773bc73..b746ba0 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 06153b9..f17343e 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 b9da2bb..e626ca9 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; ----------- |