Skip to content

R
riscv-gcc-1
Commit 858f81da by Robert Dewar Committed by Arnaud Charlet
Options

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
parent 003dd7a7
Showing with 19 additions and 10 deletions
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;
......
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;
......
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;
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;
-----------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment