a-secain.adb, [...]: Minor reformatting

author Robert Dewar <dewar@adacore.com>

Tue, 15 Nov 2005 14:06:45 +0000 (15:06 +0100)

committer Arnaud Charlet <charlet@gcc.gnu.org>

Tue, 15 Nov 2005 14:06:45 +0000 (15:06 +0100)
author Robert Dewar <dewar@adacore.com>
Tue, 15 Nov 2005 14:06:45 +0000 (15:06 +0100)
committer Arnaud Charlet <charlet@gcc.gnu.org>
Tue, 15 Nov 2005 14:06:45 +0000 (15:06 +0100)
diff --git a/gcc/ada/a-astaco.adb b/gcc/ada/a-astaco.adb

index 1df42f3712135509197efa6aa229f4b2aba09726..b13f426c0e4414a6e9144ea73d13492c74dedd45 100644 (file)
--- a/gcc/ada/a-astaco.adb
+++ b/gcc/ada/a-astaco.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-calend-mingw.adb b/gcc/ada/a-calend-mingw.adb

index 71599bd419c3250bc2486f0a4fe98492f1c95c48..0ec1ca94a8c34dfd16c5492ff24c13bf3c341617 100644 (file)
--- a/gcc/ada/a-calend-mingw.adb
+++ b/gcc/ada/a-calend-mingw.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 1997-2005 Free Software Foundation, Inc.        --
+--          Copyright (C) 1997-2005, 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- --
@@ -33,6 +33,9 @@
  
  --  This is the Windows NT/95 version
  
+--  Why do we need separate version ???
+--  Do we need *this* much code duplication???
+
  with System.OS_Primitives;
  --  used for Clock
  
@@ -173,7 +176,6 @@ package body Ada.Calendar is
        DM : Month_Number;
        DD : Day_Number;
        DS : Day_Duration;
-
     begin
        Split (Date, DY, DM, DD, DS);
        return DD;
@@ -203,7 +205,6 @@ package body Ada.Calendar is
        DM : Month_Number;
        DD : Day_Number;
        DS : Day_Duration;
-
     begin
        Split (Date, DY, DM, DD, DS);
        return DS;
@@ -366,7 +367,7 @@ package body Ada.Calendar is
           Sub_Sec : constant Duration := Seconds - Duration (Int_Secs);
        begin
           Date := Time ((Now - epoch_1970) * system_time_ns / Sec_Unit) +
-           Sub_Sec;
+                   Sub_Sec;
        end;
  
        if Add_One_Day then
diff --git a/gcc/ada/a-calend-vms.adb b/gcc/ada/a-calend-vms.adb

index 391e9fb69a7dcc556a84b8158426f2a9f30f8c21..2a5c70f6bf84222e199aa81f2248b13560fc687a 100644 (file)
--- a/gcc/ada/a-calend-vms.adb
+++ b/gcc/ada/a-calend-vms.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 1992-2005 Free Software Foundation, Inc.        --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-calend-vms.ads b/gcc/ada/a-calend-vms.ads

index 1242ef6d65b090485499e9df45e1ef2995044af2..ed3c9648458e01cd8bc7b411f6649a703a772fbf 100644 (file)
--- a/gcc/ada/a-calend-vms.ads
+++ b/gcc/ada/a-calend-vms.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb

index c0180e4e995ed869ec80f77b4e88d4c79b8724dd..581295818e1d717b7d380d17fa71cf461681cd04 100644 (file)
--- a/gcc/ada/a-calend.adb
+++ b/gcc/ada/a-calend.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-calend.ads b/gcc/ada/a-calend.ads

index 108d1a8883e0069ec2284553b06f7fcbd6d55a70..a394e2bbcafae34db6e58e84f8b430323e39d4a8 100644 (file)
--- a/gcc/ada/a-calend.ads
+++ b/gcc/ada/a-calend.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgaaso.adb b/gcc/ada/a-cgaaso.adb

index 6727c034d2efad28123ab8bae09b45a5766baf61..cd4cfaba0762084e0a9900d70175fa588cb9e227 100644 (file)
--- a/gcc/ada/a-cgaaso.adb
+++ b/gcc/ada/a-cgaaso.adb
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgaaso.ads b/gcc/ada/a-cgaaso.ads

index 6f8cb1d502e1877151cfa85e21e8263ccd010c53..e9d031990d714ac647f5d2b73f80369c414be0a7 100644 (file)
--- a/gcc/ada/a-cgaaso.ads
+++ b/gcc/ada/a-cgaaso.ads
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgarso.adb b/gcc/ada/a-cgarso.adb

index 60eef4cae73262b09a3c6df8d79a84e36a8785b4..8d5a08b4f14d9fe9dcb411d97550036599dfd6f9 100644 (file)
--- a/gcc/ada/a-cgarso.adb
+++ b/gcc/ada/a-cgarso.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cgcaso.adb b/gcc/ada/a-cgcaso.adb

index 73cfac69d4b54b727d8509b1f6da999ee783b1ca..bef6fb0793a2e19805a52cceb9c157182319a341 100644 (file)
--- a/gcc/ada/a-cgcaso.adb
+++ b/gcc/ada/a-cgcaso.adb
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chacon.adb b/gcc/ada/a-chacon.adb

index 4049b937580e629dd8bd0873bfcdb826a061a225..9884337fea74aaaf06207ff1753c5cafaa576631 100755 (executable)
--- a/gcc/ada/a-chacon.adb
+++ b/gcc/ada/a-chacon.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, Free Software Foundation, Inc.            --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chacon.ads b/gcc/ada/a-chacon.ads

index 7c36c81778490a849db9543a6c38f0de0a2b6d46..9ce9337291e81e3a54c0a7b85e72a16ecbf0ef1b 100755 (executable)
--- a/gcc/ada/a-chacon.ads
+++ b/gcc/ada/a-chacon.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, Free Software Foundation, Inc.            --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chahan.adb b/gcc/ada/a-chahan.adb

index 3af220ef05d8b0f62da53f4a773cadef5bca76a1..61a23d858db613f548ad0992ce702aaeb9c5d934 100644 (file)
--- a/gcc/ada/a-chahan.adb
+++ b/gcc/ada/a-chahan.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -31,9 +31,9 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
-with Ada.Characters.Latin_1;      use Ada.Characters.Latin_1;
-with Ada.Strings.Maps;            use Ada.Strings.Maps;
-with Ada.Strings.Maps.Constants;  use Ada.Strings.Maps.Constants;
+with Ada.Characters.Latin_1;     use Ada.Characters.Latin_1;
+with Ada.Strings.Maps;           use Ada.Strings.Maps;
+with Ada.Strings.Maps.Constants; use Ada.Strings.Maps.Constants;
  
  package body Ada.Characters.Handling is
  
diff --git a/gcc/ada/a-chahan.ads b/gcc/ada/a-chahan.ads

index 7bc2ded790b74c15c953b1886c343ed0797b8e43..ccb5825b9bbe7a4358732749b00462f6219e5b79 100644 (file)
--- a/gcc/ada/a-chahan.ads
+++ b/gcc/ada/a-chahan.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chlat9.ads b/gcc/ada/a-chlat9.ads

index 30f351af829e7a10917d3c04180ad1d5aac4c726..b183a477fad1d013092fd42c12843e09d0aba227 100644 (file)
--- a/gcc/ada/a-chlat9.ads
+++ b/gcc/ada/a-chlat9.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---         Copyright (C) 2002-2005 Free Software Foundation, Inc.           --
+--          Copyright (C) 2002-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chtgke.adb b/gcc/ada/a-chtgke.adb

index 2caddad7ce25229ef7dae637091248274369b7ea..5203890a5942638d22be3b60198465ed8cd5ea31 100644 (file)
--- a/gcc/ada/a-chtgke.adb
+++ b/gcc/ada/a-chtgke.adb
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chtgke.ads b/gcc/ada/a-chtgke.ads

index e56c31b3f4e7174d8bd2562e0950eda168635ac4..de91de72c0740af38af1ff86567a53cd6e99b8ef 100644 (file)
--- a/gcc/ada/a-chtgke.ads
+++ b/gcc/ada/a-chtgke.ads
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-chtgop.adb b/gcc/ada/a-chtgop.adb

index 9793f967e01feaad206ba438c58e38dc388e8aad..137b27c00610422982dd07a0dbae05daead12cb6 100644 (file)
--- a/gcc/ada/a-chtgop.adb
+++ b/gcc/ada/a-chtgop.adb
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/a-chzla1.ads b/gcc/ada/a-chzla1.ads

index 13496b66dc0c7f7660621f9d5bd4dbfa42e9d64f..f6ffe5bd195b7e1e12285f2c30dbdc92c90082ad 100644 (file)
--- a/gcc/ada/a-chzla1.ads
+++ b/gcc/ada/a-chzla1.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-chzla9.ads b/gcc/ada/a-chzla9.ads

index 67459241dc715be6f4682a6bb2990c3c4145094b..8e95cb6f4f37f844dc3729ba0a55120cabc7088c 100644 (file)
--- a/gcc/ada/a-chzla9.ads
+++ b/gcc/ada/a-chzla9.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-cohata.ads b/gcc/ada/a-cohata.ads

index d453da2a347e4e4264f84ca51d738b2ca53e6262..d9b07535b75ed4d3ccfbcdc358071b1e8691d12c 100644 (file)
--- a/gcc/ada/a-cohata.ads
+++ b/gcc/ada/a-cohata.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-colien.adb b/gcc/ada/a-colien.adb

index 0f76ad1a960baf90fa6569617918bee295a7edb3..881fb0c32f4bf86aa54c4b9f0ed41311ee0a7220 100644 (file)
--- a/gcc/ada/a-colien.adb
+++ b/gcc/ada/a-colien.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1996-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1996-2005, 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- --
@@ -32,6 +32,7 @@
  ------------------------------------------------------------------------------
  
  with System;
+
  package body Ada.Command_Line.Environment is
  
     -----------------------
diff --git a/gcc/ada/a-colien.ads b/gcc/ada/a-colien.ads

index 7a683c88c96a7af9747f44f4bb0b3a048a626c13..404845bcc09202ad8ed0c5ff5db227e4f09bebce 100644 (file)
--- a/gcc/ada/a-colien.ads
+++ b/gcc/ada/a-colien.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---         Copyright (C) 1996-2005 Free Software Foundation, Inc.           --
+--          Copyright (C) 1996-2005, 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- --
diff --git a/gcc/ada/a-colire.adb b/gcc/ada/a-colire.adb

index de273b50f1a89332353c41dbbd571fb500ddc611..096c166b8dd41e530c75764bac48c10380b439af 100644 (file)
--- a/gcc/ada/a-colire.adb
+++ b/gcc/ada/a-colire.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---         Copyright (C) 1999-2005 Free Software Foundation, Inc.           --
+--          Copyright (C) 1999-2005, 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- --
diff --git a/gcc/ada/a-colire.ads b/gcc/ada/a-colire.ads

index 8c5a518575e8d778bf60c93b27af956f6fbc908d..e0c038806f7b71a0e085b0b6db8fa122f7e2c704 100644 (file)
--- a/gcc/ada/a-colire.ads
+++ b/gcc/ada/a-colire.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---         Copyright (C) 1999-2005 Free Software Foundation, Inc.           --
+--          Copyright (C) 1999-2005, 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- --
diff --git a/gcc/ada/a-comlin.adb b/gcc/ada/a-comlin.adb

index 36d88fa12665b8d6bb31a5c525ac76af33c665cd..ab438788d45c1f78879f56f96614e13a04c074c1 100644 (file)
--- a/gcc/ada/a-comlin.adb
+++ b/gcc/ada/a-comlin.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-comlin.ads b/gcc/ada/a-comlin.ads

index 1ddc3e1da6eeee97fb69f3fdc0e28f42f28e7d96..da9e583ae311e6ce987025579827aca00ed311a2 100644 (file)
--- a/gcc/ada/a-comlin.ads
+++ b/gcc/ada/a-comlin.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-coprnu.adb b/gcc/ada/a-coprnu.adb

index af3d1648348f125aecfddbfbe188ae2ac37319d9..fd7f34580a8fbb26185853f478d7932ab6acb383 100644 (file)
--- a/gcc/ada/a-coprnu.adb
+++ b/gcc/ada/a-coprnu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-crbltr.ads b/gcc/ada/a-crbltr.ads

index 9df13623d43c16e56ad73ea542c813e9973f327b..391892920f809d913e192510076abe2517c260a7 100644 (file)
--- a/gcc/ada/a-crbltr.ads
+++ b/gcc/ada/a-crbltr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-crbtgk.adb b/gcc/ada/a-crbtgk.adb

index aeed115edff01cf0d055bbceae354db9c9decf3c..6d748a30ec3855ca40f39ef0e03afa1e91954562 100644 (file)
--- a/gcc/ada/a-crbtgk.adb
+++ b/gcc/ada/a-crbtgk.adb
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-cwila1.ads b/gcc/ada/a-cwila1.ads

index 0237237bd19c225f0c9f32fa78ba2ec1baf56b4a..b75ecf671d601d84002b3f0d9f87913b3d243b88 100644 (file)
--- a/gcc/ada/a-cwila1.ads
+++ b/gcc/ada/a-cwila1.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-cwila9.ads b/gcc/ada/a-cwila9.ads

index 94fcad9f27ac0de4383b1761cfc2b9908646a0fd..ff1d22480b72eb6a308e369668cf49940a79ef71 100644 (file)
--- a/gcc/ada/a-cwila9.ads
+++ b/gcc/ada/a-cwila9.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-decima.adb b/gcc/ada/a-decima.adb

index c255efa20d87e9d2e365fb071477b70dbf3c6604..80be38f920dc9fb214f5a1fde5522ef86755ef62 100644 (file)
--- a/gcc/ada/a-decima.adb
+++ b/gcc/ada/a-decima.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-decima.ads b/gcc/ada/a-decima.ads

index 960c9c04e7c28391cae305d87722b740bccaef4f..9fdbaa292eacf3c0c2fd7436a9e46b8ecefd7987 100644 (file)
--- a/gcc/ada/a-decima.ads
+++ b/gcc/ada/a-decima.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-diocst.ads b/gcc/ada/a-diocst.ads

index 947e19739feb56dfee4df475c6a3865feafdfc85..3681646ede031548f295b364cd60e918a94ddb7b 100644 (file)
--- a/gcc/ada/a-diocst.ads
+++ b/gcc/ada/a-diocst.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb

index 3d0216672b9dc0ed48f8116bb43e7dbbc5d42952..318d10445029c2d26006834d3455e974a5230515 100644 (file)
--- a/gcc/ada/a-direct.adb
+++ b/gcc/ada/a-direct.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/a-direct.ads b/gcc/ada/a-direct.ads

index 5f381ef3aa7e99ac1444e1757d280d632ef958a4..3e2a2b239c4002b9c694fd55a988e88df588c0c6 100644 (file)
--- a/gcc/ada/a-direct.ads
+++ b/gcc/ada/a-direct.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived for use with GNAT from AI-00248,  which is --
  -- expected to be a part of a future expected revised Ada Reference Manual. --
diff --git a/gcc/ada/a-direio.adb b/gcc/ada/a-direio.adb

index b5f79391a7178ac6f57ac29dda0fa9172b260bb0..a5351f54b55818fd503b773c9f1a0f592205fa9e 100644 (file)
--- a/gcc/ada/a-direio.adb
+++ b/gcc/ada/a-direio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-direio.ads b/gcc/ada/a-direio.ads

index 97fcf85deae2434079ea2cbe53a5ff6d0c75842c..a98e93f5fba3ea13dbb9ef28a0977053763ea7a4 100644 (file)
--- a/gcc/ada/a-direio.ads
+++ b/gcc/ada/a-direio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-dirval-mingw.adb b/gcc/ada/a-dirval-mingw.adb

index 55aba243b3f2318dea372b6c691a00492f649493..760102c9e1027fc6ae98f67d95706f492545ba75 100644 (file)
--- a/gcc/ada/a-dirval-mingw.adb
+++ b/gcc/ada/a-dirval-mingw.adb
@@ -7,7 +7,7 @@
  --                                 B o d y                                  --
  --                            (Windows Version)                             --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/a-dirval.adb b/gcc/ada/a-dirval.adb

index 31dd70b5dc9a200e26ac800e8766a0f21c39348a..206af7fc665a8d5d646d1d9598dd77c5a80a702a 100644 (file)
--- a/gcc/ada/a-dirval.adb
+++ b/gcc/ada/a-dirval.adb
@@ -7,7 +7,7 @@
  --                                 B o d y                                  --
  --                             (POSIX Version)                              --
  --                                                                          --
---          Copyright (C) 2004 Free Software Foundation, Inc.               --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/a-dirval.ads b/gcc/ada/a-dirval.ads

index 12a03f60e1525af707d38022eefd9e63b604f5ff..9785f30f7c4bb41a294da6e3e7010cba5faf1afb 100644 (file)
--- a/gcc/ada/a-dirval.ads
+++ b/gcc/ada/a-dirval.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004 Free Software Foundation, Inc.               --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/a-elchha.adb b/gcc/ada/a-elchha.adb

index 34530edea418cce0a39af3e4361b1a4a6b648a43..c2b38e4e9f26de39d5eae7b4244b15a25fdf0d9b 100644 (file)
--- a/gcc/ada/a-elchha.adb
+++ b/gcc/ada/a-elchha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 2003-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2003-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-excach.adb b/gcc/ada/a-excach.adb

index f41131509047fead12890d251822044024bff8cb..e10352d0764c8582ed24067bc49e2fad9cc41c76 100644 (file)
--- a/gcc/ada/a-excach.adb
+++ b/gcc/ada/a-excach.adb
@@ -2,11 +2,11 @@
  --                                                                          --
  --                         GNAT COMPILER COMPONENTS                         --
  --                                                                          --
---                         ADA.EXCEPTIONS.CALL_CHAIN                        --
+--             A D A . E X C E P T I O N S . C A L L _ C H A I N            --
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-except.ads b/gcc/ada/a-except.ads

index a93f056544edd3d834d3044193b529af3bfa5151..fae4d4a43869fdd56f6c02b4140f876ab239f903 100644 (file)
--- a/gcc/ada/a-except.ads
+++ b/gcc/ada/a-except.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-exctra.ads b/gcc/ada/a-exctra.ads

index bc31fd087604465c222cfa34e9c9cebef90ee965..07ffb0b9c64c32e1c2e5c2adf700c0d20f0411f9 100644 (file)
--- a/gcc/ada/a-exctra.ads
+++ b/gcc/ada/a-exctra.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1999-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1999-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-exextr.adb b/gcc/ada/a-exextr.adb

index caeb23c321df8a3a99745080815f5ce8a887dfeb..b50dbc9b492240108d6480d80d9fc0eaad3946eb 100644 (file)
--- a/gcc/ada/a-exextr.adb
+++ b/gcc/ada/a-exextr.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-exstat.adb b/gcc/ada/a-exstat.adb

index d227c45c623ce1af718516a7fa2816122aa478a8..142065f37198676b73cc938ef4bb591324d19bc5 100644 (file)
--- a/gcc/ada/a-exstat.adb
+++ b/gcc/ada/a-exstat.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-filico.ads b/gcc/ada/a-filico.ads

index 624ba5fa7ef31fa2f6410aa346f01831ca32d843..5295a06be799d3df6dc5515ba01e6d8c509adf74 100644 (file)
--- a/gcc/ada/a-filico.ads
+++ b/gcc/ada/a-filico.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                S p e c                                   --
  --                                                                          --
---             Copyright (C) 1992-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-finali.ads b/gcc/ada/a-finali.ads

index c2ae4210ca699523a02462d5dd6d19143b3dcb1b..598c29260186a3f2ddba6fe4eef8cd2811da1348 100644 (file)
--- a/gcc/ada/a-finali.ads
+++ b/gcc/ada/a-finali.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-interr.ads b/gcc/ada/a-interr.ads

index 941af5894fa7269bf406d46c8c9631064affc3d6..8c9c7212b6d17c804e4192ffa5953979bdf573f6 100644 (file)
--- a/gcc/ada/a-interr.ads
+++ b/gcc/ada/a-interr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-intnam-aix.ads b/gcc/ada/a-intnam-aix.ads

index e45c029b5eff1e84dedc48c7c61d1724a2214d2c..279db9db339365207595e4f6faa6f17cf80989b5 100644 (file)
--- a/gcc/ada/a-intnam-aix.ads
+++ b/gcc/ada/a-intnam-aix.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---           Copyright (C) 1991-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,20 +31,20 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is a AIX version of this package.
---
+--  This is a AIX version of this package
+
  --  The following signals are reserved by the run time (native threads):
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGTERM,
  --  SIGSTOP, SIGKILL
---
+
  --  The following signals are reserved by the run time (FSU threads):
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGALRM,
  --  SIGWAITING, SIGSTOP, SIGKILL
---
+
  --  The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
  --  SIGINT: made available for Ada handler
  
  --  This target-dependent package spec contains names of interrupts
@@ -55,10 +55,9 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one.  There may be aliases.  Also, for all
-   --  signal names that are not supported on the current system
-   --  the value of the corresponding constant will be zero.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases. Also, for all signal names that are not supported on the
+   --  current system the value of the corresponding constant will be zero.
  
     SIGHUP : constant Interrupt_ID :=
       System.OS_Interface.SIGHUP;      --  hangup
diff --git a/gcc/ada/a-intnam-darwin.ads b/gcc/ada/a-intnam-darwin.ads

index 1ac9b82b32ee2f09f5f64e3999bbc1fb524fbc26..23d12f1de5045eacf558a9e761643d804cfaf20e 100644 (file)
--- a/gcc/ada/a-intnam-darwin.ads
+++ b/gcc/ada/a-intnam-darwin.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,14 +31,14 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is the Darwin version of this package.
---
+--  This is the Darwin version of this package
+
  --  The following signals are reserved by the run time:
---
+
  --  SIGSTOP, SIGKILL
---
+
  --  The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
  --  SIGINT: made available for Ada handler
  
  --  This target-dependent package spec contains names of interrupts
@@ -49,10 +49,9 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one.  There may be aliases.  Also, for all
-   --  signal names that are not supported on the current system
-   --  the value of the corresponding constant will be zero.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases. Also, for all signal names that are not supported on the
+   --  current system the value of the corresponding constant will be zero.
  
     SIGHUP : constant Interrupt_ID :=
       System.OS_Interface.SIGHUP;      --  hangup
diff --git a/gcc/ada/a-intnam-dummy.ads b/gcc/ada/a-intnam-dummy.ads

index 76210c03198c9eb23855308013fc272d624c2033..f2b418795fe348910cf6142468066b82219230d9 100644 (file)
--- a/gcc/ada/a-intnam-dummy.ads
+++ b/gcc/ada/a-intnam-dummy.ads
@@ -7,7 +7,7 @@
  --                                  S p e c                                 --
  --                           (No Tasking Version)                           --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/a-intnam-freebsd.ads b/gcc/ada/a-intnam-freebsd.ads

index 3b72036904de4d29b736a19c62ce5ca1ea256280..329b0f6508ff9483ca24d6adfa212b99ecb853c9 100644 (file)
--- a/gcc/ada/a-intnam-freebsd.ads
+++ b/gcc/ada/a-intnam-freebsd.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/a-intnam-interix.ads b/gcc/ada/a-intnam-interix.ads

index f56f5dd33a468689a9f1af0f38b1db2f162c49f5..a6fa5cb6860921a3e6246a32fb94e18171ea17d5 100644 (file)
--- a/gcc/ada/a-intnam-interix.ads
+++ b/gcc/ada/a-intnam-interix.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---           Copyright (C) 1991-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/a-intnam-linux.ads b/gcc/ada/a-intnam-linux.ads

index 4246765cfd8e6353217269efeaf0d3e527601254..70fb471b0846d302804c9010d52c42c36b9beb94 100644 (file)
--- a/gcc/ada/a-intnam-linux.ads
+++ b/gcc/ada/a-intnam-linux.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---           Copyright (C) 1991-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,20 +31,20 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is a GNU/Linux version of this package.
---
+--  This is a GNU/Linux version of this package
+
  --  The following signals are reserved by the run time (FSU threads):
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
  --  SIGALRM, SIGVTALRM, SIGUNUSED, SIGSTOP, SIGKILL
---
+
  --  The following signals are reserved by the run time (LinuxThreads):
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
  --  SIGUSR1, SIGUSR2, SIGVTALRM, SIGUNUSED, SIGSTOP, SIGKILL
---
+
  --  The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
  --  SIGINT: made available for Ada handler
  
  --  This target-dependent package spec contains names of interrupts
@@ -55,10 +55,9 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one.  There may be aliases.  Also, for all
-   --  signal names that are not supported on the current system
-   --  the value of the corresponding constant will be zero.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases. Also, for all signal names that are not supported on the
+   --  current system the value of the corresponding constant will be zero.
  
     SIGHUP : constant Interrupt_ID :=
       System.OS_Interface.SIGHUP;      --  hangup
diff --git a/gcc/ada/a-intnam-lynxos.ads b/gcc/ada/a-intnam-lynxos.ads

index 7e484d57367576cb81ced5ac3a67883108a43c9e..850eb2af03327eabfd48d0945388dcc9e93e71bf 100644 (file)
--- a/gcc/ada/a-intnam-lynxos.ads
+++ b/gcc/ada/a-intnam-lynxos.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,15 +31,15 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is a LynxOS version of this package.
---
+--  This is a LynxOS version of this package
+
  --  The following signals are reserved by the run time:
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
  --  SIGWAITING, SIGLWP, SIGTTIN, SIGTTOU, SIGTSTP, SIGPROF, SIGSTOP, SIGKILL
---
+
  --  The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
  --  SIGINT: made available for Ada handler
  
  with System.OS_Interface;
@@ -47,8 +47,8 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one. There may be aliases.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases.
  
     SIGHUP : constant Interrupt_ID :=
       System.OS_Interface.SIGHUP;      --  hangup
diff --git a/gcc/ada/a-intnam-mingw.ads b/gcc/ada/a-intnam-mingw.ads

index 13038fe241037b49605da6fbaece87b70701e058..a8c5e4ee11a05793e4d3a67bd1905365debc253d 100644 (file)
--- a/gcc/ada/a-intnam-mingw.ads
+++ b/gcc/ada/a-intnam-mingw.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -41,10 +41,9 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one.  There may be aliases.  Also, for all
-   --  signal names that are not supported on the current system
-   --  the value of the corresponding constant will be zero.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases. Also, for all signal names that are not supported on the
+   --  current system the value of the corresponding constant will be zero.
  
     SIGINT : constant Interrupt_ID :=
       System.OS_Interface.SIGINT;      --  interrupt (rubout)
diff --git a/gcc/ada/a-intnam-solaris.ads b/gcc/ada/a-intnam-solaris.ads

index f65b861786e83000bc023cc4c152d21dea629806..4b4adcf109c0ba08d39977038f1d0143d73a0704 100644 (file)
--- a/gcc/ada/a-intnam-solaris.ads
+++ b/gcc/ada/a-intnam-solaris.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---           Copyright (C) 1991-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,20 +31,20 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is a Solaris version of this package.
---
+--  This is a Solaris version of this package
+
  --  The following signals are reserved by the run time (native threads):
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
  --  SIGLWP, SIGWAITING, SIGCANCEL, SIGSTOP, SIGKILL
---
+
  --  The following signals are reserved by the run time (FSU threads):
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGTERM, SIGABRT, SIGINT,
  --  SIGLWP, SIGALRM, SIGVTALRM, SIGAITING, SIGSTOP, SIGKILL
---
+
  --  The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
  --  SIGINT: made available for Ada handlers
  
  with System.OS_Interface;
@@ -52,10 +52,9 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one.  There may be aliases.  Also, for all
-   --  signal names that are not supported on the current system
-   --  the value of the corresponding constant will be zero.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases. Also, for all signal names that are not supported on the
+   --  current system the value of the corresponding constant will be zero.
  
     SIGHUP : constant Interrupt_ID :=
       System.OS_Interface.SIGHUP;      --  hangup
diff --git a/gcc/ada/a-intnam-tru64.ads b/gcc/ada/a-intnam-tru64.ads

index 579be22556ef2a23c45cd597ae810c445710d805..8b6a838c101e4182b239a85edb60ba2ff021cf92 100644 (file)
--- a/gcc/ada/a-intnam-tru64.ads
+++ b/gcc/ada/a-intnam-tru64.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,15 +31,15 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is the DEC Unix 4.0 version of this package.
---
+--  This is the DEC Unix 4.0 version of this package
+
  --  The following signals are reserved by the run time:
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGALRM,
  --  SIGSTOP, SIGKILL
---
+
  --  The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
  --  SIGINT: made available for Ada handler
  
  with System.OS_Interface;
@@ -47,10 +47,9 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one.  There may be aliases.  Also, for all
-   --  signal names that are not supported on the current system
-   --  the value of the corresponding constant will be zero.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases. Also, for all signal names that are not supported on the
+   --  current system the value of the corresponding constant will be zero.
  
     SIGHUP : constant Interrupt_ID :=
       System.OS_Interface.SIGHUP;      --  hangup
diff --git a/gcc/ada/a-intnam-unixware.ads b/gcc/ada/a-intnam-unixware.ads

index 956470cc40ac4ca54fbfc487d6f9fb06076739f9..ff8a6c801c4fe987654428a11905362a582f6939 100644 (file)
--- a/gcc/ada/a-intnam-unixware.ads
+++ b/gcc/ada/a-intnam-unixware.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,15 +31,15 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is a SCO UnixWare version of this package.
---
+--  This is a SCO UnixWare version of this package
+
  --  The following signals are reserved by the run time:
---
+
  --  SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGABRT, SIGINT,
  --  SIGWAITING, SIGLWP, SIGTTIN, SIGTTOU, SIGTSTP, SIGPROF, SIGSTOP, SIGKILL
---
+
  --  The pragma Unreserve_All_Interrupts affects the following signal(s):
---
+
  --  SIGINT: made available for Ada handler
  
  with System.OS_Interface;
@@ -47,8 +47,8 @@ with System.OS_Interface;
  
  package Ada.Interrupts.Names is
  
-   --  Beware that the mapping of names to signals may be
-   --  many-to-one. There may be aliases.
+   --  Beware that the mapping of names to signals may be many-to-one. There
+   --  may be aliases.
  
     SIGHUP : constant Interrupt_ID :=
       System.OS_Interface.SIGHUP;      --  hangup
diff --git a/gcc/ada/a-intnam-vms.ads b/gcc/ada/a-intnam-vms.ads

index e079f0274a7eee3239a3885a1ddf7642a4a3425c..3b745d17ccbde2ff2c7b9dc56655ac5331dde897 100644 (file)
--- a/gcc/ada/a-intnam-vms.ads
+++ b/gcc/ada/a-intnam-vms.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -31,8 +31,8 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is a OpenVMS/Alpha version of this package.
---
+--  This is a OpenVMS/Alpha version of this package
+
  --  This target-dependent package spec contains names of interrupts
  --  supported by the local system.
  
diff --git a/gcc/ada/a-intnam-vxworks.ads b/gcc/ada/a-intnam-vxworks.ads

index beb915be0b0b09417a9c5328b1590bf487c7f4e8..7a2427a772508edb75c8cf343454e0b46a5a3574 100644 (file)
--- a/gcc/ada/a-intnam-vxworks.ads
+++ b/gcc/ada/a-intnam-vxworks.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---           Copyright (C) 1998-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1998-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/a-intsig.adb b/gcc/ada/a-intsig.adb

index 80a9441e434682e6735ea468a9c899c3f660ca5f..2099cd8b6ff424be34d323802e2e3d234efc9c11 100644 (file)
--- a/gcc/ada/a-intsig.adb
+++ b/gcc/ada/a-intsig.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  B o d y                                 --
  --                                                                          --
---           Copyright (C) 2000-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2000-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -32,6 +32,7 @@
  ------------------------------------------------------------------------------
  
  with System.Interrupt_Management.Operations;
+
  package body Ada.Interrupts.Signal is
  
     ------------------------
@@ -43,4 +44,5 @@ package body Ada.Interrupts.Signal is
        System.Interrupt_Management.Operations.Interrupt_Self_Process
          (System.Interrupt_Management.Interrupt_ID (Interrupt));
     end Generate_Interrupt;
+
  end Ada.Interrupts.Signal;
diff --git a/gcc/ada/a-intsig.ads b/gcc/ada/a-intsig.ads

index 0150622c1f5e81e3b2ca6d6872a7741b7fe91e89..5160123539acc40a72ac7da41ecc542fe96bae51 100644 (file)
--- a/gcc/ada/a-intsig.ads
+++ b/gcc/ada/a-intsig.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---           Copyright (C) 2000-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2000-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -35,10 +35,10 @@
  --  by user programs and avoids importing low level children of System
  --  (e.g. System.Interrupt_Management.Operations), or defining an interface
  --  to complex system calls.
---
+
  package Ada.Interrupts.Signal is
  
     procedure Generate_Interrupt (Interrupt : Interrupt_ID);
-   --  Generate Interrupt at the process level
+   --  Generate interrupt at the process level
  
  end Ada.Interrupts.Signal;
diff --git a/gcc/ada/a-ngcefu.adb b/gcc/ada/a-ngcefu.adb

index 44216466cb49564259766e007c5eb8b0a4764205..d0e203d27801c1fbe8959d5812dcbf9c444d1523 100644 (file)
--- a/gcc/ada/a-ngcefu.adb
+++ b/gcc/ada/a-ngcefu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ngcoty.adb b/gcc/ada/a-ngcoty.adb

index aa8c9955d0f152403419a706cc0be5c3ef38fa09..f0abc80ec372814180d1be415b2bde3805c43864 100644 (file)
--- a/gcc/ada/a-ngcoty.adb
+++ b/gcc/ada/a-ngcoty.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
  ------------------------------------------------------------------------------
  
  with Ada.Numerics.Aux; use Ada.Numerics.Aux;
+
  package body Ada.Numerics.Generic_Complex_Types is
  
     subtype R is Real'Base;
diff --git a/gcc/ada/a-ngcoty.ads b/gcc/ada/a-ngcoty.ads

index fd6c9071b4ae72cc8f9c10c92dc04e74b731ad30..0e006d24cb96f597540467018ee516dbf0f42b55 100644 (file)
--- a/gcc/ada/a-ngcoty.ads
+++ b/gcc/ada/a-ngcoty.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-nudira.adb b/gcc/ada/a-nudira.adb

index 9cdd8a149e13d23943013a6467f65137acb08f3a..dd8408f2d81433f4bf3f16ed8a9859d93f1d2f39 100644 (file)
--- a/gcc/ada/a-nudira.adb
+++ b/gcc/ada/a-nudira.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
  ------------------------------------------------------------------------------
  
  with Ada.Calendar;
+
  with Interfaces; use Interfaces;
  
  package body Ada.Numerics.Discrete_Random is
@@ -201,7 +202,6 @@ package body Ada.Numerics.Discrete_Random is
  
     procedure Reset (Gen : Generator; From_State : State) is
        Genp : constant Pointer := Gen.Gen_State'Unrestricted_Access;
-
     begin
        Genp.all := From_State;
     end Reset;
diff --git a/gcc/ada/a-nudira.ads b/gcc/ada/a-nudira.ads

index 275e89825fd43cfde6168ba8c28d0747c0ea495b..c6b2b3e9f30a2e877ce56bef633bbbcd2844d5f7 100644 (file)
--- a/gcc/ada/a-nudira.ads
+++ b/gcc/ada/a-nudira.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-nuflra.adb b/gcc/ada/a-nuflra.adb

index 5f43c97df6ba46453ad96a2662c7fce0aaee6e8e..379d58fe7b4a764056ad918aed972c48f5a6f74b 100644 (file)
--- a/gcc/ada/a-nuflra.adb
+++ b/gcc/ada/a-nuflra.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-numaux-darwin.adb b/gcc/ada/a-numaux-darwin.adb

index d9235a10649ccd18ac6365f09908575b7d27d88f..af0f1d5bd0fef186354239f7b56e33356a905695 100644 (file)
--- a/gcc/ada/a-numaux-darwin.adb
+++ b/gcc/ada/a-numaux-darwin.adb
@@ -7,7 +7,7 @@
  --                                 B o d y                                  --
  --                          (Apple OS X Version)                            --
  --                                                                          --
---          Copyright (C) 1998-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2005, 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- --
@@ -32,7 +32,7 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  File a-numaux.adb <- a-numaux-darwin.adb
+--  File a-numaux.adb <- a-numaux-d arwin.adb
  
  package body Ada.Numerics.Aux is
  
@@ -95,7 +95,8 @@ package body Ada.Numerics.Aux is
        P5 : constant Double := Double'Leading_Part (Half_Pi - P1 - P2 - P3
                                                                   - P4, HM);
        P6 : constant Double := Double'Model (Half_Pi - P1 - P2 - P3 - P4 - P5);
-      K  : Double := X * Two_Over_Pi;
+      K  : Double;
+
     begin
        --  For X < 2.0**HM, all products below are computed exactly.
        --  Due to cancellation effects all subtractions are exact as well.
@@ -103,17 +104,17 @@ package body Ada.Numerics.Aux is
        --  zeros after the binary point, the result will be the correctly
        --  rounded result of X - K * (Pi / 2.0).
  
-      while abs K >= 2.0**HM loop
+      K := X * Two_Over_Pi;
+      while abs K >= 2.0 ** HM loop
           K := K * M - (K * M - K);
-         X := (((((X - K * P1) - K * P2) - K * P3)
-                     - K * P4) - K * P5) - K * P6;
+         X :=
+           (((((X - K * P1) - K * P2) - K * P3) - K * P4) - K * P5) - K * P6;
           K := X * Two_Over_Pi;
        end loop;
  
-      if K /= K then
-
-         --  K is not a number, because X was not finite
+      --  If K is not a number (because X was not finite) raise exception
  
+      if K /= K then
           raise Constraint_Error;
        end if;
  
diff --git a/gcc/ada/a-numaux-darwin.ads b/gcc/ada/a-numaux-darwin.ads

index 67faa0f99823562ab3931a5fb57c4dd0b5bf9c70..77f5badf9372e2617c7cd73543a7f707fd8f1ec7 100644 (file)
--- a/gcc/ada/a-numaux-darwin.ads
+++ b/gcc/ada/a-numaux-darwin.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (Apple OS X Version)                            --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-numaux-libc-x86.ads b/gcc/ada/a-numaux-libc-x86.ads

index 8e94fa0176ded46fffb11058b9802f9ddc4f0b2d..ac2df18d3106cde6e0c0e4e939c96684377103d8 100644 (file)
--- a/gcc/ada/a-numaux-libc-x86.ads
+++ b/gcc/ada/a-numaux-libc-x86.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                       (C Library Version for x86)                        --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-numaux-vxworks.ads b/gcc/ada/a-numaux-vxworks.ads

index db71c04644468d24de853b8b2c4f6e72bded949d..70f07ca358299e0230fa6a8e3ba39a5327e069ce 100644 (file)
--- a/gcc/ada/a-numaux-vxworks.ads
+++ b/gcc/ada/a-numaux-vxworks.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                       (C Library Version, VxWorks)                       --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-numaux-x86.ads b/gcc/ada/a-numaux-x86.ads

index 97cf691b1278e10fa4683ac4b314227f1cf448ee..7cfb612f37b2c54246b0035a1baa14d33b9455da 100644 (file)
--- a/gcc/ada/a-numaux-x86.ads
+++ b/gcc/ada/a-numaux-x86.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                        (Machine Version for x86)                         --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-numaux.ads b/gcc/ada/a-numaux.ads

index fb09ad1009b1d2b68b7d2f887f89591585eb456c..694ca8069f2f2e1892d8c7807776689d793d103a 100644 (file)
--- a/gcc/ada/a-numaux.ads
+++ b/gcc/ada/a-numaux.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                       (C Library Version, non-x86)                       --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-rbtgso.adb b/gcc/ada/a-rbtgso.adb

index 4a46be1181c7e7fddcca875437a82cc2e73d80ea..6742e285291c836fed125d7fd073ba414d905f4d 100644 (file)
--- a/gcc/ada/a-rbtgso.adb
+++ b/gcc/ada/a-rbtgso.adb
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-reatim.ads b/gcc/ada/a-reatim.ads

index c761354d51f1a5e09e8b355343da48cc6318ea0d..ae87c0a322ae28d34f73ecd57ef0f90b02d9d3fa 100644 (file)
--- a/gcc/ada/a-reatim.ads
+++ b/gcc/ada/a-reatim.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-secain.adb b/gcc/ada/a-secain.adb

index 777af4e27e3d4366c8eab2ec28652b54e85466a7..74d222d6a5906fb9a054ed372cb18fa3232d5f0e 100644 (file)
--- a/gcc/ada/a-secain.adb
+++ b/gcc/ada/a-secain.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-sequio.adb b/gcc/ada/a-sequio.adb

index 1a5966b7a910c0a40c17bb8abcad7f72b76ce2c0..6d4d84f9d2f41d37f557f05130ef1821b5a98099 100644 (file)
--- a/gcc/ada/a-sequio.adb
+++ b/gcc/ada/a-sequio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-sequio.ads b/gcc/ada/a-sequio.ads

index 3a01364c3a35e9806b249dff889c82b99aa5ca44..2aba80abfc501a42a81de6871ece7fa733972aaf 100644 (file)
--- a/gcc/ada/a-sequio.ads
+++ b/gcc/ada/a-sequio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -36,6 +36,7 @@
  ------------------------------------------------------------------------------
  
  with Ada.IO_Exceptions;
+
  with System.Sequential_IO;
  
  generic
diff --git a/gcc/ada/a-shcain.adb b/gcc/ada/a-shcain.adb

index c41c2e6cdfb842049452e3ee2a0d71465b862d0a..4b6000c26becbb9b869400a918e6a61de9514cf7 100644 (file)
--- a/gcc/ada/a-shcain.adb
+++ b/gcc/ada/a-shcain.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -33,7 +33,7 @@
  -- This unit was originally developed by Matthew J Heaney.                  --
  ------------------------------------------------------------------------------
  
-with Ada.Characters.Handling;  use Ada.Characters.Handling;
+with Ada.Characters.Handling; use Ada.Characters.Handling;
  
  --  Note: source of this algorithm: GNAT.HTable.Hash (g-htable.adb)
  
diff --git a/gcc/ada/a-siocst.ads b/gcc/ada/a-siocst.ads

index 949e398b5c6055aadd912f0521df7be3dbb65f87..26a9af94eabc2e5ca8ace811a1aa282169dc6d59 100644 (file)
--- a/gcc/ada/a-siocst.ads
+++ b/gcc/ada/a-siocst.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-slcain.adb b/gcc/ada/a-slcain.adb

index 5ce584e2710fe3d29d698c78b5773f1f0604a6e5..5a5b8928c436e6f4431dddb1ac8fa56f6f47e786 100644 (file)
--- a/gcc/ada/a-slcain.adb
+++ b/gcc/ada/a-slcain.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -33,7 +33,7 @@
  -- This unit was originally developed by Matthew J Heaney.                  --
  ------------------------------------------------------------------------------
  
-with Ada.Characters.Handling;  use Ada.Characters.Handling;
+with Ada.Characters.Handling; use Ada.Characters.Handling;
  
  function Ada.Strings.Less_Case_Insensitive
    (Left, Right : String) return Boolean
diff --git a/gcc/ada/a-ssicst.ads b/gcc/ada/a-ssicst.ads

index 1d56f0f07edeb480fd891c915d8fbf95221fe071..d5f2d6a4ea9fa8f9c4f0ea52a5b6c989ef53ed70 100644 (file)
--- a/gcc/ada/a-ssicst.ads
+++ b/gcc/ada/a-ssicst.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stmaco.ads b/gcc/ada/a-stmaco.ads

index 660f557a266614ed223ecfcd3dbbf3f15e4e6d90..86e1bb948eb452a97b17d2101722294bb61fb9a4 100644 (file)
--- a/gcc/ada/a-stmaco.ads
+++ b/gcc/ada/a-stmaco.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          ACopyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-storio.adb b/gcc/ada/a-storio.adb

index 3f50e730ad13c7a1c31d5293b24487ce864334af..ebf6168cdfb51b6d5c2785b5fa5f5b24b92efd61 100644 (file)
--- a/gcc/ada/a-storio.adb
+++ b/gcc/ada/a-storio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-strbou.adb b/gcc/ada/a-strbou.adb

index 6bcf0b4755a217eb66ee7a2df1a141d59e168cb4..015123a8fafea235cb041232b677aeeaa21fcaf6 100644 (file)
--- a/gcc/ada/a-strbou.adb
+++ b/gcc/ada/a-strbou.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-strbou.ads b/gcc/ada/a-strbou.ads

index 74bb8f697a1143eda221ce28f948811f23e24050..d0dbe8c9ce02614a7a96068a913d7a50f396daa2 100644 (file)
--- a/gcc/ada/a-strbou.ads
+++ b/gcc/ada/a-strbou.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stream.ads b/gcc/ada/a-stream.ads

index 0b68692857af0801a8bb3a6c9a04075c4aea0935..5bca4a2cc5b2a1569137a8f9d7ca853315021698 100644 (file)
--- a/gcc/ada/a-stream.ads
+++ b/gcc/ada/a-stream.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-strfix.adb b/gcc/ada/a-strfix.adb

index 5eee9348f27135b72c31690c903e923cf1e277e0..3385baac86877a019e9e510a6f9932ac6c51cfee 100644 (file)
--- a/gcc/ada/a-strfix.adb
+++ b/gcc/ada/a-strfix.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -31,14 +31,14 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  Note: This code is derived from the ADAR.CSH public domain Ada 83
---  versions of the Appendix C string handling packages. One change is
---  to avoid the use of Is_In, so that we are not dependent on inlining.
---  Note that the search function implementations are to be found in the
---  auxiliary package Ada.Strings.Search. Also the Move procedure is
---  directly incorporated (ADAR used a subunit for this procedure). A
---  number of errors having to do with bounds of function return results
---  were also fixed, and use of & removed for efficiency reasons.
+--  Note: This code is derived from the ADAR.CSH public domain Ada 83 versions
+--  of the Appendix C string handling packages. One change is to avoid the use
+--  of Is_In, so that we are not dependent on inlining. Note that the search
+--  function implementations are to be found in the auxiliary package
+--  Ada.Strings.Search. Also the Move procedure is directly incorporated (ADAR
+--  used a subunit for this procedure). number of errors having to do with
+--  bounds of function return results were also fixed, and use of & removed for
+--  efficiency reasons.
  
  with Ada.Strings.Maps; use Ada.Strings.Maps;
  with Ada.Strings.Search;
diff --git a/gcc/ada/a-strhas.adb b/gcc/ada/a-strhas.adb

index a22c27c66ee210aeed50859bdf7578be82875285..ba02a75c68cb458436b400ba75ff5b666227b040 100644 (file)
--- a/gcc/ada/a-strhas.adb
+++ b/gcc/ada/a-strhas.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                B o d y                                   --
  --                                                                          --
---           Copyright (C) 2004-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-strmap.adb b/gcc/ada/a-strmap.adb

index f5e324914dadb8d9d7b8ec2ba55035f3b96e279c..ee0179ef8a8392d7a5317b62f38289cfbf1f8bb3 100644 (file)
--- a/gcc/ada/a-strmap.adb
+++ b/gcc/ada/a-strmap.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-strmap.ads b/gcc/ada/a-strmap.ads

index 3331a2f1666526847d9f5d70be05e9198dc244d4..bd1b98f00cc80fdfea5365b94bfdd27050fe274c 100644 (file)
--- a/gcc/ada/a-strmap.ads
+++ b/gcc/ada/a-strmap.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-strsea.adb b/gcc/ada/a-strsea.adb

index f98617cde74f7d7d97177f4c3506823e8bf0523c..322aeaa7fb14fef284b440d021e1fe8d458cfc22 100644 (file)
--- a/gcc/ada/a-strsea.adb
+++ b/gcc/ada/a-strsea.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-strsea.ads b/gcc/ada/a-strsea.ads

index f9d81c74c70bcadb136ffba68d73c6dfb1739d5f..6c7a5c297daea2679e16c14bd86348ad6f74cba0 100644 (file)
--- a/gcc/ada/a-strsea.ads
+++ b/gcc/ada/a-strsea.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-strsup.adb b/gcc/ada/a-strsup.adb

index 28654129357654e9eb3c0d53a72a978d099f2764..1b1c9090c9232731f4a0a08d02e248ca54d66b3c 100644 (file)
--- a/gcc/ada/a-strsup.adb
+++ b/gcc/ada/a-strsup.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/a-strsup.ads b/gcc/ada/a-strsup.ads

index cf27f4a74953d47c73ca7a586a44affe45c907f1..e00b09011c639ecadc21319402970dbd92dfa028 100644 (file)
--- a/gcc/ada/a-strsup.ads
+++ b/gcc/ada/a-strsup.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/a-strunb.adb b/gcc/ada/a-strunb.adb

index cf5cde63cc60268345d849303f571f4a67c49258..34720704a36af3cd8638f4c6a601f3f777347039 100644 (file)
--- a/gcc/ada/a-strunb.adb
+++ b/gcc/ada/a-strunb.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-strunb.ads b/gcc/ada/a-strunb.ads

index 0869995a1679e8966b0fa98748fcafd5e5cfb4bd..5755ed202aa0e9b6d725f9f8b5f35d8e5e838e36 100644 (file)
--- a/gcc/ada/a-strunb.ads
+++ b/gcc/ada/a-strunb.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stunha.adb b/gcc/ada/a-stunha.adb

index 8052bdcf77f6679667ae7842357584d8c3c13959..34db56341169f6c78a0e7249b641570d4d5ff82d 100644 (file)
--- a/gcc/ada/a-stunha.adb
+++ b/gcc/ada/a-stunha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stunha.ads b/gcc/ada/a-stunha.ads

index 81716555389f2ac32e0bc8c848a079da34ec44a1..acf04716762a089e2d5b221725606bfe862e7df3 100644 (file)
--- a/gcc/ada/a-stunha.ads
+++ b/gcc/ada/a-stunha.ads
@@ -6,8 +6,6 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
---                                                                          --
  -- This specification is adapted from the Ada Reference Manual for use with --
  -- GNAT.  In accordance with the copyright of that document, you can freely --
  -- copy and modify this specification,  provided that if you redistribute a --
diff --git a/gcc/ada/a-stwibo.adb b/gcc/ada/a-stwibo.adb

index 136b439205d791c6775383a5214db27147548b99..36ec17d1baa993dc017863eb3e685e42c2362b2b 100644 (file)
--- a/gcc/ada/a-stwibo.adb
+++ b/gcc/ada/a-stwibo.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stwibo.ads b/gcc/ada/a-stwibo.ads

index 4c056650fc9c0910436638c2c142a2af82078fc9..4033543e866faeab17539e635751fae5bb82df0e 100644 (file)
--- a/gcc/ada/a-stwibo.ads
+++ b/gcc/ada/a-stwibo.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stwifi.adb b/gcc/ada/a-stwifi.adb

index 13fe4ffe0ffea26886e885b052f893433c5ec759..9f721bfb0f13b243b0516fae16291e0668e1bccb 100644 (file)
--- a/gcc/ada/a-stwifi.adb
+++ b/gcc/ada/a-stwifi.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -31,7 +31,7 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
-with Ada.Strings.Wide_Maps; use Ada.Strings.Wide_Maps;
+with Ada.Strings.Wide_Maps;   use Ada.Strings.Wide_Maps;
  with Ada.Strings.Wide_Search;
  
  package body Ada.Strings.Wide_Fixed is
@@ -296,7 +296,11 @@ package body Ada.Strings.Wide_Fixed is
        Tlength : constant Integer := Target'Length;
  
        function Is_Padding (Item : Wide_String) return Boolean;
-      --  Determinbe if all characters in Item are pad characters
+      --  Determine if all characters in Item are pad characters
+
+      ----------------
+      -- Is_Padding --
+      ----------------
  
        function Is_Padding (Item : Wide_String) return Boolean is
        begin
diff --git a/gcc/ada/a-stwiha.adb b/gcc/ada/a-stwiha.adb

index c9068717a374d08d59f540453f6d448381bf5c8a..dd38568440df3669058c26a3b2800761a28dddce 100644 (file)
--- a/gcc/ada/a-stwiha.adb
+++ b/gcc/ada/a-stwiha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stwima.adb b/gcc/ada/a-stwima.adb

index 3ec637321f3b50f0f507d0828059e24eb35ebe46..d56fb11ca8ba6f213d56117066b94246e239c7dd 100644 (file)
--- a/gcc/ada/a-stwima.adb
+++ b/gcc/ada/a-stwima.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stwima.ads b/gcc/ada/a-stwima.ads

index 001f5da201e2a300487e1cd50d0c5682a0dd5844..e63ac3169dfe497229e6e86eba0e1954ca054d4f 100644 (file)
--- a/gcc/ada/a-stwima.ads
+++ b/gcc/ada/a-stwima.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stwise.adb b/gcc/ada/a-stwise.adb

index 3121a16c6c110b9fe9f37eea47cf4afef82a5859..f2be824df0fd74aa149efbd578f69c47e106e277 100644 (file)
--- a/gcc/ada/a-stwise.adb
+++ b/gcc/ada/a-stwise.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stwise.ads b/gcc/ada/a-stwise.ads

index 35241fc25e5018aee69d24e88f627cc9ca315e06..da4d3e1a4a74d08058952579efc7677459b26583 100644 (file)
--- a/gcc/ada/a-stwise.ads
+++ b/gcc/ada/a-stwise.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stwisu.adb b/gcc/ada/a-stwisu.adb

index 10529684de21b8411dcb75461a150cf3b56e8880..5984e5e117fe9ca9b2e0602299bea7cb08564d66 100644 (file)
--- a/gcc/ada/a-stwisu.adb
+++ b/gcc/ada/a-stwisu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/a-stwisu.ads b/gcc/ada/a-stwisu.ads

index 721e2a80481e11140111c42adeb2e3b755ec8ebb..f5e688332f9f7457f88471d5a6e62aaba454c2a5 100644 (file)
--- a/gcc/ada/a-stwisu.ads
+++ b/gcc/ada/a-stwisu.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/a-stwiun.adb b/gcc/ada/a-stwiun.adb

index 05b3fa734be93cb1f9263898a75e5c52ed50e2ff..45ab546a3c25944082e71530eca2911e709acff4 100644 (file)
--- a/gcc/ada/a-stwiun.adb
+++ b/gcc/ada/a-stwiun.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stwiun.ads b/gcc/ada/a-stwiun.ads

index e2cb3644566b76b35d2e047e60ca43f82cabd6e2..4ac93acc84c285cb1dfa23ea0b97af3af3aeef93 100644 (file)
--- a/gcc/ada/a-stwiun.ads
+++ b/gcc/ada/a-stwiun.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzbou.adb b/gcc/ada/a-stzbou.adb

index 53089bff5c04c29f368b4b777e33fe3b71f2ddb4..fee2026a61fac7fd7cf88a83d79a438137fd9f5a 100644 (file)
--- a/gcc/ada/a-stzbou.adb
+++ b/gcc/ada/a-stzbou.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stzbou.ads b/gcc/ada/a-stzbou.ads

index e4ad260871be7d5cc0c84ea1f514bdfa78e92053..7650ef58aa9860567d87d9525a58e67cf53c303f 100644 (file)
--- a/gcc/ada/a-stzbou.ads
+++ b/gcc/ada/a-stzbou.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzfix.adb b/gcc/ada/a-stzfix.adb

index 5517404c42e223e5144b71fdf88adf1c7197435d..c01e2a7141ae739d45ac37cc98d9e5eda14022d1 100644 (file)
--- a/gcc/ada/a-stzfix.adb
+++ b/gcc/ada/a-stzfix.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stzhas.adb b/gcc/ada/a-stzhas.adb

index 7881ea6d11ba0520213e932c5491ccdd289a20d4..ec5e928edc1091c71ce1d880d6e6cc8e7b465fed 100644 (file)
--- a/gcc/ada/a-stzhas.adb
+++ b/gcc/ada/a-stzhas.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzmap.adb b/gcc/ada/a-stzmap.adb

index 4f5880f8525b8b6a72d3347faef7bd3d48e83f4a..35a03853fde74e61cf825d3b8ba83b91bf84b89f 100644 (file)
--- a/gcc/ada/a-stzmap.adb
+++ b/gcc/ada/a-stzmap.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stzmap.ads b/gcc/ada/a-stzmap.ads

index f71e3dde106aaf631c0d1bce3f72f53ad723c92c..b69357af4c0661b5828ba7ad67fd2d5f9c7276cb 100644 (file)
--- a/gcc/ada/a-stzmap.ads
+++ b/gcc/ada/a-stzmap.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-stzsea.adb b/gcc/ada/a-stzsea.adb

index 5b0b326c1ac8188d22543e85efaa366d35284bb2..2e29415e0c18199ec2f09299948b01f49ed1e945 100644 (file)
--- a/gcc/ada/a-stzsea.adb
+++ b/gcc/ada/a-stzsea.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stzsea.ads b/gcc/ada/a-stzsea.ads

index eef55151bfd1e4262d952cb69c036fa5af9726ca..f598db656f7e625e157b49fa37fdbcb23ebd7ad8 100644 (file)
--- a/gcc/ada/a-stzsea.ads
+++ b/gcc/ada/a-stzsea.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stzsup.adb b/gcc/ada/a-stzsup.adb

index b6a96fd2ca437de998b1e70ae88be4ff22f719ee..9e4fbcd20f161c62ef865187fd2314f59e829977 100644 (file)
--- a/gcc/ada/a-stzsup.adb
+++ b/gcc/ada/a-stzsup.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/a-stzsup.ads b/gcc/ada/a-stzsup.ads

index 33b9ecb03f7e76e767c5547bef25b3de4836e124..ab84ad46f8b42a1a55223dc3d9b33a744e42b6fc 100644 (file)
--- a/gcc/ada/a-stzsup.ads
+++ b/gcc/ada/a-stzsup.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/a-stzunb.adb b/gcc/ada/a-stzunb.adb

index 5f5302dc817df51d394d10fc9a4232438a4ccb37..7f4c54a94c34b1b1bc920c5821e1ca63008e21ed 100644 (file)
--- a/gcc/ada/a-stzunb.adb
+++ b/gcc/ada/a-stzunb.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-stzunb.ads b/gcc/ada/a-stzunb.ads

index b069e934dd2b3ef83a3a3d1381d86b530b0eb314..95b8eb172690ae07a11540b25c78e2757dd3af1d 100644 (file)
--- a/gcc/ada/a-stzunb.ads
+++ b/gcc/ada/a-stzunb.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-suteio.adb b/gcc/ada/a-suteio.adb

index c5f586b28771da992d0f86c1547812644c867a86..98034e2b110bb82e0ce12ec4db832080a2a8a0a1 100644 (file)
--- a/gcc/ada/a-suteio.adb
+++ b/gcc/ada/a-suteio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/a-suteio.ads b/gcc/ada/a-suteio.ads

index 7bcf5edac589243f5ef6f28782ecb4f3eb0fc49c..4369a452cf0084c1054c2de3cb93ed1dcf3e27a5 100644 (file)
--- a/gcc/ada/a-suteio.ads
+++ b/gcc/ada/a-suteio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/a-swmwco.ads b/gcc/ada/a-swmwco.ads

index 269b3f8d5b4467c51249f1078798124ab3534c8a..76b5976b62071949e56a893d20be61bf81d46fd9 100644 (file)
--- a/gcc/ada/a-swmwco.ads
+++ b/gcc/ada/a-swmwco.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-swuwha.ads b/gcc/ada/a-swuwha.ads

index 078094a802526ceed165ad93268f94447b0d33a6..1fcb41007f8f3c8068ab31f25266c4e466f5e44a 100644 (file)
--- a/gcc/ada/a-swuwha.ads
+++ b/gcc/ada/a-swuwha.ads
@@ -6,8 +6,6 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
---                                                                          --
  -- This specification is adapted from the Ada Reference Manual for use with --
  -- GNAT.  In accordance with the copyright of that document, you can freely --
  -- copy and modify this specification,  provided that if you redistribute a --
diff --git a/gcc/ada/a-swuwti.adb b/gcc/ada/a-swuwti.adb

index 1436aed2e7fbdc456bb8c078c9b140527e44542b..1e6bb2e7eabf81bc7a522f46f0fd28965a628b8a 100644 (file)
--- a/gcc/ada/a-swuwti.adb
+++ b/gcc/ada/a-swuwti.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/a-swuwti.ads b/gcc/ada/a-swuwti.ads

index b5a4defb0095a4da4d7c5cdf2df2758b739a751b..219a360a3942a4ff40443cb3bbafa1ee6680e602 100644 (file)
--- a/gcc/ada/a-swuwti.ads
+++ b/gcc/ada/a-swuwti.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/a-sytaco.adb b/gcc/ada/a-sytaco.adb

index 98fcfaa5f9809d748e1aafb1faffacb68a0af5fe..3d0aaaa8c3bb9d5f832b3057e4f9db13618e1398 100644 (file)
--- a/gcc/ada/a-sytaco.adb
+++ b/gcc/ada/a-sytaco.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-sytaco.ads b/gcc/ada/a-sytaco.ads

index 5e6315cdba59b01bf01752359d286a1c53d62ff5..96480cf26e84b5668cd38f2c4b9f6660bbd14941 100644 (file)
--- a/gcc/ada/a-sytaco.ads
+++ b/gcc/ada/a-sytaco.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-szuzha.adb b/gcc/ada/a-szuzha.adb

index 97c97905d96de0293b4e073da26b684a900b7f3f..fff8114e656fe64859075ad3a01f2a6d87689864 100644 (file)
--- a/gcc/ada/a-szuzha.adb
+++ b/gcc/ada/a-szuzha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-szuzha.ads b/gcc/ada/a-szuzha.ads

index 2aaf66bd485260ceea163d2fffd49336aa88e1c0..1e07fbdbd2ba9b3cd04e94cab1eda4e004614dcb 100644 (file)
--- a/gcc/ada/a-szuzha.ads
+++ b/gcc/ada/a-szuzha.ads
@@ -6,8 +6,6 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
---                                                                          --
  -- This specification is adapted from the Ada Reference Manual for use with --
  -- GNAT.  In accordance with the copyright of that document, you can freely --
  -- copy and modify this specification,  provided that if you redistribute a --
diff --git a/gcc/ada/a-szuzti.adb b/gcc/ada/a-szuzti.adb

index d543bc4f18f6c65b00f2f63d3b404bf83a5489cb..850ae78cca2a8a23c8c89b9a469667dafea44f9d 100644 (file)
--- a/gcc/ada/a-szuzti.adb
+++ b/gcc/ada/a-szuzti.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/a-szuzti.ads b/gcc/ada/a-szuzti.ads

index c48d404d4062473bf98989aa3b71746f7ffa1323..01111695e23e88be9660d70551790a70de5cd37f 100644 (file)
--- a/gcc/ada/a-szuzti.ads
+++ b/gcc/ada/a-szuzti.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb

index 5afab9eca4c9cc5e0c434d1d9f056091d25f992d..21c1e471367f1e5051a61d2c0652ca99c527334c 100644 (file)
--- a/gcc/ada/a-tasatt.adb
+++ b/gcc/ada/a-tasatt.adb
@@ -7,7 +7,7 @@
  --                                 B o d y                                  --
  --                                                                          --
  --             Copyright (C) 1991-1994, Florida State University            --
---             Copyright (C) 1995-2005, Ada Core Technologies               --
+--                     Copyright (C) 1995-2005, AdaCore                     --
  --                                                                          --
  -- GNARL 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- --
@@ -56,10 +56,9 @@
  --  attribute is a potential source of dangling references.
  
  --  When a task goes away, we want to be able to recover all the storage
---  associated with its attributes. The Ada mechanism for this is
---  finalization, via controlled attribute types. For this reason, the ARM
---  requires finalization of attribute values when the associated task
---  terminates.
+--  associated with its attributes. The Ada mechanism for this is finalization,
+--  via controlled attribute types. For this reason, the ARM requires
+--  finalization of attribute values when the associated task terminates.
  
  --  This finalization must be triggered by the tasking runtime system, during
  --  termination of the task. Given the active set of instantiations of
@@ -376,7 +375,6 @@ package body Ada.Task_Attributes is
  
     procedure Deallocate (P : in out Access_Node) is
        T : Access_Wrapper := To_Access_Wrapper (P.Wrapper);
-
     begin
        Free (T);
     end Deallocate;
diff --git a/gcc/ada/a-taside.adb b/gcc/ada/a-taside.adb

index a63719d5cbe451c4fc117ce97d9bff57691aa155..88722ac9603a8bf9c204edf238c34aac01195017 100644 (file)
--- a/gcc/ada/a-taside.adb
+++ b/gcc/ada/a-taside.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-taside.ads b/gcc/ada/a-taside.ads

index fcceff5de579a2abc6acc9805404cff671e02d7e..acef0f1375df9bb56132f94cae19ff0b34fa736c 100644 (file)
--- a/gcc/ada/a-taside.ads
+++ b/gcc/ada/a-taside.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb

index 86a3b7c12cd51b2e5657159de3bdf25a021b0f1f..b4280c370ad403c3cd37a54ed1ab7a6bf31dec25 100644 (file)
--- a/gcc/ada/a-teioed.adb
+++ b/gcc/ada/a-teioed.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb

index dfd65574159c09a76bd50303ff74451ad8352e0f..145eaf5563ebe3d97b6d9ca187f87a0e313b5755 100644 (file)
--- a/gcc/ada/a-textio.adb
+++ b/gcc/ada/a-textio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads

index dbb9a1ad5193447ef7b5ce76a422183a549d9200..50ba549285a6bcb484433d9e0645a32ce992de93 100644 (file)
--- a/gcc/ada/a-textio.ads
+++ b/gcc/ada/a-textio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ticoau.adb b/gcc/ada/a-ticoau.adb

index 4f6b1fbfdc3974657c3078b2d36be565b2c2bfeb..9d54320237721d286e00b8bc0c3759334cc3002c 100644 (file)
--- a/gcc/ada/a-ticoau.adb
+++ b/gcc/ada/a-ticoau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ticoau.ads b/gcc/ada/a-ticoau.ads

index 89dab7a40b7ec4ded1c1a904ced4615ba0322387..c91804a0644b33df46bf72a7d8b6d6bc311f5ab6 100644 (file)
--- a/gcc/ada/a-ticoau.ads
+++ b/gcc/ada/a-ticoau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ticoio.adb b/gcc/ada/a-ticoio.adb

index 858e6f2ae2c9ecc979c6aa347992c4bb6daccac7..f620945775ae2fce711d7cae7369c56ec7158a02 100644 (file)
--- a/gcc/ada/a-ticoio.adb
+++ b/gcc/ada/a-ticoio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---         Copyright (C) 1992-2005 Free Software Foundation, Inc.           --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tideau.adb b/gcc/ada/a-tideau.adb

index 4bdb53c41570f65088d8aa3c5e27df9a2cdfc80b..82ed84927632b5182fc92a1183514b13942ffc5f 100644 (file)
--- a/gcc/ada/a-tideau.adb
+++ b/gcc/ada/a-tideau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tideio.adb b/gcc/ada/a-tideio.adb

index 8c5a1ceef6eb20485bc036f259d4487d2e477065..3f9450250421cee7625ea7b639ace2cc43e4028a 100644 (file)
--- a/gcc/ada/a-tideio.adb
+++ b/gcc/ada/a-tideio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tienau.adb b/gcc/ada/a-tienau.adb

index d7fdc3025ae0b870e52e2fcd8aff11b0efd7ce62..3e6506cfac71c9c2367187540865c2c9b0d56e42 100644 (file)
--- a/gcc/ada/a-tienau.adb
+++ b/gcc/ada/a-tienau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tienio.adb b/gcc/ada/a-tienio.adb

index 769dda424c3955248e7d3933013084bbfc6043d2..4d1bdedd44c624098f36d9995c41db999601f9d1 100644 (file)
--- a/gcc/ada/a-tienio.adb
+++ b/gcc/ada/a-tienio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tifiio.adb b/gcc/ada/a-tifiio.adb

index 6a06f8be7dc49802f7a7b566f79fa6f91f54342b..6b612a42f90fb2dbe555abc1624dff6addb41a3e 100644 (file)
--- a/gcc/ada/a-tifiio.adb
+++ b/gcc/ada/a-tifiio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tiflio.adb b/gcc/ada/a-tiflio.adb

index 29f8a9182d4b97ee58c9f9896f4253701347f952..3961a65f1c851c3fbac6cd60b0e9320edbf8cc26 100644 (file)
--- a/gcc/ada/a-tiflio.adb
+++ b/gcc/ada/a-tiflio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tigeau.adb b/gcc/ada/a-tigeau.adb

index d9474b40e0a66b2aa4b571cd1c61044a30191efa..425011c764c776d4bb37618f06521d3a72cc9468 100644 (file)
--- a/gcc/ada/a-tigeau.adb
+++ b/gcc/ada/a-tigeau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tigeau.ads b/gcc/ada/a-tigeau.ads

index 7e0b35cc806e3d67711ddf928dc5d7c8104abeca..3803e9a238596348f7d1cabfad6eadcc943d5f23 100644 (file)
--- a/gcc/ada/a-tigeau.ads
+++ b/gcc/ada/a-tigeau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tiinau.adb b/gcc/ada/a-tiinau.adb

index 75c006ab1fd376faaea22f1feec189919976d067..e5f24e32d12e5567294476ea97e1035e8e40fb9d 100644 (file)
--- a/gcc/ada/a-tiinau.adb
+++ b/gcc/ada/a-tiinau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-tiinio.adb b/gcc/ada/a-tiinio.adb

index c172cbbad279aef8818f6b206390e1be2f4b192d..ea8b397b47f69773708fd746174de38276f82052 100644 (file)
--- a/gcc/ada/a-tiinio.adb
+++ b/gcc/ada/a-tiinio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-timoau.adb b/gcc/ada/a-timoau.adb

index a0fad03388732352347d1780b32dc40a26e8ca11..e23ea309601c4f40365a83b07d0bb7ca8c8dc91e 100644 (file)
--- a/gcc/ada/a-timoau.adb
+++ b/gcc/ada/a-timoau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-timoio.adb b/gcc/ada/a-timoio.adb

index e4ca508ed470afecf92a5fa75c22e33c30070c6b..afb9b5db85d9ae64ac0623ff74e21a6667fbd8b4 100644 (file)
--- a/gcc/ada/a-timoio.adb
+++ b/gcc/ada/a-timoio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-timoio.ads b/gcc/ada/a-timoio.ads

index c553c88a0268604e46d01a5dae057028cf76e1eb..bdfa77d393a31cb3837b63abe548b56f03d35212 100644 (file)
--- a/gcc/ada/a-timoio.ads
+++ b/gcc/ada/a-timoio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1993-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1993-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-tiocst.ads b/gcc/ada/a-tiocst.ads

index 670670baed84dc27840e333c9234215564e531b4..8c5bafddb99b82a25b251e8171cf4dc545fdfbb9 100644 (file)
--- a/gcc/ada/a-tiocst.ads
+++ b/gcc/ada/a-tiocst.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-titest.adb b/gcc/ada/a-titest.adb

index aec11a1c6a4d4eec19bb7a2e2c809be0ec3c442a..98f9c0b00df2c9e8b49da70fcfa77c378e23752f 100644 (file)
--- a/gcc/ada/a-titest.adb
+++ b/gcc/ada/a-titest.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wichun.adb b/gcc/ada/a-wichun.adb

index 0c3cf519dd4ebe619d8b3e68ae58091e5fdf12b2..f0ca9e093fe09f02b4ea7aa916ad56900f2059cb 100755 (executable)
--- a/gcc/ada/a-wichun.adb
+++ b/gcc/ada/a-wichun.adb
@@ -4,9 +4,9 @@
  --                                                                          --
  --         A D A . W I D E _ C H A R A C T E R T S . U N I C O D E          --
  --                                                                          --
---                                 B o d y                                --
+--                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, 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- --
diff --git a/gcc/ada/a-wichun.ads b/gcc/ada/a-wichun.ads

index 26da25e8f7e5b393a99fd20fb34f5b21538d9679..b112a61b3baddd3d7ea7f91f67854453f24d239c 100755 (executable)
--- a/gcc/ada/a-wichun.ads
+++ b/gcc/ada/a-wichun.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, 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- --
diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb

index 073319239cf51b16aa3bc3f266fe27ca5c905775..7071df138c27bbf0c89b09178ccad0634eca0335 100644 (file)
--- a/gcc/ada/a-witeio.adb
+++ b/gcc/ada/a-witeio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads

index bb024f469454ebd9bcda3eeb4ffc4d6479ad2420..9430187ca98a5563d95253482d894e83cc21d10a 100644 (file)
--- a/gcc/ada/a-witeio.ads
+++ b/gcc/ada/a-witeio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-wtcoau.adb b/gcc/ada/a-wtcoau.adb

index 655948ec58da4a777a56f76c05a9794bd75ab07c..c567b04c880e66399d90bf35ce47fa244d504b1c 100644 (file)
--- a/gcc/ada/a-wtcoau.adb
+++ b/gcc/ada/a-wtcoau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtcoau.ads b/gcc/ada/a-wtcoau.ads

index f169a4514c3e681080cd88ee2a76c311ed6492a4..de9bb7f6281dea1b804cd67e1ce3a5619ccfc71d 100644 (file)
--- a/gcc/ada/a-wtcoau.ads
+++ b/gcc/ada/a-wtcoau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtcoio.adb b/gcc/ada/a-wtcoio.adb

index 510b09d3a3d4711b9509cc2018c1c7297187d358..eedbfc0ee25fe606336f612e5ee8d549b99626f2 100644 (file)
--- a/gcc/ada/a-wtcoio.adb
+++ b/gcc/ada/a-wtcoio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtcstr.ads b/gcc/ada/a-wtcstr.ads

index 7f89f53b52573fae151198f9d2a8e421ea008063..f2b80a41d9d7446ddf96ce1aaf60072e850f8b63 100644 (file)
--- a/gcc/ada/a-wtcstr.ads
+++ b/gcc/ada/a-wtcstr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtdeau.adb b/gcc/ada/a-wtdeau.adb

index 9dfca970ce2dea2feeb5af564f6ef65e13f314a6..bffe3c53f32f5779d50af6b2fdaa57fcf18f0c77 100644 (file)
--- a/gcc/ada/a-wtdeau.adb
+++ b/gcc/ada/a-wtdeau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtdeio.adb b/gcc/ada/a-wtdeio.adb

index 3d611ee479b15f7bab960d4979b307d7a760a681..376e7f724407ceb4b0e02d730fb23fca1d9eabab 100644 (file)
--- a/gcc/ada/a-wtdeio.adb
+++ b/gcc/ada/a-wtdeio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtedit.adb b/gcc/ada/a-wtedit.adb

index 7f10a6e1f3bd212e1feb8f5f0f11978caf02dc6c..b4736232310e783c082422c20a2b7192d8ea5b45 100644 (file)
--- a/gcc/ada/a-wtedit.adb
+++ b/gcc/ada/a-wtedit.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtedit.ads b/gcc/ada/a-wtedit.ads

index eff8fbd942c0cf18cc309f50111657f128d58589..f275f8052de33cd05fd6f0d7c2358751b044fcfc 100644 (file)
--- a/gcc/ada/a-wtedit.ads
+++ b/gcc/ada/a-wtedit.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-wtenau.adb b/gcc/ada/a-wtenau.adb

index 9f60e29ac15dd84a8cab0e94712cb84a4c84fb3e..4a231e5259540b4bd75acf22f90ae7d3b90a279e 100644 (file)
--- a/gcc/ada/a-wtenau.adb
+++ b/gcc/ada/a-wtenau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtenio.adb b/gcc/ada/a-wtenio.adb

index d44f394c3710cf51e7ca5143650cd6d01772305f..fd40df538e66ba738d4d0703a66ad4f6a26f64c0 100644 (file)
--- a/gcc/ada/a-wtenio.adb
+++ b/gcc/ada/a-wtenio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtfiio.adb b/gcc/ada/a-wtfiio.adb

index 00130d92bff3e8c25d37dc2da4d5fa13ef835adc..405f17d15ad63c2473599fc42132e1396b5d6431 100644 (file)
--- a/gcc/ada/a-wtfiio.adb
+++ b/gcc/ada/a-wtfiio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtflio.adb b/gcc/ada/a-wtflio.adb

index 71108d256eff610ff02a0d4d24c618d3bb0b97ac..1d331d41f37c748f61b2926912e54099395681fa 100644 (file)
--- a/gcc/ada/a-wtflio.adb
+++ b/gcc/ada/a-wtflio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtgeau.adb b/gcc/ada/a-wtgeau.adb

index 03dc7b0df5649ccd1d21200be3a9e18d1494c0e7..c020589ee8c9e486bd33fb64fbae777dd0d0d720 100644 (file)
--- a/gcc/ada/a-wtgeau.adb
+++ b/gcc/ada/a-wtgeau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtinau.adb b/gcc/ada/a-wtinau.adb

index 7ffe9ea1caea3693905f926fe80732dcea9c5f5f..1d51e0f0e8882c2c80ec083842a40c39d3cfe780 100644 (file)
--- a/gcc/ada/a-wtinau.adb
+++ b/gcc/ada/a-wtinau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtinio.adb b/gcc/ada/a-wtinio.adb

index e187bb4e3d8b56039a35be10716d735240daab68..deb3a519040d77cedd1204ce69be4a817cdcb024 100644 (file)
--- a/gcc/ada/a-wtinio.adb
+++ b/gcc/ada/a-wtinio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtmoau.adb b/gcc/ada/a-wtmoau.adb

index 1ae6a5ec06f11be00836baa12b81f9cf617134c4..0a9dca44c7acd6cbb1d844582635735c8e29b924 100644 (file)
--- a/gcc/ada/a-wtmoau.adb
+++ b/gcc/ada/a-wtmoau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wtmoio.adb b/gcc/ada/a-wtmoio.adb

index 1022515210404bc8730e874bb15978af7a324fc8..e9bf87753674fd15b0cfe18fab1a675a25ed1d51 100644 (file)
--- a/gcc/ada/a-wtmoio.adb
+++ b/gcc/ada/a-wtmoio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--           Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-wttest.adb b/gcc/ada/a-wttest.adb

index 5c3d1c8f3dc970c7d4996aae6c6b239c6254b31d..536395d18d95717307778643bdc199229c6f6a45 100644 (file)
--- a/gcc/ada/a-wttest.adb
+++ b/gcc/ada/a-wttest.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-zchuni.adb b/gcc/ada/a-zchuni.adb

index c3c05288c83d22c4ef8b29a6fbfdbfd8b1d4143b..bfeeedfd8e4334f15e0837e867fba9982855a889 100755 (executable)
--- a/gcc/ada/a-zchuni.adb
+++ b/gcc/ada/a-zchuni.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, 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- --
diff --git a/gcc/ada/a-zchuni.ads b/gcc/ada/a-zchuni.ads

index c93ec754ac1834c6daa5c874b478e4cb54824eb9..ddd3a390a91e29b2eb855c049b339dea082f6a78 100755 (executable)
--- a/gcc/ada/a-zchuni.ads
+++ b/gcc/ada/a-zchuni.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, 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- --
diff --git a/gcc/ada/a-ztcoau.adb b/gcc/ada/a-ztcoau.adb

index e899a821593c61127d4f7ea42d7274a40715ad72..8d7b1310f337d9b7131d89bcb1e7b0e7bb010f39 100644 (file)
--- a/gcc/ada/a-ztcoau.adb
+++ b/gcc/ada/a-ztcoau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztcoau.ads b/gcc/ada/a-ztcoau.ads

index 7e175dfe9cc46ef2393bfdd0589c550adac048ea..d7ee61281a908e6d3ea58d57694a3accb838257a 100644 (file)
--- a/gcc/ada/a-ztcoau.ads
+++ b/gcc/ada/a-ztcoau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztcoio.adb b/gcc/ada/a-ztcoio.adb

index 8661f35eed409c8c3307cb9f3df97ef9a3329bd8..97e58a18a9270ff357cdf76b9206b7e16944341f 100644 (file)
--- a/gcc/ada/a-ztcoio.adb
+++ b/gcc/ada/a-ztcoio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztcstr.adb b/gcc/ada/a-ztcstr.adb

index 9f0f0a5d967f0e1123414462794789c6bcd62789..f6b23d7b8a2ba43278de4f65d338eb7fa866ff54 100644 (file)
--- a/gcc/ada/a-ztcstr.adb
+++ b/gcc/ada/a-ztcstr.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztcstr.ads b/gcc/ada/a-ztcstr.ads

index 92be2015eb8f90be7bc085deeb1d5225d514cb34..6d6ed73f2fde47a4d09d8d322a1f30acb36abd72 100644 (file)
--- a/gcc/ada/a-ztcstr.ads
+++ b/gcc/ada/a-ztcstr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztdeau.adb b/gcc/ada/a-ztdeau.adb

index a5be8471d6de7595516452ac9002e97f165267ed..b6b9b94c440c27562fb6e43721e078f539f5d577 100644 (file)
--- a/gcc/ada/a-ztdeau.adb
+++ b/gcc/ada/a-ztdeau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztdeau.ads b/gcc/ada/a-ztdeau.ads

index 3769bd24c6ad6856e4389e21c3c4677281d71bf4..ba9ffcb42d301a1c72169fca6d201620a861fe39 100644 (file)
--- a/gcc/ada/a-ztdeau.ads
+++ b/gcc/ada/a-ztdeau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztdeio.adb b/gcc/ada/a-ztdeio.adb

index af2240ab8610ba2b1efaadb4495cda4dd3c4b214..796dfc80456cc58fe7ac40e1a8e927c26aa319c9 100644 (file)
--- a/gcc/ada/a-ztdeio.adb
+++ b/gcc/ada/a-ztdeio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
  ------------------------------------------------------------------------------
  
  with Ada.Wide_Wide_Text_IO.Decimal_Aux;
+
  with System.WCh_Con; use System.WCh_Con;
  with System.WCh_WtS; use System.WCh_WtS;
  
diff --git a/gcc/ada/a-ztdeio.ads b/gcc/ada/a-ztdeio.ads

index 3b435edb34a8e7e92e94fb4ef576a47e4071b064..73d6c23baa5c17f34a7792cefef984dcb645286f 100644 (file)
--- a/gcc/ada/a-ztdeio.ads
+++ b/gcc/ada/a-ztdeio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztedit.adb b/gcc/ada/a-ztedit.adb

index 57478426e8b37381e151888a46572e237be99a03..f763bdc3920acc934715cb6eda1390f95e02b2a8 100644 (file)
--- a/gcc/ada/a-ztedit.adb
+++ b/gcc/ada/a-ztedit.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztedit.ads b/gcc/ada/a-ztedit.ads

index 028265339b0ded240a4066659a9b3f4ebd5d79d3..3a2f49a4d718c25013ee2980fdef8a41547ded38 100644 (file)
--- a/gcc/ada/a-ztedit.ads
+++ b/gcc/ada/a-ztedit.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztenau.ads b/gcc/ada/a-ztenau.ads

index 9555076320a5a9d5ac6598213e7e9108e9f8ef00..6683be974df38674156980e8a53e01053e7aa08b 100644 (file)
--- a/gcc/ada/a-ztenau.ads
+++ b/gcc/ada/a-ztenau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztenio.adb b/gcc/ada/a-ztenio.adb

index 24bc6d6b6a3ab510c3a86da15725ebd0956694ab..4b95295c563be7c06f2babe05d856c557198b3e6 100644 (file)
--- a/gcc/ada/a-ztenio.adb
+++ b/gcc/ada/a-ztenio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztenio.ads b/gcc/ada/a-ztenio.ads

index 05ceacef7357a533d7f0ee469fca6746b0a602a4..5de801f541329efe53f39a5be6b0675a429bd9a9 100644 (file)
--- a/gcc/ada/a-ztenio.ads
+++ b/gcc/ada/a-ztenio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb

index 8530e5a9a85da87b300ebd0a04cf5e2e35de9dbd..2742255b9ff2cc40e2a23d115c9b277ec05cb1c3 100644 (file)
--- a/gcc/ada/a-ztexio.adb
+++ b/gcc/ada/a-ztexio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztexio.ads b/gcc/ada/a-ztexio.ads

index 7c465ab249d97c38187c8dda962ff279e726f127..000d104e16b120b8e520db6544be6933a1b83ebc 100644 (file)
--- a/gcc/ada/a-ztexio.ads
+++ b/gcc/ada/a-ztexio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztfiio.adb b/gcc/ada/a-ztfiio.adb

index 1670e5b365366ecd368e87af00a7b9436da2d37d..db12fc82fbb4ec52174572c6287852246ead9011 100644 (file)
--- a/gcc/ada/a-ztfiio.adb
+++ b/gcc/ada/a-ztfiio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztfiio.ads b/gcc/ada/a-ztfiio.ads

index 0e606daab8678c1532894fbd34c6dbc005ee0c4e..2fc4fabfddfbcb9da8fc73511049799ad45bb565 100644 (file)
--- a/gcc/ada/a-ztfiio.ads
+++ b/gcc/ada/a-ztfiio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztflau.adb b/gcc/ada/a-ztflau.adb

index 9d550c93d7456fb2abe4fbae4b7d105212f26f6b..11ca1a6b4330e14fad920cbc99826d31b384a912 100644 (file)
--- a/gcc/ada/a-ztflau.adb
+++ b/gcc/ada/a-ztflau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztflau.ads b/gcc/ada/a-ztflau.ads

index fd6da7301174a71218e3c4b91d27fd339696f81c..57c7fcdcefacb48a3a4fccfba5c94cea45f2f902 100644 (file)
--- a/gcc/ada/a-ztflau.ads
+++ b/gcc/ada/a-ztflau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztflio.adb b/gcc/ada/a-ztflio.adb

index 97368413b4fa9e236f432217cf4312a8c4f23416..bd8e535fcbdec1b7f32266b3e5aebf8bae9f21d2 100644 (file)
--- a/gcc/ada/a-ztflio.adb
+++ b/gcc/ada/a-ztflio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztflio.ads b/gcc/ada/a-ztflio.ads

index 1c9d80be7e1b81a4564d799a0e24e98f5418a680..32dafd198a1614fc7b7729e8f55642561a460c82 100644 (file)
--- a/gcc/ada/a-ztflio.ads
+++ b/gcc/ada/a-ztflio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-ztgeau.adb b/gcc/ada/a-ztgeau.adb

index 3f2bf9ce52a8fe055d0c103bdb0953f24534953f..21b9608db80db0cb40da90e36b526639913c2237 100644 (file)
--- a/gcc/ada/a-ztgeau.adb
+++ b/gcc/ada/a-ztgeau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztgeau.ads b/gcc/ada/a-ztgeau.ads

index 4446bf532025aee96f26b5f143b3b5a74253b95b..38a17cf70b031873a77535b5d9de7811169a1682 100644 (file)
--- a/gcc/ada/a-ztgeau.ads
+++ b/gcc/ada/a-ztgeau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztinau.adb b/gcc/ada/a-ztinau.adb

index 8c8bf0a5ffefd0a380c2ec0ca583e7b00b7f7d4e..74f84a02f736d9833fd6cd867695d849fd0c446d 100644 (file)
--- a/gcc/ada/a-ztinau.adb
+++ b/gcc/ada/a-ztinau.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztinau.ads b/gcc/ada/a-ztinau.ads

index 1a213d0e8061c5bda185e9340939a1adbde03396..b37a9d1a7a850f6c348b3f425fc88e4335aa9f82 100644 (file)
--- a/gcc/ada/a-ztinau.ads
+++ b/gcc/ada/a-ztinau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztinio.adb b/gcc/ada/a-ztinio.adb

index 98c42eb39585e97f27cfb5ad00417ebaeca79710..8369edce3dd19bb1af2883937d831bd38b07ed12 100644 (file)
--- a/gcc/ada/a-ztinio.adb
+++ b/gcc/ada/a-ztinio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztmoau.ads b/gcc/ada/a-ztmoau.ads

index 2bce97573e846d817e3b99d5f1ec963e8c697d53..057162993fc59d7154fbe0fbd8f30807eec72c2d 100644 (file)
--- a/gcc/ada/a-ztmoau.ads
+++ b/gcc/ada/a-ztmoau.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztmoio.adb b/gcc/ada/a-ztmoio.adb

index 169b202c74b6c0458c69b45f6e512f1ff9461915..8d97e8cdd92b41f29b6133f8a48e4efb32b426e3 100644 (file)
--- a/gcc/ada/a-ztmoio.adb
+++ b/gcc/ada/a-ztmoio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/a-ztmoio.ads b/gcc/ada/a-ztmoio.ads

index 91d1a536bc0bb6b57c609b87dd86df4d0fc029a6..aeef4ceb50dfcd5cf352a26eb2ef20d566991721 100644 (file)
--- a/gcc/ada/a-ztmoio.ads
+++ b/gcc/ada/a-ztmoio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/a-zttest.adb b/gcc/ada/a-zttest.adb

index 49c480c1c8f4b8ab53f4e5057af3544e2d2c9a3b..fda7b924394a49a6d107c51b940a8d5c08a81fcd 100644 (file)
--- a/gcc/ada/a-zttest.adb
+++ b/gcc/ada/a-zttest.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb

index b3e88cb58813cf427e91ac63b334ff3c99aa7c82..28819c743f3db2c7d7f9962c7d2b2465ca9ee3ea 100644 (file)
--- a/gcc/ada/ali-util.adb
+++ b/gcc/ada/ali-util.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb

index 20ea715f9b3c603a5bb14ba49fa0e868bf73fa9d..119cf62d08053ab15673272e85df44c6775662cf 100644 (file)
--- a/gcc/ada/atree.adb
+++ b/gcc/ada/atree.adb
@@ -1169,7 +1169,7 @@ package body Atree is
  
        function Copy_Elist_With_Replacement
          (Old_Elist : Elist_Id) return Elist_Id;
-      --  Called during second phase to copy element list doing replacements.
+      --  Called during second phase to copy element list doing replacements
  
        procedure Copy_Itype_With_Replacement (New_Itype : Entity_Id);
        --  Called during the second phase to process a copied Itype. The actual
@@ -1178,7 +1178,7 @@ package body Atree is
        --  the copied Itype and copy them where necessary.
  
        function Copy_List_With_Replacement (Old_List : List_Id) return List_Id;
-      --  Called during second phase to copy list doing replacements.
+      --  Called during second phase to copy list doing replacements
  
        function Copy_Node_With_Replacement (Old_Node : Node_Id) return Node_Id;
        --  Called during second phase to copy node doing replacements
@@ -1775,7 +1775,7 @@ package body Atree is
              Visit_Field (Union_Id (Scalar_Range (Old_Itype)), Old_Itype);
  
           elsif Has_Discriminants (Base_Type (Old_Itype)) then
-            --  ??? This should involve call to Visit_Field.
+            --  ??? This should involve call to Visit_Field
              Visit_Elist (Discriminant_Constraint (Old_Itype));
  
           elsif Is_Array_Type (Old_Itype) then
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb

index d6fd7cbed682066d5944d4fb5e21c21e36c9de25..5453dd3ab302aecec41dffe9e563301d8cc069fd 100644 (file)
--- a/gcc/ada/back_end.adb
+++ b/gcc/ada/back_end.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -141,7 +141,7 @@ package body Back_End is
        type Arg_Array is array (Nat) of BSP;
        type Arg_Array_Ptr is access Arg_Array;
  
-      --  Import flag_stack_check from toplev.c.
+      --  Import flag_stack_check from toplev.c
  
        flag_stack_check : Int;
        pragma Import (C, flag_stack_check); -- Import from toplev.c
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb

index bdb864fe3ef5aa3209a9e33294867a59c5e5d8cd..99625301d48fe5c89fa184326e8dd0796f46f9cb 100644 (file)
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -2442,7 +2442,7 @@ package body Bindgen is
           --  When building libraries, the version number of each unit can
           --  not be computed, since the binder does not know the full list
           --  of units. Therefore, the 'Version and 'Body_Version
-         --  attributes can not supported in this case.
+         --  attributes cannot supported in this case.
  
           return;
        end if;
@@ -2510,7 +2510,7 @@ package body Bindgen is
           --  When building libraries, the version number of each unit can
           --  not be computed, since the binder does not know the full list
           --  of units. Therefore, the 'Version and 'Body_Version
-         --  attributes can not supported.
+         --  attributes cannot supported.
  
           return;
        end if;
diff --git a/gcc/ada/butil.adb b/gcc/ada/butil.adb

index a3f5288553f2a88d9cf2864ec728e1e6d818a9ff..1366313c4e61cd42b660fcc1b862a866f5a7adc8 100644 (file)
--- a/gcc/ada/butil.adb
+++ b/gcc/ada/butil.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/butil.ads b/gcc/ada/butil.ads

index b96b63b30c2a7ed5e81cc4672da3e33fc48392ad..4ed78bb722380cff805f6c61c60079352d9b23f0 100644 (file)
--- a/gcc/ada/butil.ads
+++ b/gcc/ada/butil.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/checks.ads b/gcc/ada/checks.ads

index c16495dd1a26952d8fb5766cf602e84f5d731115..168da4c25c0effa69fd04aa3ebd9bffcb5104034 100644 (file)
--- a/gcc/ada/checks.ads
+++ b/gcc/ada/checks.ads
@@ -247,7 +247,7 @@ package Checks is
     --  be discarded, even if they are not in the current statement range.
  
     procedure Kill_All_Checks;
-   --  This procedure kills all remembered checks.
+   --  This procedure kills all remembered checks
  
     -----------------------------
     -- Length and Range Checks --
@@ -548,7 +548,7 @@ package Checks is
     --    If all possible stored values are valid, then any uninitialized
     --    value must be valid.
  
-   --    Literals, including enumeration literals, are clearly always valid.
+   --    Literals, including enumeration literals, are clearly always valid
  
     --    Constants are always assumed valid, with a validity check being
     --    performed on the initializing value where necessary to ensure that
diff --git a/gcc/ada/cio.c b/gcc/ada/cio.c

index c3fdde15bdd8f5bcb4b16601287ca9b353443ca0..6fba5a0b0cba2e9997530f9a258325911dce9827 100644 (file)
--- a/gcc/ada/cio.c
+++ b/gcc/ada/cio.c
@@ -6,7 +6,7 @@
   *                                                                          *
   *                          C Implementation File                           *
   *                                                                          *
- *          Copyright (C) 1992-2005 Free Software Foundation, Inc.          *
+ *          Copyright (C) 1992-2005, 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- *
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb

index 7fc27860c5ed99b2a8755044813b1a1322af07ee..59d0bd28afca92f0a459c1e69c6740fb250e4103 100644 (file)
--- a/gcc/ada/comperr.adb
+++ b/gcc/ada/comperr.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -99,7 +99,7 @@ package body Comperr is
     --  Start of processing for Compiler_Abort
  
     begin
-      --  Prevent recursion through Compiler_Abort, e.g. via SIGSEGV.
+      --  Prevent recursion through Compiler_Abort, e.g. via SIGSEGV
  
        if Abort_In_Progress then
           Exit_Program (E_Abort);
diff --git a/gcc/ada/csets.ads b/gcc/ada/csets.ads

index 5b612b315c38a7bd9e81198e1e23362c0d948ae3..44ef68cee38ec42c002a9c1b46c16b53d6705c6e 100644 (file)
--- a/gcc/ada/csets.ads
+++ b/gcc/ada/csets.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb

index efd3237bf7542e8429162e04ef523688f68b5fdc..cbe596962e9e12c68542cbf8390a7b0a56d3ec6d 100644 (file)
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/debug.ads b/gcc/ada/debug.ads

index 48d71de72eab6d3cfcf2dd97462ca7c24db69bcc..2a1ae50ce978f64c415959665ae141585cd68550 100644 (file)
--- a/gcc/ada/debug.ads
+++ b/gcc/ada/debug.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/elists.ads b/gcc/ada/elists.ads

index 0482ff31d270322d1205991de9a603b31e5e6b07..f7e347cca3c4687d7afa5c10c2cb55e281774a98 100644 (file)
--- a/gcc/ada/elists.ads
+++ b/gcc/ada/elists.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -122,10 +122,10 @@ package Elists is
     --  that contains no items.
  
     procedure Append_Elmt (Node : Node_Id; To : Elist_Id);
-   --  Appends Node at the end of To, allocating a new element.
+   --  Appends Node at the end of To, allocating a new element
  
     procedure Prepend_Elmt (Node : Node_Id; To : Elist_Id);
-   --  Appends Node at the beginning of To, allocating a new element.
+   --  Appends Node at the beginning of To, allocating a new element
  
     procedure Insert_Elmt_After (Node : Node_Id; Elmt : Elmt_Id);
     --  Add a new element (Node) right after the pre-existing element Elmt
diff --git a/gcc/ada/err_vars.ads b/gcc/ada/err_vars.ads

index 04ef8b200189e3b8ff4ecf901ca9847abb20b7ed..1abc4acbe127c1955b7698da2cf38ac20272b2fe 100644 (file)
--- a/gcc/ada/err_vars.ads
+++ b/gcc/ada/err_vars.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/errno.c b/gcc/ada/errno.c

index 50e852139c23f686aa214a4ec91912248398b7c3..93981d60a8ff1098939f5eca0e818c603ff416ce 100644 (file)
--- a/gcc/ada/errno.c
+++ b/gcc/ada/errno.c
@@ -6,7 +6,7 @@
   *                                                                          *
   *                          C Implementation File                           *
   *                                                                          *
- *           Copyright (C) 1992-2005 Free Software Foundation, Inc.         *
+ *           Copyright (C) 1992-2005, 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- *
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb

index 5da299a419e7aa294f0a224e96eead9a85fd3143..d699828d3955440148967a5c0ffad8eadcf766a9 100644 (file)
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -1122,9 +1122,9 @@ package body Errout is
        --  Brief Error mode
  
        if Brief_Output or (not Full_List and not Verbose_Mode) then
-         E := First_Error_Msg;
           Set_Standard_Error;
  
+         E := First_Error_Msg;
           while E /= No_Error_Msg loop
              if not Errors.Table (E).Deleted and then not Debug_Flag_KK then
                 if Full_Path_Name_For_Brief_Errors then
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads

index ff254683d0476d69f12cbcfcff124f26fbb34d70..5aa7f7f13d53269fc89ce2b965dbe804a0554b66 100644 (file)
--- a/gcc/ada/errout.ads
+++ b/gcc/ada/errout.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -333,7 +333,10 @@ package Errout is
     --  passed to the error message routine for insertion sequences described
     --  above. The reason these are passed globally is that the insertion
     --  mechanism is essentially an untyped one in which the appropriate
-   --  variables are set dependingon the specific insertion characters used.
+   --  variables are set depending on the specific insertion characters used.
+
+   --  Note that is mandatory that the caller ensure that global variables
+   --  are set before the Error_Msg call, otherwise the result is undefined.
  
     Error_Msg_Col : Column_Number renames Err_Vars.Error_Msg_Col;
     --  Column for @ insertion character in message
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb

index 2a962964eb99415bf1253235ca9e2cf96d07f843..05d17c91a8d7b8b0620f971daf44f46407c8a3d2 100644 (file)
--- a/gcc/ada/erroutc.adb
+++ b/gcc/ada/erroutc.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads

index ea6fda053eca0209c9f7fb1b6e915b5fa524b696..bde057483b8de185e05772d03f6c457bcda5fec6 100644 (file)
--- a/gcc/ada/erroutc.ads
+++ b/gcc/ada/erroutc.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/errutil.adb b/gcc/ada/errutil.adb

index e0a686454849f7f684c64ddd4a9c51d0c53ecdf7..b70f18d2ce8db210a17fb794ce6c0a33337d45b8 100644 (file)
--- a/gcc/ada/errutil.adb
+++ b/gcc/ada/errutil.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1991-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1991-2005, 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- --
diff --git a/gcc/ada/errutil.ads b/gcc/ada/errutil.ads

index 07359ddb431b1dead8987e929305df0093e004d4..a2688b0d6a12a6f29a70022acec60b71d9817555 100644 (file)
--- a/gcc/ada/errutil.ads
+++ b/gcc/ada/errutil.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2002 Free Software Foundation, Inc.               --
+--          Copyright (C) 2002-2005, 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- --
@@ -27,7 +27,7 @@
  --  This package contains routines to output error messages and the
  --  corresponding instantiation of Styleg, suitable to instantiate Scng.
  
---  It is not dependent on the GNAT tree packages (Atree, Sinfo, ...).
+--  It is not dependent on the GNAT tree packages (Atree, Sinfo, ...)
  
  --  It uses the same global variables as Errout, located in package
  --  Err_Vars. Like Errout, it also uses the common variables and routines
@@ -222,10 +222,10 @@ package Errutil is
     --  preprocessor).
  
     procedure Error_Msg (Msg : String; Flag_Location : Source_Ptr);
-   --  Output a message at specified location.
+   --  Output a message at specified location
  
     procedure Error_Msg_S (Msg : String);
-   --  Output a message at current scan pointer location.
+   --  Output a message at current scan pointer location
  
     procedure Error_Msg_SC (Msg : String);
     --  Output a message at the start of the current token, unless we are at
@@ -233,7 +233,7 @@ package Errutil is
     --  last real token in the file.
  
     procedure Error_Msg_SP (Msg : String);
-   --  Output a message at the start of the previous token.
+   --  Output a message at the start of the previous token
  
     procedure Set_Ignore_Errors (To : Boolean);
     --  Indicate, when To = True, that all reported errors should
diff --git a/gcc/ada/eval_fat.adb b/gcc/ada/eval_fat.adb

index bbe66537ee1075d090c474c1f678891ad2a83038..99db7769b1a6770f675cc5d868244988292b547c 100644 (file)
--- a/gcc/ada/eval_fat.adb
+++ b/gcc/ada/eval_fat.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -419,7 +419,7 @@ package body Eval_Fat is
              Exponent := Exponent + 1;
           end if;
  
-         --  Put back sign after applying the rounding.
+         --  Put back sign after applying the rounding
  
           if UR_Is_Negative (X) then
              Fraction := -Fraction;
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb

index ec6b9589286f06b4d4ec74c89cb24c9b7e81230a..56c3095b2df1724108c51e6fd62e126aceccad4f 100644 (file)
--- a/gcc/ada/exp_ch11.adb
+++ b/gcc/ada/exp_ch11.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_ch11.ads b/gcc/ada/exp_ch11.ads

index ff8e82cbdcd2bbd81d5a6b8ef8c85f97d6ec2664..85340d672df2f4d193d85a4fe6e5263454004759 100644 (file)
--- a/gcc/ada/exp_ch11.ads
+++ b/gcc/ada/exp_ch11.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb

index 56a294a5badceeb7f6376256cfd2b7d26b3f8011..0dcde3b24d7f65fe4731ee4780dbddcbd88dd16d 100644 (file)
--- a/gcc/ada/exp_ch2.adb
+++ b/gcc/ada/exp_ch2.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_ch7.ads b/gcc/ada/exp_ch7.ads

index 597755abd9819eb2739d3df79c1dad52a57279b2..eb17fe09bf9a81595e1b169734a7439384f8e6fc 100644 (file)
--- a/gcc/ada/exp_ch7.ads
+++ b/gcc/ada/exp_ch7.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -164,7 +164,7 @@ package Exp_Ch7 is
     function Cleanup_Protected_Object
       (N   : Node_Id;
        Ref : Node_Id) return Node_Id;
-   --  Generate code to finalize a protected object without entries.
+   --  Generate code to finalize a protected object without entries
  
     function Cleanup_Record
       (N   : Node_Id;
@@ -176,10 +176,10 @@ package Exp_Ch7 is
     function Cleanup_Task
       (N   : Node_Id;
        Ref : Node_Id) return Node_Id;
-   --  Generate code to finalize a task.
+   --  Generate code to finalize a task
  
     function Has_Simple_Protected_Object (T : Entity_Id) return Boolean;
-   --  Check whether composite type contains a simple protected component.
+   --  Check whether composite type contains a simple protected component
  
     function Is_Simple_Protected_Type (T : Entity_Id) return Boolean;
     --  Check whether argument is a protected type without entries.
@@ -203,7 +203,7 @@ package Exp_Ch7 is
     --  secondary stack is brought in, otherwise it isn't.
  
     function Node_To_Be_Wrapped return Node_Id;
-   --  return the node to be wrapped if the current scope is transient.
+   --  return the node to be wrapped if the current scope is transient
  
     procedure Store_Before_Actions_In_Scope (L : List_Id);
     --  Append the list L of actions to the end of the before-actions store
diff --git a/gcc/ada/exp_imgv.ads b/gcc/ada/exp_imgv.ads

index f768872725d968255016a475e1a80b1ecda831eb..54d4528d3d25caa1a6461a0e357a0023efd1cf05 100644 (file)
--- a/gcc/ada/exp_imgv.ads
+++ b/gcc/ada/exp_imgv.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2000-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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- --
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb

index d27915db961ae98b2e078658be809709627748de..5b0a10a2bc6f62b87936e1ac8283fb18afb27ef7 100644 (file)
--- a/gcc/ada/exp_pakd.adb
+++ b/gcc/ada/exp_pakd.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb

index 9956ab90104b17bda353c54211c86fc48fc5c695..8c9bf59b340950d2bf7504fd7f270b43a6c340a7 100644 (file)
--- a/gcc/ada/exp_prag.adb
+++ b/gcc/ada/exp_prag.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_prag.ads b/gcc/ada/exp_prag.ads

index b3722474a939d93dccdd5927c866ee496309a4c8..6ab342df6c6a75365388c21d8cbc5a8528cd3a32 100644 (file)
--- a/gcc/ada/exp_prag.ads
+++ b/gcc/ada/exp_prag.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb

index f6c0e418b7c73110432c360a92d106a2b18cef00..78f975d3455a34becac58591c5f2cc4e285d1c31 100644 (file)
--- a/gcc/ada/exp_tss.adb
+++ b/gcc/ada/exp_tss.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads

index cdacb3223460930f7d43c689991b1f6b18770da2..311997d4c99d1acbad62db1eabcd09d5bea17e97 100644 (file)
--- a/gcc/ada/exp_tss.ads
+++ b/gcc/ada/exp_tss.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/exp_vfpt.ads b/gcc/ada/exp_vfpt.ads

index fb33b795db9a96c8993c29db33f86b0864ec0c7b..f90c64a3613ea2f1ec29221c291149ee234a4d26 100644 (file)
--- a/gcc/ada/exp_vfpt.ads
+++ b/gcc/ada/exp_vfpt.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/expander.adb b/gcc/ada/expander.adb

index feb2d8205e68259915b083d55df93fa4ad1aa6ef..1c75aa09deea75f20c5afd23011e99e5a80948cb 100644 (file)
--- a/gcc/ada/expander.adb
+++ b/gcc/ada/expander.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/expander.ads b/gcc/ada/expander.ads

index 4756bd20de2d88b3b70b8d49227496e694baadde..0f085fe22274bf9d4f51473cf26b018734e738f7 100644 (file)
--- a/gcc/ada/expander.ads
+++ b/gcc/ada/expander.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h

index 5e49ab9c6e7d6ed3bc68d3c41188302a15c880f8..4706d4c9ec18022951ee92a35931758bec92b72b 100644 (file)
--- a/gcc/ada/fe.h
+++ b/gcc/ada/fe.h
@@ -6,7 +6,7 @@
   *                                                                          *
   *                              C Header File                               *
   *                                                                          *
- *          Copyright (C) 1992-2005 Free Software Foundation, Inc.          *
+ *          Copyright (C) 1992-2005, 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- *
diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb

index 34a092db56fed6df051b43c30cb5072e77999d10..e8284e785609c9aa0cbf78b1c3522d8238b19892 100644 (file)
--- a/gcc/ada/fmap.adb
+++ b/gcc/ada/fmap.adb
@@ -62,7 +62,7 @@ package body Fmap is
       Table_Initial        => 1_000,
       Table_Increment      => 1_000,
       Table_Name           => "Fmap.File_Mapping");
-   --  Mapping table to map unit names to file names.
+   --  Mapping table to map unit names to file names
  
     package Path_Mapping is new Table.Table (
       Table_Component_Type => Mapping,
diff --git a/gcc/ada/freeze.ads b/gcc/ada/freeze.ads

index 46baa6aeb787eaf9c6902cbb09c28703a6339518..491f866ecdc4e68707fe5c91778a158f4e6534a5 100644 (file)
--- a/gcc/ada/freeze.ads
+++ b/gcc/ada/freeze.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2003, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -199,7 +199,7 @@ package Freeze is
     --  frozen entities.
  
     procedure Freeze_Before (N : Node_Id; T : Entity_Id);
-   --  Freeze T then Insert the generated Freeze nodes before the node N.
+   --  Freeze T then Insert the generated Freeze nodes before the node N
  
     procedure Freeze_Expression (N : Node_Id);
     --  Freezes the required entities when the Expression N causes freezing.
diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb

index 51112c578341214c4899c82b379fb1c415add8f1..49b8dd729acc5d02b7c4374895b12873420276cf 100644 (file)
--- a/gcc/ada/frontend.adb
+++ b/gcc/ada/frontend.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/frontend.ads b/gcc/ada/frontend.ads

index 7201bcf337311829e567d10b142f12e7f9ac407a..69a0cdc68f0f281d577781a193e3b20d0f71e596 100644 (file)
--- a/gcc/ada/frontend.ads
+++ b/gcc/ada/frontend.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/g-arrspl.adb b/gcc/ada/g-arrspl.adb

index 0d0366484f7a19c7f9c09644dad8e9b3671f70f0..571388ac294209e63c83b944db03bfa9c5706970 100644 (file)
--- a/gcc/ada/g-arrspl.adb
+++ b/gcc/ada/g-arrspl.adb
@@ -2,11 +2,11 @@
  --                                                                          --
  --                         GNAT COMPILER COMPONENTS                         --
  --                                                                          --
---                      G N A T . A R R A Y _ S P I T                       --
+--                     G N A T . A R R A Y _ S P L I T                      --
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2002-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2002-2005, 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- --
diff --git a/gcc/ada/g-arrspl.ads b/gcc/ada/g-arrspl.ads

index 5c8051250a957ab306d03c3aab80aa393c72cf32..d35059c1b6433ca7a7d8ad875dcd1ca411570bfc 100644 (file)
--- a/gcc/ada/g-arrspl.ads
+++ b/gcc/ada/g-arrspl.ads
@@ -2,11 +2,11 @@
  --                                                                          --
  --                         GNAT COMPILER COMPONENTS                         --
  --                                                                          --
---                      G N A T . A R R A Y _ S P L T                       --
+--                     G N A T . A R R A Y _ S P L I T                      --
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2002-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2002-2005, 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- --
diff --git a/gcc/ada/g-awk.adb b/gcc/ada/g-awk.adb

index 2aa712aef3f070bb9b84b345505feb7356e0967b..d39ef8462911b3fad4dc4f1e834f12de4d49f23a 100644 (file)
--- a/gcc/ada/g-awk.adb
+++ b/gcc/ada/g-awk.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 2000-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2000-2005 AdaCore                      --
  --                                                                          --
  -- 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- --
@@ -266,7 +266,7 @@ package body GNAT.AWK is
        NR           : Natural := 0;
        FNR          : Natural := 0;
        Matches      : Regpat.Match_Array (0 .. 100);
-      --  latest matches for the regexp pattern
+      --  Latest matches for the regexp pattern
     end record;
  
     procedure Free is
@@ -377,7 +377,6 @@ package body GNAT.AWK is
           Session : Session_Type)
        is
           pragma Unreferenced (Session);
-
        begin
           A.Proc.all;
        end Call;
@@ -423,7 +422,6 @@ package body GNAT.AWK is
           Session : Session_Type) return Boolean
        is
           use type Regpat.Match_Location;
-
        begin
           Regpat.Match
             (P.Regx.all, Field (P.Rank, Session), Session.Data.Matches);
@@ -439,7 +437,6 @@ package body GNAT.AWK is
           Session : Session_Type) return Boolean
        is
           pragma Unreferenced (Session);
-
        begin
           return P.Pattern.all;
        end Match;
@@ -450,7 +447,6 @@ package body GNAT.AWK is
  
        procedure Release (P : in out Pattern) is
           pragma Unreferenced (P);
-
        begin
           null;
        end Release;
@@ -462,7 +458,6 @@ package body GNAT.AWK is
        procedure Release (P : in out Regexp_Pattern) is
           procedure Free is new Unchecked_Deallocation
             (Regpat.Pattern_Matcher, Pattern_Matcher_Access);
-
        begin
           Free (P.Regx);
        end Release;
@@ -950,7 +945,6 @@ package body GNAT.AWK is
       (Session : Session_Type := Current_Session) return Natural
     is
        Files : File_Table.Instance renames Session.Data.Files;
-
     begin
        return File_Table.Last (Files);
     end Number_Of_Files;
@@ -1258,8 +1252,8 @@ package body GNAT.AWK is
  
     procedure Set_Field_Widths
       (Field_Widths : Widths_Set;
-      Session      : Session_Type := Current_Session) is
-
+      Session      : Session_Type := Current_Session)
+   is
     begin
        Free (Session.Data.Separators);
  
@@ -1280,10 +1274,8 @@ package body GNAT.AWK is
  
     procedure Split_Line (Session : Session_Type) is
        Fields : Field_Table.Instance renames Session.Data.Fields;
-
     begin
        Field_Table.Init (Fields);
-
        Split.Current_Line (Session.Data.Separators.all, Session);
     end Split_Line;
  
diff --git a/gcc/ada/g-awk.ads b/gcc/ada/g-awk.ads

index 4d7c65f86057652cfe3c8c2abf0215f599ec9ed4..346da5e0dd65477e2252d4d08b9a6da602e6e993 100644 (file)
--- a/gcc/ada/g-awk.ads
+++ b/gcc/ada/g-awk.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 2000-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-boumai.ads b/gcc/ada/g-boumai.ads

index c5c69794af8f57d8f951a6eb4d1b66e35fcdc1b2..c3a0db5c26544c3045dd7c926d692afa4b60bf4b 100644 (file)
--- a/gcc/ada/g-boumai.ads
+++ b/gcc/ada/g-boumai.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---              Copyright (C) 2003 Ada Core Technologies, Inc.              --
+--                     Copyright (C) 2003-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-calend.adb b/gcc/ada/g-calend.adb

index e73b10364f50b50e5859545a023ef61fec9e2a42..ea8f28a3a68bc932f338f372a500b5d0079e031f 100644 (file)
--- a/gcc/ada/g-calend.adb
+++ b/gcc/ada/g-calend.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1999-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-calend.ads b/gcc/ada/g-calend.ads

index 5cbff83ef3b3fb2bc88ef0f1758b3f5a8a79f957..8288635da74553bb84d4ccc89cf690947a7d0128 100644 (file)
--- a/gcc/ada/g-calend.ads
+++ b/gcc/ada/g-calend.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1999-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1999-2005, 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- --
diff --git a/gcc/ada/g-catiio.adb b/gcc/ada/g-catiio.adb

index 147601dcb70aa7d5d817d6b925d938eff4163136..fe996be43281f2af30c07a0b11ac68d5b40e2c0e 100644 (file)
--- a/gcc/ada/g-catiio.adb
+++ b/gcc/ada/g-catiio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 1999-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -124,7 +124,6 @@ package body GNAT.Calendar.Time_IO is
        use Ada.Characters.Handling;
        Local : constant String :=
                  To_Upper (Str (1)) & To_Lower (Str (2 .. Str'Last));
-
     begin
        if Length = 0 then
           return Local;
@@ -174,7 +173,6 @@ package body GNAT.Calendar.Time_IO is
     begin
        if Length = 0 or else Padding = None then
           return NI (2 .. NI'Last);
-
        else
           return NIP (NIP'Last - Length + 1 .. NIP'Last);
        end if;
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb

index c6142bddbfa09cdf3c0ae555ff803127ba1971a3..e1ff2434c96e1ef915fd71b729f3b0735168ad71 100644 (file)
--- a/gcc/ada/g-comlin.adb
+++ b/gcc/ada/g-comlin.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1999-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1999-2005, 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- --
diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads

index de3d45a14f142989bc9410d8df09098821cd4a3d..447e617c28ee8ee53dc9ae15ff4dcceb5c0e65dc 100644 (file)
--- a/gcc/ada/g-comlin.ads
+++ b/gcc/ada/g-comlin.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 1999-2003 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -72,7 +72,7 @@
  
  --  A more complicated example would involve the use of sections for the
  --  switches, as for instance in gnatmake. These sections are separated by
---  special switches, chosen by the programer. Each section act as a
+--  special switches chosen by the programer. Each section acts as a
  --  command line of its own.
  
  --  begin
@@ -104,24 +104,24 @@ package GNAT.Command_Line is
        Stop_At_First_Non_Switch : Boolean := False;
        Section_Delimiters       : String := "");
     --  This procedure resets the internal state of the package to prepare
-   --  to rescan the parameters. It need not (but may be) called before the
-   --  first use of Getopt, but it must be called if you want to start
-   --  rescanning the command line parameters from the start. The optional
-   --  parameter Switch_Char can be used to reset the switch character,
-   --  e.g. to '/' for use in DOS-like systems. The optional parameter
-   --  Stop_At_First_Non_Switch indicates if Getopt is to look for switches
-   --  on the whole command line, or if it has to stop as soon as a
+   --  to rescan the parameters. It does not need to be called before the
+   --  first use of Getopt (but it could be), but it must be called if you want
+   --  to start rescanning the command line parameters from the start. The
+   --  optional parameter Switch_Char can be used to reset the switch
+   --  character, e.g. to '/' for use in DOS-like systems. The optional
+   --  parameter Stop_At_First_Non_Switch indicates if Getopt is to look for
+   --  switches on the whole command line, or if it has to stop as soon as a
     --  non-switch argument is found.
     --
     --  Example:
     --
     --      Arguments: my_application file1 -c
     --
-   --      if Stop_At_First_Non_Switch is False, then -c will be considered
+   --      If Stop_At_First_Non_Switch is False, then -c will be considered
     --      as a switch (returned by getopt), otherwise it will be considered
     --      as a normal argument (returned by Get_Argument).
     --
-   --  if SECTION_DELIMITERS is set, then every following subprogram
+   --  If SECTION_DELIMITERS is set, then every following subprogram
     --  (Getopt and Get_Argument) will only operate within a section, which
     --  is delimited by any of these delimiters or the end of the command line.
     --
@@ -134,11 +134,11 @@ package GNAT.Command_Line is
     --      and -largs and includes '-d -e' and the last one includes '-f'
  
     procedure Goto_Section (Name : String := "");
-   --  Change the current section. The next Getopt of Get_Argument will
-   --  start looking at the beginning of the section. An empty name ("")
-   --  refers to the first section between the program name and the first
-   --  section delimiter.
-   --  If the section does not exist, then Invalid_Section is raised.
+   --  Change the current section. The next Getopt of Get_Argument will start
+   --  looking at the beginning of the section. An empty name ("") refers to
+   --  the first section between the program name and the first section
+   --  delimiter. If the section does not exist, then Invalid_Section is
+   --  raised.
  
     function Full_Switch return String;
     --  Returns the full name of the last switch found (Getopt only returns
@@ -147,34 +147,40 @@ package GNAT.Command_Line is
     function Getopt
       (Switches    : String;
        Concatenate : Boolean := True) return Character;
-   --  This function moves to the next switch on the command line (defined
-   --  as a switch character followed by a character within Switches,
-   --  casing being significant). The result returned is the first
-   --  character of the particular switch located. If there are no more
-   --  switches in the current section, returns ASCII.NUL. If Concatenate is
-   --  True (by default), the switches need not be separated by spaces (they
-   --  can be concatenated if they do not require an argument, e.g. -ab is the
-   --  same as two separate arguments -a -b).
+   --  This function moves to the next switch on the command line (defined as
+   --  switch character followed by a character within Switches, casing being
+   --  significant). The result returned is the first character of the switch
+   --  that is located. If there are no more switches in the current section,
+   --  returns ASCII.NUL. If Concatenate is True (by default), the switches
+   --  does not need to be separated by spaces (they can be concatenated if
+   --  they do not require an argument, e.g. -ab is the ame as two separate
+   --  arguments -a -b).
     --
     --  Switches is a string of all the possible switches, separated by a
-   --  space. A switch can be followed by one of the following characters :
+   --  space. A switch can be followed by one of the following characters:
     --
     --   ':'  The switch requires a parameter. There can optionally be a space
-   --        on the command line between the switch and its parameter
+   --        on the command line between the switch and its parameter.
+   --
     --   '='  The switch requires a parameter. There can either be a '=' or a
-   --        space on the command line between the switch and its parameter
+   --        space on the command line between the switch and its parameter.
+   --
     --   '!'  The switch requires a parameter, but there can be no space on the
-   --        command line between the switch and its parameter
+   --        command line between the switch and its parameter.
+   --
     --   '?'  The switch may have an optional parameter. There can be no space
-   --        between the switch and its argument
-   --        ex/ if Switches has the following value : "a? b"
-   --            The command line can be :
+   --        between the switch and its argument.
+   --
+   --        e.g. if Switches has the following value : "a? b",
+   --        The command line can be:
+   --
     --             -afoo    :  -a switch with 'foo' parameter
     --             -a foo   :  -a switch and another element on the
     --                           command line 'foo', returned by Get_Argument
     --
     --     Example: if Switches is "-a: -aO:", you can have the following
-   --              command lines :
+   --              command lines:
+   --
     --                -aarg    :  'a' switch with 'arg' parameter
     --                -a arg   :  'a' switch with 'arg' parameter
     --                -aOarg   :  'aO' switch with 'arg' parameter
@@ -194,14 +200,14 @@ package GNAT.Command_Line is
     --
     --    Example
     --       Getopt ("* a b")
-   --       If the command line is '-a -c toto.o -b', GetOpt will return
-   --       successively 'a', '*', '*' and 'b'. When '*' is returnd,
+   --       If the command line is '-a -c toto.o -b', Getopt will return
+   --       successively 'a', '*', '*' and 'b'. When '*' is returned,
     --       Full_Switch returns the corresponding item on the command line.
     --
     --
     --  When Getopt encounters an invalid switch, it raises the exception
     --  Invalid_Switch and sets Full_Switch to return the invalid switch.
-   --  When Getopt can not find the parameter associated with a switch, it
+   --  When Getopt cannot find the parameter associated with a switch, it
     --  raises Invalid_Parameter, and sets Full_Switch to return the invalid
     --  switch character.
     --
@@ -221,24 +227,24 @@ package GNAT.Command_Line is
     --       raised and Full_Switch will return "ab".
  
     function Get_Argument (Do_Expansion : Boolean := False) return String;
-   --  Returns the next element in the command line which is not a switch.
+   --  Returns the next element on the command line which is not a switch.
     --  This function should not be called before Getopt has returned
     --  ASCII.NUL.
     --
-   --  If Expansion is True, then the parameter on the command
-   --  line will considered as filename with wild cards, and will be
-   --  expanded. The matching file names will be returned one at a time.
-   --  When there are no more arguments on the command line, this function
-   --  returns an empty string. This is useful in non-Unix systems for
-   --  obtaining normal expansion of wild card references.
+   --  If Expansion is True, then the parameter on the command line will be
+   --  considered as a filename with wild cards, and will be expanded. The
+   --  matching file names will be returned one at a time. When there are no
+   --  more arguments on the command line, this function returns an empty
+   --  string. This is useful in non-Unix systems for obtaining normal
+   --  expansion of wild card references.
  
     function Parameter return String;
-   --  Returns parameter associated with the last switch returned by Getopt.
-   --  If no parameter was associated with the last switch, or no previous
-   --  call has been made to Get_Argument, raises Invalid_Parameter.
+   --  Returns the parameter associated with the last switch returned by
+   --  Getopt. If no parameter was associated with the last switch, or no
+   --  previous call has been made to Get_Argument, raises Invalid_Parameter.
     --  If the last switch was associated with an optional argument and this
     --  argument was not found on the command line, Parameter returns an empty
-   --  string
+   --  string.
  
     type Expansion_Iterator is limited private;
     --  Type used during expansion of file names
@@ -254,19 +260,19 @@ package GNAT.Command_Line is
     --  Basic_Regexp is True). When Directory is an empty string, the current
     --  directory is searched.
     --
-   --  Pattern may contains directory separators (as in "src/*/*.ada").
+   --  Pattern may contain directory separators (as in "src/*/*.ada").
     --  Subdirectories of Directory will also be searched, up to one
     --  hundred levels deep.
     --
     --  When Start_Expansion has been called, function Expansion should be
-   --  called repetitively until it returns an empty string, before
+   --  called repeatedly until it returns an empty string, before
     --  Start_Expansion can be called again with the same Expansion_Iterator
     --  variable.
  
     function Expansion (Iterator : Expansion_Iterator) return String;
-   --  Return the next file in the directory matching the parameters given
+   --  Returns the next file in the directory matching the parameters given
     --  to Start_Expansion and updates Iterator to point to the next entry.
-   --  Returns an empty string when there are no more files in the directory
+   --  Returns an empty string when there is no more file in the directory
     --  and its subdirectories.
     --
     --  If Expansion is called again after an empty string has been returned,
@@ -279,8 +285,8 @@ package GNAT.Command_Line is
     --  Raised when an invalid switch is detected in the command line
  
     Invalid_Parameter : exception;
-   --  Raised when a parameter is missing, or an attempt is made to obtain
-   --  a parameter for a switch that does not allow a parameter
+   --  Raised when a parameter is missing, or an attempt is made to obtain a
+   --  parameter for a switch that does not allow a parameter
  
  private
  
@@ -301,8 +307,8 @@ private
  
     type Expansion_Iterator is limited record
        Start : Positive := 1;
-      --  Position of the first character of the relative path to check
-      --  against the pattern.
+      --  Position of the first character of the relative path to check against
+      --  the pattern.
  
        Dir_Name : String (1 .. Max_Path_Length);
  
@@ -314,8 +320,8 @@ private
        --  Regular expression built with the pattern
  
        Maximum_Depth : Depth := 1;
-      --  The maximum depth of directories, reflecting the number of
-      --  directory separators in the pattern.
+      --  The maximum depth of directories, reflecting the number of directory
+      --  separators in the pattern.
  
     end record;
  
diff --git a/gcc/ada/g-comver.adb b/gcc/ada/g-comver.adb

index 0068e2af686413985ac4f7bd60e73e911806ea34..2a0d120d83244450746c49540ea0f65b21c40a10 100644 (file)
--- a/gcc/ada/g-comver.adb
+++ b/gcc/ada/g-comver.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---                 Copyright (C) 2002 Ada Core Technologies                 --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-crc32.adb b/gcc/ada/g-crc32.adb

index 76b40e802dd18716906f3ff70fce57917e848df8..1015103b2756813d7fea54df6b01a0bc24b8cce3 100644 (file)
--- a/gcc/ada/g-crc32.adb
+++ b/gcc/ada/g-crc32.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 2001-2002 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -49,9 +49,7 @@ package body GNAT.CRC32 is
     procedure Update (C : in out CRC32; Value : Ada.Streams.Stream_Element) is
        function To_Char is new Unchecked_Conversion
          (Ada.Streams.Stream_Element, Character);
-
        V : constant Character := To_Char (Value);
-
     begin
        Update (C, V);
     end Update;
@@ -73,9 +71,7 @@ package body GNAT.CRC32 is
     procedure Wide_Update (C : in out CRC32; Value : Wide_Character) is
        subtype S2 is String (1 .. 2);
        function To_S2 is new Unchecked_Conversion (Wide_Character, S2);
-
        VS : constant S2 := To_S2 (Value);
-
     begin
        Update (C, VS (1));
        Update (C, VS (2));
diff --git a/gcc/ada/g-crc32.ads b/gcc/ada/g-crc32.ads

index 867c07f4afdfeb510b929b5ee4a8380e45893a9d..dac4c427812a1d471799ad066132d147704c29eb 100644 (file)
--- a/gcc/ada/g-crc32.ads
+++ b/gcc/ada/g-crc32.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---              Copyright (C) 2004 Ada Core Technologies, Inc.              --
+--                     Copyright (C) 2004-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -35,7 +35,7 @@
  --  called CRC-32. This is a checksum based on treating the binary data
  --  as a polynomial over a binary field, and the exact specifications of
  --  the CRC-32 algorithm are as follows:
---
+
  --     Name   : "CRC-32"
  --     Width  : 32
  --     Poly   : 04C11DB7
@@ -44,15 +44,15 @@
  --     RefOut : True
  --     XorOut : FFFFFFFF
  --     Check  : CBF43926
---
---  Note that this is the algorithm used by PKZip, Ethernet and FDDI.
---
+
+--  Note that this is the algorithm used by PKZip, Ethernet and FDDI
+
  --  For more information about this algorithm see:
---
---  ftp://ftp.rocksoft.com/papers/crc_v3.txt
+
+--    ftp://ftp.rocksoft.com/papers/crc_v3.txt
  
  --  "A Painless Guide to CRC Error Detection Algorithms", Ross N. Williams
---
+
  --  "Computation of Cyclic Redundancy Checks via Table Look-Up", Communications
  --  of the ACM, Vol. 31 No. 8, pp.1008-1013 Aug. 1988. Sarwate, D.V.
  
diff --git a/gcc/ada/g-ctrl_c.ads b/gcc/ada/g-ctrl_c.ads

index af88ebfdb14db9b555069e9d6bc56ff8b37bbade..8a9c84058c9c60d819f0542f9838dc72329fb9c4 100644 (file)
--- a/gcc/ada/g-ctrl_c.ads
+++ b/gcc/ada/g-ctrl_c.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---               Copyright (C) 2002 Ada Core Technologies, Inc.             --
+--                      Copyright (C) 2002-2005, AdaCore                    --
  --                                                                          --
  -- 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- --
@@ -34,9 +34,9 @@
  --  This package may be used to intercept the interruption of a running
  --  program by the operator typing Control-C, without having to use an Ada
  --  interrupt handler protected object.
---
---  This package is currently implemented under Windows and Unix platforms.
---
+
+--  This package is currently implemented under Windows and Unix platforms
+
  --  Note concerning Unix systems:
  
  --  The behavior of this package when using tasking depends on the interaction
@@ -55,7 +55,7 @@ package GNAT.Ctrl_C is
     --  Handler_Type should not propagate exceptions.
  
     procedure Install_Handler (Handler : Handler_Type);
-   --  Set up Handler to be called if the operator hits Ctrl-C.
+   --  Set up Handler to be called if the operator hits Ctrl-C
  
     procedure Uninstall_Handler;
     --  Reinstall the standard Control-C handler.
diff --git a/gcc/ada/g-curexc.ads b/gcc/ada/g-curexc.ads

index 7fff4f303b121567e8a5fca5ae132390d0b3d4bb..783a64890962faa0587fbea42dc538aa127cc26e 100644 (file)
--- a/gcc/ada/g-curexc.ads
+++ b/gcc/ada/g-curexc.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---         Copyright (C) 1996-2005 Ada Core Technologies, Inc.              --
+--                      Copyright (C) 1996-2005, AdaCore                    --
  --                                                                          --
  -- 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- --
@@ -50,7 +50,7 @@ package GNAT.Current_Exception is
     -- Subprograms --
     -----------------
  
-   --  Note: the lower bound of returnd String values is always one.
+   --  Note: the lower bound of returnd String values is always one
  
     function Exception_Information return String;
     --  Returns the result of calling Ada.Exceptions.Exception_Information
diff --git a/gcc/ada/g-debpoo.ads b/gcc/ada/g-debpoo.ads

index 87d2ba781d81928dbdec73ed318779fa2d87552e..3d558a8f2693a31a80a72efb4201e9148ab2b78e 100644 (file)
--- a/gcc/ada/g-debpoo.ads
+++ b/gcc/ada/g-debpoo.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -31,7 +31,7 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This packages provides a special implementation of the Ada95 storage pools.
+--  This packages provides a special implementation of the Ada95 storage pools
  
  --  The goal of this debug pool is to detect incorrect uses of memory
  --  (multiple deallocations, access to invalid memory,...). Errors are reported
@@ -70,7 +70,7 @@
  --  of memory that was allocated. The pool is also designed to work correctly
  --  in conjunction with gnatmem.
  
---  Finally, a subprogram Print_Pool is provided for use from the debugger.
+--  Finally, a subprogram Print_Pool is provided for use from the debugger
  
  --  Limitations
  --  ===========
@@ -300,7 +300,7 @@ private
        --  accesed to deallocated memory.
  
        Physically_Deallocated : Byte_Count := 0;
-      --  Total number of bytes that were free()-ed.
+      --  Total number of bytes that were free()-ed
  
        Marked_Blocks_Deallocated : Boolean := False;
        --  Set to true if some mark blocks had to be deallocated in the advanced
@@ -313,7 +313,7 @@ private
  
        First_Free_Block : System.Address := System.Null_Address;
        Last_Free_Block  : System.Address := System.Null_Address;
-      --  Pointers to the first and last logically freed blocks.
+      --  Pointers to the first and last logically freed blocks
  
        First_Used_Block : System.Address := System.Null_Address;
        --  Pointer to the list of currently allocated blocks. This list is
diff --git a/gcc/ada/g-debuti.adb b/gcc/ada/g-debuti.adb

index f059bf6d41cae62ab6230159cb5455b0c51ebd9f..560f79f96d88ffc88d2858c7cb87356973a837e9 100644 (file)
--- a/gcc/ada/g-debuti.adb
+++ b/gcc/ada/g-debuti.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1997-2004 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -47,13 +47,14 @@ package body GNAT.Debug_Utilities is
  
     function Image (A : Address) return Image_String is
        S : Image_String;
-      P : Natural := Address_Image_Length - 1;
-      N : Integer_Address := To_Integer (A);
+      P : Natural;
+      N : Integer_Address;
        U : Natural := 0;
  
     begin
        S (S'Last) := '#';
-
+      P := Address_Image_Length - 1;
+      N := To_Integer (A);
        while P > 3 loop
           if U = 4 then
              S (P) := '_';
diff --git a/gcc/ada/g-diopit.adb b/gcc/ada/g-diopit.adb

index c3a19e3a4796e809960b9c2b0b6fd9de14c4e846..92c7be128be8b19f9875cf40525ca9705d8f24c3 100644 (file)
--- a/gcc/ada/g-diopit.adb
+++ b/gcc/ada/g-diopit.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---                  Copyright (C) 2001-2005 Adacore, Inc.                   --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -57,7 +57,7 @@ package body GNAT.Directory_Operations.Iteration is
        --  recursively for each sub-directories.
  
        function Make_Pathname (Dir, File : String) return String;
-      --  Returns the pathname for File by adding Dir as prefix.
+      --  Returns the pathname for File by adding Dir as prefix
  
        -------------------
        -- Make_Pathname --
@@ -379,6 +379,8 @@ package body GNAT.Directory_Operations.Iteration is
           end if;
        end Read;
  
+   --  Start of processing for Wildcard_Iterator
+
     begin
        if Path = "" then
           return;
diff --git a/gcc/ada/g-diopit.ads b/gcc/ada/g-diopit.ads

index 278aed05216763e022f9e30deef9d522a594c839..42afcd1ee7c00d7e5a9b700fce952898bcca235a 100644 (file)
--- a/gcc/ada/g-diopit.ads
+++ b/gcc/ada/g-diopit.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2001 Ada Core Technologies, Inc.                --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb

index d9b2c0b0d0479795da3536c95ffb24f80f0788a3..dc6977596a56ac2897d21779ddcbe953ac65972e 100644 (file)
--- a/gcc/ada/g-dirope.adb
+++ b/gcc/ada/g-dirope.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 1998-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1998-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-dirope.ads b/gcc/ada/g-dirope.ads

index 226c593cc741fb32229b4c3c1c3109c2ec741342..11d90704846f9b07472b18715a5986b48f07bd5e 100644 (file)
--- a/gcc/ada/g-dirope.ads
+++ b/gcc/ada/g-dirope.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 1998-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1998-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-dyntab.adb b/gcc/ada/g-dyntab.adb

index 5f33eb0067f2657b7b52f27e628dfb05e75866ef..19440979ab197f63654174c2568836a86928cdd4 100644 (file)
--- a/gcc/ada/g-dyntab.adb
+++ b/gcc/ada/g-dyntab.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 2000-2004 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -328,9 +328,7 @@ package body GNAT.Dynamic_Tables is
     --  Start of processing for Sort_Table
  
     begin
-
        Heap_Sort.Sort (Natural (Last (Table) - First) + 1);
-
     end Sort_Table;
  
  end GNAT.Dynamic_Tables;
diff --git a/gcc/ada/g-dyntab.ads b/gcc/ada/g-dyntab.ads

index 1a7f1efc6d5bdd337be7362e6e4f075da32bda6f..3d82330dac1e57e9be7f630807720bed04d69891 100644 (file)
--- a/gcc/ada/g-dyntab.ads
+++ b/gcc/ada/g-dyntab.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2000-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -101,11 +101,10 @@ package GNAT.Dynamic_Tables is
     --  safety is not compromised by this approach.
  
     type Table_Ptr is access all Big_Table_Type;
-   --  The table is actually represented as a pointer to allow
-   --  reallocation.
+   --  The table is actually represented as a pointer to allow reallocation
  
     type Table_Private is private;
-   --  table private data that is not exported in Instance.
+   --  Table private data that is not exported in Instance
  
     type Instance is record
        Table : aliased Table_Ptr := null;
diff --git a/gcc/ada/g-eacodu-vms.adb b/gcc/ada/g-eacodu-vms.adb

index 7bab036648d732baa581f9e670470e40872e5d24..d2a8f3930acfd8e8c5b4b0d998a1896bd4a12429 100644 (file)
--- a/gcc/ada/g-eacodu-vms.adb
+++ b/gcc/ada/g-eacodu-vms.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 2003 Free Software Foundation, Inc.             --
+--          Copyright (C) 2003-2005, 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- --
@@ -31,7 +31,7 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is the VMS version.
+--  This is the VMS version
  
  with System;
  with System.Aux_DEC;
diff --git a/gcc/ada/g-enblsp-vms-alpha.adb b/gcc/ada/g-enblsp-vms-alpha.adb

index 4410a114ea9d3ce0fc2cdd8671a1b39d134a3abd..97af39864c70a260e30efcae96f00f66cbed9a9e 100644 (file)
--- a/gcc/ada/g-enblsp-vms-alpha.adb
+++ b/gcc/ada/g-enblsp-vms-alpha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2005 Ada Core Technologies, Inc.              --
+--                       Copyright (C) 2005, AdaCore                        --
  --                                                                          --
  -- 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- --
@@ -35,7 +35,7 @@
  --  for use by the VMS GNAT.Expect package (g-expect-vms.adb). This package
  --  should not be directly with'ed by an application program.
  
---  This version is for Alpha/VMS.
+--  This version is for Alpha/VMS
  
  separate (GNAT.Expect)
  procedure Non_Blocking_Spawn
@@ -75,7 +75,7 @@ begin
        raise Invalid_Process;
     end if;
  
-   --  Fork a new process. It's not possible to do this in a subprogram.
+   --  Fork a new process (it is not possible to do this in a subprogram)
  
     if Alloc_Vfork_Blocks >= 0 then
        Descriptor.Pid := Get_Current_Invo_Context (Get_Vfork_Jmpbuf);
@@ -83,10 +83,10 @@ begin
        Descriptor.Pid := -1;
     end if;
  
-   --  Are we now in the child (or, for Windows, still in the common
-   --  process).
+   --  Are we now in the child
  
     if Descriptor.Pid = Null_Pid then
+
        --  Prepare an array of arguments to pass to C
  
        Arg   := new String (1 .. Command_With_Path'Length + 1);
diff --git a/gcc/ada/g-enblsp-vms-ia64.adb b/gcc/ada/g-enblsp-vms-ia64.adb

index 0224a3decbb4a37015391023fce0137b643ce2b3..2a1fee8ffbd9e990b8d1611f9a0d9ec169bb1c10 100644 (file)
--- a/gcc/ada/g-enblsp-vms-ia64.adb
+++ b/gcc/ada/g-enblsp-vms-ia64.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2005 Ada Core Technologies, Inc.              --
+--                       Copyright (C) 2005, AdaCore                        --
  --                                                                          --
  -- 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- --
@@ -35,7 +35,7 @@
  --  for use by the VMS GNAT.Expect package (g-expect-vms.adb). This package
  --  should not be directly with'ed by an application program.
  
---  This version is for IA64/VMS.
+--  This version is for IA64/VMS
  
  separate (GNAT.Expect)
  procedure Non_Blocking_Spawn
@@ -73,7 +73,7 @@ begin
        raise Invalid_Process;
     end if;
  
-   --  Fork a new process. It's not possible to do this in a subprogram.
+   --  Fork a new process (it is not possible to do this in a subprogram)
  
     if Alloc_Vfork_Blocks >= 0 then
        Descriptor.Pid := Setjmp1 (Get_Vfork_Jmpbuf);
@@ -81,10 +81,10 @@ begin
        Descriptor.Pid := -1;
     end if;
  
-   --  Are we now in the child (or, for Windows, still in the common
-   --  process).
+   --  Are we now in the child
  
     if Descriptor.Pid = Null_Pid then
+
        --  Prepare an array of arguments to pass to C
  
        Arg   := new String (1 .. Command_With_Path'Length + 1);
diff --git a/gcc/ada/g-excact.adb b/gcc/ada/g-excact.adb

index c27ab08883324bd75dbaddcaa2bf8c204d8e89d3..bd5e4c0cafd05bda223eee053ee59e460f91544f 100644 (file)
--- a/gcc/ada/g-excact.adb
+++ b/gcc/ada/g-excact.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2002-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2002-2005, 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- --
diff --git a/gcc/ada/g-excact.ads b/gcc/ada/g-excact.ads

index f57a52101980342bffeeeb443a802c5adb33e22c..09b481ba4e3184d15d03181620bc317575817338 100644 (file)
--- a/gcc/ada/g-excact.ads
+++ b/gcc/ada/g-excact.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2002-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 2002-2005, 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- --
@@ -31,7 +31,7 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This package provides support for callbacks on exceptions.
+--  This package provides support for callbacks on exceptions
  
  --  These callbacks are called immediately when either a specific exception,
  --  or any exception, is raised, before any other actions taken by raise, in
diff --git a/gcc/ada/g-except.ads b/gcc/ada/g-except.ads

index 6ad0673306ef01885237f84050ecf27ee6b66e35..9daa08d5d5621bd3c9d70fad396bdbf214436ab6 100644 (file)
--- a/gcc/ada/g-except.ads
+++ b/gcc/ada/g-except.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 2000-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -46,7 +46,7 @@ package GNAT.Exceptions is
     pragma Pure;
  
     type Exception_Type is limited null record;
-   --  Type used to specify which exception to raise.
+   --  Type used to specify which exception to raise
  
     --  Really Exception_Type is Exception_Id, but Exception_Id can't be
     --  used directly since it is declared in the non-pure unit Ada.Exceptions,
diff --git a/gcc/ada/g-exctra.adb b/gcc/ada/g-exctra.adb

index c05f964bc0b8d14c0b4a5cb2d1c92a2919269258..7d51ba4b79b94664eb9f6b8b44907575acd3f92c 100644 (file)
--- a/gcc/ada/g-exctra.adb
+++ b/gcc/ada/g-exctra.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 2000-2002 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -48,8 +48,7 @@ package body GNAT.Exception_Traces is
  
     function Decorator_Wrapper
       (Traceback : System.Address;
-      Len       : Natural)
-      return      String;
+      Len       : Natural) return String;
     --  The wrapper to be called when a decorator is in place for exception
     --  backtraces.
     --
@@ -68,8 +67,7 @@ package body GNAT.Exception_Traces is
  
     function Decorator_Wrapper
       (Traceback : System.Address;
-      Len       : Natural)
-      return      String
+      Len       : Natural) return String
     is
        Decorator_Traceback : Tracebacks_Array (1 .. Len);
        for Decorator_Traceback'Address use Traceback;
diff --git a/gcc/ada/g-exctra.ads b/gcc/ada/g-exctra.ads

index df1031517194795ec8480578871fa5e91f58de5e..b11a23e2e91a4eb7bca910f559f9f5d2d50f3e5a 100644 (file)
--- a/gcc/ada/g-exctra.ads
+++ b/gcc/ada/g-exctra.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2000-2003 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -34,18 +34,18 @@
  --  This package provides an interface allowing to control *automatic* output
  --  to standard error upon exception occurrences (as opposed to explicit
  --  generation of traceback information using GNAT.Traceback).
---
+
  --  This output includes the basic information associated with the exception
  --  (name, message) as well as a backtrace of the call chain at the point
  --  where the exception occurred. This backtrace is only output if the call
  --  chain information is available, depending if the binder switch dedicated
  --  to that purpose has been used or not.
---
+
  --  The default backtrace is in the form of absolute code locations which may
  --  be converted to corresponding source locations using the addr2line utility
  --  or from within GDB. Please refer to GNAT.Traceback for information about
  --  what is necessary to be able to exploit thisg possibility.
---
+
  --  The backtrace output can also be customized by way of a "decorator" which
  --  may return any string output in association with a provided call chain.
  
@@ -72,7 +72,7 @@ package GNAT.Exception_Traces is
     --  traces identified by the above trace kind values.
  
     procedure Trace_On (Kind : Trace_Kind);
-   --  Activate the traces denoted by Kind.
+   --  Activate the traces denoted by Kind
  
     procedure Trace_Off;
     --  Stop the tracing requested by the last call to Trace_On.
diff --git a/gcc/ada/g-expect-vms.adb b/gcc/ada/g-expect-vms.adb

index cbf8c724302d5e0db95e3950ea9e9abaa6a93681..b37449f7e3313acc39eec92401ab9d9043fdae6c 100644 (file)
--- a/gcc/ada/g-expect-vms.adb
+++ b/gcc/ada/g-expect-vms.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2002-2005 Ada Core Technologies, Inc.          --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -31,7 +31,7 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This is the VMS version.
+--  This is the VMS version
  
  with System;        use System;
  with Ada.Calendar;  use Ada.Calendar;
@@ -113,7 +113,7 @@ package body GNAT.Expect is
  
     function Waitpid (Pid : Process_Id) return Integer;
     pragma Import (C, Waitpid, "__gnat_waitpid");
-   --  Wait for a specific process id, and return its exit code.
+   --  Wait for a specific process id, and return its exit code
  
     ---------
     -- "+" --
@@ -330,7 +330,7 @@ package body GNAT.Expect is
           --  Calculate the timeout for the next turn.
           --  Note that Timeout is, from the caller's perspective, the maximum
           --  time until a match, not the maximum time until some output is
-         --  read, and thus can not be reused as is for Expect_Internal.
+         --  read, and thus cannot be reused as is for Expect_Internal.
  
           if Timeout /= -1 then
              Timeout_Tmp := Integer (Try_Until - Clock) * 1000;
@@ -660,7 +660,7 @@ package body GNAT.Expect is
                                     Descriptors (J).Buffer_Size - N;
                                end if;
  
-                              --  Keep what we read in the buffer.
+                              --  Keep what we read in the buffer
  
                                Descriptors (J).Buffer
                                  (Descriptors (J).Buffer_Index + 1 ..
@@ -1046,7 +1046,7 @@ package body GNAT.Expect is
     is
     begin
        Kill (Descriptor.Pid, Signal);
-      --  ??? Need to check process status here.
+      --  ??? Need to check process status here
     end Send_Signal;
  
     ---------------------------------
diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads

index 2a82e4dd2c50620908c0905fce1a31a6d18f10a3..b47a3a487d7c6d0e339af760167b8b9cd6beb112 100644 (file)
--- a/gcc/ada/g-expect.ads
+++ b/gcc/ada/g-expect.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 2000-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-flocon.ads b/gcc/ada/g-flocon.ads

index 20d2a9a57163c0526b731829f1ebdb4dd362f0cf..ea60768db1a4b02505386589311b97639e916f59 100644 (file)
--- a/gcc/ada/g-flocon.ads
+++ b/gcc/ada/g-flocon.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---              Copyright (C) 2000 Ada Core Technologies, Inc.              --
+--                     Copyright (C) 2000-2005 AdaCore                      --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-hesorg.ads b/gcc/ada/g-hesorg.ads

index 3f4d2a0721be26cebe78bba202cf5d1275423e70..04f2371d5b094827b861fc5c2e5f8b9ea5eee948 100644 (file)
--- a/gcc/ada/g-hesorg.ads
+++ b/gcc/ada/g-hesorg.ads
@@ -58,14 +58,16 @@ generic
     with procedure Move (From : Natural; To : Natural);
     --  A procedure that moves the data item with index value From to the data
     --  item with index value To (the old value in To being lost). An index
-   --  value of zero is used for moves from and to a single temporary location
+   --  value of zero is used for moves from and to a single temporary location.
+   --  For best efficiency, this routine should be marked as inlined.
  
     with function Lt (Op1, Op2 : Natural) return Boolean;
     --  A function that compares two items and returns True if the item with
     --  index Op1 is less than the item with Index Op2, and False if the Op1
     --  item is greater than the Op2 item. If the two items are equal, then
     --  it does not matter whether True or False is returned (it is slightly
-   --  more efficient to return False).
+   --  more efficient to return False). For best efficiency, this routine
+   --  should be marked as inlined.
  
     --  Note on use of temporary location
  
diff --git a/gcc/ada/g-io.adb b/gcc/ada/g-io.adb

index 4d5f4ec1c8d403684c7d6285c55ba65cd6fc5c2e..c5c762bc5698abc221f3d63502c550841172e49e 100644 (file)
--- a/gcc/ada/g-io.adb
+++ b/gcc/ada/g-io.adb
@@ -42,19 +42,15 @@ package body GNAT.IO is
     ---------
  
     procedure Get (X : out Integer) is
-
        function Get_Int return Integer;
        pragma Import (C, Get_Int, "get_int");
-
     begin
        X := Get_Int;
     end Get;
  
     procedure Get (C : out Character) is
-
        function Get_Char return Character;
        pragma Import (C, Get_Char, "get_char");
-
     begin
        C := Get_Char;
     end Get;
@@ -108,7 +104,6 @@ package body GNAT.IO is
     end Put;
  
     procedure Put (File : File_Type; X : Integer) is
-
        procedure Put_Int (X : Integer);
        pragma Import (C, Put_Int, "put_int");
  
@@ -128,7 +123,6 @@ package body GNAT.IO is
     end Put;
  
     procedure Put (File : in File_Type; C : Character) is
-
        procedure Put_Char (C : Character);
        pragma Import (C, Put_Char, "put_char");
  
diff --git a/gcc/ada/g-locfil.ads b/gcc/ada/g-locfil.ads

index 6bc5af04da017e83a4496ad6a5bf5849ed2e5518..8bdc2be635e0ec1f520c5d9b1896f07becc5cf00 100644 (file)
--- a/gcc/ada/g-locfil.ads
+++ b/gcc/ada/g-locfil.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1995-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1995-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-md5.adb b/gcc/ada/g-md5.adb

index e072b716c5cacfb3d49300e07663581b95c5bd38..2146c19773eb657ecfa401846aced2bd28a0c7c3 100644 (file)
--- a/gcc/ada/g-md5.adb
+++ b/gcc/ada/g-md5.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                B o d y                                   --
  --                                                                          --
---            Copyright (C) 2002-2004 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -138,7 +138,7 @@ package body GNAT.MD5 is
     procedure Transform
       (C     : in out Context;
        Block : String);
-   --  Process one block of 64 characters.
+   --  Process one block of 64 characters
  
     ------------
     -- Decode --
@@ -148,7 +148,7 @@ package body GNAT.MD5 is
       (Block : String;
        X     : out Sixteen_Words)
     is
-      Cur   : Positive := Block'First;
+      Cur : Positive := Block'First;
  
     begin
        pragma Assert (Block'Length = 64);
@@ -171,7 +171,7 @@ package body GNAT.MD5 is
        Result : Message_Digest;
  
        Cur : Natural := 1;
-      --  Index in Result where the next character will be placed.
+      --  Index in Result where the next character will be placed
  
        Last_Block : String (1 .. 64);
  
@@ -519,7 +519,6 @@ package body GNAT.MD5 is
  
     function Wide_Digest (W : Wide_String) return Message_Digest is
        C : Context;
-
     begin
        Wide_Update (C, W);
        return Digest (C);
@@ -533,7 +532,6 @@ package body GNAT.MD5 is
       (C     : in out Context;
        Input : Wide_String)
     is
-
        String_Input : String (1 .. 2 * Input'Length);
        Cur          : Positive := 1;
  
diff --git a/gcc/ada/g-md5.ads b/gcc/ada/g-md5.ads

index f41e7b7219ccd15a2d07e63148fa2935a10e73ae..2fff917efbaa6e098b8152ad30df7bcc4c51f9bf 100644 (file)
--- a/gcc/ada/g-md5.ads
+++ b/gcc/ada/g-md5.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 2002-2004 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -70,7 +70,7 @@ package GNAT.MD5 is
     --  the same final context as a call with the concatenation of the inputs.
  
     subtype Message_Digest is String (1 .. 32);
-   --  The string type returned by function Digest.
+   --  The string type returned by function Digest
  
     function Digest (C : Context) return Message_Digest;
     --  Extracts the Message-Digest from a context. This function should be
@@ -88,6 +88,7 @@ package GNAT.MD5 is
  private
  
     --  Magic numbers
+
     Initial_A : constant := 16#67452301#;
     Initial_B : constant := 16#EFCDAB89#;
     Initial_C : constant := 16#98BADCFE#;
diff --git a/gcc/ada/g-moreex.adb b/gcc/ada/g-moreex.adb

index 63dca44b804bc0af04480737d5274b4b2565ad7e..46484d8406a612884a8da2dfa7afdc459f6e5f4f 100644 (file)
--- a/gcc/ada/g-moreex.adb
+++ b/gcc/ada/g-moreex.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2000 Ada Core Technologies, Inc.              --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-os_lib.adb b/gcc/ada/g-os_lib.adb

index 825c05c5786a79fed3ce7e4ee23819f24c0a88e0..80db696b5171b15fd8db5c150a9dc26664e892cf 100644 (file)
--- a/gcc/ada/g-os_lib.adb
+++ b/gcc/ada/g-os_lib.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1995-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1995-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -98,13 +98,14 @@ package body GNAT.OS_Lib is
        Blocking     : Boolean);
     --  Internal routine to implement the two Spawn (blocking/non blocking)
     --  routines. If Blocking is set to True then the spawn is blocking
-   --  otherwise it is non blocking. In this latter case the Pid contains
-   --  the process id number. The first three parameters are as in Spawn.
-   --  Note that Spawn_Internal normalizes the argument list before calling
-   --  the low level system spawn routines (see Normalize_Arguments). Note
-   --  that Normalize_Arguments is designed to do nothing if it is called
-   --  more than once, so calling Normalize_Arguments before calling one
-   --  of the spawn routines is fine.
+   --  otherwise it is non blocking. In this latter case the Pid contains the
+   --  process id number. The first three parameters are as in Spawn. Note that
+   --  Spawn_Internal normalizes the argument list before calling the low level
+   --  system spawn routines (see Normalize_Arguments).
+   --
+   --  Note: Normalize_Arguments is designed to do nothing if it is called more
+   --  than once, so calling Normalize_Arguments before calling one of the
+   --  spawn routines is fine.
  
     function To_Path_String_Access
       (Path_Addr : Address;
@@ -250,10 +251,8 @@ package body GNAT.OS_Lib is
     ---------------------
  
     function C_String_Length (S : Address) return Integer is
-
        function Strlen (S : Address) return Integer;
        pragma Import (C, Strlen, "strlen");
-
     begin
        if S = Null_Address then
           return 0;
@@ -333,6 +332,8 @@ package body GNAT.OS_Lib is
              return C = Directory_Separator or else C = '/';
           end Is_Dirsep;
  
+      --  Start of processing for Build_Path
+
        begin
           --  Find base file name
  
@@ -504,8 +505,7 @@ package body GNAT.OS_Lib is
                    Dest : constant String := Build_Path (Pathname, Name);
  
                 begin
-                  --  If the target file exists, we have an error
-                  --  otherwise do the copy.
+                  --  If target file exists, we have an error, else do copy
  
                    if Is_Regular_File (Dest) then
                       raise Copy_Error;
@@ -520,7 +520,7 @@ package body GNAT.OS_Lib is
                 Copy_To (Pathname);
              end if;
  
-         --  Overwrite case, destination file may or may not exist
+         --  Overwrite case (destination file may or may not exist)
  
           when Overwrite =>
              if Is_Directory (Pathname) then
@@ -529,7 +529,7 @@ package body GNAT.OS_Lib is
                 Copy_To (Pathname);
              end if;
  
-         --  Appending case, destination file may or may not exist
+         --  Append case (destination file may or may not exist)
  
           when Append =>
  
@@ -537,8 +537,8 @@ package body GNAT.OS_Lib is
  
              if Is_Regular_File (Pathname) then
  
-               --  Append mode and destination file exists, append data
-               --  at the end of Pathname.
+               --  Append mode and destination file exists, append data at the
+               --  end of Pathname.
  
                 From := Open_Read (Name, Binary);
                 To   := Open_Read_Write (Pathname, Binary);
@@ -857,7 +857,6 @@ package body GNAT.OS_Lib is
     function File_Time_Stamp (FD : File_Descriptor) return OS_Time is
        function File_Time (FD    : File_Descriptor) return OS_Time;
        pragma Import (C, File_Time, "__gnat_file_time_fd");
-
     begin
        return File_Time (FD);
     end File_Time_Stamp;
@@ -865,14 +864,12 @@ package body GNAT.OS_Lib is
     function File_Time_Stamp (Name : C_File_Name) return OS_Time is
        function File_Time (Name : Address) return OS_Time;
        pragma Import (C, File_Time, "__gnat_file_time_name");
-
     begin
        return File_Time (Name);
     end File_Time_Stamp;
  
     function File_Time_Stamp (Name : String) return OS_Time is
        F_Name : String (1 .. Name'Length + 1);
-
     begin
        F_Name (1 .. Name'Length) := Name;
        F_Name (F_Name'Last)      := ASCII.NUL;
@@ -1152,7 +1149,6 @@ package body GNAT.OS_Lib is
          (Name   : Address;
           Length : Integer) return Integer;
        pragma Import (C, Is_Absolute_Path, "__gnat_is_absolute_path");
-
     begin
        return Is_Absolute_Path (Name'Address, Name'Length) /= 0;
     end Is_Absolute_Path;
@@ -1164,14 +1160,12 @@ package body GNAT.OS_Lib is
     function Is_Directory (Name : C_File_Name) return Boolean is
        function Is_Directory (Name : Address) return Integer;
        pragma Import (C, Is_Directory, "__gnat_is_directory");
-
     begin
        return Is_Directory (Name) /= 0;
     end Is_Directory;
  
     function Is_Directory (Name : String) return Boolean is
        F_Name : String (1 .. Name'Length + 1);
-
     begin
        F_Name (1 .. Name'Length) := Name;
        F_Name (F_Name'Last)      := ASCII.NUL;
@@ -1185,14 +1179,12 @@ package body GNAT.OS_Lib is
     function Is_Regular_File (Name : C_File_Name) return Boolean is
        function Is_Regular_File (Name : Address) return Integer;
        pragma Import (C, Is_Regular_File, "__gnat_is_regular_file");
-
     begin
        return Is_Regular_File (Name) /= 0;
     end Is_Regular_File;
  
     function Is_Regular_File (Name : String) return Boolean is
        F_Name : String (1 .. Name'Length + 1);
-
     begin
        F_Name (1 .. Name'Length) := Name;
        F_Name (F_Name'Last)      := ASCII.NUL;
@@ -1206,14 +1198,12 @@ package body GNAT.OS_Lib is
     function Is_Readable_File (Name : C_File_Name) return Boolean is
        function Is_Readable_File (Name : Address) return Integer;
        pragma Import (C, Is_Readable_File, "__gnat_is_readable_file");
-
     begin
        return Is_Readable_File (Name) /= 0;
     end Is_Readable_File;
  
     function Is_Readable_File (Name : String) return Boolean is
        F_Name : String (1 .. Name'Length + 1);
-
     begin
        F_Name (1 .. Name'Length) := Name;
        F_Name (F_Name'Last)      := ASCII.NUL;
@@ -1227,14 +1217,12 @@ package body GNAT.OS_Lib is
     function Is_Writable_File (Name : C_File_Name) return Boolean is
        function Is_Writable_File (Name : Address) return Integer;
        pragma Import (C, Is_Writable_File, "__gnat_is_writable_file");
-
     begin
        return Is_Writable_File (Name) /= 0;
     end Is_Writable_File;
  
     function Is_Writable_File (Name : String) return Boolean is
        F_Name : String (1 .. Name'Length + 1);
-
     begin
        F_Name (1 .. Name'Length) := Name;
        F_Name (F_Name'Last)      := ASCII.NUL;
@@ -1248,14 +1236,12 @@ package body GNAT.OS_Lib is
     function Is_Symbolic_Link (Name : C_File_Name) return Boolean is
        function Is_Symbolic_Link (Name : Address) return Integer;
        pragma Import (C, Is_Symbolic_Link, "__gnat_is_symbolic_link");
-
     begin
        return Is_Symbolic_Link (Name) /= 0;
     end Is_Symbolic_Link;
  
     function Is_Symbolic_Link (Name : String) return Boolean is
        F_Name : String (1 .. Name'Length + 1);
-
     begin
        F_Name (1 .. Name'Length) := Name;
        F_Name (F_Name'Last)      := ASCII.NUL;
@@ -1370,18 +1356,15 @@ package body GNAT.OS_Lib is
        return                   Process_Id
     is
        Saved_Output : File_Descriptor;
-      Saved_Error  : File_Descriptor := Invalid_FD;
-      --  We need to initialize Saved_Error to Invalid_FD to avoid
-      --  a compiler warning that this variable may be used before
-      --  it is initialized (which can not happen, but the compiler
-      --  is not smart enough to figure this out).
-      Pid           : Process_Id;
+      Saved_Error  : File_Descriptor := Invalid_FD; -- prevent warning
+      Pid          : Process_Id;
     begin
        if Output_File_Descriptor = Invalid_FD then
           return Invalid_Pid;
        end if;
  
        --  Set standard output and, if specified, error to the temporary file
+
        Saved_Output := Dup (Standout);
        Dup2 (Output_File_Descriptor, Standout);
  
@@ -1417,11 +1400,10 @@ package body GNAT.OS_Lib is
       (Program_Name : String;
        Args         : Argument_List;
        Output_File  : String;
-      Err_To_Out   : Boolean := True)
-      return         Process_Id
+      Err_To_Out   : Boolean := True) return Process_Id
     is
        Output_File_Descriptor : constant File_Descriptor :=
-        Create_Output_Text_File (Output_File);
+                                 Create_Output_Text_File (Output_File);
        Result : Process_Id;
  
     begin
@@ -1531,6 +1513,8 @@ package body GNAT.OS_Lib is
           end if;
        end Quote_Argument;
  
+   --  Start of processing for Normalize_Arguments
+
     begin
        if Argument_Needs_Quote then
           for K in Args'Range loop
@@ -1857,6 +1841,7 @@ package body GNAT.OS_Lib is
              end if;
  
              --  Add the ASCII.NUL to be able to call the C function chdir
+
              Path (Pos + 1) := ASCII.NUL;
  
              Status := Change_Dir (Path (1 .. Pos + 1));
@@ -1890,13 +1875,13 @@ package body GNAT.OS_Lib is
  
        --  Start the conversions
  
-      --  If this is not finished after Max_Iterations, give up and
-      --  return an empty string.
+      --  If this is not finished after Max_Iterations, give up and return an
+      --  empty string.
  
        for J in 1 .. Max_Iterations loop
  
-         --  If we don't have an absolute pathname, prepend
-         --  the directory Reference_Dir.
+         --  If we don't have an absolute pathname, prepend the directory
+         --  Reference_Dir.
  
           if Last = 1
             and then not Is_Absolute_Path (Path_Buffer (1 .. End_Path))
@@ -1946,8 +1931,8 @@ package body GNAT.OS_Lib is
              end if;
           end loop;
  
-         --  Find the end of the current field: last character
-         --  or the one preceding the next directory separator.
+         --  Find the end of the current field: last character or the one
+         --  preceding the next directory separator.
  
           while Finish < End_Path
             and then Path_Buffer (Finish + 1) /= Directory_Separator
@@ -2058,11 +2043,10 @@ package body GNAT.OS_Lib is
  
        --  Too many iterations: give up
  
-      --  This can happen when there is a circularity in the symbolic links:
-      --  A is a symbolic link for B, which itself is a symbolic link, and
-      --  the target of B or of another symbolic link target of B is A.
-      --  In this case, we return an empty string to indicate failure to
-      --  resolve.
+      --  This can happen when there is a circularity in the symbolic links: A
+      --  is a symbolic link for B, which itself is a symbolic link, and the
+      --  target of B or of another symbolic link target of B is A. In this
+      --  case, we return an empty string to indicate failure to resolve.
  
        return "";
     end Normalize_Pathname;
@@ -2126,9 +2110,9 @@ package body GNAT.OS_Lib is
     ----------
  
     function Read
-     (FD   : File_Descriptor;
-      A    : System.Address;
-      N    : Integer) return Integer
+     (FD : File_Descriptor;
+      A  : System.Address;
+      N  : Integer) return Integer
     is
     begin
        return Integer (System.CRTL.read
@@ -2279,11 +2263,7 @@ package body GNAT.OS_Lib is
        Err_To_Out             : Boolean := True)
     is
        Saved_Output : File_Descriptor;
-      Saved_Error  : File_Descriptor := Invalid_FD;
-      --  We need to initialize Saved_Error to Invalid_FD to avoid
-      --  a compiler warning that this variable may be used before
-      --  it is initialized (which can not happen, but the compiler
-      --  is not smart enough to figure this out).
+      Saved_Error  : File_Descriptor := Invalid_FD; -- prevent compiler warning
  
     begin
        --  Set standard output and error to the temporary file
@@ -2373,15 +2353,15 @@ package body GNAT.OS_Lib is
                                                + Args_Length (Args);
           Command_Last : Natural := 0;
           Command : aliased Chars (1 .. Command_Len);
-         --  Command contains all characters of the Program_Name and Args,
-         --  all terminated by ASCII.NUL characters
+         --  Command contains all characters of the Program_Name and Args, all
+         --  terminated by ASCII.NUL characters
  
           Arg_List_Len : constant Positive := Args'Length + 2;
           Arg_List_Last : Natural := 0;
           Arg_List : aliased array (1 .. Arg_List_Len) of Char_Ptr;
-         --  List with pointers to NUL-terminated strings of the
-         --  Program_Name and the Args and terminated with a null pointer.
-         --  We rely on the default initialization for the last null pointer.
+         --  List with pointers to NUL-terminated strings of the Program_Name
+         --  and the Args and terminated with a null pointer. We rely on the
+         --  default initialization for the last null pointer.
  
           procedure Add_To_Command (S : String);
           --  Add S and a NUL character to Command, updating Last
@@ -2403,8 +2383,10 @@ package body GNAT.OS_Lib is
           begin
              Command_Last := Command_Last + S'Length;
  
-            --  Move characters one at a time, because Command has
-            --  aliased components.
+            --  Move characters one at a time, because Command has aliased
+            --  components.
+
+            --  But not volatile, so why is this necessary ???
  
              for J in S'Range loop
                 Command (First + J - S'First) := S (J);
@@ -2509,9 +2491,9 @@ package body GNAT.OS_Lib is
     -----------
  
     function Write
-     (FD   : File_Descriptor;
-      A    : System.Address;
-      N    : Integer) return Integer
+     (FD : File_Descriptor;
+      A  : System.Address;
+      N  : Integer) return Integer
     is
     begin
        return Integer (System.CRTL.write
diff --git a/gcc/ada/g-os_lib.ads b/gcc/ada/g-os_lib.ads

index 17102ac22cbbb4ebc0e914cc26786138f5ec3738..6c09b607252012a04b79cac701093bf6cd6bd3ca 100644 (file)
--- a/gcc/ada/g-os_lib.ads
+++ b/gcc/ada/g-os_lib.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1995-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1995-2005, 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- --
@@ -349,16 +349,16 @@ package GNAT.OS_Lib is
     --  platforms, Success is always set to False.
  
     function Read
-     (FD   : File_Descriptor;
-      A    : System.Address;
-      N    : Integer) return Integer;
+     (FD : File_Descriptor;
+      A  : System.Address;
+      N  : Integer) return Integer;
     --  Read N bytes to address A from file referenced by FD. Returned value is
     --  count of bytes actually read, which can be less than N at EOF.
  
     function Write
-     (FD   : File_Descriptor;
-      A    : System.Address;
-      N    : Integer) return Integer;
+     (FD : File_Descriptor;
+      A  : System.Address;
+      N  : Integer) return Integer;
     --  Write N bytes from address A to file referenced by FD. The returned
     --  value is the number of bytes written, which can be less than N if a
     --  disk full condition was detected.
@@ -718,8 +718,7 @@ package GNAT.OS_Lib is
       (Program_Name           : String;
        Args                   : Argument_List;
        Output_File_Descriptor : File_Descriptor;
-      Err_To_Out             : Boolean := True)
-      return                   Process_Id;
+      Err_To_Out             : Boolean := True) return Process_Id;
     --  Similar to the procedure above, but redirects the output to the file
     --  designated by Output_File_Descriptor. If Err_To_Out is True, then the
     --  Standard Error output is also redirected. Invalid_Id is returned
@@ -764,8 +763,7 @@ package GNAT.OS_Lib is
     --  there is no notion of executables under this OS.
  
     function Argument_String_To_List
-     (Arg_String : String)
-      return       Argument_List_Access;
+     (Arg_String : String) return Argument_List_Access;
     --  Take a string that is a program and its arguments and parse it into an
     --  Argument_List. Note that the result is allocated on the heap, and must
     --  be freed by the programmer (when it is no longer needed) to avoid
diff --git a/gcc/ada/g-pehage.adb b/gcc/ada/g-pehage.adb

index a78264846150fc7d392eb878fec00f6251eaeac4..b2fb8fa544d71f74e405f4749c0872307ad030e7 100644 (file)
--- a/gcc/ada/g-pehage.adb
+++ b/gcc/ada/g-pehage.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 2002-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -309,7 +309,7 @@ package body GNAT.Perfect_Hash_Generators is
     -- Internal Table Management --
     -------------------------------
  
-   function  Allocate (N : Natural; S : Natural := 1) return Table_Id;
+   function Allocate (N : Natural; S : Natural := 1) return Table_Id;
     --  Allocate N * S ints from IT table
  
     procedure Free_Tmp_Tables;
diff --git a/gcc/ada/g-pehage.ads b/gcc/ada/g-pehage.ads

index 5cff8c53dccc6f954f945556622fabc16842bf08..5ba3fc5d58cbde1713bd20dee23fa5534c0325ff 100644 (file)
--- a/gcc/ada/g-pehage.ads
+++ b/gcc/ada/g-pehage.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2002-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-regexp.adb b/gcc/ada/g-regexp.adb

index 22275a5f4f5b98d0637a39fb799f50ab5feaedde..b89129014c17ae9990eb6f589007ebb9b31e3832 100644 (file)
--- a/gcc/ada/g-regexp.adb
+++ b/gcc/ada/g-regexp.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 1999-2004 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -180,7 +180,7 @@ package body GNAT.Regexp is
          (M     : String;
           Index : Integer);
        pragma No_Return (Raise_Exception);
-      --  Raise an exception, indicating an error at character Index in S.
+      --  Raise an exception, indicating an error at character Index in S
  
        --------------------
        -- Create_Mapping --
@@ -330,7 +330,7 @@ package body GNAT.Regexp is
                    if not Glob then
                       if J = S'First then
                          Raise_Exception
-                          ("'*', '+', '?' and '|' operators can not be in "
+                          ("'*', '+', '?' and '|' operators cannot be in "
                             & "first position in regular expression", J);
                       end if;
                    end if;
@@ -343,7 +343,7 @@ package body GNAT.Regexp is
                          --  and cannot be found at the beginning of the line
  
                          Raise_Exception
-                          ("'*', '+', '?' and '|' operators can not be in "
+                          ("'*', '+', '?' and '|' operators cannot be in "
                             & "first position in regular expression", J);
                       end if;
  
@@ -389,7 +389,7 @@ package body GNAT.Regexp is
           procedure Add_Empty_Char
             (State    : State_Index;
              To_State : State_Index);
-         --  Add a empty-character transition from State to To_State.
+         --  Add a empty-character transition from State to To_State
  
           procedure Create_Repetition
             (Repetition : Character;
@@ -461,7 +461,7 @@ package body GNAT.Regexp is
              End_Index   : Integer)
              return        Integer;
           --  Returns the index of the last character of the next sub-expression
-         --  in Simple. Index can not be greater than End_Index
+         --  in Simple. Index cannot be greater than End_Index.
  
           --------------------
           -- Add_Empty_Char --
@@ -829,7 +829,7 @@ package body GNAT.Regexp is
           procedure Add_Empty_Char
             (State    : State_Index;
              To_State : State_Index);
-         --  Add a empty-character transition from State to To_State.
+         --  Add a empty-character transition from State to To_State
  
           procedure Create_Simple
             (Start_Index : Integer;
@@ -1088,8 +1088,7 @@ package body GNAT.Regexp is
          (First_Table : Regexp_Array_Access;
           Num_States  : State_Index;
           Start_State : State_Index;
-         End_State   : State_Index)
-         return        Regexp
+         End_State   : State_Index) return Regexp
        is
           pragma Warnings (Off, Num_States);
  
@@ -1301,8 +1300,7 @@ package body GNAT.Regexp is
     function Get
       (Table  : Regexp_Array_Access;
        State  : State_Index;
-      Column : Column_Index)
-      return   State_Index
+      Column : Column_Index) return State_Index
     is
     begin
        if State <= Table'Last (1)
diff --git a/gcc/ada/g-regexp.ads b/gcc/ada/g-regexp.ads

index 188369e853282a89b5365060d903aa1a31267498..7dada9c29cc3b78b112687594d8da280d9de3c4f 100644 (file)
--- a/gcc/ada/g-regexp.ads
+++ b/gcc/ada/g-regexp.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1998-2003 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1998-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -131,8 +131,7 @@ package GNAT.Regexp is
     function Compile
       (Pattern        : String;
        Glob           : Boolean := False;
-      Case_Sensitive : Boolean := True)
-      return           Regexp;
+      Case_Sensitive : Boolean := True) return Regexp;
     --  Compiles a regular expression S. If the syntax of the given
     --  expression is invalid (does not match above grammar, Error_In_Regexp
     --  is raised. If Glob is True, the pattern is considered as a 'globbing
diff --git a/gcc/ada/g-regist.adb b/gcc/ada/g-regist.adb

index c809b91d391886007b3fa74c2faf29966e57c552..86d359853bd941cce3afd28fc87f39b68ad141df 100644 (file)
--- a/gcc/ada/g-regist.adb
+++ b/gcc/ada/g-regist.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 2001-2003 Free Software Foundation, Inc.         --
+--           Copyright (C) 2001-2005, 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- --
@@ -81,14 +81,12 @@ package body GNAT.Registry is
  
     function RegDeleteKey
       (Key      : HKEY;
-      lpSubKey : Address)
-      return     LONG;
+      lpSubKey : Address) return LONG;
     pragma Import (Stdcall, RegDeleteKey, "RegDeleteKeyA");
  
     function RegDeleteValue
       (Key         : HKEY;
-      lpValueName : Address)
-      return        LONG;
+      lpValueName : Address) return LONG;
     pragma Import (Stdcall, RegDeleteValue, "RegDeleteValueA");
  
     function RegEnumValue
@@ -99,8 +97,7 @@ package body GNAT.Registry is
        lpReserved    : LPDWORD;
        lpType        : LPDWORD;
        lpData        : Address;
-      lpcbData      : LPDWORD)
-      return          LONG;
+      lpcbData      : LPDWORD) return LONG;
     pragma Import (Stdcall, RegEnumValue, "RegEnumValueA");
  
     function RegOpenKeyEx
@@ -108,8 +105,7 @@ package body GNAT.Registry is
        lpSubKey   : Address;
        ulOptions  : DWORD;
        samDesired : REGSAM;
-      phkResult  : PHKEY)
-      return       LONG;
+      phkResult  : PHKEY) return LONG;
     pragma Import (Stdcall, RegOpenKeyEx, "RegOpenKeyExA");
  
     function RegQueryValueEx
@@ -118,8 +114,7 @@ package body GNAT.Registry is
        lpReserved  : LPDWORD;
        lpType      : LPDWORD;
        lpData      : Address;
-      lpcbData    : LPDWORD)
-      return        LONG;
+      lpcbData    : LPDWORD) return LONG;
     pragma Import (Stdcall, RegQueryValueEx, "RegQueryValueExA");
  
     function RegSetValueEx
@@ -128,15 +123,14 @@ package body GNAT.Registry is
        Reserved    : DWORD;
        dwType      : DWORD;
        lpData      : Address;
-      cbData      : DWORD)
-      return        LONG;
+      cbData      : DWORD) return LONG;
     pragma Import (Stdcall, RegSetValueEx, "RegSetValueExA");
  
     ---------------------
     -- Local Constants --
     ---------------------
  
-   Max_Key_Size   : constant := 1_024;
+   Max_Key_Size : constant := 1_024;
     --  Maximum number of characters for a registry key
  
     Max_Value_Size : constant := 2_048;
@@ -147,7 +141,7 @@ package body GNAT.Registry is
     -----------------------
  
     function To_C_Mode (Mode : Key_Mode) return REGSAM;
-   --  Returns the Win32 mode value for the Key_Mode value.
+   --  Returns the Win32 mode value for the Key_Mode value
  
     procedure Check_Result (Result : LONG; Message : String);
     --  Checks value Result and raise the exception Registry_Error if it is not
@@ -188,8 +182,7 @@ package body GNAT.Registry is
     function Create_Key
       (From_Key : HKEY;
        Sub_Key  : String;
-      Mode     : Key_Mode := Read_Write)
-      return     HKEY
+      Mode     : Key_Mode := Read_Write) return HKEY
     is
        use type REGSAM;
        use type DWORD;
@@ -318,8 +311,7 @@ package body GNAT.Registry is
  
     function Key_Exists
       (From_Key : HKEY;
-      Sub_Key  : String)
-      return     Boolean
+      Sub_Key  : String) return Boolean
     is
        New_Key : HKEY;
  
@@ -346,8 +338,7 @@ package body GNAT.Registry is
     function Open_Key
       (From_Key : HKEY;
        Sub_Key  : String;
-      Mode     : Key_Mode := Read_Only)
-      return     HKEY
+      Mode     : Key_Mode := Read_Only) return HKEY
     is
        use type REGSAM;
  
@@ -376,8 +367,7 @@ package body GNAT.Registry is
     function Query_Value
       (From_Key : HKEY;
        Sub_Key  : String;
-      Expand   : Boolean := False)
-      return     String
+      Expand   : Boolean := False) return String
     is
        use GNAT.Directory_Operations;
        use type LONG;
diff --git a/gcc/ada/g-regist.ads b/gcc/ada/g-regist.ads

index 3b4e31d85b82924507fb2c9c85e7f8cd14d4fda5..054ebb8a08bd31f4c7b4929f8aeabba24239fd10 100644 (file)
--- a/gcc/ada/g-regist.ads
+++ b/gcc/ada/g-regist.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2001-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 2001-2005, 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- --
@@ -57,7 +57,7 @@ package GNAT.Registry is
     HKEY_PERFORMANCE_DATA : constant HKEY;
  
     type Key_Mode is (Read_Only, Read_Write);
-   --  Access mode for the registry key.
+   --  Access mode for the registry key
  
     Registry_Error : exception;
     --  Registry_Error is raises by all routines below if a problem occurs
@@ -66,8 +66,7 @@ package GNAT.Registry is
     function Create_Key
       (From_Key : HKEY;
        Sub_Key  : String;
-      Mode     : Key_Mode := Read_Write)
-      return     HKEY;
+      Mode     : Key_Mode := Read_Write) return HKEY;
     --  Open or create a key (named Sub_Key) in the Windows registry database.
     --  The key will be created under key From_Key. It returns the key handle.
     --  From_Key must be a valid handle to an already opened key or one of
@@ -76,36 +75,34 @@ package GNAT.Registry is
     function Open_Key
       (From_Key : HKEY;
        Sub_Key  : String;
-      Mode     : Key_Mode := Read_Only)
-      return     HKEY;
+      Mode     : Key_Mode := Read_Only) return HKEY;
     --  Return a registry key handle for key named Sub_Key opened under key
     --  From_Key. It is possible to open a key at any level in the registry
     --  tree in a single call to Open_Key.
  
     procedure Close_Key (Key : HKEY);
-   --  Close registry key handle. All resources used by Key are released.
+   --  Close registry key handle. All resources used by Key are released
  
     function Key_Exists (From_Key : HKEY; Sub_Key : String) return Boolean;
-   --  Returns True if Sub_Key is defined under From_Key in the registry.
+   --  Returns True if Sub_Key is defined under From_Key in the registry
  
     function Query_Value
       (From_Key : HKEY;
        Sub_Key  : String;
-      Expand   : Boolean := False)
-      return     String;
+      Expand   : Boolean := False) return String;
     --  Returns the registry key's value associated with Sub_Key in From_Key
     --  registry key. If Expand is set to True and the Sub_Key is a
     --  REG_EXPAND_SZ the returned value will have the %name% variables
     --  replaced by the corresponding environment variable value.
  
     procedure Set_Value (From_Key : HKEY; Sub_Key : String; Value : String);
-   --  Add the pair (Sub_Key, Value) into From_Key registry key.
+   --  Add the pair (Sub_Key, Value) into From_Key registry key
  
     procedure Delete_Key (From_Key : HKEY; Sub_Key : String);
-   --  Remove Sub_Key from the registry key From_Key.
+   --  Remove Sub_Key from the registry key From_Key
  
     procedure Delete_Value (From_Key : HKEY; Sub_Key : String);
-   --  Remove the named value Sub_Key from the registry key From_Key.
+   --  Remove the named value Sub_Key from the registry key From_Key
  
     generic
        with procedure Action
diff --git a/gcc/ada/g-regpat.ads b/gcc/ada/g-regpat.ads

index 132d32f945c95712a779e2b8aaf0252e8c5e8443..42dc3f46ad10106194d44bf4ed91a9b1b2e3724a 100644 (file)
--- a/gcc/ada/g-regpat.ads
+++ b/gcc/ada/g-regpat.ads
@@ -206,7 +206,7 @@ package GNAT.Regpat is
     --  first version the regular expression has in fact to be compiled twice
     --  (first to compute the size, then to generate the byte code).
  
-   --  Note also that you can not use the function version of Compile if you
+   --  Note also that you cannot use the function version of Compile if you
     --  specify the size of the Pattern_Matcher, since the discriminants will
     --  most probably be different and you will get a Constraint_Error
  
@@ -291,20 +291,20 @@ package GNAT.Regpat is
     ---------------
  
     Expression_Error : exception;
-   --  This exception is raised when trying to compile an invalid
-   --  regular expression. All subprograms taking an expression
-   --  as parameter may raise Expression_Error.
+   --  This exception is raised when trying to compile an invalid regular
+   --  expression. All subprograms taking an expression as parameter may raise
+   --  Expression_Error.
  
     Max_Paren_Count : constant := 255;
-   --  Maximum number of parenthesis in a regular expression.
-   --  This is limited by the size of a Character, as found in the
-   --  byte-compiled version of regular expressions.
+   --  Maximum number of parenthesis in a regular expression. This is limited
+   --  by the size of a Character, as found in the byte-compiled version of
+   --  regular expressions.
  
     Max_Curly_Repeat : constant := 32767;
-   --  Maximum number of repetition for the curly operator.
-   --  The digits in the {n}, {n,} and {n,m } operators can not be higher
-   --  than this constant, since they have to fit on two characters in the
-   --  byte-compiled version of regular expressions.
+   --  Maximum number of repetition for the curly operator. The digits in the
+   --  {n}, {n,} and {n,m } operators cannot be higher than this constant,
+   --  since they have to fit on two characters in the byte-compiled version of
+   --  regular expressions.
  
     Max_Program_Size : constant := 2**15 - 1;
     --  Maximum size that can be allocated for a program
@@ -318,10 +318,10 @@ package GNAT.Regpat is
     --  and the programmer need not be concerned about it. There are two
     --  exceptions to this. First in the calls to Match, it is possible to
     --  specify a non-zero size that is known to be large enough. This can
-   --  slightly increase the efficiency by avoiding a copy. Second, in the
-   --  case of calling compile, it is possible using the procedural form
-   --  of Compile to use a single Pattern_Matcher variable for several
-   --  different expressions by setting its size sufficiently large.
+   --  slightly increase the efficiency by avoiding a copy. Second, in the case
+   --  of calling compile, it is possible using the procedural form of Compile
+   --  to use a single Pattern_Matcher variable for several different
+   --  expressions by setting its size sufficiently large.
  
     Auto_Size : constant := 0;
     --  Used in calls to Match to indicate that the Size should be set to
@@ -362,33 +362,28 @@ package GNAT.Regpat is
     end record;
  
     type Match_Array is array (Match_Count range <>) of Match_Location;
-   --  The substring matching a given pair of parenthesis.
-   --  Index 0 is the whole substring that matched the full regular
-   --  expression.
+   --  The substring matching a given pair of parenthesis. Index 0 is the whole
+   --  substring that matched the full regular expression.
     --
-   --  For instance, if your regular expression is something like:
-   --  "a(b*)(c+)", then Match_Array(1) will be the indexes of the
-   --  substring that matched "b*" and Match_Array(2) will be the substring
-   --  that matched "c+".
+   --  For instance, if your regular expression is something like: "a(b*)(c+)",
+   --  then Match_Array(1) will be the indexes of the substring that matched
+   --  "b*" and Match_Array(2) will be the substring that matched "c+".
     --
-   --  The number of parenthesis groups that can be retrieved is unlimited,
-   --  and all the Match subprograms below can use a Match_Array of any size.
-   --  Indexes that do not have any matching parenthesis are set to
-   --  No_Match.
+   --  The number of parenthesis groups that can be retrieved is unlimited, and
+   --  all the Match subprograms below can use a Match_Array of any size.
+   --  Indexes that do not have any matching parenthesis are set to No_Match.
  
     No_Match : constant Match_Location := (First => 0, Last => 0);
-   --  The No_Match constant is (0, 0) to differentiate between
-   --  matching a null string at position 1, which uses (1, 0)
-   --  and no match at all.
+   --  The No_Match constant is (0, 0) to differentiate between matching a null
+   --  string at position 1, which uses (1, 0) and no match at all.
  
     ---------------------------------
     -- Pattern_Matcher Compilation --
     ---------------------------------
  
-   --  The subprograms here are used to precompile regular expressions
-   --  for use in subsequent Match calls. Precompilation improves
-   --  efficiency if the same regular expression is to be used in
-   --  more than one Match call.
+   --  The subprograms here are used to precompile regular expressions for use
+   --  in subsequent Match calls. Precompilation improves efficiency if the
+   --  same regular expression is to be used in more than one Match call.
  
     type Pattern_Matcher (Size : Program_Size) is private;
     --  Type used to represent a regular expression compiled into byte code
@@ -419,21 +414,21 @@ package GNAT.Regpat is
        Flags           : Regexp_Flags := No_Flags);
     --  Compile a regular expression into into internal code
  
-   --  This procedure is significantly faster than the Compile function
-   --  since it avoids the extra step of precomputing the required size.
+   --  This procedure is significantly faster than the Compile function since
+   --  it avoids the extra step of precomputing the required size.
     --
     --  However, it requires the user to provide a Pattern_Matcher variable
     --  whose size is preset to a large enough value. One advantage of this
     --  approach, in addition to the improved efficiency, is that the same
     --  Pattern_Matcher variable can be used to hold the compiled code for
-   --  several different regular expressions by setting a size that is
-   --  large enough to accomodate all possibilities.
+   --  several different regular expressions by setting a size that is large
+   --  enough to accomodate all possibilities.
     --
-   --  In this version of the procedure call, the actual required code
-   --  size is returned. Also if Matcher.Size is zero on entry, then the
-   --  resulting code is not stored. A call with Matcher.Size set to Auto_Size
-   --  can thus be used to determine the space required for compiling the
-   --  given regular expression.
+   --  In this version of the procedure call, the actual required code size is
+   --  returned. Also if Matcher.Size is zero on entry, then the resulting code
+   --  is not stored. A call with Matcher.Size set to Auto_Size can thus be
+   --  used to determine the space required for compiling the given regular
+   --  expression.
     --
     --  This function raises Storage_Error if Matcher is too small to hold
     --  the resulting code (i.e. Matcher.Size has too small a value).
@@ -448,8 +443,8 @@ package GNAT.Regpat is
       (Matcher    : out Pattern_Matcher;
        Expression : String;
        Flags      : Regexp_Flags := No_Flags);
-   --  Same procedure as above, expect it does not return the final
-   --  program size, and Matcher.Size cannot be Auto_Size.
+--     --  Same procedure as above, expect it does not return the final
+--     --  program size, and Matcher.Size cannot be Auto_Size.
  
     function Paren_Count (Regexp : Pattern_Matcher) return Match_Count;
     pragma Inline (Paren_Count);
diff --git a/gcc/ada/g-semaph.adb b/gcc/ada/g-semaph.adb

index 43727eb71a79029f5b24fe6e2a2856c67f471dc5..13793a8624fcd598c2af3f4bf1877320b4d95ccc 100644 (file)
--- a/gcc/ada/g-semaph.adb
+++ b/gcc/ada/g-semaph.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2003 Ada Core Technologies, Inc.              --
+--                     Copyright (C) 2003-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-signal.adb b/gcc/ada/g-signal.adb

index 209e287d2ba2d1442e39cd87b3832ca4723f5443..1db9f082a3cf99f1b53a4c8df35106722082122b 100644 (file)
--- a/gcc/ada/g-signal.adb
+++ b/gcc/ada/g-signal.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/g-signal.ads b/gcc/ada/g-signal.ads

index cd15ba483503513af003f1255029bf5f54d4ce71..79d868f8de2a436eb078dbcc0a60a97aefddb649 100644 (file)
--- a/gcc/ada/g-signal.ads
+++ b/gcc/ada/g-signal.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/g-soccon-interix.ads b/gcc/ada/g-soccon-interix.ads

index 630e2bf16e3811f7272bca714987155e4065e5d4..31569d12da38510033bdd33eccd6a0e6b1eb552b 100644 (file)
--- a/gcc/ada/g-soccon-interix.ads
+++ b/gcc/ada/g-soccon-interix.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2000-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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- --
diff --git a/gcc/ada/g-soccon-unixware.ads b/gcc/ada/g-soccon-unixware.ads

index 127cfce2a0c092e502893a85596713e0ec49d7f1..148989e032591139243a91285c4fedc2823dfcf4 100644 (file)
--- a/gcc/ada/g-soccon-unixware.ads
+++ b/gcc/ada/g-soccon-unixware.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2000-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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- --
diff --git a/gcc/ada/g-socthi-vms.adb b/gcc/ada/g-socthi-vms.adb

index b8dcc2dc91508afda97d3ed8e917ca716159452e..d1545e050fe7b91c3bd70537f7905c529713dd27 100644 (file)
--- a/gcc/ada/g-socthi-vms.adb
+++ b/gcc/ada/g-socthi-vms.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2001-2005 Ada Core Technologies, Inc.         --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -40,8 +40,8 @@ with Interfaces.C; use Interfaces.C;
  
  package body GNAT.Sockets.Thin is
  
-   Non_Blocking_Sockets : constant Fd_Set_Access
-     := New_Socket_Set (No_Socket_Set);
+   Non_Blocking_Sockets : constant Fd_Set_Access :=
+                            New_Socket_Set (No_Socket_Set);
     --  When this package is initialized with Process_Blocking_IO set
     --  to True, sockets are set in non-blocking mode to avoid blocking
     --  the whole process when a thread wants to perform a blocking IO
@@ -59,7 +59,7 @@ package body GNAT.Sockets.Thin is
     Thread_Blocking_IO : Boolean := True;
  
     Unknown_System_Error : constant C.Strings.chars_ptr :=
-     C.Strings.New_String ("Unknown system error");
+                            C.Strings.New_String ("Unknown system error");
  
     function Syscall_Accept
       (S       : C.int;
@@ -99,8 +99,7 @@ package body GNAT.Sockets.Thin is
       (S     : C.int;
        Msg   : System.Address;
        Len   : C.int;
-      Flags : C.int)
-      return  C.int;
+      Flags : C.int) return C.int;
     pragma Import (C, Syscall_Send, "send");
  
     function Syscall_Sendto
@@ -109,8 +108,7 @@ package body GNAT.Sockets.Thin is
        Len   : C.int;
        Flags : C.int;
        To    : Sockaddr_In_Access;
-      Tolen : C.int)
-      return  C.int;
+      Tolen : C.int) return C.int;
     pragma Import (C, Syscall_Sendto, "sendto");
  
     function Syscall_Socket
diff --git a/gcc/ada/g-socthi.adb b/gcc/ada/g-socthi.adb

index 188912898a021cb232a279650f229ede5f85d1ab..914b787a41c48e3266f0dfe2d9b15e4d89b050ab 100644 (file)
--- a/gcc/ada/g-socthi.adb
+++ b/gcc/ada/g-socthi.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2001-2004 Ada Core Technologies, Inc.         --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -127,7 +127,7 @@ package body GNAT.Sockets.Thin is
     procedure Disable_SIGPIPE (S : C.int);
     pragma Import (C, Disable_SIGPIPE, "__gnat_disable_sigpipe");
  
-   function  Non_Blocking_Socket (S : C.int) return Boolean;
+   function Non_Blocking_Socket (S : C.int) return Boolean;
     procedure Set_Non_Blocking_Socket (S : C.int; V : Boolean);
  
     --------------
@@ -503,7 +503,6 @@ package body GNAT.Sockets.Thin is
  
        if C_Msg = C.Strings.Null_Ptr then
           return Unknown_System_Error;
-
        else
           return C_Msg;
        end if;
diff --git a/gcc/ada/g-soliop-mingw.ads b/gcc/ada/g-soliop-mingw.ads

index 01874385123bd5f27a25c4e39d5893760eec740d..2966df635e5a3eba9ae11a4013c1913fd5924cce 100644 (file)
--- a/gcc/ada/g-soliop-mingw.ads
+++ b/gcc/ada/g-soliop-mingw.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2001-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-soliop-solaris.ads b/gcc/ada/g-soliop-solaris.ads

index f3b4b99c32def65bc4a4cdac9fb819c9f91102a4..9e012d61f734ad789c75c8384f7edeea8feb4965 100644 (file)
--- a/gcc/ada/g-soliop-solaris.ads
+++ b/gcc/ada/g-soliop-solaris.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2001-2003 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-soliop-unixware.ads b/gcc/ada/g-soliop-unixware.ads

index 21727d4b7628e0294cedd667434ab676ec2d2243..4f42edc3be46e8253b953721ba32c56ef644fe4e 100644 (file)
--- a/gcc/ada/g-soliop-unixware.ads
+++ b/gcc/ada/g-soliop-unixware.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2002-2003 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-soliop.ads b/gcc/ada/g-soliop.ads

index ca9aab16f24586074ac00ffb6893d3afe34bddb5..daaa4743b4f8877470e52c956ba65f654053a8fe 100644 (file)
--- a/gcc/ada/g-soliop.ads
+++ b/gcc/ada/g-soliop.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2001-2003 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb

index 43434738fae014e4944f74f76fb65324df9f9fa3..ab6bdd55f33de49d3145782ab6653295ea8bd4b3 100644 (file)
--- a/gcc/ada/g-spipat.adb
+++ b/gcc/ada/g-spipat.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1998-2005, Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1998-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-spipat.ads b/gcc/ada/g-spipat.ads

index 4f66b0d726ad3c4d33ab2c49728d48d0c88fb12a..31cbef67d6bde761ccbfb661dbce6c571916614f 100644 (file)
--- a/gcc/ada/g-spipat.ads
+++ b/gcc/ada/g-spipat.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1997-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-sptabo.ads b/gcc/ada/g-sptabo.ads

index 1a960268ae2ec82d784a36327cf83a115abb50ad..659a2a1ff5624b67f5f2f5b896ffcc9d982b2f5c 100644 (file)
--- a/gcc/ada/g-sptabo.ads
+++ b/gcc/ada/g-sptabo.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1997-1998 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-sptain.ads b/gcc/ada/g-sptain.ads

index 4bd204ca5187a6c64264780d667f0ed2db4797b7..3ac15d1a2cde1284de744234e6de2b43af91c285 100644 (file)
--- a/gcc/ada/g-sptain.ads
+++ b/gcc/ada/g-sptain.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1997-1998 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-sptavs.ads b/gcc/ada/g-sptavs.ads

index efb3aa41b06a65a1c6c3fbe7e52d4bdcc2e262cd..afa1575a27e1fe4300ae44f9860fb98ece867e27 100644 (file)
--- a/gcc/ada/g-sptavs.ads
+++ b/gcc/ada/g-sptavs.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1997-1998 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-string.ads b/gcc/ada/g-string.ads

index f4f2e696da94b0cab1870c50453aceb82afdb657..d11298c5f8bd0c51b2d8c229c45fb496dc5e7eea 100644 (file)
--- a/gcc/ada/g-string.ads
+++ b/gcc/ada/g-string.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1995-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1995-2005, 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- --
diff --git a/gcc/ada/g-tasloc.adb b/gcc/ada/g-tasloc.adb

index c2acad14b0b63b65e5d01e979e0549f208552fa3..7667e49e14b8288c602dad59810a6500421aa31c 100644 (file)
--- a/gcc/ada/g-tasloc.adb
+++ b/gcc/ada/g-tasloc.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1997-1999 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-tasloc.ads b/gcc/ada/g-tasloc.ads

index 29fb36e3178f7c498c456b58ebc8d7b828b2d5da..757d3c2df93e39c52e2abfec26b405a458229db3 100644 (file)
--- a/gcc/ada/g-tasloc.ads
+++ b/gcc/ada/g-tasloc.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 1998-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1998-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/g-trasym-vms-alpha.adb b/gcc/ada/g-trasym-vms-alpha.adb

index d294362c1312c8f3fad1951cf0c71083c7f1e17c..bb161e027ea1f3ba82fdb90fa755cd6938be82dc 100644 (file)
--- a/gcc/ada/g-trasym-vms-alpha.adb
+++ b/gcc/ada/g-trasym-vms-alpha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1999-2005 Free Software Foundation, Inc.         --
+--           Copyright (C) 1999-2005, 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- --
diff --git a/gcc/ada/g-trasym-vms-ia64.adb b/gcc/ada/g-trasym-vms-ia64.adb

index 2e1834bffa095e7da413895aacda97302f1dce5f..1d82b66f67ab47247e3a4efc7ececd6623f9ed40 100644 (file)
--- a/gcc/ada/g-trasym-vms-ia64.adb
+++ b/gcc/ada/g-trasym-vms-ia64.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, 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- --
diff --git a/gcc/ada/g-trasym.adb b/gcc/ada/g-trasym.adb

index d518d70fa468eb19bae042d64b4cebf6a6fcdfcb..e8f91221a3145d8bae11d99f69983618e2a3a356 100644 (file)
--- a/gcc/ada/g-trasym.adb
+++ b/gcc/ada/g-trasym.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1999-2002 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -50,10 +50,10 @@ package body GNAT.Traceback.Symbolic is
  
     function Symbolic_Traceback (Traceback : Tracebacks_Array) return String is
        procedure convert_addresses
-        (addrs    : System.Address;
-         n_addr   : Integer;
-         buf      : System.Address;
-         len      : System.Address);
+        (addrs  : System.Address;
+         n_addr : Integer;
+         buf    : System.Address;
+         len    : System.Address);
        pragma Import (C, convert_addresses, "convert_addresses");
        --  This is the procedure version of the Ada aware addr2line that will
        --  use argv[0] as the executable containing the debug information.
diff --git a/gcc/ada/g-trasym.ads b/gcc/ada/g-trasym.ads

index 8409732c0327e042afb5973bd26157c97c333942..626d856726939816f49b659775f0185dfd7935b6 100644 (file)
--- a/gcc/ada/g-trasym.ads
+++ b/gcc/ada/g-trasym.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1999-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/gnatbind.ads b/gcc/ada/gnatbind.ads

index 359c513a25ac1612adcf79b1790ecd5f9b5b84cd..65f6f65d4042544a974db1786342c20c87ffa423 100644 (file)
--- a/gcc/ada/gnatbind.ads
+++ b/gcc/ada/gnatbind.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb

index 2a68776a5f89e61193a347ad4828a46de8b9a026..eab7063253ed654bd8004349cf23d538c81e8375 100644 (file)
--- a/gcc/ada/gnatchop.adb
+++ b/gcc/ada/gnatchop.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 1998-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1998-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -1163,8 +1163,7 @@ procedure Gnatchop is
                 Put (Standard_Error, "GNATCHOP ");
                 Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
                 Put_Line
-                 (Standard_Error,
-                  "Copyright 1998-2005, Ada Core Technologies Inc.");
+                 (Standard_Error, "Copyright 1998-2005, AdaCore");
  
              when 'w' =>
                 Overwrite_Files := True;
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb

index c4137a95abdc01a44e12770d5944eb7754847fc1..3ef1ec700ad01df33167c460e4d3af5ebef42564 100644 (file)
--- a/gcc/ada/gnatcmd.adb
+++ b/gcc/ada/gnatcmd.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1996-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1996-2005, 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- --
@@ -211,7 +211,7 @@ procedure GNATCmd is
     --  Display usage for platforms other than VMS
  
     procedure Process_Link;
-   --  Process GNAT LINK, when there is a project file specified.
+   --  Process GNAT LINK, when there is a project file specified
  
     procedure Set_Library_For
       (Project             : Project_Id;
diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb

index 677df83b43e6b92d0efb7c4e5519a184dbb597c6..49b1e41419ea94e051bcfe3261e772eb0f354dbd 100644 (file)
--- a/gcc/ada/gnatfind.adb
+++ b/gcc/ada/gnatfind.adb
@@ -237,7 +237,7 @@ procedure Gnatfind is
     procedure Write_Usage is
     begin
        Put_Line ("GNATFIND " & Gnatvsn.Gnat_Version_String);
-      Put_Line ("Copyright 1998-2005, Ada Core Technologies Inc.");
+      Put_Line ("Copyright 1998-2005, AdaCore");
        Put_Line ("Usage: gnatfind pattern[:sourcefile[:line[:column]]] "
                  & "[file1 file2 ...]");
        New_Line;
diff --git a/gcc/ada/gnatlbr.adb b/gcc/ada/gnatlbr.adb

index 6652c5ff26b3fb234931dd068f63b25b7de7c551..7054d691ce921b9d356e473b67a29b9c82ad372d 100644 (file)
--- a/gcc/ada/gnatlbr.adb
+++ b/gcc/ada/gnatlbr.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  Program to create, set, or delete an alternate runtime library.
+--  Program to create, set, or delete an alternate runtime library
  
  --  Works by calling an appropriate target specific Makefile residing
  --  in the default library object (e.g. adalib) directory from the context
@@ -222,7 +222,7 @@ begin
                 end;
              end loop;
  
-            --  "Make" an alternate sublibrary for each default sublibrary.
+            --  "Make" an alternate sublibrary for each default sublibrary
  
              for Dirs in 1 .. Object_Dirs loop
                 Make_Args (1) :=
diff --git a/gcc/ada/gnatmake.ads b/gcc/ada/gnatmake.ads

index d69490d15072cedec4eecc29cc03068f142199e5..15be53bd3f09ca1f306b441221df9946c978818c 100644 (file)
--- a/gcc/ada/gnatmake.ads
+++ b/gcc/ada/gnatmake.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
@@ -25,8 +25,7 @@
  ------------------------------------------------------------------------------
  
  procedure Gnatmake;
---  The driver for the gnatmake tool. This utility can be used to
---  automatically (re)compile a set of ada sources by giving the name
---  of the root compilation unit or the source file containing it.
---  For more information on gnatmake (its precise usage, flags and algorithm)
---  please refer to the body of gnatmake.
+--  The driver for the gnatmake tool. This utility can be used to automatically
+--  (re)compile a set of ada sources by giving the name of the root compilation
+--  unit or the source file containing it. For more information on gnatmake
+--  (its precise usage, flags and algorithm) please refer to the gnatmake body.
diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb

index b6a4d7e58f227d9cd51260e24a0c71645397fd98..d52fe005f3498b987e51101b2f917d9795dd9b4e 100644 (file)
--- a/gcc/ada/gnatmem.adb
+++ b/gcc/ada/gnatmem.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1997-2005, Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -233,7 +233,7 @@ procedure Gnatmem is
        New_Line;
        Put ("GNATMEM ");
        Put_Line (Gnat_Version_String);
-      Put_Line ("Copyright 1997-2005 Free Software Foundation, Inc.");
+      Put_Line ("Copyright 1997-2005, Free Software Foundation, Inc.");
        New_Line;
  
        Put_Line ("Usage: gnatmem switches [depth] exename");
diff --git a/gcc/ada/gnatprep.adb b/gcc/ada/gnatprep.adb

index 3e5d30b5054a92d1532b5b6b8e316100c368673c..47903e5954f23be173485a7a9006ee743cf260e1 100644 (file)
--- a/gcc/ada/gnatprep.adb
+++ b/gcc/ada/gnatprep.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1996-2003, Free Software Foundation, Inc.         --
+--          Copyright (C) 1996-2005, 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- --
@@ -29,6 +29,7 @@ with GPrep;
  
  procedure GNATprep is
     pragma Ident (Gnatvsn.Gnat_Static_Version_String);
+
  begin
     --  Everything is done in GPrep
  
diff --git a/gcc/ada/gnatprep.ads b/gcc/ada/gnatprep.ads

index 06ca505bacff7cbc94a02244f6adfe0132db143f..d991ef5cea6796d4f7b0d800addcfe834e5f96ed 100644 (file)
--- a/gcc/ada/gnatprep.ads
+++ b/gcc/ada/gnatprep.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2002, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -142,9 +142,9 @@
  --     may be used on a preprocessor line, but other than that, no other
  --     tokens may appear on a preprocessor line.
  
---     Any number of #elsif clauses can be present, including none at all.
+--     Any number of #elsif clauses can be present, including none at all
  
---     The #else is optional, as in Ada.
+--     The #else is optional, as in Ada
  
  --     The # marking the start of a preprocessor line must be the first
  --     non-blank character on the line, i.e. it must be preceded only by
diff --git a/gcc/ada/gnatsym.adb b/gcc/ada/gnatsym.adb

index 63f46e1e7f658b4b5fa8275d6fa13c6c1d39975c..f723d52a0887fbdff986aaa4c199f4474b7b28a4 100644 (file)
--- a/gcc/ada/gnatsym.adb
+++ b/gcc/ada/gnatsym.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
@@ -78,7 +78,7 @@ procedure Gnatsym is
     --  The name of the reference symbol file
  
     Version_String : String_Access := Empty;
-   --  The version of the library. Used on VMS.
+   --  The version of the library (used on VMS)
  
     package Object_Files is new Table.Table
       (Table_Component_Type => String_Access,
diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb

index 12482681ad8c1faba7f313858001f2d162e7179f..3d6ee75e8f6e2140008c19afb262a4381699cf3e 100644 (file)
--- a/gcc/ada/gnatxref.adb
+++ b/gcc/ada/gnatxref.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---         Copyright (C) 1998-2004 Free Software Foundation, Inc.           --
+--          Copyright (C) 1998-2005, 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- --
@@ -210,7 +210,7 @@ procedure Gnatxref is
     procedure Write_Usage is
     begin
        Put_Line ("GNATXREF " & Gnatvsn.Gnat_Version_String);
-      Put_Line ("Copyright 1998-2004, Ada Core Technologies Inc.");
+      Put_Line ("Copyright 1998-2005, AdaCore");
        Put_Line ("Usage: gnatxref [switches] file1 file2 ...");
        New_Line;
        Put_Line ("  file ... list of source files to xref, " &
diff --git a/gcc/ada/gprep.ads b/gcc/ada/gprep.ads

index 539d274b1094236fc5307306c1810bd75dbf2287..6a5a0d4153c855086617ded5ee22302a951fe243 100644 (file)
--- a/gcc/ada/gprep.ads
+++ b/gcc/ada/gprep.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2002, Free Software Foundation, Inc.              --
+--          Copyright (C) 2002-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This package is the implementation of GNATPREP.
+--  This package is the implementation of GNATPREP
  
  package GPrep is
  
diff --git a/gcc/ada/gprmake.adb b/gcc/ada/gprmake.adb

index 3e5b30296b5b17195eeac54a8c965821ba730753..93c20a79542daa856cf203e43e88242544562348 100644 (file)
--- a/gcc/ada/gprmake.adb
+++ b/gcc/ada/gprmake.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---        Copyright (C) 2004 Free Software Foundation, Inc.                 --
+--          Copyright (C) 2004-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  The driver for the gprmake tool.
+--  The driver for the gprmake tool
  
  with Makegpr;
  
diff --git a/gcc/ada/i-fortra.adb b/gcc/ada/i-fortra.adb

index 01f16ed3f809d6f73f63d2ad357dbba813eb2053..5b37738fa5b7eb27b99978ab8ff65cca56f7b01e 100644 (file)
--- a/gcc/ada/i-fortra.adb
+++ b/gcc/ada/i-fortra.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
@@ -39,14 +39,14 @@ package body Interfaces.Fortran is
  
     --  Single character case
  
-   function To_Ada (Item : in Character_Set) return Character is
+   function To_Ada (Item : Character_Set) return Character is
     begin
        return Character (Item);
     end To_Ada;
  
     --  String case (function returning converted result)
  
-   function To_Ada (Item : in Fortran_Character) return String is
+   function To_Ada (Item : Fortran_Character) return String is
        T : String (1 .. Item'Length);
  
     begin
@@ -60,7 +60,7 @@ package body Interfaces.Fortran is
     --  String case (procedure copying converted string to given buffer)
  
     procedure To_Ada
-     (Item   : in Fortran_Character;
+     (Item   : Fortran_Character;
        Target : out String;
        Last   : out Natural)
     is
@@ -93,14 +93,14 @@ package body Interfaces.Fortran is
  
     --  Character case
  
-   function To_Fortran (Item : in Character) return Character_Set is
+   function To_Fortran (Item : Character) return Character_Set is
     begin
        return Character_Set (Item);
     end To_Fortran;
  
     --  String case (function returning converted result)
  
-   function To_Fortran (Item : in String) return Fortran_Character is
+   function To_Fortran (Item : String) return Fortran_Character is
        T : Fortran_Character (1 .. Item'Length);
  
     begin
@@ -114,7 +114,7 @@ package body Interfaces.Fortran is
     --  String case (procedure copying converted string to given buffer)
  
     procedure To_Fortran
-     (Item   : in String;
+     (Item   : String;
        Target : out Fortran_Character;
        Last   : out Natural)
     is
diff --git a/gcc/ada/i-fortra.ads b/gcc/ada/i-fortra.ads

index 78f4f71256d6d6788c8bc680fc31ceee4149cdf2..da330d2a4f793c76d1a464b67c0d987e088677a9 100644 (file)
--- a/gcc/ada/i-fortra.ads
+++ b/gcc/ada/i-fortra.ads
@@ -45,19 +45,19 @@ package Interfaces.Fortran is
  
     type Fortran_Character is array (Positive range <>) of Character_Set;
  
-   function To_Fortran (Item : in Character)     return Character_Set;
-   function To_Ada     (Item : in Character_Set) return Character;
+   function To_Fortran (Item : Character)     return Character_Set;
+   function To_Ada     (Item : Character_Set) return Character;
  
-   function To_Fortran (Item : in String)            return Fortran_Character;
-   function To_Ada     (Item : in Fortran_Character) return String;
+   function To_Fortran (Item : String)            return Fortran_Character;
+   function To_Ada     (Item : Fortran_Character) return String;
  
     procedure To_Fortran
-     (Item   : in String;
+     (Item   : String;
        Target : out Fortran_Character;
        Last   : out Natural);
  
     procedure To_Ada
-     (Item   : in Fortran_Character;
+     (Item   : Fortran_Character;
        Target : out String;
        Last   : out Natural);
  
diff --git a/gcc/ada/indepsw.ads b/gcc/ada/indepsw.ads

index 4db3bcef90c6e16d52c63052cfad426a02fb019e..7296291b35d70353cc317ab2e45761cc2bf236da 100644 (file)
--- a/gcc/ada/indepsw.ads
+++ b/gcc/ada/indepsw.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2004 Free Software Foundation, Inc.             --
+--          Copyright (C) 2004-2005 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- --
@@ -56,7 +56,7 @@ package Indepsw is
     --  for the platform; in this case, To is set to null.
  
     function Is_Supported (Switch : Switch_Kind) return Boolean;
-   --  Return True for each independent switch supported by the platform.
+   --  Return True for each independent switch supported by the platform
  
  private
     --  Default warning messages when the switches are not supported by the
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb

index e5f0bf2086b6a346b00744b7c607570b0e9bebae..8b8004f51871a6495d3579dd54aac1fe1cf097f0 100644 (file)
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -88,7 +88,7 @@ package body Inline is
     type Subp_Index is new Nat;
     No_Subp : constant Subp_Index := 0;
  
-   --  The subprogram entities are hashed into the Inlined table.
+   --  The subprogram entities are hashed into the Inlined table
  
     Num_Hash_Headers : constant := 512;
  
@@ -182,10 +182,10 @@ package body Inline is
     To_Clean : Elist_Id;
  
     procedure Add_Scope_To_Clean (Inst : Entity_Id);
-   --  Build set of scopes on which cleanup actions must be performed.
+   --  Build set of scopes on which cleanup actions must be performed
  
     procedure Cleanup_Scopes;
-   --  Complete cleanup actions on scopes that need it.
+   --  Complete cleanup actions on scopes that need it
  
     --------------
     -- Add_Call --
@@ -215,7 +215,7 @@ package body Inline is
              J := Successors.Table (J).Next;
           end loop;
  
-         --  On exit, make a successor entry for P2.
+         --  On exit, make a successor entry for P2
  
           Successors.Increment_Last;
           Successors.Table (Successors.Last).Subp := P2;
@@ -505,7 +505,7 @@ package body Inline is
        J     : Subp_Index;
  
        procedure New_Entry;
-      --  Initialize entry in Inlined table.
+      --  Initialize entry in Inlined table
  
        procedure New_Entry is
        begin
@@ -692,7 +692,8 @@ package body Inline is
              then
                 Error_Msg_N
                   ("& cannot be inlined?", Inlined.Table (Index).Name);
-               --  A warning on the first one might be sufficient.
+
+               --  A warning on the first one might be sufficient ???
              end if;
           end loop;
  
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb

index 6f702c0f551bbecaca2a1255590620b3727c388b..736dd0dc6b434fd3e5bc9d11f746d858195412cc 100644 (file)
--- a/gcc/ada/layout.adb
+++ b/gcc/ada/layout.adb
@@ -950,7 +950,7 @@ package body Layout is
        --  is the expression so far (which will be the body of the function).
  
        Size : Val_Type;
-      --  Value of size computed so far. See comments above.
+      --  Value of size computed so far. See comments above
  
        Vtyp : Entity_Id := Empty;
        --  Variant record type for the formal parameter of the
@@ -2356,7 +2356,7 @@ package body Layout is
  
           if Is_Discrete_Type (E) then
  
-            --  If the RM_Size is not set, then here is where we set it.
+            --  If the RM_Size is not set, then here is where we set it
  
              --  Note: an RM_Size of zero looks like not set here, but this
              --  is a rare case, and we can simply reset it without any harm.
diff --git a/gcc/ada/live.adb b/gcc/ada/live.adb

index 1eb73fcca0a7a8ca551072d789ee90e0115114fa..df92d0d6e12080971f259ecd19fa4a9d7a6ec175 100644 (file)
--- a/gcc/ada/live.adb
+++ b/gcc/ada/live.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2000-2002 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005 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- --
@@ -58,7 +58,7 @@ package body Live is
     --  The problem of finding live entities is solved in two steps:
  
     procedure Mark (Root : Node_Id; Marks : out Name_Set);
-   --  Mark all live entities in Root as Marked.
+   --  Mark all live entities in Root as Marked
  
     procedure Sweep (Root : Node_Id; Marks : Name_Set);
     --  For all unmarked entities in Root set Is_Eliminated to true
diff --git a/gcc/ada/make.ads b/gcc/ada/make.ads

index 76b952af38e3ed9d19305c6423606bbb4a3534d2..f5c4d25d10c56a20174591f9a505fadda3c42cb8 100644 (file)
--- a/gcc/ada/make.ads
+++ b/gcc/ada/make.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 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- --
@@ -75,13 +75,13 @@ package Make is
     --  is raised. These need to be handled by the calling routines.
  
     Compilation_Failed : exception;
-   --  Raised by Compile_Sources if a compilation failed.
+   --  Raised by Compile_Sources if a compilation failed
  
     Bind_Failed : exception;
-   --  Raised by Bind below if the bind failed.
+   --  Raised by Bind below if the bind failed
  
     Link_Failed : exception;
-   --  Raised by Link below if the link failed.
+   --  Raised by Link below if the link failed
  
     procedure Bind (ALI_File : File_Name_Type; Args : Argument_List);
     --  Binds ALI_File. Args are the arguments to pass to the binder.
@@ -96,13 +96,13 @@ package Make is
     --  Compile_Sources can be called by an external unit.
  
     procedure Scan_Make_Arg (Argv : String; And_Save : Boolean);
-   --  Scan make arguments. Argv is a single argument to be processed.
+   --  Scan make arguments. Argv is a single argument to be processed
  
     procedure Extract_Failure
       (File  : out File_Name_Type;
        Unit  : out Unit_Name_Type;
        Found : out Boolean);
-   --  Extracts the first failure report from Bad_Compilation table.
+   --  Extracts the first failure report from Bad_Compilation table
  
     procedure Compile_Sources
       (Main_Source           : File_Name_Type;
diff --git a/gcc/ada/makegpr.ads b/gcc/ada/makegpr.ads

index 308a1928511cc6b281737626fe6d2d49904d5196..d9de44a5c2cce1026c432d3c3d575249c2bbc301 100644 (file)
--- a/gcc/ada/makegpr.ads
+++ b/gcc/ada/makegpr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004 Free Software Foundation, Inc.               --
+--          Copyright (C) 2004-2005 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- --
@@ -30,6 +30,6 @@
  package Makegpr is
  
     procedure Gprmake;
-   --  The driver of gprmake.
+   --  The driver of gprmake
  
  end Makegpr;
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb

index d65dfea5cfff6c07409c55a6b69ee3270933830b..f64aae3d1e98cb18e8465e8f438d351a46c6cf82 100644 (file)
--- a/gcc/ada/makeutl.adb
+++ b/gcc/ada/makeutl.adb
@@ -57,7 +57,7 @@ package body Makeutl is
        Key        => Mark_Key,
        Hash       => Hash,
        Equal      => "=");
-   --  A hash table to keep tracks of the marked units.
+   --  A hash table to keep tracks of the marked units
  
     type Linker_Options_Data is record
        Project : Project_Id;
diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads

index a4c8135c89bc33daf7bcbca35bc0725692a45514..d69adb2f62820250fd843aaf9d6e3a3caf2f232f 100644 (file)
--- a/gcc/ada/makeutl.ads
+++ b/gcc/ada/makeutl.ads
@@ -113,7 +113,7 @@ package Makeutl is
     function Is_Marked
       (Source_File : File_Name_Type;
        Index       : Int := 0) return Boolean;
-   --  Returns True if the unit was previously marked.
+   --  Returns True if the unit was previously marked
  
     procedure Delete_All_Marks;
     --  Remove all file/index couples marked
diff --git a/gcc/ada/mdll-fil.adb b/gcc/ada/mdll-fil.adb

index 73de7e0981ebae51057c92f38a6ae52828082ecb..11f56f37653796d9207c98a9cda778fa797ee99d 100644 (file)
--- a/gcc/ada/mdll-fil.adb
+++ b/gcc/ada/mdll-fil.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  Simple services used by GNATDLL to deal with Filename extension.
+--  Simple services used by GNATDLL to deal with Filename extension
  
  with Ada.Strings.Fixed;
  
diff --git a/gcc/ada/mdll-fil.ads b/gcc/ada/mdll-fil.ads

index ed8c106c4f2bed369381d786a20c827aef9bf97d..15c0678399db00f71ffea778d64c232708c80e7c 100644 (file)
--- a/gcc/ada/mdll-fil.ads
+++ b/gcc/ada/mdll-fil.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 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- --
@@ -35,7 +35,7 @@ package MDLL.Fil is
     --  Return extension of Filename
  
     function Is_Ali (Filename : String) return Boolean;
-   --  Test if Filename is an Ada library file (.ali).
+   --  Test if Filename is an Ada library file (.ali)
  
     function Is_Obj (Filename : String) return Boolean;
     --  Test if Filename is an object file (.o or .obj)
diff --git a/gcc/ada/mdll-utl.ads b/gcc/ada/mdll-utl.ads

index 9074a19141f0c8d8183279647c8ecd43697e3a4c..1d1f33a827f56dfdef170cbb28a33caea1a3fc22 100644 (file)
--- a/gcc/ada/mdll-utl.ads
+++ b/gcc/ada/mdll-utl.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 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- --
@@ -44,7 +44,7 @@ package MDLL.Utl is
        Options     : Argument_List;
        Base_File   : String := "";
        Build_Lib   : Boolean := False);
-   --  Run gcc binary.
+   --  Run gcc binary
  
     procedure Gnatbind
       (Alis : Argument_List;
diff --git a/gcc/ada/memroot.ads b/gcc/ada/memroot.ads

index 747ccac8e2952e68811ab7022675f1dbad3a3086..abddc135239a59e67f8c6f538530a7b3ae887f87 100644 (file)
--- a/gcc/ada/memroot.ads
+++ b/gcc/ada/memroot.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 1997-2003 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1997-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -39,7 +39,7 @@ with System.Storage_Elements; use System.Storage_Elements;
  
  package Memroot is
  
-   --  Simple abstract type for names. A name is a sequence of letters.
+   --  Simple abstract type for names. A name is a sequence of letters
  
     type Name_Id is new Natural;
     No_Name_Id : constant Name_Id := 0;
diff --git a/gcc/ada/memtrack.adb b/gcc/ada/memtrack.adb

index 38649e6fc7602acae5e4d02d3c9d09a2f2cac585..ce613950ba9919041bbac0d484c0f7ee577a89e9 100644 (file)
--- a/gcc/ada/memtrack.adb
+++ b/gcc/ada/memtrack.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2001-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 2001-2005 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- --
@@ -53,7 +53,7 @@
  
  --    gnatmem -i gmem.out program
  
---  See gnatmem section in the GNAT User's Guide for more details.
+--  See gnatmem section in the GNAT User's Guide for more details
  
  --  NOTE: This capability is currently supported on the following targets:
  
@@ -120,13 +120,13 @@ package body System.Memory is
     pragma Import (C, fclose);
  
     procedure Finalize;
-   --  Replace the default __gnat_finalize to properly close the log file.
     pragma Export (C, Finalize, "__gnat_finalize");
+   --  Replace the default __gnat_finalize to properly close the log file
  
-   Address_Size    : constant := System.Address'Max_Size_In_Storage_Elements;
+   Address_Size : constant := System.Address'Max_Size_In_Storage_Elements;
     --  Size in bytes of a pointer
  
-   Max_Call_Stack  : constant := 200;
+   Max_Call_Stack : constant := 200;
     --  Maximum number of frames supported
  
     Tracebk   : aliased array (0 .. Max_Call_Stack) of Traceback_Entry;
@@ -137,7 +137,7 @@ package body System.Memory is
     --  ??? What about Ada.Command_Line.Command_Name & ".out" instead of static
     --  gmem.out
  
-   Gmemfile  : File_Ptr;
+   Gmemfile : File_Ptr;
     --  Global C file pointer to the allocation log
  
     procedure Gmem_Initialize;
diff --git a/gcc/ada/mlib-fil.adb b/gcc/ada/mlib-fil.adb

index e6359b3ba52d7ee33e2dd18dc69d2c0675d09745..3144451a9de1958dfdd0e2d9b0334463d19ecdd2 100644 (file)
--- a/gcc/ada/mlib-fil.adb
+++ b/gcc/ada/mlib-fil.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2001, Ada Core Technologies, Inc.             --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/mlib-fil.ads b/gcc/ada/mlib-fil.ads

index f72587bf6e516128a3827800c34ca7304f475820..44460ca0d9cdbccba1d031f7e2b1c7af50129a6b 100644 (file)
--- a/gcc/ada/mlib-fil.ads
+++ b/gcc/ada/mlib-fil.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---              Copyright (C) 2001, Ada Core Technologies, Inc.             --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -32,10 +32,10 @@ package MLib.Fil is
       (Filename : String;
        New_Ext  : String := "")
        return     String;
-   --  Return Filename with the extension change to New_Ext.
+   --  Return Filename with the extension change to New_Ext
  
     function Get_Ext (Filename : String) return String;
-   --  Return extension of filename.
+   --  Return extension of filename
  
     function Is_Archive (Filename : String) return Boolean;
     --  Test if filename is an archive
diff --git a/gcc/ada/mlib-prj.ads b/gcc/ada/mlib-prj.ads

index 8d5383cdcea03de084c92103f8fcc67ae270f4d8..d1c7d8cabc236c1b68d329b46276cbe8118db02d 100644 (file)
--- a/gcc/ada/mlib-prj.ads
+++ b/gcc/ada/mlib-prj.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---              Copyright (C) 2001-2005, Ada Core Technologies, Inc.        --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb

index 794d2861d58e613aab7e9b77ec90719a9db117cb..f6512b494bfdd97b15b60e5e630b001c49ec3947 100644 (file)
--- a/gcc/ada/mlib-utl.adb
+++ b/gcc/ada/mlib-utl.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---              Copyright (C) 2002-2004, Ada Core Technologies, Inc.        --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads

index bbc895d7e69662e7b0b4f17a337a602eb60fc4e4..bb38c8018b2a47faca7a9eb920b8d336e14892d3 100644 (file)
--- a/gcc/ada/mlib-utl.ads
+++ b/gcc/ada/mlib-utl.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 2001-2005, Ada Core Technologies, Inc           --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/mlib.ads b/gcc/ada/mlib.ads

index d93a8140785d082e2533ed595f5dabaa09c29ad2..c993d8e95391cf5c5bf1d0347441ad7afd56a616 100644 (file)
--- a/gcc/ada/mlib.ads
+++ b/gcc/ada/mlib.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1999-2004, Ada Core Technologies, Inc.           --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/nlists.adb b/gcc/ada/nlists.adb

index 577b668870d1b43d9c7b97e912bc1d9501bb2386..5d4ef38e83f15a9bbc3354522b5c7e9f145ab371 100644 (file)
--- a/gcc/ada/nlists.adb
+++ b/gcc/ada/nlists.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads

index 25fe4334f1b4a1d50dcb0320abe0028202434ecc..533b5a8be8ccdad30568a8ba3de99c81db2ea9ae 100644 (file)
--- a/gcc/ada/nlists.ads
+++ b/gcc/ada/nlists.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb

index dfb439d965e7f34a7f8fcbae1a539db62c4f5afb..648a4b24e167dc19b321319b7eeba733f5b0a3ec 100644 (file)
--- a/gcc/ada/osint-c.adb
+++ b/gcc/ada/osint-c.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---         Copyright (C) 2001-2004 Free Software Foundation, Inc.           --
+--         Copyright (C) 2001-2005 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- --
@@ -32,14 +32,13 @@ with Tree_IO;  use Tree_IO;
  package body Osint.C is
  
     Output_Object_File_Name : String_Ptr;
-   --  Argument of -o compiler option, if given. This is needed to
-   --  verify consistency with the ALI file name.
+   --  Argument of -o compiler option, if given. This is needed to verify
+   --  consistency with the ALI file name.
  
     procedure Adjust_OS_Resource_Limits;
     pragma Import (C, Adjust_OS_Resource_Limits,
                    "__gnat_adjust_os_resource_limits");
-   --  Procedure to make system specific adjustments to make GNAT
-   --  run better.
+   --  Procedure to make system specific adjustments to make GNAT run better
  
     function Create_Auxiliary_File
       (Src    : File_Name_Type;
@@ -325,7 +324,7 @@ package body Osint.C is
        EL  : constant Natural := Ext'Length;
  
     begin
-      --  Make sure that the object file has the expected extension.
+      --  Make sure that the object file has the expected extension
  
        if NL <= EL
           or else
diff --git a/gcc/ada/osint-l.adb b/gcc/ada/osint-l.adb

index 95a2949141098c0ade513f8045b61cab27347a1c..144fde459f61c7375591c1a87e87027c34cfc2c7 100644 (file)
--- a/gcc/ada/osint-l.adb
+++ b/gcc/ada/osint-l.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2001 Free Software Foundation, Inc.               --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/osint-l.ads b/gcc/ada/osint-l.ads

index 51aebb198403dff9223d9ebcb9dbd590e1ac818d..170e27636161b2f95a55b7b697ba3eeca5a662bf 100644 (file)
--- a/gcc/ada/osint-l.ads
+++ b/gcc/ada/osint-l.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2001 Free Software Foundation, Inc.               --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/osint-m.ads b/gcc/ada/osint-m.ads

index 65ee1540a3818d8501b5e8f8bac1ba2b4c882e22..904385df2578cba35e86a9d82c423d4804d611a4 100644 (file)
--- a/gcc/ada/osint-m.ads
+++ b/gcc/ada/osint-m.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2001 Free Software Foundation, Inc.               --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb

index 8a9e81a2136061a2646f76d9e8efd259aac2548a..d14ad276fbe8362f86b85b01d94d153c979d9eb7 100644 (file)
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -76,7 +76,7 @@ package body Osint is
     function Append_Suffix_To_File_Name
       (Name   : Name_Id;
        Suffix : String) return Name_Id;
-   --  Appends Suffix to Name and returns the new name.
+   --  Appends Suffix to Name and returns the new name
  
     function OS_Time_To_GNAT_Time (T : OS_Time) return Time_Stamp_Type;
     --  Convert OS format time to GNAT format time stamp
@@ -115,7 +115,7 @@ package body Osint is
     --  full file name if file found, or No_File if not found.
  
     function C_String_Length (S : Address) return Integer;
-   --  Returns length of a C string. Returns zero for a null address.
+   --  Returns length of a C string. Returns zero for a null address
  
     function To_Path_String_Access
       (Path_Addr : Address;
@@ -200,7 +200,7 @@ package body Osint is
     --  time stamp.
  
     File_Cache_Enabled : Boolean := False;
-   --  Set to true if you want the enable the file data caching mechanism.
+   --  Set to true if you want the enable the file data caching mechanism
  
     type File_Hash_Num is range 0 .. 1020;
  
diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads

index 108cafaea9ace59cbc92093d28af8b39e288bda6..fab994e76dc5a642dc1bc2f594bb27d8ff5e7d5b 100644 (file)
--- a/gcc/ada/osint.ads
+++ b/gcc/ada/osint.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 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- --
@@ -90,29 +90,27 @@ package Osint is
     --  so that two file names compare equal if they refer to the same file.
  
     function Number_Of_Files return Int;
-   --  gives the total number of filenames found on the command line.
+   --  Gives the total number of filenames found on the command line
  
     No_Index : constant := -1;
-   --  Value used in Add_File to indicate that no index is specified
-   --  for a main.
+   --  Value used in Add_File to indicate no index is specified for main
  
     procedure Add_File (File_Name : String; Index : Int := No_Index);
-   --  Called by the subprogram processing the command line for each
-   --  file name found. The index, when not defaulted to No_Index
-   --  is the index of the subprogram in its source, zero indicating
-   --  that the source is not multi-unit.
+   --  Called by the subprogram processing the command line for each file name
+   --  found. The index, when not defaulted to No_Index is the index of the
+   --  subprogram in its source, zero indicating that the source is not
+   --  multi-unit.
  
     procedure Find_Program_Name;
     --  Put simple name of current program being run (excluding the directory
     --  path) in Name_Buffer, with the length in Name_Len.
  
     function Program_Name (Nam : String) return String_Access;
-   --  In the native compilation case, Create a string containing Nam. In
-   --  the cross compilation case, looks at the prefix of the current
-   --  program being run and prepend it to Nam. For instance if the program
-   --  being run is <target>-gnatmake and Nam is "gcc", the returned value
-   --  will be a pointer to "<target>-gcc". This function clobbers
-   --  Name_Buffer and Name_Len.
+   --  In the native compilation case, Create a string containing Nam. In the
+   --  cross compilation case, looks at the prefix of the current program being
+   --  run and prepend it to Nam. For instance if the program being run is
+   --  <target>-gnatmake and Nam is "gcc", the returned value will be a pointer
+   --  to "<target>-gcc". This function clobbers Name_Buffer and Name_Len.
  
     procedure Write_Program_Name;
     --  Writes name of program as invoked to the current output
@@ -121,8 +119,8 @@ package Osint is
     procedure Fail (S1 : String; S2 : String := ""; S3 : String := "");
     pragma No_Return (Fail);
     --  Outputs error messages S1 & S2 & S3 preceded by the name of the
-   --  executing program and exits with E_Fatal. The output goes to
-   --  standard error, except if special output is in effect (see Output).
+   --  executing program and exits with E_Fatal. The output goes to standard
+   --  error, except if special output is in effect (see Output).
  
     function Is_Directory_Separator (C : Character) return Boolean;
     --  Returns True if C is a directory separator
@@ -133,7 +131,7 @@ package Osint is
     --  directory part in the name.
  
     function Is_Readonly_Library (File : File_Name_Type) return Boolean;
-   --  Check if this library file is a read-only file.
+   --  Check if this library file is a read-only file
  
     function Strip_Directory (Name : File_Name_Type) return File_Name_Type;
     --  Strips the prefix directory name (if any) from Name. Returns the
@@ -177,11 +175,11 @@ package Osint is
        Prefix_Style : Boolean) return String_Access;
     --  Convert a host syntax directory specification (e.g. on a VMS host:
     --  "SYS$DEVICE:[DIR]") to canonical (Unix) syntax (e.g. "/sys$device/dir").
-   --  If Prefix_Style then make it a valid file specification prefix.
-   --  A file specification prefix is a directory specification that
-   --  can be appended with a simple file specification to yield a valid
-   --  absolute or relative path to a file. On a conversion to Unix syntax
-   --  this simply means the spec has a trailing slash ("/").
+   --  If Prefix_Style then make it a valid file specification prefix. A file
+   --  specification prefix is a directory specification that can be appended
+   --  with a simple file specification to yield a valid absolute or relative
+   --  path to a file. On a conversion to Unix syntax this simply means the
+   --  spec has a trailing slash ("/").
  
     function To_Canonical_File_Spec
       (Host_File : String) return String_Access;
@@ -204,7 +202,7 @@ package Osint is
  
     function To_Host_File_Spec
       (Canonical_File : String) return String_Access;
-   --  Convert a canonical syntax file specification to host syntax.
+   --  Convert a canonical syntax file specification to host syntax
  
     function Relocate_Path
       (Prefix : String;
@@ -552,7 +550,7 @@ package Osint is
  private
  
     ALI_Suffix : constant String_Ptr := new String'("ali");
-   --  The suffix used for the library files (also known as ALI files).
+   --  The suffix used for the library files (also known as ALI files)
  
     Current_Main : File_Name_Type := No_File;
     --  Used to save a simple file name between calls to Next_Main_Source and
@@ -561,7 +559,7 @@ private
     --  last call to Next_Main_Source (and stored here) is to be read.
  
     Object_Suffix : constant String := Get_Object_Suffix.all;
-   --  The suffix used for the object files.
+   --  The suffix used for the object files
  
     Output_FD : File_Descriptor;
     --  The file descriptor for the current library info, tree or binder output
@@ -609,10 +607,10 @@ private
     --  A check is made that this procedure is not called several times.
  
     function More_Files return Boolean;
-   --  Implements More_Source_Files and More_Lib_Files.
+   --  Implements More_Source_Files and More_Lib_Files
  
     function Next_Main_File return File_Name_Type;
-   --  Implements Next_Main_Source and Next_Main_Lib_File.
+   --  Implements Next_Main_Source and Next_Main_Lib_File
  
     function Object_File_Name (N : File_Name_Type) return File_Name_Type;
     --  Constructs the name of the object file corresponding to library
diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb

index f4cec924b7eed0c269877f6d97e79519e0c474c7..0985743c8e3850afd4f8a8760824adecc1ab45f8 100644 (file)
--- a/gcc/ada/output.adb
+++ b/gcc/ada/output.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2003, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -63,7 +63,7 @@ package body Output is
     --  will be silently ignored.
  
     Next_Column : Pos range 1 .. Buffer'Length + 1 := 1;
-   --  Column about to be written.
+   --  Column about to be written
  
     -----------------------
     -- Local_Subprograms --
diff --git a/gcc/ada/par-ch11.adb b/gcc/ada/par-ch11.adb

index 418e9d9cdbb37369860be64249ae753c6f0e39bb..1dfbfdb36f9129ab94e9260f7d89b00dde28c1f7 100644 (file)
--- a/gcc/ada/par-ch11.adb
+++ b/gcc/ada/par-ch11.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb

index 410ce9a1f0adf183c26d70dcabd463b8fa400899..49e18de7e525c657a72c8ab4a86e11d09393c386 100644 (file)
--- a/gcc/ada/par-ch12.adb
+++ b/gcc/ada/par-ch12.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -903,7 +903,7 @@ package body Ch12 is
     --  The caller has checked that the initial tokens are WITH FUNCTION or
     --  WITH PROCEDURE, and the initial WITH has been scanned out.
  
-   --  A null default is an Ada 2005 feature.
+   --  A null default is an Ada 2005 feature
  
     --  Error recovery: cannot raise Error_Resync
  
diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb

index b552f8119009b003228311fa6b3e8630dad95421..e2863bf332a937ea887c03ff5bae6183f05b5d15 100644 (file)
--- a/gcc/ada/par-ch2.adb
+++ b/gcc/ada/par-ch2.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb

index 5d1d4edcecff9678fb75727c51310187ef72fa9c..d9cc0bf21e490593bc89db7827bad68ff70e52ae 100644 (file)
--- a/gcc/ada/par-ch4.adb
+++ b/gcc/ada/par-ch4.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -507,7 +507,7 @@ package body Ch4 is
  
           --   (discrete_range)
  
-         --      This is a slice. This case is handled in LP_State_Init.
+         --      This is a slice. This case is handled in LP_State_Init
  
           --   (expression, expression, ..)
  
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb

index d84e37735bc6028ed4eddb240c009a3402ee6245..17c546de144fc8cb08c5efcdf46b30921878ac16 100644 (file)
--- a/gcc/ada/par-ch5.adb
+++ b/gcc/ada/par-ch5.adb
@@ -1671,7 +1671,7 @@ package body Ch5 is
  
     --  This function parses a block statement with DECLARE present
  
-   --  The caller has checked that the initial token is DECLARE.
+   --  The caller has checked that the initial token is DECLARE
  
     --  Error recovery: cannot raise Error_Resync
  
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb

index 69960071e8566fb8859d87431dcd74a8a4751887..72855f90e7af5b40bffacebe67bfd8f08ed49667 100644 (file)
--- a/gcc/ada/par-ch6.adb
+++ b/gcc/ada/par-ch6.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -171,7 +171,7 @@ package body Ch6 is
        Scope.Table (Scope.Last).Ecol := Start_Column;
        Scope.Table (Scope.Last).Lreq := False;
  
-      --  Ada2005: scan leading overriding indicator.
+      --  Ada2005: scan leading overriding indicator
  
        if Token = Tok_Not then
           Scan;  -- past NOT
diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb

index 57ba12402bad98065ded984e7f8a76a910da8c3b..0edc4449f262c5442afd79c94efd7d3a92cfa7a8 100644 (file)
--- a/gcc/ada/par-ch9.adb
+++ b/gcc/ada/par-ch9.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -25,8 +25,8 @@
  ------------------------------------------------------------------------------
  
  pragma Style_Checks (All_Checks);
---  Turn off subprogram body ordering check. Subprograms are in order
---  by RM section rather than alphabetical
+--  Turn off subprogram body ordering check. Subprograms are in order by RM
+--  section rather than alphabetical.
  
  separate (Par)
  package body Ch9 is
@@ -768,7 +768,7 @@ package body Ch9 is
        Not_Overriding : Boolean := False;
  
     begin
-      --  Ada 2005 (AI-397): Scan leading overriding indicator.
+      --  Ada 2005 (AI-397): Scan leading overriding indicator
  
        if Token = Tok_Not then
           Scan;  -- past NOT
@@ -1357,7 +1357,7 @@ package body Ch9 is
              elsif Nkind (Ecall_Node) = N_Identifier
                or else Nkind (Ecall_Node) = N_Selected_Component
              then
-               --  Case of a call to a parameterless entry.
+               --  Case of a call to a parameterless entry
  
                 declare
                    C_Node : constant Node_Id :=
diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb

index be508c7fbe927e7584e3f40307e0368338cf8e2f..c58b0d2e0a7d10318d111e0f44e1987fc92be3f4 100644 (file)
--- a/gcc/ada/par-endh.adb
+++ b/gcc/ada/par-endh.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2002, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -87,7 +87,7 @@ package body Endh is
     --  child unit or a node with a Chars field identifying the actual label.
  
     End_Labl_Present : Boolean;
-   --  Indicates that the value in End_Labl was for an explicit label.
+   --  Indicates that the value in End_Labl was for an explicit label
  
     Syntax_OK : Boolean;
     --  Set True if the entry is syntactically correct
diff --git a/gcc/ada/par-labl.adb b/gcc/ada/par-labl.adb

index 80e6292b42b6e1c31cf08adbe4e5a1788086eca0..a908c8116e330df8021ee8eee367b91103f793d6 100644 (file)
--- a/gcc/ada/par-labl.adb
+++ b/gcc/ada/par-labl.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2004, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -42,10 +42,10 @@ procedure Labl is
     --  Next label node to process
  
     function Find_Enclosing_Body_Or_Block (N : Node_Id) return Node_Id;
-   --  Find the innermost body or block that encloses N.
+   --  Find the innermost body or block that encloses N
  
     function Find_Enclosing_Body (N : Node_Id) return Node_Id;
-   --  Find the innermost body that encloses N.
+   --  Find the innermost body that encloses N
  
     procedure Check_Distinct_Labels;
     --  Checks the rule in RM-5.1(11), which requires distinct identifiers
@@ -134,7 +134,7 @@ procedure Labl is
        Result : Node_Id := Parent (N);
  
     begin
-      --  Climb up the parent chain until we find a body or block.
+      --  Climb up the parent chain until we find a body or block
  
        while Present (Result)
          and then Nkind (Result) /= N_Accept_Statement
@@ -160,7 +160,7 @@ procedure Labl is
        Succ      : Elmt_Id;
  
        function Goto_Id (Goto_Node : Node_Id) return Name_Id;
-      --  Find Name_Id of goto statement, which may be an expanded name.
+      --  Find Name_Id of goto statement, which may be an expanded name
  
        function Matches
          (Label_Node : Node_Id;
diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb

index 0f5674b70d960af17042d8d203aa62f85979d243..13c66a78be6f5a067039734e21bb966a70d74937 100644 (file)
--- a/gcc/ada/par-load.adb
+++ b/gcc/ada/par-load.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb

index 94447fb078dafec86fd757eb99fbd57f9aca5400..ab87e88f80092aeda5e435dc781fcea16d41b25c 100644 (file)
--- a/gcc/ada/par-tchk.adb
+++ b/gcc/ada/par-tchk.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  Token scan routines.
+--  Token scan routines
  
  --  Error recovery: none of the T_xxx or TF_xxx routines raise Error_Resync
  
@@ -801,7 +801,7 @@ package body Tchk is
        M : String (1 .. Missing'Length + Tok_Name'Length);
  
     begin
-      --  Set M to Missing & Tok_Name.
+      --  Set M to Missing & Tok_Name
  
        M (1 .. Missing'Length) := Missing;
        M (Missing'Length + 1 .. M'Last) := Tok_Name;
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb

index 86fa50fe8c19c8d825444e7d32d08eb33a66cdfb..ddaae254f8357c3c018602cec62e23f4fd5b236b 100644 (file)
--- a/gcc/ada/par.adb
+++ b/gcc/ada/par.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -94,7 +94,7 @@ is
     --  an entry in the scope stack, invalidating the contents of the stack.
  
     Error_Resync : exception;
-   --  Exception raised on error that is not handled locally, see above.
+   --  Exception raised on error that is not handled locally, see above
  
     Last_Resync_Point : Source_Ptr;
     --  The resynchronization routines in Par.Sync run a risk of getting
diff --git a/gcc/ada/par.ads b/gcc/ada/par.ads

index 36e265aa3f002d6601357fc016c0b3e498896da0..f610ef0caef184795934f216e3bcc9702f9fbf14 100644 (file)
--- a/gcc/ada/par.ads
+++ b/gcc/ada/par.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/prep.adb b/gcc/ada/prep.adb

index bbfb5b723e5c4abe86e74eb77a0b2527736c0967..b2ec857b96d30fd319cc8c9b12000810a6e0a47b 100644 (file)
--- a/gcc/ada/prep.adb
+++ b/gcc/ada/prep.adb
@@ -128,7 +128,7 @@ package body Prep is
     -- Behaviour --
     ---------------
  
-   --  Accesses to procedure specified by procedure Initialize.
+   --  Accesses to procedure specified by procedure Initialize
  
     Error_Msg : Error_Msg_Proc;
     --  Report an error
@@ -159,7 +159,7 @@ package body Prep is
        --  Used to detect multiple #else.
  
        Deleting : Boolean;
-      --  Set to True when the code should be deleted or commented out.
+      --  Set to True when the code should be deleted or commented out
  
        Match_Seen : Boolean;
        --  Set to True when a condition in an #if or an #elsif is True.
@@ -276,8 +276,7 @@ package body Prep is
           then
              for J in Index + 1 .. Definition'Last loop
                 case Definition (J) is
-                  when '_' | '.' | '0' .. '9' |
-                    'a' .. 'z' | 'A' .. 'Z' =>
+                  when '_' | '.' | '0' .. '9' | 'a' .. 'z' | 'A' .. 'Z' =>
                       null;
  
                    when others =>
@@ -336,8 +335,7 @@ package body Prep is
        --  Put the symbol name in the result
  
        declare
-         Sym : constant String :=
-           Name_Buffer (1 .. Name_Len);
+         Sym : constant String := Name_Buffer (1 .. Name_Len);
  
        begin
           for Index in 1 .. Name_Len loop
@@ -374,13 +372,13 @@ package body Prep is
     ----------------
  
     function Expression (Evaluate_It : Boolean) return Boolean is
-      Evaluation       : Boolean := Evaluate_It;
+      Evaluation : Boolean := Evaluate_It;
        --  Is set to False after an "or else" when left term is True and
        --  after an "and then" when left term is False.
  
-      Final_Result     : Boolean := False;
+      Final_Result : Boolean := False;
  
-      Current_Result   : Boolean := False;
+      Current_Result : Boolean := False;
        --  Value of a term
  
        Current_Operator : Operator := None;
@@ -430,6 +428,7 @@ package body Prep is
                 Scan.all;
  
                 if Token = Tok_Apostrophe then
+
                    --  symbol'Defined
  
                    Scan.all;
@@ -690,9 +689,9 @@ package body Prep is
  
        procedure Output_Line (From, To : Source_Ptr);
        --  Output a line or the end of a line from the buffer to the output
-      --  file, followed by an end of line terminator.
-      --  Depending on the value of Deleting and the switches, the line
-      --  may be commented out, blank or not output at all.
+      --  file, followed by an end of line terminator. Depending on the value
+      --  of Deleting and the switches, the line may be commented out, blank or
+      --  not output at all.
  
        ------------
        -- Output --
@@ -739,13 +738,12 @@ package body Prep is
     begin
        Start_Of_Processing := Scan_Ptr;
  
-      --  We need to call Scan for the first time, because Initialyze_Scanner
+      --  We need to call Scan for the first time, because Initialize_Scanner
        --  is no longer doing it.
  
        Scan.all;
  
-      Input_Line_Loop :
-      loop
+      Input_Line_Loop : loop
           exit Input_Line_Loop when Token = Tok_EOF;
  
           Preprocessor_Line := False;
@@ -760,9 +758,9 @@ package body Prep is
  
                    case Token is
  
-                     when Tok_If =>
-                        --  #if
+                     --  #if
  
+                     when Tok_If =>
                          declare
                             If_Ptr : constant Source_Ptr := Token_Ptr;
  
@@ -806,9 +804,9 @@ package body Prep is
                             end;
                          end;
  
-                     when Tok_Elsif =>
-                        --  #elsif
+                     --  #elsif
  
+                     when Tok_Elsif =>
                          Cond := False;
  
                          if Pp_States.Last = 0
@@ -860,9 +858,9 @@ package body Prep is
                             end if;
                          end if;
  
-                     when Tok_Else =>
-                        --  #else
+                     --  #else
  
+                     when Tok_Else =>
                          if Pp_States.Last = 0 then
                             Error_Msg ("no IF for this ELSE", Token_Ptr);
  
@@ -906,9 +904,9 @@ package body Prep is
                             Go_To_End_Of_Line;
                          end if;
  
-                     when Tok_End =>
-                        --  #end if;
+                     --  #end if;
  
+                     when Tok_End =>
                          if Pp_States.Last = 0 then
                             Error_Msg ("no IF for this END", Token_Ptr);
                          end if;
@@ -944,15 +942,15 @@ package body Prep is
  
                          Go_To_End_Of_Line;
  
-                        --  Decrement the depth of the #if stack.
+                        --  Decrement the depth of the #if stack
  
                          if Pp_States.Last > 0 then
                             Pp_States.Decrement_Last;
                          end if;
  
-                     when others =>
-                        --  Illegal preprocessor line
+                     --  Illegal preprocessor line
  
+                     when others =>
                          if Pp_States.Last = 0 then
                             Error_Msg ("IF expected", Token_Ptr);
  
@@ -990,8 +988,8 @@ package body Prep is
                         and then Special_Character = '$'
                       then
                          declare
-                           Dollar_Ptr   : constant Source_Ptr := Token_Ptr;
-                           Symbol       : Symbol_Id;
+                           Dollar_Ptr : constant Source_Ptr := Token_Ptr;
+                           Symbol     : Symbol_Id;
  
                          begin
                             Scan.all;
@@ -1004,8 +1002,7 @@ package body Prep is
  
                                Symbol := Index_Of (Token_Name);
  
-                              --  If there is such a symbol, replace it by its
-                              --  value.
+                              --  If symbol exists, replace by its value
  
                                if Symbol /= No_Symbol then
                                   Output (Start_Of_Processing, Dollar_Ptr - 1);
@@ -1070,15 +1067,13 @@ package body Prep is
                    and then Sinput.Source (Token_Ptr + 1) = ASCII.LF)
              then
                 Start_Of_Processing := Token_Ptr + 2;
-
              else
                 Start_Of_Processing := Token_Ptr + 1;
              end if;
           end if;
  
-         --  Now, we scan the first token of the next line.
-         --  If the token is EOF, the scan ponter will not move, and the token
-         --  will still be EOF.
+         --  Now, scan the first token of the next line. If the token is EOF,
+         --  the scan ponter will not move, and the token will still be EOF.
  
           Set_Ignore_Errors (To => True);
           Scan.all;
diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb

index 05773daa66cb126430ca0b2c5c507e028f838b98..e81c9763648dfab888ac10d6835c5936b4da1657 100644 (file)
--- a/gcc/ada/prepcomp.adb
+++ b/gcc/ada/prepcomp.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003, Free Software Foundation, Inc.              --
+--          Copyright (C) 2003-2005, 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- --
@@ -135,6 +135,7 @@ package body Prepcomp is
  
     procedure Add_Command_Line_Symbols is
        Symbol_Id : Prep.Symbol_Id;
+
     begin
        for J in 1 .. Symbol_Table.Last (Command_Line_Symbols) loop
           Symbol_Id := Prep.Index_Of (Command_Line_Symbols.Table (J).Symbol);
@@ -225,11 +226,11 @@ package body Prepcomp is
     ------------------------------
  
     procedure Parse_Preprocessing_Data_File (N : File_Name_Type) is
-      OK : Boolean := False;
+      OK            : Boolean := False;
        Dash_Location : Source_Ptr;
-      Symbol_Data : Prep.Symbol_Data;
-      Symbol_Id   : Prep.Symbol_Id;
-      T : constant Nat := Total_Errors_Detected;
+      Symbol_Data   : Prep.Symbol_Data;
+      Symbol_Id     : Prep.Symbol_Id;
+      T             : constant Nat := Total_Errors_Detected;
  
     begin
        --  Load the preprocessing data file
@@ -246,13 +247,13 @@ package body Prepcomp is
        end if;
  
        --  Initialize the sanner and set its behavior for a processing data file
+
        Scn.Scanner.Initialize_Scanner
          (No_Unit, Source_Index_Of_Preproc_Data_File);
        Scn.Scanner.Set_End_Of_Line_As_Token (True);
        Scn.Scanner.Reset_Special_Characters;
  
-      For_Each_Line :
-      loop
+      For_Each_Line : loop
           <<Scan_Line>>
           Scan;
  
@@ -340,7 +341,6 @@ package body Prepcomp is
           --  Check the switches that may follow
  
           while Token /= Tok_End_Of_Line and then Token /= Tok_EOF loop
-
              if Token /= Tok_Minus then
                 Error_Msg ("`'-` expected", Token_Ptr);
                 Skip_To_End_Of_Line;
@@ -508,7 +508,7 @@ package body Prepcomp is
  
                          Symbol_Id := Prep.Index_Of (Symbol_Data.Symbol);
  
-                        --  Otherwise, add a new entry in the table.
+                        --  Otherwise, add a new entry in the table
  
                          if Symbol_Id = No_Symbol then
                             Symbol_Table.Increment_Last (Prep.Mapping);
@@ -635,6 +635,7 @@ package body Prepcomp is
        --  If not already done it, process the definition file
  
        if Current_Data.Processed then
+
           --  Set Prep.Mapping
  
           Prep.Mapping := Current_Data.Mapping;
diff --git a/gcc/ada/prepcomp.ads b/gcc/ada/prepcomp.ads

index 3e53e0dee27d2fe734e316f9ca0eb9236faf81a5..9c74df8c592edc9fd6f4ea1f5f8538b16771c915 100644 (file)
--- a/gcc/ada/prepcomp.ads
+++ b/gcc/ada/prepcomp.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2002-2003, Free Software Foundation, Inc.         --
+--          Copyright (C) 2002-2005, 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- --
@@ -46,7 +46,7 @@ package Prepcomp is
     --  Parse_Preprocessing_Data_File should be called instead.
  
     procedure Parse_Preprocessing_Data_File (N : File_Name_Type);
-   --  Parse a preprocessing data file, specified with a -gnatep= switch.
+   --  Parse a preprocessing data file, specified with a -gnatep= switch
  
     procedure Prepare_To_Preprocess
       (Source               : File_Name_Type;
diff --git a/gcc/ada/prj-attr-pm.ads b/gcc/ada/prj-attr-pm.ads

index 695e17fed24bbd520dfbc75eb012b92a458618a5..36ad40f70522a076d2b49ad861c3bab071a2e726 100644 (file)
--- a/gcc/ada/prj-attr-pm.ads
+++ b/gcc/ada/prj-attr-pm.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2005 Free Software Foundation, Inc.            --
+--            Copyright (C) 2005, 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,9 +24,15 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
+--  This package contains insecure procedures that are intended to be used
+--  only inside the Prj and MLib hierarchies. It should not be imported by
+--  other tools, such as GPS.
+
  package Prj.Attr.PM is
+
     --  The following procedures are not secure and should only be used by the
     --  Project Manager, that is the packages of the Prj or MLib hierarchies.
+   --  What does "not secure" mean???
  
     procedure Add_Unknown_Package (Name : Name_Id; Id : out Package_Node_Id);
     --  Add a new unknown package. The Name cannot be the name of a predefined
diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads

index 142be80fd97a23282f7f0e25a4239cc62aed3b7d..df964044ea8b532ef15fb1c75a39b793c20d55b2 100644 (file)
--- a/gcc/ada/prj-attr.ads
+++ b/gcc/ada/prj-attr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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- --
@@ -26,7 +26,8 @@
  
  --  This package defines packages and attributes in GNAT project files.
  --  There are predefined packages and attributes.
---  It is also possible to define new packages with their attributes.
+
+--  It is also possible to define new packages with their attributes
  
  with Table;
  
diff --git a/gcc/ada/prj-com.ads b/gcc/ada/prj-com.ads

index 7cf50116d627ed5e25500161950d555372085832..c7a96aa04c62edbe4810fd023faa8d705883cdd1 100644 (file)
--- a/gcc/ada/prj-com.ads
+++ b/gcc/ada/prj-com.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2000-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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- --
@@ -27,6 +27,8 @@
  --  The following package declares data types for GNAT project.
  --  These data types are used in the bodies of the Prj hierarchy.
  
+--  Above comment seems *far* too general ???
+
  with Osint;
  
  package Prj.Com is
diff --git a/gcc/ada/prj-dect.adb b/gcc/ada/prj-dect.adb

index 00922b31b9f33cf24ad18b4cc126c69ba679b5bb..162db134807dcd2a8c44fb251390bf20b4c103b4 100644 (file)
--- a/gcc/ada/prj-dect.adb
+++ b/gcc/ada/prj-dect.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 2001-2005 Free Software Foundation, Inc          --
+--          Copyright (C) 2001-2005, 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- --
@@ -49,7 +49,7 @@ package body Prj.Dect is
        Current_Project   : Project_Node_Id;
        Current_Package   : Project_Node_Id;
        Packages_To_Check : String_List_Access);
-   --  Parse an attribute declaration.
+   --  Parse an attribute declaration
  
     procedure Parse_Case_Construction
       (In_Tree           : Project_Node_Tree_Ref;
diff --git a/gcc/ada/prj-dect.ads b/gcc/ada/prj-dect.ads

index e8233e34ade9b39da7ea286d9a26f3553a188bd8..4cffb574939972b8a1f028116a9faf6ea3af83cc 100644 (file)
--- a/gcc/ada/prj-dect.ads
+++ b/gcc/ada/prj-dect.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads

index 76e85aeceea1776b66a7f86d15a6d69a84e779f6..59d2cfc0f679bad4d05d8d7972ae997b5d97f40d 100644 (file)
--- a/gcc/ada/prj-env.ads
+++ b/gcc/ada/prj-env.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc        --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/prj-err.ads b/gcc/ada/prj-err.ads

index 57d33f9be66904a977bff1ff6ec30ac49688021b..ba528f1f99a25258cc285b6261bebfbd24f7c171 100644 (file)
--- a/gcc/ada/prj-err.ads
+++ b/gcc/ada/prj-err.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2002-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2002-2005, 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,12 +24,11 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This package contains the routines to output error messages and the
---  scanner for the project files. It replaces Errout and Scn.
---  It is not dependent on the GNAT tree packages (Atree, Sinfo, ...).
---  It uses the same global variables as Errout, located in package
---  Err_Vars. Like Errout, it also uses the common variables and routines
---  in package Erroutc.
+--  This package contains the routines to output error messages and the scanner
+--  for the project files. It replaces Errout and Scn. It is not dependent on
+--  the GNAT tree packages (Atree, Sinfo, ...). It uses exactly the same global
+--  variables as Errout, located in package Err_Vars. Like Errout, it also uses
+--  the common variables and routines in package Erroutc.
  
  with Scng;
  with Errutil;
@@ -63,10 +62,10 @@ package Prj.Err is
  
     procedure Error_Msg (Msg : String; Flag_Location : Source_Ptr)
       renames Errutil.Error_Msg;
-   --  Output a message at specified location.
+   --  Output a message at specified location
  
     procedure Error_Msg_S (Msg : String) renames Errutil.Error_Msg_S;
-   --  Output a message at current scan pointer location.
+   --  Output a message at current scan pointer location
  
     procedure Error_Msg_SC (Msg : String) renames Errutil.Error_Msg_SC;
     --  Output a message at the start of the current token, unless we are at
@@ -74,7 +73,7 @@ package Prj.Err is
     --  last real token in the file.
  
     procedure Error_Msg_SP (Msg : String) renames Errutil.Error_Msg_SP;
-   --  Output a message at the start of the previous token.
+   --  Output a message at the start of the previous token
  
     -------------
     -- Scanner --
diff --git a/gcc/ada/prj-ext.ads b/gcc/ada/prj-ext.ads

index e6e7188dfad2f911ae399897ee1d3383f97efc86..c0114ce2e081cab6b67059bb8c03a6980678c21d 100644 (file)
--- a/gcc/ada/prj-ext.ads
+++ b/gcc/ada/prj-ext.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2000-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2000-2005, 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- --
@@ -42,13 +42,13 @@ package Prj.Ext is
     procedure Add
       (External_Name : String;
        Value         : String);
-   --  Add an external reference (or modify an existing one).
+   --  Add an external reference (or modify an existing one)
  
     function Value_Of
       (External_Name : Name_Id;
        With_Default  : Name_Id := No_Name)
        return          Name_Id;
-   --  Get the value of an external reference, and cache it for future uses.
+   --  Get the value of an external reference, and cache it for future uses
  
     function Check (Declaration : String) return Boolean;
     --  Check that an external declaration <external>=<value> is correct.
diff --git a/gcc/ada/prj-makr.adb b/gcc/ada/prj-makr.adb

index 569c85dccebb0b7499c046a2ade59aa4d66c8658..57334e4005638aec55ffe9f0ba86598ec1ab54f2 100644 (file)
--- a/gcc/ada/prj-makr.adb
+++ b/gcc/ada/prj-makr.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2001-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/prj-makr.ads b/gcc/ada/prj-makr.ads

index 3947e89181915fe09b2c765393cb639d4f04f5f4..4bb0ead30c4f84e3f9db9b046322a661212ff3e4 100644 (file)
--- a/gcc/ada/prj-makr.ads
+++ b/gcc/ada/prj-makr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  Support for procedure Gnatname.
+--  Support for procedure Gnatname
  
  --  For arbitrary naming schemes, create or update a project file,
  --  or create a configuration pragmas file.
diff --git a/gcc/ada/prj-nmsc.ads b/gcc/ada/prj-nmsc.ads

index 8298bb63545331070c5d8f98329e91635c3dbbb0..ae05c5f0174b907174354d8ba255857e4b03c1e1 100644 (file)
--- a/gcc/ada/prj-nmsc.ads
+++ b/gcc/ada/prj-nmsc.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2000-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2000-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  Check the Naming Scheme of a project file, find the source files.
+--  Check the Naming Scheme of a project file, find the source files
  
  private package Prj.Nmsc is
  
diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb

index b0b52d65f34f2cf6bd7f8e50cdf92ca96c231067..4f4b9043c577fd4be513cc7b236b2904b61e582b 100644 (file)
--- a/gcc/ada/prj-pars.adb
+++ b/gcc/ada/prj-pars.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/prj-pars.ads b/gcc/ada/prj-pars.ads

index 15a17be3b456334584006c8c962363b4336ba0c5..d94b0720f246c2f830c52bfc15ccb374934a4eef 100644 (file)
--- a/gcc/ada/prj-pars.ads
+++ b/gcc/ada/prj-pars.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2000-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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- --
diff --git a/gcc/ada/prj-part.ads b/gcc/ada/prj-part.ads

index 861ec3ca37af9db998a9147dda88c226a17bbeb2..38f8d8130a2ccc6092f7e2af20dfa83da33d91b2 100644 (file)
--- a/gcc/ada/prj-part.ads
+++ b/gcc/ada/prj-part.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2000-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  Implements the parsing of project files into a tree.
+--  Implements the parsing of project files into a tree
  
  with Prj.Tree;  use Prj.Tree;
  
diff --git a/gcc/ada/prj-pp.ads b/gcc/ada/prj-pp.ads

index 7c4a4acafde79239bee3560b2503f218606897ac..806eb9c6ea3449fc980bf53a868cc1c3157efe07 100644 (file)
--- a/gcc/ada/prj-pp.ads
+++ b/gcc/ada/prj-pp.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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,19 +24,19 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This package is the Project File Pretty Printer.
---  It is used to output a project file from a project file tree.
---  It is used by gnatname to update or create project files.
---  It is also used GPS to display project file trees.
---  It can also be used for debugging purposes for tools that create project
---  file trees.
+--  This package is the Project File Pretty Printer
+
+--    Used to output a project file from a project file tree.
+--    Used by gnatname to update or create project files.
+--    Also used GPS to display project file trees.
+--    Also be used for debugging tools that create project file trees.
  
  with Prj.Tree;
  
  package Prj.PP is
  
-   --  The following access to procedure types are used
-   --  to redirect output when calling Pretty_Print.
+   --  The following access to procedure types are used to redirect output when
+   --  calling Pretty_Print.
  
     type Write_Char_Ap is access procedure (C : Character);
  
@@ -54,8 +54,8 @@ package Prj.PP is
        W_Eol                              : Write_Eol_Ap  := null;
        W_Str                              : Write_Str_Ap  := null;
        Backward_Compatibility             : Boolean);
-   --  Output a project file, using either the default output
-   --  routines, or the ones specified by W_Char, W_Eol and W_Str.
+   --  Output a project file, using either the default output routines, or the
+   --  ones specified by W_Char, W_Eol and W_Str.
     --
     --  Increment is the number of spaces for each indentation level.
     --
@@ -65,10 +65,10 @@ package Prj.PP is
     --  If Eliminate_Empty_Case_Constructions is True, then case constructions
     --  and case items that do not include any declarations will not be output.
     --
-   --  If Minimize_Empty_Lines is True, empty lines will be output only
-   --  after the last with clause, after the line declaring the project name,
-   --  after the last declarative item of the project and before each
-   --  package declaration. Otherwise, more empty lines are output.
+   --  If Minimize_Empty_Lines is True, empty lines will be output only after
+   --  the last with clause, after the line declaring the project name, after
+   --  the last declarative item of the project and before each package
+   --  declaration. Otherwise, more empty lines are output.
     --
     --  If Backward_Compatibility is True, then new attributes (Spec,
     --  Spec_Suffix, Body, Body_Suffix) will be replaced by obsolete ones
@@ -78,8 +78,8 @@ package Prj.PP is
  private
  
     procedure Output_Statistics;
-   --  This procedure can be used after one or more calls to Pretty_Print
-   --  to display what Project_Node_Kinds have not been exercised by the
-   --  call(s) to Pretty_Print. It is used only for testing purposes.
+   --  This procedure can be used after one or more calls to Pretty_Print to
+   --  display what Project_Node_Kinds have not been exercised by the call(s)
+   --  to Pretty_Print. It is used only for testing purposes.
  
  end Prj.PP;
diff --git a/gcc/ada/prj-proc.ads b/gcc/ada/prj-proc.ads

index e0ab87dd4adaf517428bb3ee7b4f11352fd3620c..a94137542e28c54f0fb5255ac0d7e57b2bb552b3 100644 (file)
--- a/gcc/ada/prj-proc.ads
+++ b/gcc/ada/prj-proc.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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- --
@@ -25,8 +25,8 @@
  ------------------------------------------------------------------------------
  
  --  This package is used to convert a project file tree (see prj-tree.ads) to
---  project file data structures (see prj.ads), taking into account
---  the environment (external references).
+--  project file data structures (see prj.ads), taking into account the
+--  environment (external references).
  
  with Prj.Tree;  use Prj.Tree;
  
@@ -40,9 +40,9 @@ package Prj.Proc is
        From_Project_Node_Tree : Project_Node_Tree_Ref;
        Report_Error           : Put_Line_Access;
        Follow_Links           : Boolean := True);
-   --  Process a project file tree into project file data structures.
-   --  If Report_Error is null, use the error reporting mechanism.
-   --  Otherwise, report errors using Report_Error.
+   --  Process a project file tree into project file data structures. If
+   --  Report_Error is null, use the error reporting mechanism. Otherwise,
+   --  report errors using Report_Error.
     --
     --  If Follow_Links is False, it is assumed that the project doesn't contain
     --  any file duplicated through symbolic links (although the latter are
diff --git a/gcc/ada/prj-strt.adb b/gcc/ada/prj-strt.adb

index d3615d144806d34b1d78a3a723571b894b7c17a7..b1388079719527156d316c7cf3dfbc66fff6a74f 100644 (file)
--- a/gcc/ada/prj-strt.adb
+++ b/gcc/ada/prj-strt.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2001-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2001-2005, 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,13 +24,13 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
-with Err_Vars;  use Err_Vars;
-with Namet;     use Namet;
-with Prj.Attr;  use Prj.Attr;
-with Prj.Err;   use Prj.Err;
+with Err_Vars; use Err_Vars;
+with Namet;    use Namet;
+with Prj.Attr; use Prj.Attr;
+with Prj.Err;  use Prj.Err;
  with Snames;
  with Table;
-with Uintp;     use Uintp;
+with Uintp;    use Uintp;
  
  package body Prj.Strt is
  
@@ -64,7 +64,7 @@ package body Prj.Strt is
                         Table_Initial        => Choices_Initial,
                         Table_Increment      => Choices_Increment,
                         Table_Name           => "Prj.Strt.Choices");
-   --  Used to store the case labels and check that there is no duplicate.
+   --  Used to store the case labels and check that there is no duplicate
  
     package Choice_Lasts is
        new Table.Table (Table_Component_Type => Choice_Node_Id,
@@ -107,7 +107,7 @@ package body Prj.Strt is
        Current_Project : Project_Node_Id;
        Current_Package : Project_Node_Id;
        External_Value  : out Project_Node_Id);
-   --  Parse an external reference. Current token is "external".
+   --  Parse an external reference. Current token is "external"
  
     procedure Attribute_Reference
       (In_Tree         : Project_Node_Tree_Ref;
@@ -115,7 +115,7 @@ package body Prj.Strt is
        First_Attribute : Attribute_Node_Id;
        Current_Project : Project_Node_Id;
        Current_Package : Project_Node_Id);
-   --  Parse an attribute reference. Current token is an apostrophe.
+   --  Parse an attribute reference. Current token is an apostrophe
  
     procedure Terms
       (In_Tree         : Project_Node_Tree_Ref;
diff --git a/gcc/ada/prj-strt.ads b/gcc/ada/prj-strt.ads

index a1575b807ce88d137fab986aa0588655c694ae49..74dc37457feefb7d7cd4c0479e91e79d9bbbae79 100644 (file)
--- a/gcc/ada/prj-strt.ads
+++ b/gcc/ada/prj-strt.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This package implements parsing of string expressions in project files.
+--  This package implements parsing of string expressions in project files
  
  with Prj.Tree;  use Prj.Tree;
  
diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb

index 6077d95037d4b471eb7c5c72b0958620107dc48d..016568c749df2a548d9b3925fe9888b718c52581 100644 (file)
--- a/gcc/ada/prj-tree.adb
+++ b/gcc/ada/prj-tree.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb

index 1de7acb4035f297cfd6b1f07d738412421183511..716817d4ef0a0e35b56c4a6cc9f8075b90271a18 100644 (file)
--- a/gcc/ada/prj-util.adb
+++ b/gcc/ada/prj-util.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/prj-util.ads b/gcc/ada/prj-util.ads

index 667fb993c8e412703c022596bd05e41b478ed2d0..5d77678af892ee5b6fbdab1a58f8ab39e506001c 100644 (file)
--- a/gcc/ada/prj-util.ads
+++ b/gcc/ada/prj-util.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---             Copyright (C) 2001-2005 Free Software Foundation, Inc.       --
+--          Copyright (C) 2001-2005, 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- --
@@ -67,9 +67,9 @@ package Prj.Util is
     --  or if In_Array is null.
     --
     --  Depending on the attribute (only attributes may be associative arrays)
-   --  the index may or may not be case sensitive. If the index is not
-   --  case sensitive, it is first set to lower case before the search
-   --  in the associative array.
+   --  the index may or may not be case sensitive. If the index is not case
+   --  sensitive, it is first set to lower case before the search in the
+   --  associative array.
  
     function Value_Of
       (Name                    : Name_Id;
@@ -78,10 +78,9 @@ package Prj.Util is
        In_Package              : Package_Id;
        In_Tree                 : Project_Tree_Ref) return Variable_Value;
     --  In a specific package,
-   --   - if there exists an array Attribute_Or_Array_Name with an index
-   --     Name, returns the corresponding component (depending on the
-   --     attribute, the index may or may not be case sensitive, see previous
-   --     function),
+   --   - if there exists an array Attribute_Or_Array_Name with an index Name,
+   --     returns the corresponding component (depending on the attribute, the
+   --     index may or may not be case sensitive, see previous function),
     --   - otherwise if there is a single attribute Attribute_Or_Array_Name,
     --     returns this attribute,
     --   - otherwise, returns Nil_Variable_Value.
@@ -92,8 +91,8 @@ package Prj.Util is
        In_Array  : Name_Id;
        In_Arrays : Array_Id;
        In_Tree   : Project_Tree_Ref) return Name_Id;
-   --  Get a string array component in an array of an array list.
-   --  Returns No_Name if there is no component Index, if In_Arrays is null, if
+   --  Get a string array component in an array of an array list. Returns
+   --  No_Name if there is no component Index, if In_Arrays is null, if
     --  In_Array is not found in In_Arrays or if the component is a String list.
  
     function Value_Of
@@ -108,8 +107,8 @@ package Prj.Util is
       (Name        : Name_Id;
        In_Packages : Package_Id;
        In_Tree     : Project_Tree_Ref) return Package_Id;
-   --  Returns a specified package in a package list. Returns No_Package
-   --  if In_Packages is null or if Name is not the name of a package in
+   --  Returns a specified package in a package list. Returns No_Package if
+   --  In_Packages is null or if Name is not the name of a package in
     --  Package_List. The caller must ensure that Name is in lower case.
  
     function Value_Of
@@ -129,28 +128,28 @@ package Prj.Util is
     --  the last character of each line, if possible.
  
     type Text_File is limited private;
-   --  Represents a text file. Default is invalid text file.
+   --  Represents a text file. Default is invalid text file
  
     function Is_Valid (File : Text_File) return Boolean;
     --  Returns True if File designates an open text file that
     --  has not yet been closed.
  
     procedure Open (File : out Text_File; Name : String);
-   --  Open a text file. If this procedure fails, File is invalid.
+   --  Open a text file. If this procedure fails, File is invalid
  
     function End_Of_File (File : Text_File) return Boolean;
-   --  Returns True if the end of the text file File has been
-   --  reached. Fails if File is invalid.
+   --  Returns True if the end of the text file File has been reached. Fails if
+   --  File is invalid.
  
     procedure Get_Line
       (File : Text_File;
        Line : out String;
        Last : out Natural);
-   --  Reads a line from an open text file. Fails if File is invalid.
+   --  Reads a line from an open text file. Fails if File is invalid
  
     procedure Close (File : in out Text_File);
-   --  Close an open text file. File becomes invalid.
-   --  Fails if File is already invalid.
+   --  Close an open text file. File becomes invalid. Fails if File is already
+   --  invalid.
  
  private
  
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb

index 494adc8771c304a57fb049fc4546432b27f995b8..f2dd0393b35ea58670a7bf534cb4108d7798ce51 100644 (file)
--- a/gcc/ada/rtsfind.adb
+++ b/gcc/ada/rtsfind.adb
@@ -171,7 +171,7 @@ package body Rtsfind is
     --  is only effective in All_Errors mode.
  
     function RE_Chars (E : RE_Id) return Name_Id;
-   --  Given a RE_Id value returns the Chars of the corresponding entity.
+   --  Given a RE_Id value returns the Chars of the corresponding entity
  
     procedure RTE_Error_Msg (Msg : String);
     --  Generates a message by calling Error_Msg_N specifying Current_Error_Node
@@ -518,7 +518,7 @@ package body Rtsfind is
        --  Indicate those that must be restored.
  
        procedure Restore_Private_Visibility;
-      --  Restore the visibility of ancestors after compiling RTU.
+      --  Restore the visibility of ancestors after compiling RTU
  
        --------------------------------
        -- Restore_Private_Visibility --
diff --git a/gcc/ada/s-gloloc-mingw.adb b/gcc/ada/s-gloloc-mingw.adb

index a6abd4413597c2755a812ca492180f13873d82c8..ce7e4f7857fb24914ce974bdf1a3d1c3dc788eeb 100644 (file)
--- a/gcc/ada/s-gloloc-mingw.adb
+++ b/gcc/ada/s-gloloc-mingw.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1999-2001 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -31,7 +31,7 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
---  This implementation is specific to NT.
+--  This implementation is specific to NT
  
  with GNAT.Task_Lock;
  
diff --git a/gcc/ada/s-imgwch.ads b/gcc/ada/s-imgwch.ads

index dbcfb07cf2fdebca1b64d6b30cd5d298a2f8bfa5..61f4441f53a3d54ea874170f9f5194a820680851 100644 (file)
--- a/gcc/ada/s-imgwch.ads
+++ b/gcc/ada/s-imgwch.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-imgwiu.adb b/gcc/ada/s-imgwiu.adb

index 8aee7fd9f3b58c885a2f73a6c661127e5ce6e160..845cca51ad08c6bf7b35e9137fca213ba648c5d0 100644 (file)
--- a/gcc/ada/s-imgwiu.adb
+++ b/gcc/ada/s-imgwiu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-imgwiu.ads b/gcc/ada/s-imgwiu.ads

index 8b53da8e155fd33bdd892fcc54cc0c08fa42c0fd..2b690aa2dfff70339215267dd1e48c9025fd2209 100644 (file)
--- a/gcc/ada/s-imgwiu.ads
+++ b/gcc/ada/s-imgwiu.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-inmaop-dummy.adb b/gcc/ada/s-inmaop-dummy.adb

index 72848ee0c21ff0bd08deaeef61bf4fd05473574a..edd636ed077d8f4313736c1f9b5b0d4656dbf9f1 100644 (file)
--- a/gcc/ada/s-inmaop-dummy.adb
+++ b/gcc/ada/s-inmaop-dummy.adb
@@ -2,12 +2,11 @@
  --                                                                          --
  --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
  --                                                                          --
---          S Y S T E M . I N T E R R U P T _ M A N A G E M E N T .         --
---                            O P E R A T I O N S                           --
+--                  SYSTEM.INTERRUPT_MANAGEMENT.OPERATIONS                  --
  --                                                                          --
  --                                  B o d y                                 --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/s-inmaop-vms.adb b/gcc/ada/s-inmaop-vms.adb

index ba421ec6a0a1a839c948860239f67191e1484893..11db041b5a89319a1d1d113ac6266a52d2d631b6 100644 (file)
--- a/gcc/ada/s-inmaop-vms.adb
+++ b/gcc/ada/s-inmaop-vms.adb
@@ -2,12 +2,11 @@
  --                                                                          --
  --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
  --                                                                          --
---           S Y S T E M . I N T E R R U P T _ M A N A G E M E N T .        --
---                           O P E R A T I O N S                            --
+--                  SYSTEM.INTERRUPT_MANAGEMENT.OPERATIONS                  --
  --                                                                          --
  --                                  B o d y                                 --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/s-inmaop.ads b/gcc/ada/s-inmaop.ads

index 87d82ab62aefeb9821fbd7bdecfcc491fa1ab7ed..0fd1e00612dd8fa294a8419fbb803c11cd9912ae 100644 (file)
--- a/gcc/ada/s-inmaop.ads
+++ b/gcc/ada/s-inmaop.ads
@@ -63,11 +63,11 @@ package System.Interrupt_Management.Operations is
  
     procedure Install_Default_Action (Interrupt : Interrupt_ID);
     pragma Inline (Install_Default_Action);
-   --  Set the sigaction of the Interrupt to default (SIG_DFL).
+   --  Set the sigaction of the Interrupt to default (SIG_DFL)
  
     procedure Install_Ignore_Action (Interrupt : Interrupt_ID);
     pragma Inline (Install_Ignore_Action);
-   --  Set the sigaction of the Interrupt to ignore (SIG_IGN).
+   --  Set the sigaction of the Interrupt to ignore (SIG_IGN)
  
     procedure Fill_Interrupt_Mask (Mask : access Interrupt_Mask);
     pragma Inline (Fill_Interrupt_Mask);
@@ -97,7 +97,7 @@ package System.Interrupt_Management.Operations is
  
     procedure Copy_Interrupt_Mask (X : out Interrupt_Mask; Y : Interrupt_Mask);
     pragma Inline (Copy_Interrupt_Mask);
-   --  Assigment needed for limited private type Interrupt_Mask.
+   --  Assigment needed for limited private type Interrupt_Mask
  
     procedure Interrupt_Self_Process (Interrupt : Interrupt_ID);
     pragma Inline (Interrupt_Self_Process);
@@ -108,18 +108,18 @@ package System.Interrupt_Management.Operations is
     --  This function should be called by the elaboration of System.Interrupt
     --  to set up proper signal masking in all tasks.
  
-   --  The following objects serve as constants, but are initialized
-   --  in the body to aid portability.  These actually belong to the
-   --  System.Interrupt_Management but since Interrupt_Mask is a
-   --  private type we can not have them declared there.
+   --  The following objects serve as constants, but are initialized in the
+   --  body to aid portability. These should be in System.Interrupt_Management
+   --  but since Interrupt_Mask is private type we cannot have them declared
+   --  there.
  
     --  Why not make these deferred constants that are initialized using
     --  function calls in the private part???
  
     Environment_Mask : aliased Interrupt_Mask;
-   --  This mask represents the mask of Environment task when this package
-   --  is being elaborated, except the signals being
-   --  forced to be unmasked by RTS (items in Keep_Unmasked)
+   --  This mask represents the mask of Environment task when this package is
+   --  being elaborated, except the signals being forced to be unmasked by RTS
+   --  (items in Keep_Unmasked)
  
     All_Tasks_Mask : aliased Interrupt_Mask;
     --  This is the mask of all tasks created in RTS. Only one task in RTS
diff --git a/gcc/ada/s-interr-sigaction.adb b/gcc/ada/s-interr-sigaction.adb

index 6b94e95857848245cfeadac63f99d0413839565e..41937db1facb5dc323dc2635b195af4516ae798c 100644 (file)
--- a/gcc/ada/s-interr-sigaction.adb
+++ b/gcc/ada/s-interr-sigaction.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  B o d y                                 --
  --                                                                          --
---              Copyright (C) 1998-2005 Free Software Fundation             --
+--          Copyright (C) 1998-2005, Free Software Fundation                --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/s-mastop-vms.adb b/gcc/ada/s-mastop-vms.adb

index 9e8672850079b15f2eb056d499cae09af6aa6652..ce462cb9a6021ae53248dc86bb2491e44e23c20b 100644 (file)
--- a/gcc/ada/s-mastop-vms.adb
+++ b/gcc/ada/s-mastop-vms.adb
@@ -7,7 +7,7 @@
  --                                 B o d y                                  --
  --                         (Version for Alpha/VMS)                          --
  --                                                                          --
---          Copyright (C) 2001-2005 Ada Core Technologies, Inc.             --
+--                     Copyright (C) 2001-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -43,7 +43,7 @@ package body System.Machine_State_Operations is
  
     subtype Cond_Value_Type is Unsigned_Longword;
  
-   --  Record layouts copied from Starlet.
+   --  Record layouts copied from Starlet
  
     type ICB_Fflags_Bits_Type is record
        Exception_Frame : Boolean;
@@ -94,7 +94,7 @@ package body System.Machine_State_Operations is
  
        Ireg : Unsigned_Quadword_Array (0 .. 30);
        Freg : Unsigned_Quadword_Array (0 .. 30);
-      --  The register contents areas. 31 for scalars, 31 for float.
+      --  The register contents areas. 31 for scalars, 31 for float
  
        System_Defined : Unsigned_Quadword_Array (0 .. 1);
        --  The following is an "internal" area that's reserved for use by
@@ -153,7 +153,7 @@ package body System.Machine_State_Operations is
  
     function Fetch_Code (Loc : Code_Loc) return Code_Loc is
     begin
-      --  The starting address is in the second longword pointed to by Loc.
+      --  The starting address is in the second longword pointed to by Loc
  
        return Fetch (System.Aux_DEC."+" (Loc, 8));
     end Fetch_Code;
diff --git a/gcc/ada/s-osinte-fsu.adb b/gcc/ada/s-osinte-fsu.adb

index b7118750194365e25712d0b97558eb00781cde12..f5ebf934326e0398753a3bca6016f96d0adaade5 100644 (file)
--- a/gcc/ada/s-osinte-fsu.adb
+++ b/gcc/ada/s-osinte-fsu.adb
@@ -250,8 +250,8 @@ package body System.OS_Interface is
  
     --  FSU_THREADS does not have pthread_setschedparam
  
-   --  This routine returns a non-negative value upon failure
-   --  but the error code can not be set conforming the POSIX standard.
+   --  This routine returns a non-negative value upon failure but the error
+   --  code cannot be set conforming the POSIX standard.
  
     function pthread_setschedparam
       (thread : pthread_t;
diff --git a/gcc/ada/s-pack03.adb b/gcc/ada/s-pack03.adb

index 907936f7fd1820a4f838a324454852df18cdddb8..bd517f60d43c008473eb90949f00cc5703c12541 100644 (file)
--- a/gcc/ada/s-pack03.adb
+++ b/gcc/ada/s-pack03.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_03 is
  
     function Get_03 (Arr : System.Address; N : Natural) return Bits_03 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_03 is
  
     procedure Set_03 (Arr : System.Address; N : Natural; E : Bits_03) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack03.ads b/gcc/ada/s-pack03.ads

index 3b03c6ef9c4b48d29f9faf3705975692952ca566..0d6f846a18261710c04b59649e6735eda73deb70 100644 (file)
--- a/gcc/ada/s-pack03.ads
+++ b/gcc/ada/s-pack03.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack05.adb b/gcc/ada/s-pack05.adb

index 0e38569c3ccc4f21de6d5aae5b66b00008c1a7bf..c3008886758a1d3922be12e8f3ec6925cf312f56 100644 (file)
--- a/gcc/ada/s-pack05.adb
+++ b/gcc/ada/s-pack05.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_05 is
  
     function Get_05 (Arr : System.Address; N : Natural) return Bits_05 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_05 is
  
     procedure Set_05 (Arr : System.Address; N : Natural; E : Bits_05) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack05.ads b/gcc/ada/s-pack05.ads

index 2f4fc26a2622ea4108b7c0674dc514055feef7b7..b5267565c3bff1a0511ec339694d9363ef79b614 100644 (file)
--- a/gcc/ada/s-pack05.ads
+++ b/gcc/ada/s-pack05.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack06.adb b/gcc/ada/s-pack06.adb

index 12e9003ac34defc35cbf2067129ffd74277a9522..b8beacc4731e8b0520885bbf2e63713819483e67 100644 (file)
--- a/gcc/ada/s-pack06.adb
+++ b/gcc/ada/s-pack06.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_06 is
  
     function Get_06 (Arr : System.Address; N : Natural) return Bits_06 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_06 is
  
     function GetU_06 (Arr : System.Address; N : Natural) return Bits_06 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
diff --git a/gcc/ada/s-pack06.ads b/gcc/ada/s-pack06.ads

index dcd53abca2a4ff496479a22edc45f287ddba4a59..5c3a410921781955f60ff4fdd4afc8068464716b 100644 (file)
--- a/gcc/ada/s-pack06.ads
+++ b/gcc/ada/s-pack06.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack07.adb b/gcc/ada/s-pack07.adb

index 064d711c1e05c050f5671fad8896a3ba303ef69f..b8f54b0278d138c070a6a344490f91785cb3920b 100644 (file)
--- a/gcc/ada/s-pack07.adb
+++ b/gcc/ada/s-pack07.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_07 is
  
     function Get_07 (Arr : System.Address; N : Natural) return Bits_07 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_07 is
  
     procedure Set_07 (Arr : System.Address; N : Natural; E : Bits_07) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack07.ads b/gcc/ada/s-pack07.ads

index d994b681e98fc5162b264d0eb828ae9a78e8f705..308d3ceda3324953c0d14d2b8a0bc8f7ff1cbfdb 100644 (file)
--- a/gcc/ada/s-pack07.ads
+++ b/gcc/ada/s-pack07.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack09.adb b/gcc/ada/s-pack09.adb

index c3d3de4dcd1a6dcd6b5f921e6476063444cdb8cd..91d4c51e3c913e5c3b1aad212bbad665784e1706 100644 (file)
--- a/gcc/ada/s-pack09.adb
+++ b/gcc/ada/s-pack09.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_09 is
  
     function Get_09 (Arr : System.Address; N : Natural) return Bits_09 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_09 is
  
     procedure Set_09 (Arr : System.Address; N : Natural; E : Bits_09) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack09.ads b/gcc/ada/s-pack09.ads

index 7b4e51ba25583733dea2b7552fd50f5d1a93b92e..c12df55f63e4cf46e274a6fb25005fc6989cab27 100644 (file)
--- a/gcc/ada/s-pack09.ads
+++ b/gcc/ada/s-pack09.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack10.adb b/gcc/ada/s-pack10.adb

index d94a50aec44c9e897beaf0b44b231842d96aa89f..c927e0c2b0399ef245f812e096aae4139d3ace7b 100644 (file)
--- a/gcc/ada/s-pack10.adb
+++ b/gcc/ada/s-pack10.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_10 is
  
     function Get_10 (Arr : System.Address; N : Natural) return Bits_10 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_10 is
  
     function GetU_10 (Arr : System.Address; N : Natural) return Bits_10 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
diff --git a/gcc/ada/s-pack10.ads b/gcc/ada/s-pack10.ads

index f079f7f65c14a2c0e34007581deb8890cb9378e9..6b6904eadc87b695dadf4f62fd8893aa60b3ce80 100644 (file)
--- a/gcc/ada/s-pack10.ads
+++ b/gcc/ada/s-pack10.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack11.adb b/gcc/ada/s-pack11.adb

index c8ea9563543fa5fe5cc55535b75c1bb89e8bce87..caa535aa21e545c8ab7e64e10cc376490b91a47a 100644 (file)
--- a/gcc/ada/s-pack11.adb
+++ b/gcc/ada/s-pack11.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_11 is
  
     function Get_11 (Arr : System.Address; N : Natural) return Bits_11 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_11 is
  
     procedure Set_11 (Arr : System.Address; N : Natural; E : Bits_11) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack11.ads b/gcc/ada/s-pack11.ads

index b8017cfbf4273bee60c412cd0c02ce4e8a5021e7..75dbfb4e9f0fb8f299fb0c1b042b30ada418ed95 100644 (file)
--- a/gcc/ada/s-pack11.ads
+++ b/gcc/ada/s-pack11.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack12.adb b/gcc/ada/s-pack12.adb

index 29faf62e0b87f7ffcba38a9e15abff2472fc5f19..c728be4bf396ba874125d3340fd2b4c3e5c8301d 100644 (file)
--- a/gcc/ada/s-pack12.adb
+++ b/gcc/ada/s-pack12.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_12 is
  
     function Get_12 (Arr : System.Address; N : Natural) return Bits_12 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_12 is
  
     function GetU_12 (Arr : System.Address; N : Natural) return Bits_12 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
diff --git a/gcc/ada/s-pack12.ads b/gcc/ada/s-pack12.ads

index 002bc5182082e3995c0e11ae64a864a0f302ae85..14ee979afc92a877beded6421470c91c5c4fdc27 100644 (file)
--- a/gcc/ada/s-pack12.ads
+++ b/gcc/ada/s-pack12.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack13.adb b/gcc/ada/s-pack13.adb

index 38680363857ecad2f9ebbe11e6aeec666c937281..835c99785e16eb763ef6df57c2eaff0f6268e16a 100644 (file)
--- a/gcc/ada/s-pack13.adb
+++ b/gcc/ada/s-pack13.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_13 is
  
     function Get_13 (Arr : System.Address; N : Natural) return Bits_13 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_13 is
  
     procedure Set_13 (Arr : System.Address; N : Natural; E : Bits_13) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack13.ads b/gcc/ada/s-pack13.ads

index 8022a90b59ddff769fb0cbd15ed002b1d254532f..1e918c8208a9c1dfa2732ecad623729c68a84170 100644 (file)
--- a/gcc/ada/s-pack13.ads
+++ b/gcc/ada/s-pack13.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack14.adb b/gcc/ada/s-pack14.adb

index 2fc3c404fb2583e285e7d68de2876ba9186846f1..6c0fa3fe3307b33db044ea921c2def0e81bd51f9 100644 (file)
--- a/gcc/ada/s-pack14.adb
+++ b/gcc/ada/s-pack14.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_14 is
  
     function Get_14 (Arr : System.Address; N : Natural) return Bits_14 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_14 is
  
     function GetU_14 (Arr : System.Address; N : Natural) return Bits_14 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_14 is
  
     procedure Set_14 (Arr : System.Address; N : Natural; E : Bits_14) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_14 is
  
     procedure SetU_14 (Arr : System.Address; N : Natural; E : Bits_14) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack14.ads b/gcc/ada/s-pack14.ads

index e3744b2f587e3fe84ab5afadb5a69310ec15f429..c8e592f88a7c72be00c13b9cbe144c2b609499fa 100644 (file)
--- a/gcc/ada/s-pack14.ads
+++ b/gcc/ada/s-pack14.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack15.adb b/gcc/ada/s-pack15.adb

index 3212f2de8de7ebd311c5b69dadc8e56ed6ee1bc7..cb545fe1e086735c130b21c6ca9fb80bd5b8f0bc 100644 (file)
--- a/gcc/ada/s-pack15.adb
+++ b/gcc/ada/s-pack15.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_15 is
  
     function Get_15 (Arr : System.Address; N : Natural) return Bits_15 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_15 is
  
     procedure Set_15 (Arr : System.Address; N : Natural; E : Bits_15) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack15.ads b/gcc/ada/s-pack15.ads

index c166f8ab76c2eb412035f9aa7bba69e2b8aae09f..86c13e8caaf7a2b40c64feae766a87522501eb84 100644 (file)
--- a/gcc/ada/s-pack15.ads
+++ b/gcc/ada/s-pack15.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack17.adb b/gcc/ada/s-pack17.adb

index e180609df92433e53fd29d58878ac50c66d9b56b..a5495607773866bd88d6f3909cdfc44b09943602 100644 (file)
--- a/gcc/ada/s-pack17.adb
+++ b/gcc/ada/s-pack17.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_17 is
  
     function Get_17 (Arr : System.Address; N : Natural) return Bits_17 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_17 is
  
     procedure Set_17 (Arr : System.Address; N : Natural; E : Bits_17) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack17.ads b/gcc/ada/s-pack17.ads

index fde3bd17d52637fabb53e4031e0fed2ec2b86c58..f739138ad4b6e21831ed1a828a3f800537f12020 100644 (file)
--- a/gcc/ada/s-pack17.ads
+++ b/gcc/ada/s-pack17.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack18.adb b/gcc/ada/s-pack18.adb

index d0232f08dbd749a526e35843fe447cf895ccccd2..2ddc557934534cee86ca6a15c12a62cdb5227147 100644 (file)
--- a/gcc/ada/s-pack18.adb
+++ b/gcc/ada/s-pack18.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_18 is
  
     function Get_18 (Arr : System.Address; N : Natural) return Bits_18 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_18 is
  
     function GetU_18 (Arr : System.Address; N : Natural) return Bits_18 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_18 is
  
     procedure Set_18 (Arr : System.Address; N : Natural; E : Bits_18) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_18 is
  
     procedure SetU_18 (Arr : System.Address; N : Natural; E : Bits_18) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack18.ads b/gcc/ada/s-pack18.ads

index c689d50d5f06a968a17860124706054b63a4a66b..936b0c5ab815f51555e7a229470eab2a0b7ec41b 100644 (file)
--- a/gcc/ada/s-pack18.ads
+++ b/gcc/ada/s-pack18.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack19.adb b/gcc/ada/s-pack19.adb

index 4fd154d368e7a8e665a665e9dc91a43f92465e57..063b5f1e83bd38a84438f73c3476e2c833a49e4f 100644 (file)
--- a/gcc/ada/s-pack19.adb
+++ b/gcc/ada/s-pack19.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_19 is
  
     function Get_19 (Arr : System.Address; N : Natural) return Bits_19 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_19 is
  
     procedure Set_19 (Arr : System.Address; N : Natural; E : Bits_19) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack19.ads b/gcc/ada/s-pack19.ads

index 4f3e12da9ccc6e653d1d8e5e7422ed3b7c94507a..1f21aba7dd5c6a0fc9ba004d32286d39b640e0b1 100644 (file)
--- a/gcc/ada/s-pack19.ads
+++ b/gcc/ada/s-pack19.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack20.adb b/gcc/ada/s-pack20.adb

index 317ce4dc87288b6126e0bbf6ddc5fb8975729544..b05f9ffacf59efb8ba467138d489ad423b10abec 100644 (file)
--- a/gcc/ada/s-pack20.adb
+++ b/gcc/ada/s-pack20.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_20 is
  
     function Get_20 (Arr : System.Address; N : Natural) return Bits_20 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_20 is
  
     function GetU_20 (Arr : System.Address; N : Natural) return Bits_20 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_20 is
  
     procedure Set_20 (Arr : System.Address; N : Natural; E : Bits_20) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_20 is
  
     procedure SetU_20 (Arr : System.Address; N : Natural; E : Bits_20) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack20.ads b/gcc/ada/s-pack20.ads

index 39a9dc576d25688955ef023f89c532949d94d958..2df64d3b93ea39d37abeb6c03e4038e31f98039b 100644 (file)
--- a/gcc/ada/s-pack20.ads
+++ b/gcc/ada/s-pack20.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack21.adb b/gcc/ada/s-pack21.adb

index e1267a53395c31d613ab6ee735fea960aff44fef..1683857c6615f399d321e436ed90c9c7040b89d8 100644 (file)
--- a/gcc/ada/s-pack21.adb
+++ b/gcc/ada/s-pack21.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_21 is
  
     function Get_21 (Arr : System.Address; N : Natural) return Bits_21 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_21 is
  
     procedure Set_21 (Arr : System.Address; N : Natural; E : Bits_21) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack21.ads b/gcc/ada/s-pack21.ads

index 7de18f9827df73cb170246bc796486234b02860d..c8c0951cc552912cfefedb1aed2443b62faa4eae 100644 (file)
--- a/gcc/ada/s-pack21.ads
+++ b/gcc/ada/s-pack21.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack22.adb b/gcc/ada/s-pack22.adb

index ab63535d0baf5837fbb67f957e8e956bd0d43e1e..31f533a2aaa5e56c4644f456a81f0aef30a6785c 100644 (file)
--- a/gcc/ada/s-pack22.adb
+++ b/gcc/ada/s-pack22.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_22 is
  
     function Get_22 (Arr : System.Address; N : Natural) return Bits_22 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_22 is
  
     function GetU_22 (Arr : System.Address; N : Natural) return Bits_22 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_22 is
  
     procedure Set_22 (Arr : System.Address; N : Natural; E : Bits_22) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_22 is
  
     procedure SetU_22 (Arr : System.Address; N : Natural; E : Bits_22) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack22.ads b/gcc/ada/s-pack22.ads

index 3968d23fc82243fcbd7583f788ae038f2db42faa..883504e6cd801a23852c1bae87c602aff3dec903 100644 (file)
--- a/gcc/ada/s-pack22.ads
+++ b/gcc/ada/s-pack22.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack23.adb b/gcc/ada/s-pack23.adb

index 20d59365fc810816f4e56dad7fb6768652531661..840d63d625a80ca7847cf3d9dbe387df3aed2831 100644 (file)
--- a/gcc/ada/s-pack23.adb
+++ b/gcc/ada/s-pack23.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_23 is
  
     function Get_23 (Arr : System.Address; N : Natural) return Bits_23 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_23 is
  
     procedure Set_23 (Arr : System.Address; N : Natural; E : Bits_23) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack23.ads b/gcc/ada/s-pack23.ads

index f19a9e93ac3e409a94708b3d3a4c0ebd99082bf8..1efe76b400ad078b2c9cf57c1fa3991f9710eb4a 100644 (file)
--- a/gcc/ada/s-pack23.ads
+++ b/gcc/ada/s-pack23.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack24.adb b/gcc/ada/s-pack24.adb

index b44b999db8308f552888070220345ec885de8224..98ec9d556f95d86d6b8c293ce86fe6d1d89e11a8 100644 (file)
--- a/gcc/ada/s-pack24.adb
+++ b/gcc/ada/s-pack24.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_24 is
  
     function Get_24 (Arr : System.Address; N : Natural) return Bits_24 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_24 is
  
     function GetU_24 (Arr : System.Address; N : Natural) return Bits_24 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_24 is
  
     procedure Set_24 (Arr : System.Address; N : Natural; E : Bits_24) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_24 is
  
     procedure SetU_24 (Arr : System.Address; N : Natural; E : Bits_24) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack24.ads b/gcc/ada/s-pack24.ads

index 8c1834e5cc8ce9a5513a641035fe758ce303f8d0..6581de8914818430c0e203efb989755f07bf782d 100644 (file)
--- a/gcc/ada/s-pack24.ads
+++ b/gcc/ada/s-pack24.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack25.adb b/gcc/ada/s-pack25.adb

index 8803c62558c47f1bc9abc04e466b0b9d452bac13..bab192296289c3ba8abde38284ed14e5a71ea179 100644 (file)
--- a/gcc/ada/s-pack25.adb
+++ b/gcc/ada/s-pack25.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack25.ads b/gcc/ada/s-pack25.ads

index 7882d172f164605c275d38b076e1fb0614309d9f..fd464106721623a2798974858d4e86cfc8c631c3 100644 (file)
--- a/gcc/ada/s-pack25.ads
+++ b/gcc/ada/s-pack25.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack26.adb b/gcc/ada/s-pack26.adb

index 48aaad6edb09628940f0cb258229a0f149e00441..ecddf4d3a71ae7aae90cab4119a8f12af939478b 100644 (file)
--- a/gcc/ada/s-pack26.adb
+++ b/gcc/ada/s-pack26.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_26 is
  
     function Get_26 (Arr : System.Address; N : Natural) return Bits_26 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_26 is
  
     function GetU_26 (Arr : System.Address; N : Natural) return Bits_26 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_26 is
  
     procedure Set_26 (Arr : System.Address; N : Natural; E : Bits_26) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_26 is
  
     procedure SetU_26 (Arr : System.Address; N : Natural; E : Bits_26) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack26.ads b/gcc/ada/s-pack26.ads

index 793b038c386c514c11626ed955fdd95cee6dc087..a1c7a359a16ac52204aeaa089338c62b4818a367 100644 (file)
--- a/gcc/ada/s-pack26.ads
+++ b/gcc/ada/s-pack26.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack27.adb b/gcc/ada/s-pack27.adb

index 3ad9e1a50a0a912b62004f1ed066d9e3ede3b844..b2492b5c213e426de8f30dde3fdc9d6cb3022c70 100644 (file)
--- a/gcc/ada/s-pack27.adb
+++ b/gcc/ada/s-pack27.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_27 is
  
     function Get_27 (Arr : System.Address; N : Natural) return Bits_27 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_27 is
  
     procedure Set_27 (Arr : System.Address; N : Natural; E : Bits_27) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack27.ads b/gcc/ada/s-pack27.ads

index edbda505eeb8139e60fe15766fa291d501be2fbd..8a77d48905a26b14da1a4fbd6b386bdd32858e95 100644 (file)
--- a/gcc/ada/s-pack27.ads
+++ b/gcc/ada/s-pack27.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack28.adb b/gcc/ada/s-pack28.adb

index 801e0bc87912de557f18d5fd01b628679754c652..f2693ab5678a9f2673d09bd646a72506bec6f862 100644 (file)
--- a/gcc/ada/s-pack28.adb
+++ b/gcc/ada/s-pack28.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_28 is
  
     function Get_28 (Arr : System.Address; N : Natural) return Bits_28 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_28 is
  
     function GetU_28 (Arr : System.Address; N : Natural) return Bits_28 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_28 is
  
     procedure Set_28 (Arr : System.Address; N : Natural; E : Bits_28) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_28 is
  
     procedure SetU_28 (Arr : System.Address; N : Natural; E : Bits_28) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack28.ads b/gcc/ada/s-pack28.ads

index 5a303079a9e6b112c5dc78e601ad784d0971f80d..d4df26ac627a7352f07e12eabe4d84926c903dd1 100644 (file)
--- a/gcc/ada/s-pack28.ads
+++ b/gcc/ada/s-pack28.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack29.adb b/gcc/ada/s-pack29.adb

index 8c686e65fed86f92c46aecf82ae923d23319474d..42eda275b19b87cc7de51587f7a82bb40e248de3 100644 (file)
--- a/gcc/ada/s-pack29.adb
+++ b/gcc/ada/s-pack29.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_29 is
  
     function Get_29 (Arr : System.Address; N : Natural) return Bits_29 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_29 is
  
     procedure Set_29 (Arr : System.Address; N : Natural; E : Bits_29) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack29.ads b/gcc/ada/s-pack29.ads

index 6c1ad90503f11da95901ea4487ee1d78658c0cb8..403af534c2b1c7937162de2da72e5d586d427470 100644 (file)
--- a/gcc/ada/s-pack29.ads
+++ b/gcc/ada/s-pack29.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack30.adb b/gcc/ada/s-pack30.adb

index 6206122e592a34d42f0e05634b608f6d1e00fb6b..2ab521233a51c57dc73488aa798cfa425fcb3bb8 100644 (file)
--- a/gcc/ada/s-pack30.adb
+++ b/gcc/ada/s-pack30.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_30 is
  
     function Get_30 (Arr : System.Address; N : Natural) return Bits_30 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_30 is
  
     function GetU_30 (Arr : System.Address; N : Natural) return Bits_30 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_30 is
  
     procedure Set_30 (Arr : System.Address; N : Natural; E : Bits_30) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_30 is
  
     procedure SetU_30 (Arr : System.Address; N : Natural; E : Bits_30) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack30.ads b/gcc/ada/s-pack30.ads

index c85fe7c78fb51798d48c1760c447106ada865952..43b624fe9e2bcf8aa5c8e4ed5b2128a4ad849194 100644 (file)
--- a/gcc/ada/s-pack30.ads
+++ b/gcc/ada/s-pack30.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack31.adb b/gcc/ada/s-pack31.adb

index 71f07724a596e2a3f2e3dc98a3da2a6404213d8c..076d96e5f1c5d8b8fdb32db58fa3bb2c102d519f 100644 (file)
--- a/gcc/ada/s-pack31.adb
+++ b/gcc/ada/s-pack31.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_31 is
  
     function Get_31 (Arr : System.Address; N : Natural) return Bits_31 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_31 is
  
     procedure Set_31 (Arr : System.Address; N : Natural; E : Bits_31) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack31.ads b/gcc/ada/s-pack31.ads

index d23157bbfeda1245b99b4745cc0bca0e0c883dba..06c8832dfe3480af656639b97c81e4f1a39fdb4e 100644 (file)
--- a/gcc/ada/s-pack31.ads
+++ b/gcc/ada/s-pack31.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack33.adb b/gcc/ada/s-pack33.adb

index f05fe6b43d1efd9b6797d0ba40fec81426dd3cb2..ce0c0f8ddee00f3218e1f612ad9af1453c16c544 100644 (file)
--- a/gcc/ada/s-pack33.adb
+++ b/gcc/ada/s-pack33.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_33 is
  
     function Get_33 (Arr : System.Address; N : Natural) return Bits_33 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_33 is
  
     procedure Set_33 (Arr : System.Address; N : Natural; E : Bits_33) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack33.ads b/gcc/ada/s-pack33.ads

index 8b8d5c199e2655b0b5d78a9ea97f4b0b2a1fb002..995341c043b9ed76fdb58b70e239ccdbfd12d2fe 100644 (file)
--- a/gcc/ada/s-pack33.ads
+++ b/gcc/ada/s-pack33.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack34.adb b/gcc/ada/s-pack34.adb

index 2d08dbda2770032748eb5fba267d3b53a4b2d0b4..351cad33d2010750c8bfb29bbbaf4e0548ca272d 100644 (file)
--- a/gcc/ada/s-pack34.adb
+++ b/gcc/ada/s-pack34.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_34 is
  
     function Get_34 (Arr : System.Address; N : Natural) return Bits_34 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_34 is
  
     function GetU_34 (Arr : System.Address; N : Natural) return Bits_34 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_34 is
  
     procedure Set_34 (Arr : System.Address; N : Natural; E : Bits_34) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_34 is
  
     procedure SetU_34 (Arr : System.Address; N : Natural; E : Bits_34) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack34.ads b/gcc/ada/s-pack34.ads

index db7ffbb6d610a473d2097be806956679e27ec86e..5a4ee7c664bf24d030948a1490887ffc9466e0b8 100644 (file)
--- a/gcc/ada/s-pack34.ads
+++ b/gcc/ada/s-pack34.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack35.adb b/gcc/ada/s-pack35.adb

index 2975949fe1fdf99997e99781db9540a4ab505087..f5128f9006f9d4f9c0030f06cb222269be3edd10 100644 (file)
--- a/gcc/ada/s-pack35.adb
+++ b/gcc/ada/s-pack35.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_35 is
  
     function Get_35 (Arr : System.Address; N : Natural) return Bits_35 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_35 is
  
     procedure Set_35 (Arr : System.Address; N : Natural; E : Bits_35) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack35.ads b/gcc/ada/s-pack35.ads

index 1f07dde87ef1791ad884d6b4bdbfc1f5437fdbd4..729aa95de7fda05ca39fa2926f76bbd0a9815840 100644 (file)
--- a/gcc/ada/s-pack35.ads
+++ b/gcc/ada/s-pack35.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack36.adb b/gcc/ada/s-pack36.adb

index 447a0e2b9d0dfa99cee75e9919a7c53aca9560ec..c49b75277107ed09ba7cebfad5d2a8226cf290f0 100644 (file)
--- a/gcc/ada/s-pack36.adb
+++ b/gcc/ada/s-pack36.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_36 is
  
     function Get_36 (Arr : System.Address; N : Natural) return Bits_36 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_36 is
  
     function GetU_36 (Arr : System.Address; N : Natural) return Bits_36 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_36 is
  
     procedure Set_36 (Arr : System.Address; N : Natural; E : Bits_36) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_36 is
  
     procedure SetU_36 (Arr : System.Address; N : Natural; E : Bits_36) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack36.ads b/gcc/ada/s-pack36.ads

index 509e65b9c849841c9d933bec6fef182731d3eebe..619516022b4e825d534c487a5ba0f6a80556f5bb 100644 (file)
--- a/gcc/ada/s-pack36.ads
+++ b/gcc/ada/s-pack36.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack37.adb b/gcc/ada/s-pack37.adb

index e48fb1db23d0cfa10fc785de91297914a3b2c64e..6a07d716b1cf80fb0c6a60ea6c704de80347b77c 100644 (file)
--- a/gcc/ada/s-pack37.adb
+++ b/gcc/ada/s-pack37.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_37 is
  
     function Get_37 (Arr : System.Address; N : Natural) return Bits_37 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_37 is
  
     procedure Set_37 (Arr : System.Address; N : Natural; E : Bits_37) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack37.ads b/gcc/ada/s-pack37.ads

index df2156d8c8b36e8d32796cb02c8594c6320ca07c..57afa3a2b9a6a7b4045611458fdb2635c557b45a 100644 (file)
--- a/gcc/ada/s-pack37.ads
+++ b/gcc/ada/s-pack37.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack38.adb b/gcc/ada/s-pack38.adb

index 422de48ed83c8d510d0bf355a0ec38bf239778fc..d99670be6cf889d7a36c6a01c37bc256ea5b0517 100644 (file)
--- a/gcc/ada/s-pack38.adb
+++ b/gcc/ada/s-pack38.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_38 is
  
     function Get_38 (Arr : System.Address; N : Natural) return Bits_38 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_38 is
  
     function GetU_38 (Arr : System.Address; N : Natural) return Bits_38 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_38 is
  
     procedure Set_38 (Arr : System.Address; N : Natural; E : Bits_38) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_38 is
  
     procedure SetU_38 (Arr : System.Address; N : Natural; E : Bits_38) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack38.ads b/gcc/ada/s-pack38.ads

index a9d9a4953f2d1f8ad9f723904249f5acb3025c09..12aeea0caa2846989bc1e7347de707a0bc6dac9d 100644 (file)
--- a/gcc/ada/s-pack38.ads
+++ b/gcc/ada/s-pack38.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack39.adb b/gcc/ada/s-pack39.adb

index d2b75f9b1ade74d0848716322609c61dbd01ffa4..fc4daf4e10d9031e1acdcf5467fd94016f4019f0 100644 (file)
--- a/gcc/ada/s-pack39.adb
+++ b/gcc/ada/s-pack39.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_39 is
  
     function Get_39 (Arr : System.Address; N : Natural) return Bits_39 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_39 is
  
     procedure Set_39 (Arr : System.Address; N : Natural; E : Bits_39) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack39.ads b/gcc/ada/s-pack39.ads

index 4a2ff511c4d726ea4f906b8b4d28b9ddf45512aa..fda38ee14d6c7ac41aafcc62ce87c1638dd55caf 100644 (file)
--- a/gcc/ada/s-pack39.ads
+++ b/gcc/ada/s-pack39.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack40.adb b/gcc/ada/s-pack40.adb

index 3068334c9ea7942287c62512624ff19516834bdc..46824abd1459a7235bf4e235aaa102b0133a24bc 100644 (file)
--- a/gcc/ada/s-pack40.adb
+++ b/gcc/ada/s-pack40.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_40 is
  
     function Get_40 (Arr : System.Address; N : Natural) return Bits_40 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_40 is
  
     function GetU_40 (Arr : System.Address; N : Natural) return Bits_40 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_40 is
  
     procedure Set_40 (Arr : System.Address; N : Natural; E : Bits_40) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_40 is
  
     procedure SetU_40 (Arr : System.Address; N : Natural; E : Bits_40) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack40.ads b/gcc/ada/s-pack40.ads

index ee7981c7ec5f509e259ad25786643665907a3750..21a1313af890f78c831227cd5149ab6bf4e478a8 100644 (file)
--- a/gcc/ada/s-pack40.ads
+++ b/gcc/ada/s-pack40.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack41.adb b/gcc/ada/s-pack41.adb

index 26052805a620a05015f874ac9f620690bdd8eee2..b245633cf09a0f046016d8547d2c55812a0a524a 100644 (file)
--- a/gcc/ada/s-pack41.adb
+++ b/gcc/ada/s-pack41.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_41 is
  
     function Get_41 (Arr : System.Address; N : Natural) return Bits_41 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_41 is
  
     procedure Set_41 (Arr : System.Address; N : Natural; E : Bits_41) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack41.ads b/gcc/ada/s-pack41.ads

index 9a956f3f1d69af28d02c9675a7ddab901af564cf..d4a5dc7b1654c98281ecdc4737f07c3679f0a8e0 100644 (file)
--- a/gcc/ada/s-pack41.ads
+++ b/gcc/ada/s-pack41.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack42.adb b/gcc/ada/s-pack42.adb

index 939662ab2a466e5c8040bf3f440692155dd619e7..3444ab33fead1d894bea1cd073accdb995987feb 100644 (file)
--- a/gcc/ada/s-pack42.adb
+++ b/gcc/ada/s-pack42.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_42 is
  
     function Get_42 (Arr : System.Address; N : Natural) return Bits_42 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_42 is
  
     function GetU_42 (Arr : System.Address; N : Natural) return Bits_42 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_42 is
  
     procedure Set_42 (Arr : System.Address; N : Natural; E : Bits_42) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_42 is
  
     procedure SetU_42 (Arr : System.Address; N : Natural; E : Bits_42) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack42.ads b/gcc/ada/s-pack42.ads

index 82ce71050768acd81941869da2b655de29015f3e..36ef28b18ed877dd205167139cbc2801b7d5a553 100644 (file)
--- a/gcc/ada/s-pack42.ads
+++ b/gcc/ada/s-pack42.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack43.adb b/gcc/ada/s-pack43.adb

index 5df98b62626b60fb1cfa460a2b9e44160a73a72f..b9e5ca0eaafb160f90d08d8084a2e8c1d8335144 100644 (file)
--- a/gcc/ada/s-pack43.adb
+++ b/gcc/ada/s-pack43.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_43 is
  
     function Get_43 (Arr : System.Address; N : Natural) return Bits_43 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_43 is
  
     procedure Set_43 (Arr : System.Address; N : Natural; E : Bits_43) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack43.ads b/gcc/ada/s-pack43.ads

index 74d4fada4aeb2f517570f3986b23b8e0531d301f..844c9d2bd7ae662a7f0e1d80830770628c943ba9 100644 (file)
--- a/gcc/ada/s-pack43.ads
+++ b/gcc/ada/s-pack43.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack44.adb b/gcc/ada/s-pack44.adb

index 8eb16d7802e8fe68c4f06b196139b55ee5914955..b3f2f7561a6ca76af257e35e94266764d8a967ba 100644 (file)
--- a/gcc/ada/s-pack44.adb
+++ b/gcc/ada/s-pack44.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_44 is
  
     function Get_44 (Arr : System.Address; N : Natural) return Bits_44 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_44 is
  
     function GetU_44 (Arr : System.Address; N : Natural) return Bits_44 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_44 is
  
     procedure Set_44 (Arr : System.Address; N : Natural; E : Bits_44) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_44 is
  
     procedure SetU_44 (Arr : System.Address; N : Natural; E : Bits_44) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack44.ads b/gcc/ada/s-pack44.ads

index fa6863f82e4b1bec88118e8b1aada26da8b0323e..a09c2d36453a3ee5ab7c7b03291038b45a2499f4 100644 (file)
--- a/gcc/ada/s-pack44.ads
+++ b/gcc/ada/s-pack44.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack45.adb b/gcc/ada/s-pack45.adb

index 32079b3b933fe51add3ae6112bf125bb06ae5028..7f3426f5673270d161f2c2f4802975d67c9edc77 100644 (file)
--- a/gcc/ada/s-pack45.adb
+++ b/gcc/ada/s-pack45.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_45 is
  
     function Get_45 (Arr : System.Address; N : Natural) return Bits_45 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_45 is
  
     procedure Set_45 (Arr : System.Address; N : Natural; E : Bits_45) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack45.ads b/gcc/ada/s-pack45.ads

index 78ebaa1924e4a1297abca2a2d709cbcbfc3d4118..bdd8338b35ec048023327dd0db9b33d8473c0184 100644 (file)
--- a/gcc/ada/s-pack45.ads
+++ b/gcc/ada/s-pack45.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack46.adb b/gcc/ada/s-pack46.adb

index a17c078d110cea0995bc7548490a353f9b76ba77..efb039472c3faafeec665a70794e2a62dcce6916 100644 (file)
--- a/gcc/ada/s-pack46.adb
+++ b/gcc/ada/s-pack46.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_46 is
  
     function Get_46 (Arr : System.Address; N : Natural) return Bits_46 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_46 is
  
     function GetU_46 (Arr : System.Address; N : Natural) return Bits_46 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_46 is
  
     procedure Set_46 (Arr : System.Address; N : Natural; E : Bits_46) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_46 is
  
     procedure SetU_46 (Arr : System.Address; N : Natural; E : Bits_46) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack46.ads b/gcc/ada/s-pack46.ads

index 09256709daddb9a03451d028321ed6e8f7d440d7..5ec4132c965920eb1f62f35a5387f517d34d9367 100644 (file)
--- a/gcc/ada/s-pack46.ads
+++ b/gcc/ada/s-pack46.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack47.adb b/gcc/ada/s-pack47.adb

index cd49c39023f5a21cd039fc59ba11935840cf0546..ef73a106638d141ef2522a21c6316e470919a613 100644 (file)
--- a/gcc/ada/s-pack47.adb
+++ b/gcc/ada/s-pack47.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_47 is
  
     function Get_47 (Arr : System.Address; N : Natural) return Bits_47 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_47 is
  
     procedure Set_47 (Arr : System.Address; N : Natural; E : Bits_47) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack47.ads b/gcc/ada/s-pack47.ads

index 4ca1ba3e96ccd8a8d6a87c84b86d616bd6855b0d..e444ee08c2658de1b545384b7285fc89dec18b9c 100644 (file)
--- a/gcc/ada/s-pack47.ads
+++ b/gcc/ada/s-pack47.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack48.adb b/gcc/ada/s-pack48.adb

index 91751617c8ad7c7af3697403ed74d7c21b3edf9f..5839bc92c5c771387df83ae1fbf94efa8d36fc36 100644 (file)
--- a/gcc/ada/s-pack48.adb
+++ b/gcc/ada/s-pack48.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_48 is
  
     function Get_48 (Arr : System.Address; N : Natural) return Bits_48 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_48 is
  
     function GetU_48 (Arr : System.Address; N : Natural) return Bits_48 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_48 is
  
     procedure Set_48 (Arr : System.Address; N : Natural; E : Bits_48) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_48 is
  
     procedure SetU_48 (Arr : System.Address; N : Natural; E : Bits_48) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack48.ads b/gcc/ada/s-pack48.ads

index 0004f9275c9404e709780c17e53fa4f6ebbad18d..e832e3607ccaa5764545c07942269642b7ff73d2 100644 (file)
--- a/gcc/ada/s-pack48.ads
+++ b/gcc/ada/s-pack48.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack49.adb b/gcc/ada/s-pack49.adb

index 7e39703ce8dd4542f574e2b522d41d74edc79514..a34380dc70eb352ed836d056dc29e8ecd6ad1019 100644 (file)
--- a/gcc/ada/s-pack49.adb
+++ b/gcc/ada/s-pack49.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_49 is
  
     function Get_49 (Arr : System.Address; N : Natural) return Bits_49 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_49 is
  
     procedure Set_49 (Arr : System.Address; N : Natural; E : Bits_49) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack49.ads b/gcc/ada/s-pack49.ads

index f60042b28ab6c291c079e9f6ebf78e4d03c8b7c0..9b448129a9025751cadc017ae208c5cf61010a11 100644 (file)
--- a/gcc/ada/s-pack49.ads
+++ b/gcc/ada/s-pack49.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack50.adb b/gcc/ada/s-pack50.adb

index 4ff69b20bc988caa186059b8c40b84d2539d9a94..cb70a01dbe13c30e38c0ffeb6c4a2066372afa6c 100644 (file)
--- a/gcc/ada/s-pack50.adb
+++ b/gcc/ada/s-pack50.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_50 is
  
     function Get_50 (Arr : System.Address; N : Natural) return Bits_50 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_50 is
  
     function GetU_50 (Arr : System.Address; N : Natural) return Bits_50 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_50 is
  
     procedure Set_50 (Arr : System.Address; N : Natural; E : Bits_50) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_50 is
  
     procedure SetU_50 (Arr : System.Address; N : Natural; E : Bits_50) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack50.ads b/gcc/ada/s-pack50.ads

index 0ac3532406cdb964533b3af50ad86b8e71f604a3..cb639f9eb286a45bf291d0c51313f131bd8d35dd 100644 (file)
--- a/gcc/ada/s-pack50.ads
+++ b/gcc/ada/s-pack50.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack51.adb b/gcc/ada/s-pack51.adb

index 5c5f926169b91658ad69c5b8d4bdc3ac152d5bd2..9d71ba015396efac334ac53e9007b6e8292e6905 100644 (file)
--- a/gcc/ada/s-pack51.adb
+++ b/gcc/ada/s-pack51.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_51 is
  
     function Get_51 (Arr : System.Address; N : Natural) return Bits_51 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_51 is
  
     procedure Set_51 (Arr : System.Address; N : Natural; E : Bits_51) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack51.ads b/gcc/ada/s-pack51.ads

index b5a479eb0132040f6577ca053fd3722c1efa4d8b..11e107f4fc0010be7be5a5c03adfb2de3bd0faa8 100644 (file)
--- a/gcc/ada/s-pack51.ads
+++ b/gcc/ada/s-pack51.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack52.adb b/gcc/ada/s-pack52.adb

index 86765bd1bc5cafe6d449d06405211d4fbe2c4ce0..88c21ff8feb991b37f5d5d0ab709a8932001dd75 100644 (file)
--- a/gcc/ada/s-pack52.adb
+++ b/gcc/ada/s-pack52.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_52 is
  
     function Get_52 (Arr : System.Address; N : Natural) return Bits_52 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_52 is
  
     function GetU_52 (Arr : System.Address; N : Natural) return Bits_52 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_52 is
  
     procedure Set_52 (Arr : System.Address; N : Natural; E : Bits_52) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_52 is
  
     procedure SetU_52 (Arr : System.Address; N : Natural; E : Bits_52) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack52.ads b/gcc/ada/s-pack52.ads

index 0bb2dfc5a3b35ee486828bf34ca916cd5c75f202..5b19da30d77b214555541cc6cbdcdc6fc7a0ad2b 100644 (file)
--- a/gcc/ada/s-pack52.ads
+++ b/gcc/ada/s-pack52.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack53.adb b/gcc/ada/s-pack53.adb

index 76a63ce752c26e8ae75798f8f12888f03d36aab9..72cf0ea414acc1ee4041bdbb4ac3070add25c8e1 100644 (file)
--- a/gcc/ada/s-pack53.adb
+++ b/gcc/ada/s-pack53.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_53 is
  
     function Get_53 (Arr : System.Address; N : Natural) return Bits_53 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_53 is
  
     procedure Set_53 (Arr : System.Address; N : Natural; E : Bits_53) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack53.ads b/gcc/ada/s-pack53.ads

index eaf4fcc6551d95cfedd6e761bae879e1eaafb040..cc46a81089377b9258209f78d308775a1d52f2d2 100644 (file)
--- a/gcc/ada/s-pack53.ads
+++ b/gcc/ada/s-pack53.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack54.adb b/gcc/ada/s-pack54.adb

index 53a56a4595f9df037a54ce65183b16f0fa6f0dcc..64be7270f7f2444069dfedb62ed379f240bdbc04 100644 (file)
--- a/gcc/ada/s-pack54.adb
+++ b/gcc/ada/s-pack54.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_54 is
  
     function Get_54 (Arr : System.Address; N : Natural) return Bits_54 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_54 is
  
     function GetU_54 (Arr : System.Address; N : Natural) return Bits_54 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_54 is
  
     procedure Set_54 (Arr : System.Address; N : Natural; E : Bits_54) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_54 is
  
     procedure SetU_54 (Arr : System.Address; N : Natural; E : Bits_54) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack54.ads b/gcc/ada/s-pack54.ads

index efecf4971385f548ae5f724a7d1be827def2011f..1bddbd596c9271e71f4a34e166a8da56811748ea 100644 (file)
--- a/gcc/ada/s-pack54.ads
+++ b/gcc/ada/s-pack54.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack55.adb b/gcc/ada/s-pack55.adb

index e5b712b6058722b766bb5308f6df327effc490b2..c36bbc82490754df303d05df97560d94be1936eb 100644 (file)
--- a/gcc/ada/s-pack55.adb
+++ b/gcc/ada/s-pack55.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_55 is
  
     function Get_55 (Arr : System.Address; N : Natural) return Bits_55 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_55 is
  
     procedure Set_55 (Arr : System.Address; N : Natural; E : Bits_55) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack55.ads b/gcc/ada/s-pack55.ads

index 61c8709f9817bd59c070d485bf24389a84a91716..5727ef9b112146fd8f72c808c93f4886da2723aa 100644 (file)
--- a/gcc/ada/s-pack55.ads
+++ b/gcc/ada/s-pack55.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack56.adb b/gcc/ada/s-pack56.adb

index 4998fad86c48bb95095539be277ed18573c0f193..dbeb6cf5a8ea06226ed63060ece94ec6ccb03ef6 100644 (file)
--- a/gcc/ada/s-pack56.adb
+++ b/gcc/ada/s-pack56.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_56 is
  
     function Get_56 (Arr : System.Address; N : Natural) return Bits_56 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_56 is
  
     function GetU_56 (Arr : System.Address; N : Natural) return Bits_56 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_56 is
  
     procedure Set_56 (Arr : System.Address; N : Natural; E : Bits_56) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_56 is
  
     procedure SetU_56 (Arr : System.Address; N : Natural; E : Bits_56) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack56.ads b/gcc/ada/s-pack56.ads

index d0d3c792aa3bd2cf31c6049da635465e226db7fd..1db23e854fba77eb4eff443b1d5e26682b80be79 100644 (file)
--- a/gcc/ada/s-pack56.ads
+++ b/gcc/ada/s-pack56.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack57.adb b/gcc/ada/s-pack57.adb

index 2da80cdadaf811f260dec73099fa3883ebe3bf02..190c6092eda4ffbb3b9ce282e8d4848ad5fe1f5e 100644 (file)
--- a/gcc/ada/s-pack57.adb
+++ b/gcc/ada/s-pack57.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_57 is
  
     function Get_57 (Arr : System.Address; N : Natural) return Bits_57 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_57 is
  
     procedure Set_57 (Arr : System.Address; N : Natural; E : Bits_57) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack57.ads b/gcc/ada/s-pack57.ads

index 2781b4aa4399c51c9b621225204ccc2cdd90941c..be6f9d2a2b40a12a264fabc2464fdb6d1c6053d7 100644 (file)
--- a/gcc/ada/s-pack57.ads
+++ b/gcc/ada/s-pack57.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack58.adb b/gcc/ada/s-pack58.adb

index 387dcfca04aca7378dac1d4fc5468a53172cb55e..710f1bc6cc4b8946c5f9ebf768f10957dae1394f 100644 (file)
--- a/gcc/ada/s-pack58.adb
+++ b/gcc/ada/s-pack58.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_58 is
  
     function Get_58 (Arr : System.Address; N : Natural) return Bits_58 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_58 is
  
     function GetU_58 (Arr : System.Address; N : Natural) return Bits_58 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_58 is
  
     procedure Set_58 (Arr : System.Address; N : Natural; E : Bits_58) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_58 is
  
     procedure SetU_58 (Arr : System.Address; N : Natural; E : Bits_58) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack58.ads b/gcc/ada/s-pack58.ads

index a88434556a6beaacb498a1cc9f3818a66bfe04a2..5a18c5a462e4e7c5a42e8b4addbdffa765bd3b39 100644 (file)
--- a/gcc/ada/s-pack58.ads
+++ b/gcc/ada/s-pack58.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack59.adb b/gcc/ada/s-pack59.adb

index 7f79d19fd1c7cdf66d63013f4ac8235b8d895c21..fed0bb2e8db76d74db0bafb8e1550220d36d76da 100644 (file)
--- a/gcc/ada/s-pack59.adb
+++ b/gcc/ada/s-pack59.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_59 is
  
     function Get_59 (Arr : System.Address; N : Natural) return Bits_59 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_59 is
  
     procedure Set_59 (Arr : System.Address; N : Natural; E : Bits_59) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack59.ads b/gcc/ada/s-pack59.ads

index 492b9ce63950e6251b2f92acbe5837db1a711500..e527306109b722bb98282e41638ce09726783712 100644 (file)
--- a/gcc/ada/s-pack59.ads
+++ b/gcc/ada/s-pack59.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack60.adb b/gcc/ada/s-pack60.adb

index 630e84b1121b841e3a0231f20008147ccf874816..8c91ec16ffc5abc7de5be534abdfe072a2c975d3 100644 (file)
--- a/gcc/ada/s-pack60.adb
+++ b/gcc/ada/s-pack60.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_60 is
  
     function Get_60 (Arr : System.Address; N : Natural) return Bits_60 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_60 is
  
     function GetU_60 (Arr : System.Address; N : Natural) return Bits_60 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_60 is
  
     procedure Set_60 (Arr : System.Address; N : Natural; E : Bits_60) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_60 is
  
     procedure SetU_60 (Arr : System.Address; N : Natural; E : Bits_60) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack60.ads b/gcc/ada/s-pack60.ads

index fd6f7d05591b289b8e763babf70074b6e7724179..121c29acd58616b16a7f1eced90be91bea2d85a9 100644 (file)
--- a/gcc/ada/s-pack60.ads
+++ b/gcc/ada/s-pack60.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack61.adb b/gcc/ada/s-pack61.adb

index 58f33284af24ce6454caa8b11f95d2664c85847d..cdc4b7114c665f115ec3b68491893474158bdb17 100644 (file)
--- a/gcc/ada/s-pack61.adb
+++ b/gcc/ada/s-pack61.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_61 is
  
     function Get_61 (Arr : System.Address; N : Natural) return Bits_61 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_61 is
  
     procedure Set_61 (Arr : System.Address; N : Natural; E : Bits_61) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack61.ads b/gcc/ada/s-pack61.ads

index e745c5e6fe4eca9cbffcebc8cdb9b0ada2e1dbca..0209e75b227f9a2f8fb24760be037732fb92ad7d 100644 (file)
--- a/gcc/ada/s-pack61.ads
+++ b/gcc/ada/s-pack61.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack62.adb b/gcc/ada/s-pack62.adb

index da4ebad84f62255448a24dc53b33dcd4b2139a0a..da442169ab24ad0a835d180d94a8026970503682 100644 (file)
--- a/gcc/ada/s-pack62.adb
+++ b/gcc/ada/s-pack62.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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,7 +92,6 @@ package body System.Pack_62 is
  
     function Get_62 (Arr : System.Address; N : Natural) return Bits_62 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -112,7 +111,6 @@ package body System.Pack_62 is
  
     function GetU_62 (Arr : System.Address; N : Natural) return Bits_62 is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -132,7 +130,6 @@ package body System.Pack_62 is
  
     procedure Set_62 (Arr : System.Address; N : Natural; E : Bits_62) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
@@ -152,7 +149,6 @@ package body System.Pack_62 is
  
     procedure SetU_62 (Arr : System.Address; N : Natural; E : Bits_62) is
        C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack62.ads b/gcc/ada/s-pack62.ads

index a7642b5ca27081764eafb6774cd69c1f57a118c7..969880d0d0d8a162546211399fdf755d3089c784 100644 (file)
--- a/gcc/ada/s-pack62.ads
+++ b/gcc/ada/s-pack62.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-pack63.adb b/gcc/ada/s-pack63.adb

index 8ebf4f564aad5901a84a055c18f53755c5090635..d36c30e2d5aedc90747425defb3c02c2afcb1011 100644 (file)
--- a/gcc/ada/s-pack63.adb
+++ b/gcc/ada/s-pack63.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,6 @@ package body System.Pack_63 is
  
     function Get_63 (Arr : System.Address; N : Natural) return Bits_63 is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => return C.E0;
@@ -99,7 +98,6 @@ package body System.Pack_63 is
  
     procedure Set_63 (Arr : System.Address; N : Natural; E : Bits_63) is
        C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8));
-
     begin
        case N07 (Uns (N) mod 8) is
           when 0 => C.E0 := E;
diff --git a/gcc/ada/s-pack63.ads b/gcc/ada/s-pack63.ads

index 08f84f542fd7c88682bb17e65291a4965b68c1e8..cb4038242e58d9e76d662790d0cac93ef52b81ea 100644 (file)
--- a/gcc/ada/s-pack63.ads
+++ b/gcc/ada/s-pack63.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-parame-mingw.adb b/gcc/ada/s-parame-mingw.adb

index e73911cf8b1dd432a8ed1ebc20aac5b8da2554c3..d6bc023afbfb5d756930b24efe661a7979804d35 100644 (file)
--- a/gcc/ada/s-parame-mingw.adb
+++ b/gcc/ada/s-parame-mingw.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---             Copyright (C) 2004 Free Software Foundation, Inc.            --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/s-parint.adb b/gcc/ada/s-parint.adb

index b7a676e8ddebf830ec39f2b7a2b1f5a5a73091ad..6091f3d1db6e93290c1104d9bba259322e2aa090 100644 (file)
--- a/gcc/ada/s-parint.adb
+++ b/gcc/ada/s-parint.adb
@@ -7,7 +7,7 @@
  --                                  B o d y                                 --
  --                   (Dummy body for non-distributed case)                  --
  --                                                                          --
---          Copyright (C) 1995-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1995-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
@@ -40,7 +40,7 @@ package body System.Partition_Interface is
  
     type String_Access is access String;
  
-   --  To have a minimal implementation of U'Partition_ID.
+   --  To have a minimal implementation of U'Partition_ID
  
     type Pkg_Node;
     type Pkg_List is access Pkg_Node;
diff --git a/gcc/ada/s-parint.ads b/gcc/ada/s-parint.ads

index 40396d22112ba77eaee0c05222fb4daa79aec8fa..4eeb67109a2df1fe5ee46f10c76c236a127e8f62 100644 (file)
--- a/gcc/ada/s-parint.ads
+++ b/gcc/ada/s-parint.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                  S p e c                                 --
  --                                                                          --
---          Copyright (C) 1995-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1995-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- GNARL 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- --
diff --git a/gcc/ada/s-purexc.ads b/gcc/ada/s-purexc.ads

index c9edb603353177e47b76df04caabf52ba8645e17..4600f4a07db15e51ea72c6f4aa57efca75943c8e 100644 (file)
--- a/gcc/ada/s-purexc.ads
+++ b/gcc/ada/s-purexc.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 2000-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 2000-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
diff --git a/gcc/ada/s-restri.adb b/gcc/ada/s-restri.adb

index 81d16d07c15aa5e654cac9e355120ce04d89a99c..d7b9525687372528681b165f65fc3170ecf8e5a0 100644 (file)
--- a/gcc/ada/s-restri.adb
+++ b/gcc/ada/s-restri.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/s-restri.ads b/gcc/ada/s-restri.ads

index 1d2734ce34038ec33cc6ed8229249b83f4826cb7..0c9a4e79fee8a4d3e41df0ea67ccd1ad15dd2cab 100644 (file)
--- a/gcc/ada/s-restri.ads
+++ b/gcc/ada/s-restri.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2004-2005, 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- --
diff --git a/gcc/ada/s-scaval.adb b/gcc/ada/s-scaval.adb

index 61f2fca6c2f2e336bb30cdc81d298afafcf7daf5..71b5c6017a59f2130a7d3d4a52ea412d13296f36 100644 (file)
--- a/gcc/ada/s-scaval.adb
+++ b/gcc/ada/s-scaval.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/s-scaval.ads b/gcc/ada/s-scaval.ads

index 9e7962c433aec6607ac42a8fa0404cee0e42772e..b39bd82a1ea3cebc4f9f476ae3f70bad61ecc122 100644 (file)
--- a/gcc/ada/s-scaval.ads
+++ b/gcc/ada/s-scaval.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2001-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2001-2005, 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- --
diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb

index 97dd744f3c1c915c12050dbef84fcda1e949bfe4..3c6485cbf6f5b4a124c03f3e507423d4508de364 100644 (file)
--- a/gcc/ada/s-secsta.adb
+++ b/gcc/ada/s-secsta.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-secsta.ads b/gcc/ada/s-secsta.ads

index 22e0b4831d018777572e837bb7385df0e3f7ef17..ad4a98decf2f40421fe4814bbabb7be7d0af99ca 100644 (file)
--- a/gcc/ada/s-secsta.ads
+++ b/gcc/ada/s-secsta.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-sequio.adb b/gcc/ada/s-sequio.adb

index 2e5a29b24f2f3568a35a74f8d73a795d128c96d4..4ab259f6fbe840e9590791b69d8421a4962f1709 100644 (file)
--- a/gcc/ada/s-sequio.adb
+++ b/gcc/ada/s-sequio.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-sequio.ads b/gcc/ada/s-sequio.ads

index fcd8233b527bb26945f3e11752d8e9ca1d587100..3ad99820ca99490ae2b8ecc67f74520df8309680 100644 (file)
--- a/gcc/ada/s-sequio.ads
+++ b/gcc/ada/s-sequio.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--           Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-tasuti.adb b/gcc/ada/s-tasuti.adb

index 8877c784e53dd79a402bbb8e81f467b9e6f45fd4..6721681827ede70559c5ffad96b270fe85660100 100644 (file)
--- a/gcc/ada/s-tasuti.adb
+++ b/gcc/ada/s-tasuti.adb
@@ -294,7 +294,7 @@ package body System.Tasking.Utilities is
  
        if Parent /= Environment_Task then
  
-         --  We can not lock three tasks at the same time, so defer the
+         --  We cannot lock three tasks at the same time, so defer the
           --  operations on the parent.
  
           Parent_Needs_Updating := True;
@@ -382,7 +382,7 @@ package body System.Tasking.Utilities is
              pragma Assert (Self_ID.Awake_Count = 1);
           end if;
  
-      --  We are accepting with a terminate alternative.
+      --  We are accepting with a terminate alternative
  
        else
           if Self_ID.Open_Accepts = null then
@@ -494,7 +494,7 @@ package body System.Tasking.Utilities is
        --  C has a parent, P.
  
        loop
-         --  Notify P that C has gone passive.
+         --  Notify P that C has gone passive
  
           P.Awake_Count := P.Awake_Count - 1;
  
@@ -516,7 +516,7 @@ package body System.Tasking.Utilities is
           Write_Lock (C);
        end loop;
  
-      --  P has non-passive dependents.
+      --  P has non-passive dependents
  
        if P.Common.State = Master_Completion_Sleep
          and then C.Master_of_Task = P.Master_Within
diff --git a/gcc/ada/s-traceb-hpux.adb b/gcc/ada/s-traceb-hpux.adb

index 013435bd100103f8b401335876e80baa872713d1..5457cb1d0eea85cac57a97581f04339e570777c9 100644 (file)
--- a/gcc/ada/s-traceb-hpux.adb
+++ b/gcc/ada/s-traceb-hpux.adb
@@ -7,7 +7,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1999-2003 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -359,7 +359,7 @@ package body System.Traceback is
              return False;
           end if;
  
-         --  Now, safely call the unwinder and use the results.
+         --  Now, safely call the unwinder and use the results
  
           if U_get_previous_frame_x (Frame,
                                      Up_Frame'Access,
@@ -510,7 +510,7 @@ package body System.Traceback is
           Frame_Info_Offset  : constant := 8;
  
        begin
-         --  First try to locate the descriptor in the program's unwind table.
+         --  First try to locate the descriptor in the program's unwind table
  
           UWD_Address := U_get_unwind_entry (Frame.cur_rlo,
                                              Frame.cur_rls,
@@ -562,7 +562,7 @@ package body System.Traceback is
  
        Pop_Success := Pop_Frame (Frame'Access);
  
-      --  Skip the requested number of frames.
+      --  Skip the requested number of frames
  
        for I in 1 .. Skip_Frames loop
           Pop_Success := Pop_Frame (Frame'Access);
diff --git a/gcc/ada/s-traceb-mastop.adb b/gcc/ada/s-traceb-mastop.adb

index fc337fbef4b7d426e0f52c4d7a8ed6cc057baf64..9591b2d2ad652aaa7e898f045d8f95725dc2ac09 100644 (file)
--- a/gcc/ada/s-traceb-mastop.adb
+++ b/gcc/ada/s-traceb-mastop.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1999-2005 Ada Core Technologies, Inc.            --
+--                     Copyright (C) 1999-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -100,8 +100,8 @@ package body System.Traceback is
     ------------------
  
     function C_Call_Chain
-     (Traceback   : System.Address;
-      Max_Len     : Natural) return Natural
+     (Traceback : System.Address;
+      Max_Len   : Natural) return Natural
     is
        Val : Natural;
     begin
diff --git a/gcc/ada/s-traceb.adb b/gcc/ada/s-traceb.adb

index 5bfc830772f5ac5feb6a19f83690d5530baf759e..e1c52080dd2b2b42b4abd09ae1911e97542c0fd2 100644 (file)
--- a/gcc/ada/s-traceb.adb
+++ b/gcc/ada/s-traceb.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1999-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1999-2005, 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- --
diff --git a/gcc/ada/s-traceb.ads b/gcc/ada/s-traceb.ads

index dbab25cbb03e7d6559a24f2f02b70a9a17ea186d..23e64ff498b926b6230247f8dbea106d67baab16 100644 (file)
--- a/gcc/ada/s-traceb.ads
+++ b/gcc/ada/s-traceb.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1999-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1999-2005, 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- --
@@ -84,6 +84,6 @@ package System.Traceback is
        Max_Len   : Natural)
        return      Natural;
     pragma Export (C, C_Call_Chain, "system__traceback__c_call_chain");
-   --  Version that can be used directly from C.
+   --  Version that can be used directly from C
  
  end System.Traceback;
diff --git a/gcc/ada/s-valboo.adb b/gcc/ada/s-valboo.adb

index c569b2c3b3490701c95dcb28ae8754ca3e2b3b5c..5d23037e57e0bd832bd4de5fcf040603df7f5fc3 100644 (file)
--- a/gcc/ada/s-valboo.adb
+++ b/gcc/ada/s-valboo.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
@@ -49,16 +49,13 @@ package body System.Val_Bool is
  
        if S (F .. L) = "TRUE" then
           return True;
-      end if;
  
-      if S (F .. L) = "FALSE" then
+      elsif S (F .. L) = "FALSE" then
           return False;
-      end if;
-
-      raise Constraint_Error;
-
-      --  Above should use elsif, but this doesn't work in GNAT version 1.81???
  
+      else
+         raise Constraint_Error;
+      end if;
     end Value_Boolean;
  
  end System.Val_Bool;
diff --git a/gcc/ada/s-valboo.ads b/gcc/ada/s-valboo.ads

index e08d337f58f6b71ea97fc0f8729a449d7049a73b..c2bfca3c7014a21aa5e9431e9cc8234d933ab79f 100644 (file)
--- a/gcc/ada/s-valboo.ads
+++ b/gcc/ada/s-valboo.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -35,6 +35,6 @@ package System.Val_Bool is
     pragma Pure;
  
     function Value_Boolean (Str : String) return Boolean;
-   --  Computes Boolean'Value (Str).
+   --  Computes Boolean'Value (Str)
  
  end System.Val_Bool;
diff --git a/gcc/ada/s-valcha.adb b/gcc/ada/s-valcha.adb

index 561d170c819eee4e47f638cb1032fc740b2baf43..734b2af39f50f117b31533fb431eba2006b75040 100644 (file)
--- a/gcc/ada/s-valcha.adb
+++ b/gcc/ada/s-valcha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
@@ -69,7 +69,6 @@ package body System.Val_Char is
  
           raise Constraint_Error;
        end if;
-
     end Value_Character;
  
  end System.Val_Char;
diff --git a/gcc/ada/s-valcha.ads b/gcc/ada/s-valcha.ads

index 903ba53e0630ae1a5aff78e3596db639a12f9809..fa31f13fd5fb0d0faef69b82d8193886ae149fa9 100644 (file)
--- a/gcc/ada/s-valcha.ads
+++ b/gcc/ada/s-valcha.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -35,6 +35,6 @@ package System.Val_Char is
     pragma Pure;
  
     function Value_Character (Str : String) return Character;
-   --  Computes Character'Value (Str).
+   --  Computes Character'Value (Str)
  
  end System.Val_Char;
diff --git a/gcc/ada/s-valdec.adb b/gcc/ada/s-valdec.adb

index 6bfcfb65ec076c07fda64db0816d39f4add64f7a..dbac049edef4aee7e64878019a857264d2a77116 100644 (file)
--- a/gcc/ada/s-valdec.adb
+++ b/gcc/ada/s-valdec.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---   Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc.  --
+--          Copyright (C) 1992-2005, 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- --
@@ -48,11 +48,9 @@ package body System.Val_Dec is
       (Str   : String;
        Ptr   : access Integer;
        Max   : Integer;
-      Scale : Integer)
-      return  Integer
+      Scale : Integer) return Integer
     is
        Val : Long_Long_Float;
-
     begin
        Val := Scan_Real (Str, Ptr, Max);
        return Integer (Val * 10.0 ** Scale);
diff --git a/gcc/ada/s-valdec.ads b/gcc/ada/s-valdec.ads

index eb563dedf6b4b7c44c07bcee252a099d0d50fd33..df36ebd9007303d7baf28bfd39ab01a6705eb86a 100644 (file)
--- a/gcc/ada/s-valdec.ads
+++ b/gcc/ada/s-valdec.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---            Copyright (C) 1992-2005 Free Software Foundation, Inc.        --
+--            Copyright (C) 1992-2005, 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- --
@@ -42,8 +42,7 @@ package System.Val_Dec is
       (Str   : String;
        Ptr   : access Integer;
        Max   : Integer;
-      Scale : Integer)
-      return  Integer;
+      Scale : Integer) return Integer;
     --  This function scans the string starting at Str (Ptr.all) for a valid
     --  real literal according to the syntax described in (RM 3.5(43)). The
     --  substring scanned extends no further than Str (Max). There are three
diff --git a/gcc/ada/s-valint.adb b/gcc/ada/s-valint.adb

index 7598efdea9cead1ae2ed68a62a5a6ab01a1a3862..8bfb3733d4bf67bf7127e2f0cbea255381cb80de 100644 (file)
--- a/gcc/ada/s-valint.adb
+++ b/gcc/ada/s-valint.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -42,9 +42,9 @@ package body System.Val_Int is
     ------------------
  
     function Scan_Integer
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer) return Integer
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return Integer
     is
        Uval : Unsigned;
        --  Unsigned result
diff --git a/gcc/ada/s-valint.ads b/gcc/ada/s-valint.ads

index 32c6be32cc5cf1e432856c350be28feadd602659..6413a3492723fcbca28f5d4c940bc317e8e63208 100644 (file)
--- a/gcc/ada/s-valint.ads
+++ b/gcc/ada/s-valint.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -38,9 +38,9 @@ package System.Val_Int is
     pragma Pure;
  
     function Scan_Integer
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer) return Integer;
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return Integer;
     --  This function scans the string starting at Str (Ptr.all) for a valid
     --  integer according to the syntax described in (RM 3.5(43)). The substring
     --  scanned extends no further than Str (Max). There are three cases for the
diff --git a/gcc/ada/s-vallld.adb b/gcc/ada/s-vallld.adb

index 5f7f5c3f6e1383d7cc9ed8c5909725bfb28199e4..958fb96aa6d4f2654141a72209b6af41b4b06ce5 100644 (file)
--- a/gcc/ada/s-vallld.adb
+++ b/gcc/ada/s-vallld.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---   Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc.  --
+--          Copyright (C) 1992-2005, 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- --
@@ -47,11 +47,9 @@ package body System.Val_LLD is
       (Str   : String;
        Ptr   : access Integer;
        Max   : Integer;
-      Scale : Integer)
-      return  Long_Long_Integer
+      Scale : Integer) return Long_Long_Integer
     is
        Val : Long_Long_Float;
-
     begin
        Val := Scan_Real (Str, Ptr, Max);
        return Long_Long_Integer (Val * 10.0 ** Scale);
@@ -65,8 +63,7 @@ package body System.Val_LLD is
  
     function Value_Long_Long_Decimal
       (Str   : String;
-      Scale : Integer)
-      return  Long_Long_Integer
+      Scale : Integer) return Long_Long_Integer
     is
     begin
        return Long_Long_Integer (Value_Real (Str) * 10.0 ** Scale);
diff --git a/gcc/ada/s-vallld.ads b/gcc/ada/s-vallld.ads

index 7d3b14101fc32c8ba698681f3633224ef1900532..7022669dfcd34d02a86e33e7f07dbc17526af073 100644 (file)
--- a/gcc/ada/s-vallld.ads
+++ b/gcc/ada/s-vallld.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -42,8 +42,7 @@ package System.Val_LLD is
       (Str   : String;
        Ptr   : access Integer;
        Max   : Integer;
-      Scale : Integer)
-      return  Long_Long_Integer;
+      Scale : Integer) return Long_Long_Integer;
     --  This function scans the string starting at Str (Ptr.all) for a valid
     --  real literal according to the syntax described in (RM 3.5(43)). The
     --  substring scanned extends no further than Str (Max). There are three
@@ -73,8 +72,7 @@ package System.Val_LLD is
  
     function Value_Long_Long_Decimal
       (Str   : String;
-      Scale : Integer)
-      return  Long_Long_Integer;
+      Scale : Integer) return Long_Long_Integer;
     --  Used in computing X'Value (Str) where X is a decimal types whose size
     --  exceeds Standard.Integer'Size. Str is the string argument of the
     --  attribute. Constraint_Error is raised if the string is malformed
diff --git a/gcc/ada/s-vallli.adb b/gcc/ada/s-vallli.adb

index 101e6aaf628eda3526240ee21521d8d51ebedcde..ad54db946077c6e9e314d0488c93de546cdac1cb 100644 (file)
--- a/gcc/ada/s-vallli.adb
+++ b/gcc/ada/s-vallli.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -88,7 +88,6 @@ package body System.Val_LLI is
     function Value_Long_Long_Integer (Str : String) return Long_Long_Integer is
        V : Long_Long_Integer;
        P : aliased Integer := Str'First;
-
     begin
        V := Scan_Long_Long_Integer (Str, P'Access, Str'Last);
        Scan_Trailing_Blanks (Str, P);
diff --git a/gcc/ada/s-vallli.ads b/gcc/ada/s-vallli.ads

index 57c7f2da9d7bdfdb5519b8a070ad44a55534a9bb..e83fd8f710b425e85eac70d6bf4d6108d0aa1024 100644 (file)
--- a/gcc/ada/s-vallli.ads
+++ b/gcc/ada/s-vallli.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-valllu.adb b/gcc/ada/s-valllu.adb

index 9407cbdf0094d5959974b1f5cdcc0432e8511dd3..ca4cbb2a38cc493ef1a18dd28c4bcfb39d5571d9 100644 (file)
--- a/gcc/ada/s-valllu.adb
+++ b/gcc/ada/s-valllu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -41,9 +41,9 @@ package body System.Val_LLU is
     -----------------------------
  
     function Scan_Long_Long_Unsigned
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer) return Long_Long_Unsigned
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return Long_Long_Unsigned
     is
        P : Integer;
        --  Local copy of the pointer
@@ -289,7 +289,6 @@ package body System.Val_LLU is
     is
        V : Long_Long_Unsigned;
        P : aliased Integer := Str'First;
-
     begin
        V := Scan_Long_Long_Unsigned (Str, P'Access, Str'Last);
        Scan_Trailing_Blanks (Str, P);
diff --git a/gcc/ada/s-valllu.ads b/gcc/ada/s-valllu.ads

index 6fee777c8ef49f484c15e24fbc582981372625c0..603e4b6bc80aad97570caace04bacc86a4495918 100644 (file)
--- a/gcc/ada/s-valllu.ads
+++ b/gcc/ada/s-valllu.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -40,9 +40,9 @@ package System.Val_LLU is
     pragma Pure;
  
     function Scan_Long_Long_Unsigned
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer) return System.Unsigned_Types.Long_Long_Unsigned;
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return System.Unsigned_Types.Long_Long_Unsigned;
     --  This function scans the string starting at Str (Ptr.all) for a valid
     --  integer according to the syntax described in (RM 3.5(43)). The substring
     --  scanned extends no further than Str (Max). There are three cases for the
diff --git a/gcc/ada/s-valrea.adb b/gcc/ada/s-valrea.adb

index 3a6ca8c0ba2d225494fda96701692e6d49cbcb2f..e277e380991688d8cc90a09c236548c1c8ce5fbb 100644 (file)
--- a/gcc/ada/s-valrea.adb
+++ b/gcc/ada/s-valrea.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -41,9 +41,9 @@ package body System.Val_Real is
     ---------------
  
     function Scan_Real
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer) return Long_Long_Float
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return Long_Long_Float
     is
        procedure Reset;
        pragma Import (C, Reset, "__gnat_init_float");
@@ -100,6 +100,10 @@ package body System.Val_Real is
        --  return P points past the last character. On entry, the current
        --  character is known to be a digit, so a numeral is definitely present.
  
+      -----------
+      -- Scanf --
+      -----------
+
        procedure Scanf is
           Digit : Natural;
  
@@ -330,7 +334,7 @@ package body System.Val_Real is
        if Base /= 10.0 then
           Uval := Uval * Base ** Scale;
  
-      --  For base 10, use power of ten table, repeatedly if necessary.
+      --  For base 10, use power of ten table, repeatedly if necessary
  
        elsif Scale > 0 then
           while Scale > Maxpow loop
@@ -377,7 +381,6 @@ package body System.Val_Real is
     function Value_Real (Str : String) return Long_Long_Float is
        V : Long_Long_Float;
        P : aliased Integer := Str'First;
-
     begin
        V := Scan_Real (Str, P'Access, Str'Last);
        Scan_Trailing_Blanks (Str, P);
diff --git a/gcc/ada/s-valrea.ads b/gcc/ada/s-valrea.ads

index 821072d7d4e1f83a8e464529c4b92d3f63fce5e3..d3b0e33d90b2eb38dc6ebe676b96358eeedf59d5 100644 (file)
--- a/gcc/ada/s-valrea.ads
+++ b/gcc/ada/s-valrea.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -35,9 +35,9 @@ package System.Val_Real is
     pragma Pure;
  
     function Scan_Real
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer) return Long_Long_Float;
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return Long_Long_Float;
     --  This function scans the string starting at Str (Ptr.all) for a valid
     --  real literal according to the syntax described in (RM 3.5(43)). The
     --  substring scanned extends no further than Str (Max). There are three
diff --git a/gcc/ada/s-valuns.adb b/gcc/ada/s-valuns.adb

index 77fba797a654b02962642d3b70875c9422541959..885db28f3c7e87d3e0a6e6ef979e6d8b205c2964 100644 (file)
--- a/gcc/ada/s-valuns.adb
+++ b/gcc/ada/s-valuns.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-1997 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -41,10 +41,9 @@ package body System.Val_Uns is
     -------------------
  
     function Scan_Unsigned
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer)
-      return Unsigned
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return Unsigned
     is
        P : Integer;
        --  Local copy of the pointer
@@ -285,12 +284,10 @@ package body System.Val_Uns is
     function Value_Unsigned (Str : String) return Unsigned is
        V : Unsigned;
        P : aliased Integer := Str'First;
-
     begin
        V := Scan_Unsigned (Str, P'Access, Str'Last);
        Scan_Trailing_Blanks (Str, P);
        return V;
-
     end Value_Unsigned;
  
  end System.Val_Uns;
diff --git a/gcc/ada/s-valuns.ads b/gcc/ada/s-valuns.ads

index 88f609e7b5bb17b76587bbf9865bbce03533b150..bd41849e98fbf9bef1d83eadf6225c6ddc8ea4cb 100644 (file)
--- a/gcc/ada/s-valuns.ads
+++ b/gcc/ada/s-valuns.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -40,10 +40,9 @@ package System.Val_Uns is
     pragma Pure;
  
     function Scan_Unsigned
-     (Str  : String;
-      Ptr  : access Integer;
-      Max  : Integer)
-      return System.Unsigned_Types.Unsigned;
+     (Str : String;
+      Ptr : access Integer;
+      Max : Integer) return System.Unsigned_Types.Unsigned;
     --  This function scans the string starting at Str (Ptr.all) for a valid
     --  integer according to the syntax described in (RM 3.5(43)). The substring
     --  scanned extends no further than Str (Max). There are three cases for the
@@ -71,8 +70,7 @@ package System.Val_Uns is
     --  is greater than Max as required in this case.
  
     function Value_Unsigned
-     (Str : String)
-     return System.Unsigned_Types.Unsigned;
+     (Str : String) return System.Unsigned_Types.Unsigned;
     --  Used in computing X'Value (Str) where X is a modular integer type whose
     --  modulus does not exceed the range of System.Unsigned_Types.Unsigned. Str
     --  is the string argument of the attribute. Constraint_Error is raised if
diff --git a/gcc/ada/s-valuti.adb b/gcc/ada/s-valuti.adb

index 470f8a9c684135f23a11732512287fdd57ba3453..07f067b79cc920027dc985a0a8acbb8cdbc402e0 100644 (file)
--- a/gcc/ada/s-valuti.adb
+++ b/gcc/ada/s-valuti.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2002, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -83,8 +83,7 @@ package body System.Val_Util is
       (Str  : String;
        Ptr  : access Integer;
        Max  : Integer;
-      Real : Boolean := False)
-      return Integer
+      Real : Boolean := False) return Integer
     is
        P : Natural := Ptr.all;
        M : Boolean;
diff --git a/gcc/ada/s-valuti.ads b/gcc/ada/s-valuti.ads

index f7073ae97d1a6c99943623ac7287657fa10a261e..ac905096862843b078ce8d889ec07983cc2b6daa 100644 (file)
--- a/gcc/ada/s-valuti.ads
+++ b/gcc/ada/s-valuti.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -74,8 +74,7 @@ package System.Val_Util is
       (Str  : String;
        Ptr  : access Integer;
        Max  : Integer;
-      Real : Boolean := False)
-      return Integer;
+      Real : Boolean := False) return Integer;
     --  Called to scan a possible exponent. Str, Ptr, Max are as described above
     --  for Scan_Sign. If Ptr.all < Max and Str (Ptr.all) = 'E' or 'e', then an
     --  exponent is scanned out, with the exponent value returned in Exp, and
diff --git a/gcc/ada/s-valwch.ads b/gcc/ada/s-valwch.ads

index 05064c9cfad64e8f43a214cc23f40a7e6c7d245a..32a4b508f2775dd9652d03aa98efc1e2689f6871 100644 (file)
--- a/gcc/ada/s-valwch.ads
+++ b/gcc/ada/s-valwch.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-veboop.adb b/gcc/ada/s-veboop.adb

index 20d9d0ed44c7ad3336666bc82f41559fc1ef00e8..177a9448068b5115fce68c0cc6bac724d9efc8b0 100644 (file)
--- a/gcc/ada/s-veboop.adb
+++ b/gcc/ada/s-veboop.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 2002-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2002-2005, 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- --
diff --git a/gcc/ada/s-veboop.ads b/gcc/ada/s-veboop.ads

index f7e135907cd68bdd560d22b1a24f48c958ca1dc4..2708b22287fc39fb341d0dda2fab190cf8c959b1 100644 (file)
--- a/gcc/ada/s-veboop.ads
+++ b/gcc/ada/s-veboop.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 2002-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 2002-2005, 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- --
diff --git a/gcc/ada/s-vercon.adb b/gcc/ada/s-vercon.adb

index 186b9b714c4a68df51b7b52839acc854d6e39f6b..b9b8fe8b4164556f3d3a11c99632e0dc6caf28fe 100644 (file)
--- a/gcc/ada/s-vercon.adb
+++ b/gcc/ada/s-vercon.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -32,6 +32,7 @@
  ------------------------------------------------------------------------------
  
  with System.Unsigned_Types; use System.Unsigned_Types;
+
  package body System.Version_Control is
  
     ------------------------
diff --git a/gcc/ada/s-vercon.ads b/gcc/ada/s-vercon.ads

index c8d26a916d35c9fed554e54c87f2af76fd6d57cf..49c31532891fd3e995b90bd606043e992c242901 100644 (file)
--- a/gcc/ada/s-vercon.ads
+++ b/gcc/ada/s-vercon.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---         Copyright (C) 1992-2005 Free Software Foundation, Inc.           --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchcnv.adb b/gcc/ada/s-wchcnv.adb

index e31ac7be6f12970b9b674aaf501766c49e7871fb..e3afa9c05e7b3ac9f2ebb48372838514d62fe2ea 100644 (file)
--- a/gcc/ada/s-wchcnv.adb
+++ b/gcc/ada/s-wchcnv.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchcnv.ads b/gcc/ada/s-wchcnv.ads

index d90ae5b3869391b53273714bba8451b40d551d0b..bebf56240ab8e07b30c620e7103740cd0672e584 100644 (file)
--- a/gcc/ada/s-wchcnv.ads
+++ b/gcc/ada/s-wchcnv.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchcon.ads b/gcc/ada/s-wchcon.ads

index 40394db19018cb41de988c6d282f6352730294d5..f266645852591bf6f45b26131924599a70372d77 100644 (file)
--- a/gcc/ada/s-wchcon.ads
+++ b/gcc/ada/s-wchcon.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchjis.adb b/gcc/ada/s-wchjis.adb

index 6767c44b200a5f6a37d3f0f97b3042c34a1da623..5ac43a67bfcbfb50571b12826618cf77fe78dac2 100644 (file)
--- a/gcc/ada/s-wchjis.adb
+++ b/gcc/ada/s-wchjis.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchjis.ads b/gcc/ada/s-wchjis.ads

index 0f103170ec7baeda82c76467005661ddeb563d56..ebfcbedfb712837d93372c0bc98379f80aaaa995 100644 (file)
--- a/gcc/ada/s-wchjis.ads
+++ b/gcc/ada/s-wchjis.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchstw.adb b/gcc/ada/s-wchstw.adb

index a736d99e789e9aebd34e3201f466d6f902a2c6b9..476a2e84abecead6f791cde8de9813de5d9d4058 100644 (file)
--- a/gcc/ada/s-wchstw.adb
+++ b/gcc/ada/s-wchstw.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -65,7 +65,7 @@ package body System.WCh_StW is
        --  if P > S'Last on entry.
  
        function Get_UTF_32 is new Char_Sequence_To_UTF_32 (In_Char);
-      --  Function to get next UFT_32 value.
+      --  Function to get next UFT_32 value
  
        -------------
        -- In_Char --
@@ -81,6 +81,8 @@ package body System.WCh_StW is
           end if;
        end In_Char;
  
+   --  Start of processing for Get_Next_Code
+
     begin
        --  Check for wide character encoding
  
diff --git a/gcc/ada/s-wchstw.ads b/gcc/ada/s-wchstw.ads

index ba154b901ba1bd6eb6aa99f5c1d12fd2bfe579a8..b965e2fce5200163b5ed640b425681ef826fd9a0 100644 (file)
--- a/gcc/ada/s-wchstw.ads
+++ b/gcc/ada/s-wchstw.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchwts.adb b/gcc/ada/s-wchwts.adb

index de9b6ceaabe58eaf6936e2c9d4fcf043039c246f..995f5acda0ffd936d33b3910625a2835a827f5c3 100644 (file)
--- a/gcc/ada/s-wchwts.adb
+++ b/gcc/ada/s-wchwts.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wchwts.ads b/gcc/ada/s-wchwts.ads

index ac34cf2dccda52491ef2cb85de72d535a773de52..2359701462c6d4c53e516887859244dcaa0dc07f 100644 (file)
--- a/gcc/ada/s-wchwts.ads
+++ b/gcc/ada/s-wchwts.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widboo.adb b/gcc/ada/s-widboo.adb

index fa245f4b5deae8758415d71fd07d0dcf457aa048..395f7a1dd429952757bdb98ff94b0a864f0349a2 100644 (file)
--- a/gcc/ada/s-widboo.adb
+++ b/gcc/ada/s-widboo.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widboo.ads b/gcc/ada/s-widboo.ads

index 9e5e1bd09450f0c43b9bc28b230c39ecf91486d2..16192a632580de6beab616eb6a343cc3510247ef 100644 (file)
--- a/gcc/ada/s-widboo.ads
+++ b/gcc/ada/s-widboo.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widcha.adb b/gcc/ada/s-widcha.adb

index ec898c3a19fee875cb61c4881a92883cbc437215..23130ddad3682afb0c6120613f492e9cdacb54ca 100644 (file)
--- a/gcc/ada/s-widcha.adb
+++ b/gcc/ada/s-widcha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widcha.ads b/gcc/ada/s-widcha.ads

index 021a5a325f0f89ab88337c20c8c01a6c1ebafdbf..3dac0c4763ec9b90037dcf3cd71cab291a60c0d9 100644 (file)
--- a/gcc/ada/s-widcha.ads
+++ b/gcc/ada/s-widcha.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widenu.adb b/gcc/ada/s-widenu.adb

index c794af92c9f371e5ddbb6d7ea3113b6ec3ba2192..9110c107cb5c4a3baf6a6c4de89a9ba65d0ef68f 100644 (file)
--- a/gcc/ada/s-widenu.adb
+++ b/gcc/ada/s-widenu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widenu.ads b/gcc/ada/s-widenu.ads

index cef6e287aee8accafd97a60795c9d58908ac70b1..ef6af7e517a4fa09b0d31d49bc13d51f565a72b2 100644 (file)
--- a/gcc/ada/s-widenu.ads
+++ b/gcc/ada/s-widenu.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widlli.adb b/gcc/ada/s-widlli.adb

index ee9cd5b337573940c34a3affe72dfef1c202b9fd..3251f2d51e512d7d1f65e1a2ec117ce223c5560d 100644 (file)
--- a/gcc/ada/s-widlli.adb
+++ b/gcc/ada/s-widlli.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widlli.ads b/gcc/ada/s-widlli.ads

index f2aede66aae97da1a0ca99a32731653f8dd26584..6013a8deaf8badf4482528ddf68fc1a1ed8cd3ee 100644 (file)
--- a/gcc/ada/s-widlli.ads
+++ b/gcc/ada/s-widlli.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widllu.adb b/gcc/ada/s-widllu.adb

index c282c93a6f9819f2c93418d50ba0a8b69a28ab29..75b6667717cadb6347a2358f1ca8c83f31683558 100644 (file)
--- a/gcc/ada/s-widllu.adb
+++ b/gcc/ada/s-widllu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widllu.ads b/gcc/ada/s-widllu.ads

index dff5bb3019b8d40ceebc50232b13355b4cbc3c52..58ac484c40f1c7d58c878f1c7547259555f740ca 100644 (file)
--- a/gcc/ada/s-widllu.ads
+++ b/gcc/ada/s-widllu.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widwch.adb b/gcc/ada/s-widwch.adb

index 8cca640f8dcba440281a16221d9f86940d86ed2e..e4e3dcc8706e66c4fac77e3c9e83390071df5fce 100644 (file)
--- a/gcc/ada/s-widwch.adb
+++ b/gcc/ada/s-widwch.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-widwch.ads b/gcc/ada/s-widwch.ads

index ca5e2fab89c4f4be80d26efb26b6abd089ca0009..5ff4aaf7e59b96ecfed5dbd5fb88bdf62447a270 100644 (file)
--- a/gcc/ada/s-widwch.ads
+++ b/gcc/ada/s-widwch.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wwdcha.adb b/gcc/ada/s-wwdcha.adb

index 7f657ad7bd8a7e775aea89b1cd60508e7909fd34..3580a0142f5f531183eea3d1e5372995bfb4c3de 100644 (file)
--- a/gcc/ada/s-wwdcha.adb
+++ b/gcc/ada/s-wwdcha.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wwdcha.ads b/gcc/ada/s-wwdcha.ads

index 3ba15e473ebc660b4ae2600be279ed61e9c385b7..566dc1f8c7dd179455e8ca3d9202b867c8edce3b 100644 (file)
--- a/gcc/ada/s-wwdcha.ads
+++ b/gcc/ada/s-wwdcha.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wwdenu.adb b/gcc/ada/s-wwdenu.adb

index 090522f39aa993d8f37818bc57bef19df6a1c650..9a2fac7c3e44b227fbeed13c1d41596df61aedd5 100644 (file)
--- a/gcc/ada/s-wwdenu.adb
+++ b/gcc/ada/s-wwdenu.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/s-wwdenu.ads b/gcc/ada/s-wwdenu.ads

index 67bac34a8591fc741684aaa171350ad4f2546ea1..d8cbf528e0e438e7b1d5b8941cc2c449dc85a611 100644 (file)
--- a/gcc/ada/s-wwdenu.ads
+++ b/gcc/ada/s-wwdenu.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb

index 36afe180caa8a2683b66783334f44dc3bb700a14..8c73ae952421dec85671f7c935b06ca5966549b6 100644 (file)
--- a/gcc/ada/sem.adb
+++ b/gcc/ada/sem.adb
@@ -646,7 +646,6 @@ package body Sem is
        if Suppress = All_Checks then
           declare
              Svg : constant Suppress_Array := Scope_Suppress;
-
           begin
              Scope_Suppress := (others => True);
              Analyze (N);
@@ -656,7 +655,6 @@ package body Sem is
        else
           declare
              Svg : constant Boolean := Scope_Suppress (Suppress);
-
           begin
              Scope_Suppress (Suppress) := True;
              Analyze (N);
@@ -687,7 +685,6 @@ package body Sem is
        if Suppress = All_Checks then
           declare
              Svg : constant Suppress_Array := Scope_Suppress;
-
           begin
              Scope_Suppress := (others => True);
              Analyze_List (L);
@@ -697,7 +694,6 @@ package body Sem is
        else
           declare
              Svg : constant Boolean := Scope_Suppress (Suppress);
-
           begin
              Scope_Suppress (Suppress) := True;
              Analyze_List (L);
@@ -928,7 +924,6 @@ package body Sem is
        if Suppress = All_Checks then
           declare
              Svg : constant Suppress_Array := Scope_Suppress;
-
           begin
              Scope_Suppress := (others => True);
              Insert_After_And_Analyze (N, M);
@@ -938,7 +933,6 @@ package body Sem is
        else
           declare
              Svg : constant Boolean := Scope_Suppress (Suppress);
-
           begin
              Scope_Suppress (Suppress) := True;
              Insert_After_And_Analyze (N, M);
@@ -990,7 +984,6 @@ package body Sem is
        if Suppress = All_Checks then
           declare
              Svg : constant Suppress_Array := Scope_Suppress;
-
           begin
              Scope_Suppress := (others => True);
              Insert_Before_And_Analyze (N, M);
@@ -1000,7 +993,6 @@ package body Sem is
        else
           declare
              Svg : constant Boolean := Scope_Suppress (Suppress);
-
           begin
              Scope_Suppress (Suppress) := True;
              Insert_Before_And_Analyze (N, M);
@@ -1051,7 +1043,6 @@ package body Sem is
        if Suppress = All_Checks then
           declare
              Svg : constant Suppress_Array := Scope_Suppress;
-
           begin
              Scope_Suppress := (others => True);
              Insert_List_After_And_Analyze (N, L);
@@ -1061,7 +1052,6 @@ package body Sem is
        else
           declare
              Svg : constant Boolean := Scope_Suppress (Suppress);
-
           begin
              Scope_Suppress (Suppress) := True;
              Insert_List_After_And_Analyze (N, L);
@@ -1111,7 +1101,6 @@ package body Sem is
        if Suppress = All_Checks then
           declare
              Svg : constant Suppress_Array := Scope_Suppress;
-
           begin
              Scope_Suppress := (others => True);
              Insert_List_Before_And_Analyze (N, L);
@@ -1121,7 +1110,6 @@ package body Sem is
        else
           declare
              Svg : constant Boolean := Scope_Suppress (Suppress);
-
           begin
              Scope_Suppress (Suppress) := True;
              Insert_List_Before_And_Analyze (N, L);
diff --git a/gcc/ada/sem.ads b/gcc/ada/sem.ads

index 13b2a95900e3be9fe27764fc2b0cb100927dc0d1..d7fb9a649b8c351b059370ae10fa6f915983bd08 100644 (file)
--- a/gcc/ada/sem.ads
+++ b/gcc/ada/sem.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -79,7 +79,7 @@
  --  terminates, the expression can be expanded since all the semantic
  --  information is available at that point.
  
---  If we are not generating code then the expansion phase is a no-op.
+--  If we are not generating code then the expansion phase is a no-op
  
  --  When generating code there are a number of exceptions to the basic
  --  Analysis-Resolution-Expansion model for expressions. The most prominent
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb

index a7df779f32401b536d4356171a24c729b96380ee..25a2f704a15f04bb136cc74d0d809f5e01c479c3 100644 (file)
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1996-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1996-2005, 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- --
diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads

index d7c359a721599d72c06b1ff5954b865cce49d7f0..e07e229c8f1c77c22dfd03e60a2825ae2d475f2a 100644 (file)
--- a/gcc/ada/sem_case.ads
+++ b/gcc/ada/sem_case.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---         Copyright (C) 1996-2002 Free Software Foundation, Inc.           --
+--          Copyright (C) 1996-2005, 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,8 +24,6 @@
  --                                                                          --
  ------------------------------------------------------------------------------
  
-with Types; use Types;
-
  --  Package containing the routines to process a list of discrete choices.
  --  Such lists can occur in two different constructs: case statements and
  --  record variants. We have factorized what used to be two very similar
@@ -33,6 +31,8 @@ with Types; use Types;
  --  aggregate case, since issues with nested aggregates make that case
  --  substantially different.
  
+with Types; use Types;
+
  package Sem_Case is
  
     type Choice_Bounds is record
@@ -63,10 +63,10 @@ package Sem_Case is
        --  to get to the actual list of discrete choices.
  
        with procedure Process_Empty_Choice (Choice : Node_Id);
-      --  Processing to carry out for an empty Choice.
+      --  Processing to carry out for an empty Choice
  
        with procedure Process_Non_Static_Choice (Choice : Node_Id);
-      --  Processing to carry out for a non static Choice.
+      --  Processing to carry out for a non static Choice
  
        with procedure Process_Associated_Node (A : Node_Id);
        --  Associated to each case alternative, aggregate component
@@ -96,11 +96,11 @@ package Sem_Case is
        --  On entry Choice_Table must be big enough to contain all the
        --  discrete choices encountered.
        --
-      --  On exit Choice_Table contains all the static and non empty
-      --  discrete choices in sorted order. Last_Choice gives the position
-      --  of the last valid choice in Choice_Table, Choice_Table'First
-      --  contains the first. We can have Last_Choice < Choice_Table'Last
-      --  for one (or several) of the following reasons:
+      --  On exit Choice_Table contains all the static and non empty discrete
+      --  choices in sorted order. Last_Choice gives the position of the last
+      --  valid choice in Choice_Table, Choice_Table'First contains the first.
+      --  We can have Last_Choice < Choice_Table'Last for one (or several) of
+      --  the following reasons:
        --
        --    (a) The list of choices contained a non static choice
        --
@@ -113,9 +113,9 @@ package Sem_Case is
        --  In one of the bounds of a discrete choice raises a constraint
        --  error the flag Raise_CE is set.
        --
-      --  Finally Others_Present is set to True if an Others choice is
-      --  present in the list of choices, and in this case the call also
-      --  sets Others_Discrete_Choices in the N_Others_Choice node.
+      --  Finally Others_Present is set to True if an Others choice is present
+      --  in the list of choices, and in this case the call also sets
+      --  Others_Discrete_Choices in the N_Others_Choice node.
  
     end Generic_Choices_Processing;
  
diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb

index fb73f605bbb44eb5f4e47654791c5c15ded668eb..978c7e38e96304b2ca9e3d7d662fbc495550160f 100644 (file)
--- a/gcc/ada/sem_ch11.adb
+++ b/gcc/ada/sem_ch11.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb

index 1f8eb2155c382a254fc001467639b48b2bb63f7d..e1aa6b863b2ebc864c4e6e62c7590defd251aa2f 100644 (file)
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -1156,9 +1156,7 @@ package body Sem_Ch4 is
          and then Nkind (N) = N_Op_Ne
        then
           Op_Id := Get_Name_Entity_Id (Name_Op_Eq);
-
           while Present (Op_Id) loop
-
              if Ekind (Op_Id) = E_Operator then
                 Find_Equality_Types (L, R, Op_Id, N);
              else
@@ -1216,7 +1214,6 @@ package body Sem_Ch4 is
  
           else
              Get_First_Interp (N, I, It);
-
              while Present (It.Nam) loop
                 if Ekind (Base_Type (It.Typ)) /= E_Subprogram_Type
                   or else Etype (Base_Type (It.Typ)) = Standard_Void_Type
@@ -1274,7 +1271,6 @@ package body Sem_Ch4 is
  
        else
           Get_First_Interp (P, I, It);
-
           while Present (It.Nam) loop
              T := It.Typ;
  
@@ -1522,7 +1518,6 @@ package body Sem_Ch4 is
              end if;
  
              Index := First_Index (Array_Type);
-
              while Present (Index) and then Present (Exp) loop
                 if not Has_Compatible_Type (Exp, Etype (Index)) then
                    Wrong_Type (Exp, Etype (Index));
@@ -1771,7 +1766,6 @@ package body Sem_Ch4 is
  
        else
           Op_Id := Get_Name_Entity_Id (Chars (N));
-
           while Present (Op_Id) loop
              if Ekind (Op_Id) = E_Operator then
                 Find_Boolean_Types (L, R, Op_Id, N);
@@ -1854,7 +1848,6 @@ package body Sem_Ch4 is
  
           else
              Get_First_Interp (L, Index, It);
-
              while Present (It.Typ) loop
                 Try_One_Interp (It.Typ);
                 Get_Next_Interp (Index, It);
@@ -2168,9 +2161,7 @@ package body Sem_Ch4 is
                         and then Nkind (Left_Opnd (Actual)) = N_Identifier
                       then
                          Formal := First_Formal (Nam);
-
                          while Present (Formal) loop
-
                             if Chars (Left_Opnd (Actual)) = Chars (Formal) then
                                Error_Msg_N
                                  ("possible misspelling of `='>`!", Actual);
@@ -3037,7 +3028,6 @@ package body Sem_Ch4 is
  
        else
           Get_First_Interp (L, Ind, It);
-
           while Present (It.Typ) loop
              if Root_Type (It.Typ) = Standard_Boolean
                and then Has_Compatible_Type (R, It.Typ)
@@ -3788,7 +3778,6 @@ package body Sem_Ch4 is
  
        else
           Get_First_Interp (L, Index1, It1);
-
           while Present (It1.Typ) loop
              Check_Right_Argument (It1.Typ);
              Get_Next_Interp (Index1, It1);
@@ -4281,7 +4270,7 @@ package body Sem_Ch4 is
           return False;
        end if;
  
-      --  Now test the entity we got to see if it a bad case
+      --  Now test the entity we got to see if it is a bad case
  
        case Ekind (Entity (Enode)) is
  
@@ -4346,7 +4335,7 @@ package body Sem_Ch4 is
              end if;
  
              --  If either operand has no type, then don't complain further,
-            --  since this simply means that we have a propragated error.
+            --  since this simply means that we have a propagated error.
  
              if R = Error
                or else Etype (R) = Any_Type
@@ -4669,7 +4658,6 @@ package body Sem_Ch4 is
                       --  select the predefined operator and discard others.
  
                       Get_First_Interp (N, I, It);
-
                       while Present (It.Nam) loop
                          if Scope (It.Nam) = Standard_Standard then
                             Set_Etype (N, Univ_Type);
@@ -4758,12 +4746,10 @@ package body Sem_Ch4 is
  
     begin
        Normalize_Actuals (N, Designated_Type (Typ), False, Call_OK);
+
        Actual := First_Actual (N);
        Formal := First_Formal (Designated_Type (Typ));
-
-      while Present (Actual)
-        and then Present (Formal)
-      loop
+      while Present (Actual) and then Present (Formal) loop
           if not Has_Compatible_Type (Actual, Etype (Formal)) then
              return False;
           end if;
@@ -4806,9 +4792,8 @@ package body Sem_Ch4 is
     begin
        Actual := First (Actuals);
        Index := First_Index (Typ);
-      while Present (Actual)
-        and then Present (Index)
-      loop
+      while Present (Actual) and then Present (Index) loop
+
           --  If the parameter list has a named association, the expression
           --  is definitely a call and not an indexed component.
  
diff --git a/gcc/ada/sem_ch6.ads b/gcc/ada/sem_ch6.ads

index 79d785e10c5d7ec58ed357e39b83b126acfdb9de..da8e8790ce411e47b4fbe68bd3e9de80912a19fe 100644 (file)
--- a/gcc/ada/sem_ch6.ads
+++ b/gcc/ada/sem_ch6.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/sem_ch7.ads b/gcc/ada/sem_ch7.ads

index 7cb526494c2bb3969f0c9b16d2d0335cc383a1fc..44cca2769b4382f6f458773ad3f1329f48dbf7b5 100644 (file)
--- a/gcc/ada/sem_ch7.ads
+++ b/gcc/ada/sem_ch7.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -25,7 +25,8 @@
  ------------------------------------------------------------------------------
  
  with Types; use Types;
-package Sem_Ch7  is
+
+package Sem_Ch7 is
  
     procedure Analyze_Package_Body                       (N : Node_Id);
     procedure Analyze_Package_Declaration                (N : Node_Id);
@@ -33,7 +34,7 @@ package Sem_Ch7  is
     procedure Analyze_Private_Type_Declaration           (N : Node_Id);
  
     procedure End_Package_Scope (P : Entity_Id);
-   --  Calls Uninstall_Declarations, and then pops the scope stack.
+   --  Calls Uninstall_Declarations, and then pops the scope stack
  
     procedure Exchange_Declarations (Id : Entity_Id);
     --  Exchange private and full declaration on entry/exit from a package
@@ -74,4 +75,5 @@ package Sem_Ch7  is
     --  visible entities at the end of their homonym chains. For compilation
     --  units, make all entities invisible. In both cases, exchange private
     --  and visible declarations to restore order of elaboration.
+
  end Sem_Ch7;
diff --git a/gcc/ada/sem_dist.ads b/gcc/ada/sem_dist.ads

index 610c785f16235736c60b05909d9ddd84de7cba37..24745890b53a619b9f9b864a39290ef3efa863ee 100644 (file)
--- a/gcc/ada/sem_dist.ads
+++ b/gcc/ada/sem_dist.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/sem_elab.ads b/gcc/ada/sem_elab.ads

index 106cb72c6b1e778970c4202b14a33c45e0f9dad8..e42a4ab20f42edcea7bb2e76b23e6b0850c18185 100644 (file)
--- a/gcc/ada/sem_elab.ads
+++ b/gcc/ada/sem_elab.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/sem_elim.ads b/gcc/ada/sem_elim.ads

index e3a3b153240fc390e8a92374111a8c7eb661cb7a..c87f4f0cb48378c82fbadecf9b7852df434ebf51 100644 (file)
--- a/gcc/ada/sem_elim.ads
+++ b/gcc/ada/sem_elim.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1997-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1997-2005, 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- --
diff --git a/gcc/ada/sem_eval.ads b/gcc/ada/sem_eval.ads

index bf9d712f9864935c3e9d7004798c1274a7342e0f..5509185db313d861740b01b834fd211433365c86 100644 (file)
--- a/gcc/ada/sem_eval.ads
+++ b/gcc/ada/sem_eval.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/sem_intr.ads b/gcc/ada/sem_intr.ads

index 3629786993e2349fc7d6153d7030daa6c6dc3f0e..851686af0a9ebb996adc1e3dea0bbd3fd287c7a0 100644 (file)
--- a/gcc/ada/sem_intr.ads
+++ b/gcc/ada/sem_intr.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/sem_maps.adb b/gcc/ada/sem_maps.adb

index 90c1c4a3ac199f3afb9ff74c8d86b32c2001b05b..0a66a91f0b3f0ae9950d9692a0bb4fe1eebf4e47 100644 (file)
--- a/gcc/ada/sem_maps.adb
+++ b/gcc/ada/sem_maps.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1996-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1996-2005, 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- --
diff --git a/gcc/ada/sem_maps.ads b/gcc/ada/sem_maps.ads

index 5d8e6af4ffd207f9d2f046ecf4284a769268adf0..eb126790665d72acf414016d05274a446af4b30e 100644 (file)
--- a/gcc/ada/sem_maps.ads
+++ b/gcc/ada/sem_maps.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1996-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1996-2005, 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- --
@@ -36,7 +36,7 @@
  --  Map composition of renaming maps takes place for nested instantiations,
  --  for generic child units, and for formal packages.
  
---  For additional details, see the documentation in sem_ch12.
+--  For additional details, see the documentation in sem_ch12
  
  with Table;
  with Types; use Types;
@@ -58,24 +58,24 @@ package Sem_Maps is
     --  and New_Map (e2) = e3, then the image of e1 under the result is e3.
  
     function Copy (M : Map) return Map;
-   --  Full copy of contents and headers.
+   --  Full copy of contents and headers
  
     function Lookup (M : Map; E : Entity_Id) return Entity_Id;
-   --  Retrieve image of E under M, Empty if undefined.
+   --  Retrieve image of E under M, Empty if undefined
  
     procedure Add_Association
       (M    : in out Map;
        O_Id : Entity_Id;
        N_Id : Entity_Id;
        Kind : Scope_Kind := S_Local);
-   --  Update M in place. On entry M (O_Id) must not be defined.
+   --  Update M in place. On entry M (O_Id) must not be defined
  
     procedure Update_Association
       (M    : in out Map;
        O_Id : Entity_Id;
        N_Id : Entity_Id;
        Kind : Scope_Kind := S_Local);
-   --  Update the entry in M for O_Id.
+   --  Update the entry in M for O_Id
  
     function Build_Instance_Map (M : Map) return Map;
     --  Copy renaming map of generic, and create new entities for all the
diff --git a/gcc/ada/sem_res.ads b/gcc/ada/sem_res.ads

index 2ff4d06e241dea717a7291c4075fd07de194a3f4..f1a098f2c7af8e673833b53037da4ae148d60b05 100644 (file)
--- a/gcc/ada/sem_res.ads
+++ b/gcc/ada/sem_res.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/sem_type.ads b/gcc/ada/sem_type.ads

index 7f11512f8b1d5072ecbe4e895b3e73f76143813d..63c65ec7bc3dc048707572be8fcbd115adf4b35e 100644 (file)
--- a/gcc/ada/sem_type.ads
+++ b/gcc/ada/sem_type.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -91,7 +91,7 @@ package Sem_Type is
     -----------------
  
     procedure Init_Interp_Tables;
-   --  Invoked by gnatf when processing multiple files.
+   --  Invoked by gnatf when processing multiple files
  
     procedure Collect_Interps (N : Node_Id);
     --  Invoked when the name N has more than one visible interpretation.
@@ -131,7 +131,7 @@ package Sem_Type is
     --  of the operands of N, to check visibility.
  
     procedure End_Interp_List;
-   --  End the list of interpretations of current node.
+   --  End the list of interpretations of current node
  
     procedure Get_First_Interp
       (N  : Node_Id;
diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb

index 2deaf26fef49d3af663622c80becd812864c9dcb..d3d3dd4904fe49877a59f86c82b687cec9bdcd1b 100644 (file)
--- a/gcc/ada/sfn_scan.adb
+++ b/gcc/ada/sfn_scan.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2000-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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- --
diff --git a/gcc/ada/sfn_scan.ads b/gcc/ada/sfn_scan.ads

index 8ad6d840a3f8395613436ad07d04a708b9d475d1..8ce848f28661f3adafb0a0f0aaa5e83b4953b23a 100644 (file)
--- a/gcc/ada/sfn_scan.ads
+++ b/gcc/ada/sfn_scan.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2000-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 2000-2005, 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- --
diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb

index c838dbb8506d422d45e623e5d351ce0be0ee562c..d20adf5aed2cb1e4dad11ee0f7eed5b1f8d5992b 100644 (file)
--- a/gcc/ada/sinput.adb
+++ b/gcc/ada/sinput.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -86,7 +86,7 @@ package body Sinput is
        LL : Physical_Line_Number;
  
     begin
-      --  Reallocate the lines tables if necessary.
+      --  Reallocate the lines tables if necessary
  
        --  Note: the reason we do not use the normal Table package
        --  mechanism is that we have several of these tables. We could
diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads

index aaaf0b827824999eb6a34f45c32aad2e32b45004..092707c1c2e4cf165306b3a32e90387a66614401 100644 (file)
--- a/gcc/ada/sinput.ads
+++ b/gcc/ada/sinput.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -655,7 +655,7 @@ private
     --  we avoid the use of fat pointers.
  
     type Logical_Lines_Table_Ptr is access all Logical_Lines_Table_Type;
-   --  Type used for pointers to logical line tables.
+   --  Type used for pointers to logical line tables
  
     -----------------------
     -- Source_File Table --
diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads

index a51a52a74a18fa6c7f844fbb72dad96f4fbf3097..d10a009ea4724492612ce3ed00c99173775f7d48 100644 (file)
--- a/gcc/ada/sprint.ads
+++ b/gcc/ada/sprint.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2002, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -115,7 +115,7 @@ package Sprint is
     --  does not generate any New_Line calls.
  
     procedure Sprint_Opt_Node_List (List : List_Id);
-   --  Like Sprint_Node_List, but prints nothing if List = No_List.
+   --  Like Sprint_Node_List, but prints nothing if List = No_List
  
     procedure Sprint_Indented_List (List : List_Id);
     --  Like Sprint_Line_List, except that the indentation level is
diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads

index a9a1df2ae25bc5477a50a3dc5bcd3cb86b0c04a3..8e3b7ecee2bdcbc90f7a3725cd945db345521af3 100644 (file)
--- a/gcc/ada/stand.ads
+++ b/gcc/ada/stand.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -335,7 +335,7 @@ package Stand is
     --  This is a type used to represent the return type of procedures
  
     Standard_Exception_Type  : Entity_Id;
-   --  This is a type used to represent the Etype of exceptions.
+   --  This is a type used to represent the Etype of exceptions
  
     Standard_A_String   : Entity_Id;
     --  An access to String type used for building elements of tables
@@ -362,13 +362,13 @@ package Stand is
     --  is propagated to avoid cascaded errors from a single type error.
  
     Any_Access : Entity_Id;
-   --  Used to resolve the overloaded literal NULL.
+   --  Used to resolve the overloaded literal NULL
  
     Any_Array : Entity_Id;
     --  Used to represent some unknown array type
  
     Any_Boolean : Entity_Id;
-   --  The context type of conditions in IF and WHILE statements.
+   --  The context type of conditions in IF and WHILE statements
  
     Any_Character : Entity_Id;
     --  Any_Character is used to label character literals, which in general
@@ -386,7 +386,7 @@ package Stand is
     --  Used to represent some unknown fixed-point type
  
     Any_Integer : Entity_Id;
-   --  Used to represent some unknown integer type.
+   --  Used to represent some unknown integer type
  
     Any_Modular : Entity_Id;
     --  Used to represent the result type of a boolean operation on an
@@ -394,10 +394,10 @@ package Stand is
     --  only legal in a modular context.
  
     Any_Numeric : Entity_Id;
-   --  Used to represent some unknown numeric type.
+   --  Used to represent some unknown numeric type
  
     Any_Real : Entity_Id;
-   --  Used to represent some unknown real type.
+   --  Used to represent some unknown real type
  
     Any_Scalar : Entity_Id;
     --  Used to represent some unknown scalar type
@@ -416,7 +416,9 @@ package Stand is
     Universal_Real : Entity_Id;
     --  Entity for universal real type. The bounds of this type correspond to
     --  to the largest supported real type (i.e. Long_Long_Real). It is the
-   --  type used for runtime calculations in type universal real.
+   --  type used for runtime calculations in type universal real. Note that
+   --  this type is always IEEE format, even if Long_Long_Real is Vax_Float
+   --  (and in that case the bounds don't correspond exactly).
  
     Universal_Fixed : Entity_Id;
     --  Entity for universal fixed type. This is a type with  arbitrary
diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb

index 2865305dbe7105cfc33bcf13eee455d17cbfe2dc..0a5fbb2f012c5ef100427a547fcfffd87e6b660e 100644 (file)
--- a/gcc/ada/stringt.adb
+++ b/gcc/ada/stringt.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/stringt.ads b/gcc/ada/stringt.ads

index a19196946525c65e063118c9b9f89f982a1d2f09..fb974e4e9d2dad8caffaaeb1f0a1827bbc03bde1 100644 (file)
--- a/gcc/ada/stringt.ads
+++ b/gcc/ada/stringt.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/styleg.ads b/gcc/ada/styleg.ads

index 0a1441b33c58a20187f19d927db4697fc0814b6d..58c834ae1bec390f007cb2f04a0a53ccc9f9f7f0 100644 (file)
--- a/gcc/ada/styleg.ads
+++ b/gcc/ada/styleg.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -105,7 +105,7 @@ package Styleg is
     --  Token_Ptr is the first token on the line.
  
     procedure Check_Left_Paren;
-   --  Called after scanning out a left parenthesis to check spacing.
+   --  Called after scanning out a left parenthesis to check spacing
  
     procedure Check_Line_Max_Length (Len : Int);
     --  Called with Scan_Ptr pointing to the first line terminator character
@@ -122,7 +122,7 @@ package Styleg is
     --  properly (i.e. with an appropriate casing convention).
  
     procedure Check_Right_Paren;
-   --  Called after scanning out a right parenthesis to check spacing.
+   --  Called after scanning out a right parenthesis to check spacing
  
     procedure Check_Semicolon;
     --  Called after scanning out a semicolon to check spacing
diff --git a/gcc/ada/symbols.adb b/gcc/ada/symbols.adb

index af4a73cce0a8b504d7513de88f120338c4474302..631ccb1f5ce59f6d8a001b3d75af7c92c3d329dc 100644 (file)
--- a/gcc/ada/symbols.adb
+++ b/gcc/ada/symbols.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/symbols.ads b/gcc/ada/symbols.ads

index 8672a0ec9e084df1706c1baf366d187ea584ee7a..b9a5e5f2a4074234625d221981b98f0612a70fca 100644 (file)
--- a/gcc/ada/symbols.ads
+++ b/gcc/ada/symbols.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
@@ -34,7 +34,7 @@ with GNAT.OS_Lib;         use GNAT.OS_Lib;
  package Symbols is
  
     type Policy is
-   --  Symbol policy:
+   --  Symbol policy
  
       (Autonomous,
        --  Create a symbol file without considering any reference
diff --git a/gcc/ada/system-aix.ads b/gcc/ada/system-aix.ads

index 246207c18c8c1d00e2e2f4258a3042549c266027..8db13afacd75f9b5bc5e6b34d4c26486e2f419a3 100644 (file)
--- a/gcc/ada/system-aix.ads
+++ b/gcc/ada/system-aix.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                            (AIX/PPC Version)                             --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-darwin-ppc.ads b/gcc/ada/system-darwin-ppc.ads

index 3d8f99b522db45d15be092becd06335a2b3d8ea1..19478e96d281bcf5d290ee4de5043f2c2ea6e3d8 100644 (file)
--- a/gcc/ada/system-darwin-ppc.ads
+++ b/gcc/ada/system-darwin-ppc.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (Darwin/PPC Version)                            --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-freebsd-x86.ads b/gcc/ada/system-freebsd-x86.ads

index 3eab5aef7e3409c706f9206a5a4e174380a53070..45216d111ec01a427c101f0e3d96effa87ad0047 100644 (file)
--- a/gcc/ada/system-freebsd-x86.ads
+++ b/gcc/ada/system-freebsd-x86.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                           (FreeBSD/x86 Version)                          --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-hpux-ia64.ads b/gcc/ada/system-hpux-ia64.ads

index cb5af090af55cef028bcd559b8e591300f5848b8..c3d2ee925b84af3fe1a4f612711687ac86556d17 100644 (file)
--- a/gcc/ada/system-hpux-ia64.ads
+++ b/gcc/ada/system-hpux-ia64.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                            (HP-UX/ia64 Version)                          --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-hpux.ads b/gcc/ada/system-hpux.ads

index 4a72615f49ce2e6c2dc47b52b1799a33b137d856..4dbc6ae1d04415c2741bac721c7772495358c3ae 100644 (file)
--- a/gcc/ada/system-hpux.ads
+++ b/gcc/ada/system-hpux.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                             (HP-UX Version)                              --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-interix.ads b/gcc/ada/system-interix.ads

index 9e25857b2ec5a9d9713e73ac56dfb59c4bb23152..c816faefb292f7319dccc1154f08d6d85a24df4e 100644 (file)
--- a/gcc/ada/system-interix.ads
+++ b/gcc/ada/system-interix.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                        (OpenNT/Interix Version)                          --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-irix-n32.ads b/gcc/ada/system-irix-n32.ads

index 794f494848be80bf7a5e9f19154094f6316c13ff..958bd8ca4074198c26795283c7a0673dcbc49115 100644 (file)
--- a/gcc/ada/system-irix-n32.ads
+++ b/gcc/ada/system-irix-n32.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                           (SGI Irix, n32 ABI)                            --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-irix-o32.ads b/gcc/ada/system-irix-o32.ads

index 1a69ff08189768a9d6f361e026cd758ab542d6a3..73b1ad520e348a67fff11709e75879277c5f887c 100644 (file)
--- a/gcc/ada/system-irix-o32.ads
+++ b/gcc/ada/system-irix-o32.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                           (SGI Irix, o32 ABI)                            --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-hppa.ads b/gcc/ada/system-linux-hppa.ads

index 67c395c0d188caa9790d1258e9ac41e3b6a57075..7b0259c9b74dd941533569faea7e994752cc19c8 100644 (file)
--- a/gcc/ada/system-linux-hppa.ads
+++ b/gcc/ada/system-linux-hppa.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (GNU/Linux-HPPA Version)                        --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-ia64.ads b/gcc/ada/system-linux-ia64.ads

index 892a1be8dee3502307a5658b4b8509d7228d87fc..95f70a3f9f1fc98c944da71e2a1511374f1e8de2 100644 (file)
--- a/gcc/ada/system-linux-ia64.ads
+++ b/gcc/ada/system-linux-ia64.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                         (GNU-Linux/ia64 Version)                         --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-ppc.ads b/gcc/ada/system-linux-ppc.ads

index 99ed4e32b6f587c746883d0694c5c4f4c7edf7c5..d2b414da6c422dc61736d78e052d04cc5e486ef9 100644 (file)
--- a/gcc/ada/system-linux-ppc.ads
+++ b/gcc/ada/system-linux-ppc.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (GNU-Linux/PPC Version)                         --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-x86.ads b/gcc/ada/system-linux-x86.ads

index 6f43799ab2886db0c6f4720653b336574e71617b..fa79b5e4c925190b79bf6511500bc0327d5bcd01 100644 (file)
--- a/gcc/ada/system-linux-x86.ads
+++ b/gcc/ada/system-linux-x86.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (GNU-Linux/x86 Version)                         --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-linux-x86_64.ads b/gcc/ada/system-linux-x86_64.ads

index e850d74038419bd5d5b3c579e57840764e5f62df..2867602ad7434e6babc58307f93b588a9094f6fb 100644 (file)
--- a/gcc/ada/system-linux-x86_64.ads
+++ b/gcc/ada/system-linux-x86_64.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (GNU-Linux/x86-64 Version)                      --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-mingw.ads b/gcc/ada/system-mingw.ads

index b5967998da0a2a5619e13a1c45b02fa48030e624..5924fc8f9c206a57ec103c7e7b4e5ed8ed9012f4 100644 (file)
--- a/gcc/ada/system-mingw.ads
+++ b/gcc/ada/system-mingw.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                               (NT Version)                               --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-os2.ads b/gcc/ada/system-os2.ads

index 9dc5bf8b68643461bc229b65ba6ec979edc91294..65c9461c05014b2ab8ae0deb2186bfc6bf8a1a0d 100644 (file)
--- a/gcc/ada/system-os2.ads
+++ b/gcc/ada/system-os2.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                             (OS/2 Version)                               --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-solaris-sparc.ads b/gcc/ada/system-solaris-sparc.ads

index 1ec0af3872db74fc60ce6709d1fb2ae6c5bf752b..2c36f6482f4351785b5907d3559fe9147d409559 100644 (file)
--- a/gcc/ada/system-solaris-sparc.ads
+++ b/gcc/ada/system-solaris-sparc.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (SUN Solaris Version)                           --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-solaris-sparcv9.ads b/gcc/ada/system-solaris-sparcv9.ads

index 672cd97e5dd3556b4dd884f7041424131c72b12c..1e1e5342501886b275021afad10bb3460fccd1f8 100644 (file)
--- a/gcc/ada/system-solaris-sparcv9.ads
+++ b/gcc/ada/system-solaris-sparcv9.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                        (Solaris Sparcv9 Version)                         --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-solaris-x86.ads b/gcc/ada/system-solaris-x86.ads

index 0ebf08bef5cf8f1540f49e86b25f0e44ea152c1a..3f3ed23b2959b9c45d054c55a0d070e8ee20a6fb 100644 (file)
--- a/gcc/ada/system-solaris-x86.ads
+++ b/gcc/ada/system-solaris-x86.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                          (x86 Solaris Version)                           --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-tru64.ads b/gcc/ada/system-tru64.ads

index ef3d7de8a0b733e962b47e223519ebaf00a86b23..da79c82bab2ce52afb5006cc0905270e6286ce54 100644 (file)
--- a/gcc/ada/system-tru64.ads
+++ b/gcc/ada/system-tru64.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                           (DEC Unix Version)                             --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-unixware.ads b/gcc/ada/system-unixware.ads

index 63fb6038cdeab1f053e96005c6c781870f6c5bbc..801968d514181e7cd050b5e595c7a1d883ac3e81 100644 (file)
--- a/gcc/ada/system-unixware.ads
+++ b/gcc/ada/system-unixware.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                         (SCO UnixWare Version)                           --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/system-vms-zcx.ads b/gcc/ada/system-vms-zcx.ads

index 5f9f59423c5efb7ade5b5fb094efc1f4b2b4dbc1..39af22044e5360bf7f8d4f6c0c27bca9cd19e04d 100644 (file)
--- a/gcc/ada/system-vms-zcx.ads
+++ b/gcc/ada/system-vms-zcx.ads
@@ -7,7 +7,7 @@
  --                                 S p e c                                  --
  --                   (OpenVMS GCC_ZCX DEC Threads Version)                  --
  --                                                                          --
---          Copyright (C) 2002-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2002-2005, Free Software Foundation, Inc.         --
  --                                                                          --
  -- This specification is derived from the Ada Reference Manual for use with --
  -- GNAT. The copyright notice above, and the license provisions that follow --
diff --git a/gcc/ada/table.ads b/gcc/ada/table.ads

index 853948ab8c7d5338cf3e1a8c132c7823b5713e98..983f7fd0e35c85bd37911c02660f85a644263838 100644 (file)
--- a/gcc/ada/table.ads
+++ b/gcc/ada/table.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -174,11 +174,11 @@ package Table is
  
        procedure Increment_Last;
        pragma Inline (Increment_Last);
-      --  Adds 1 to Last (same as Set_Last (Last + 1).
+      --  Adds 1 to Last (same as Set_Last (Last + 1)
  
        procedure Decrement_Last;
        pragma Inline (Decrement_Last);
-      --  Subtracts 1 from Last (same as Set_Last (Last - 1).
+      --  Subtracts 1 from Last (same as Set_Last (Last - 1)
  
        procedure Append (New_Val : Table_Component_Type);
        pragma Inline (Append);
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb

index 0fd9c7fc596d49ebc1097032e3393040920deaab..65ba29f977ea495e64aa2aa4e8fded9c2e8f70b8 100644 (file)
--- a/gcc/ada/targparm.adb
+++ b/gcc/ada/targparm.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1999-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1999-2005, 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- --
diff --git a/gcc/ada/targparm.ads b/gcc/ada/targparm.ads

index b29f506be759b457417ee0306a73f942970519e7..38dd226684049de028e3d4f4bb3ab9ad905837d7 100644 (file)
--- a/gcc/ada/targparm.ads
+++ b/gcc/ada/targparm.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1999-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1999-2005, 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- --
@@ -295,7 +295,7 @@ package Targparm is
     --  this variable is True, then GCC ZCX is used.
  
     GCC_ZCX_Support_On_Target  : Boolean := False;
-   --  Indicates that the target supports GCC Exceptions.
+   --  Indicates that the target supports GCC Exceptions
  
     ------------------------------------
     -- Run-Time Library Configuration --
@@ -523,7 +523,7 @@ package Targparm is
     --  Set to True for targets where S'Machine_Overflows is True
  
     Signed_Zeros_On_Target : Boolean := True;
-   --  Set to False on targets that do not reliably support signed zeros.
+   --  Set to False on targets that do not reliably support signed zeros
  
     -------------------------------------------
     -- Boolean-Valued Fixed-Point Attributes --
diff --git a/gcc/ada/tb-alvms.c b/gcc/ada/tb-alvms.c

index 5f1fc3f0caae8b5a51339ea4d2d4d00ab50768fe..22fc540855d345265b32dad01d85ca3e45a1fc8f 100644 (file)
--- a/gcc/ada/tb-alvms.c
+++ b/gcc/ada/tb-alvms.c
@@ -6,7 +6,7 @@
   *                                                                          *
   *                          C Implementation File                           *
   *                                                                          *
- *            Copyright (C) 2003,2005 Ada Core Technologies, Inc            *
+ *                     Copyright (C) 2003-2005, AdaCore                     *
   *                                                                          *
   * 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- *
diff --git a/gcc/ada/tb-alvxw.c b/gcc/ada/tb-alvxw.c

index 0f9d5e2d002bae2b756830790583b99892bc6e3c..64e4a3ced0b9ceded0abe6f5b6c2392dc9ff3409 100644 (file)
--- a/gcc/ada/tb-alvxw.c
+++ b/gcc/ada/tb-alvxw.c
@@ -6,7 +6,7 @@
   *                                                                          *
   *                          C Implementation File                           *
   *                                                                          *
- *            Copyright (C) 2000-2003 Ada Core Technologies, Inc            *
+ *                     Copyright (C) 2000-2005, AdaCore                     *
   *                                                                          *
   * 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- *
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb

index fba9c3c3c9ebe9bb578f23603740e12a4159db84..f7966b156a48e184031945aa706360a612af8783 100644 (file)
--- a/gcc/ada/tbuild.adb
+++ b/gcc/ada/tbuild.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/tree_io.ads b/gcc/ada/tree_io.ads

index 98bdc89d580a5ac0748470a101f60e48ac530b85..2cd203717e3172f276f0aae8d35f93aef4505aae 100644 (file)
--- a/gcc/ada/tree_io.ads
+++ b/gcc/ada/tree_io.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-1999 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -96,7 +96,7 @@ package Tree_IO is
     --  Writes a single integer value to the current tree file
  
     procedure Tree_Write_Str (S : String_Ptr);
-   --  Write out string value referenced by S. Low bound must be 1.
+   --  Write out string value referenced by S (low bound of S must be 1)
  
     procedure Tree_Write_Terminate;
     --  Terminates writing of the file (flushing the buffer), but does not
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb

index 5066bbaf36c7fae2d38569bb75fbdf095497f7fe..aff72a9b95e0cd59ea2e8f50775c5c24fcf8d87b 100644 (file)
--- a/gcc/ada/treepr.adb
+++ b/gcc/ada/treepr.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/treeprs.adt b/gcc/ada/treeprs.adt

index 86dd72a7b723ab4941903868cdc4c5abe73ccf9a..fbffd5830e27716f805e4b24defc568d5e88c268 100644 (file)
--- a/gcc/ada/treeprs.adt
+++ b/gcc/ada/treeprs.adt
@@ -6,7 +6,7 @@
  --                                                                          --
  --                             T e m p l a t e                              --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/ttypef.ads b/gcc/ada/ttypef.ads

index 18c5e32362935151033d627439870686f607b078..93f7ec8a4ff6dd91c12beead7558f7a038630d08 100644 (file)
--- a/gcc/ada/ttypef.ads
+++ b/gcc/ada/ttypef.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/ttypes.ads b/gcc/ada/ttypes.ads

index 7e0dd5475222a239e3d4b913a810d3ebbcbeeac4..4eb8c82ba6f574c2ca4d5abd34976a4071b6b931 100644 (file)
--- a/gcc/ada/ttypes.ads
+++ b/gcc/ada/ttypes.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -143,7 +143,7 @@ package Ttypes is
  
     Standard_Wide_Character_Size        : constant Pos := 16;
     Standard_Wide_Wide_Character_Size   : constant Pos := 32;
-   --  Standard wide character sizes.
+   --  Standard wide character sizes
  
     --  Note: there is no specific control over the representation of
     --  enumeration types. The convention used is that if an enumeration
diff --git a/gcc/ada/types.adb b/gcc/ada/types.adb

index e6d5f3e3cf0bcc865a63a8631c40602aecd83de1..978b4121fa030e262033b1b793d53572e771a361 100644 (file)
--- a/gcc/ada/types.adb
+++ b/gcc/ada/types.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb

index 6eda7ad512b1f9dfc47382fae1e3bd9337238d54..c9fbb03e675c92034553fcd1aacad17d640c4edb 100644 (file)
--- a/gcc/ada/uintp.adb
+++ b/gcc/ada/uintp.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -50,7 +50,7 @@ package body Uintp is
     --  value, since the issue is host representation of integer values.
  
     Uint_Int_Last : Uint;
-   --  Uint value containing Int'Last value set by Initialize.
+   --  Uint value containing Int'Last value set by Initialize
  
     UI_Power_2 : array (Int range 0 .. 64) of Uint;
     --  This table is used to memoize exponentiations by powers of 2. The Nth
@@ -727,9 +727,9 @@ package body Uintp is
     --  Mathematically: assume base congruent to 1 and compute an equivelent
     --  integer to Left.
  
-   --  If Sign = -1 return the alternating sum of the "digits".
+   --  If Sign = -1 return the alternating sum of the "digits"
  
-   --     D1 - D2 + D3 - D4 + D5 . . .
+   --     D1 - D2 + D3 - D4 + D5 ...
  
     --  (where D1 is Least Significant Digit)
  
@@ -761,7 +761,7 @@ package body Uintp is
  
                 if Tmp_Int >= Base then
  
-                  --  Sign must be 1.
+                  --  Sign must be 1
  
                    Tmp_Int := (Tmp_Int / Base) + 1;
  
@@ -1328,7 +1328,7 @@ package body Uintp is
                    Carry        := Tmp_Int / Base;
                 end loop;
  
-               --  Multiply Divisor by d.
+               --  Multiply Divisor by d
  
                 Carry := 0;
                 for J in reverse Divisor'Range loop
@@ -1338,14 +1338,14 @@ package body Uintp is
                 end loop;
              end if;
  
-            --  Main loop of long division algorithm.
+            --  Main loop of long division algorithm
  
              Divisor_Dig1 := Divisor (1);
              Divisor_Dig2 := Divisor (2);
  
              for J in Quotient'Range loop
  
-               --  [ CALCULATE Q (hat) ] (step D3 in the algorithm).
+               --  [ CALCULATE Q (hat) ] (step D3 in the algorithm)
  
                 Tmp_Int := Dividend (J) * Base + Dividend (J + 1);
  
@@ -1474,7 +1474,7 @@ package body Uintp is
        if Right = Uint_0 then
           return Uint_1;
  
-      --  0 to any positive power is 0.
+      --  0 to any positive power is 0
  
        elsif Left = Uint_0 then
           return Uint_0;
@@ -1664,7 +1664,7 @@ package body Uintp is
     -- UI_GCD --
     ------------
  
-   --  Lehmer's algorithm for GCD.
+   --  Lehmer's algorithm for GCD
  
     --  The idea is to avoid using multiple precision arithmetic wherever
     --  possible, substituting Int arithmetic instead. See Knuth volume II,
@@ -1712,7 +1712,7 @@ package body Uintp is
  
           loop
              --  We might overflow and get division by zero here. This just
-            --  means we can not take the single precision step
+            --  means we cannot take the single precision step
  
              Den1 := V_Hat + C;
              Den2 := V_Hat + D;
@@ -1745,14 +1745,14 @@ package body Uintp is
  
           if B = Int_0 then
  
-            --  No single precision steps take a regular Euclid step.
+            --  No single precision steps take a regular Euclid step
  
              Tmp_UI := U rem V;
              U := V;
              V := Tmp_UI;
  
           else
-            --  Use prior single precision steps to compute this Euclid step.
+            --  Use prior single precision steps to compute this Euclid step
  
              --  Fixed bug 1415-008 spends 80% of its time working on this
              --  step. Perhaps we need a special case Int / Uint dot
@@ -2257,7 +2257,7 @@ package body Uintp is
                    --  and replace the rem with simpler operations where
                    --  possible.
  
-                  --  Least_Sig_Digit might return Negative numbers.
+                  --  Least_Sig_Digit might return Negative numbers
  
                    when 2 =>
                       return UI_From_Int (
@@ -2357,7 +2357,7 @@ package body Uintp is
  
              end if;
  
-            --  Else fall through to general case.
+            --  Else fall through to general case
  
              --  ???This needs to be improved. We have the Rem when we do the
              --  Div. Div throws it away!
diff --git a/gcc/ada/uintp.ads b/gcc/ada/uintp.ads

index 5a340b39968fa4b2493915e2671ad5370f6e5ae2..46286611e785330a7e9505f64da0dcdd3ea14f9b 100644 (file)
--- a/gcc/ada/uintp.ads
+++ b/gcc/ada/uintp.ads
@@ -113,12 +113,12 @@ package Uintp is
  
     function UI_Abs (Right : Uint) return Uint;
     pragma Inline (UI_Abs);
-   --  Returns abs function of universal integer.
+   --  Returns abs function of universal integer
  
     function UI_Add (Left : Uint; Right : Uint) return Uint;
     function UI_Add (Left : Int;  Right : Uint) return Uint;
     function UI_Add (Left : Uint; Right : Int)  return Uint;
-   --  Returns sum of two integer values.
+   --  Returns sum of two integer values
  
     function UI_Decimal_Digits_Hi (U : Uint) return Nat;
     --  Returns an estimate of the number of decimal digits required to
@@ -143,44 +143,44 @@ package Uintp is
     function UI_Eq (Left : Int;  Right : Uint) return Boolean;
     function UI_Eq (Left : Uint; Right : Int)  return Boolean;
     pragma Inline (UI_Eq);
-   --  Compares integer values for equality.
+   --  Compares integer values for equality
  
     function UI_Expon (Left : Uint; Right : Uint) return Uint;
     function UI_Expon (Left : Int;  Right : Uint) return Uint;
     function UI_Expon (Left : Uint; Right : Int)  return Uint;
     function UI_Expon (Left : Int;  Right : Int)  return Uint;
-   --  Returns result of exponentiating two integer values
+   --  Returns result of exponentiating two integer values.
     --  Fatal error if Right is negative.
  
     function UI_GCD (Uin, Vin : Uint) return Uint;
-   --  Computes GCD of input values. Assumes Uin >= Vin >= 0.
+   --  Computes GCD of input values. Assumes Uin >= Vin >= 0
  
     function UI_Ge (Left : Uint; Right : Uint) return Boolean;
     function UI_Ge (Left : Int;  Right : Uint) return Boolean;
     function UI_Ge (Left : Uint; Right : Int)  return Boolean;
     pragma Inline (UI_Ge);
-   --  Compares integer values for greater than or equal.
+   --  Compares integer values for greater than or equal
  
     function UI_Gt (Left : Uint; Right : Uint) return Boolean;
     function UI_Gt (Left : Int;  Right : Uint) return Boolean;
     function UI_Gt (Left : Uint; Right : Int)  return Boolean;
     pragma Inline (UI_Gt);
-   --  Compares integer values for greater than.
+   --  Compares integer values for greater than
  
     function UI_Is_In_Int_Range (Input : Uint) return Boolean;
     pragma Inline (UI_Is_In_Int_Range);
-   --  Determines if universal integer is in Int range.
+   --  Determines if universal integer is in Int range
  
     function UI_Le (Left : Uint; Right : Uint) return Boolean;
     function UI_Le (Left : Int;  Right : Uint) return Boolean;
     function UI_Le (Left : Uint; Right : Int)  return Boolean;
     pragma Inline (UI_Le);
-   --  Compares integer values for less than or equal.
+   --  Compares integer values for less than or equal
  
     function UI_Lt (Left : Uint; Right : Uint) return Boolean;
     function UI_Lt (Left : Int;  Right : Uint) return Boolean;
     function UI_Lt (Left : Uint; Right : Int)  return Boolean;
-   --  Compares integer values for less than.
+   --  Compares integer values for less than
  
     function UI_Max (Left : Uint; Right : Uint) return Uint;
     function UI_Max (Left : Int;  Right : Uint) return Uint;
@@ -190,13 +190,13 @@ package Uintp is
     function UI_Min (Left : Uint; Right : Uint) return Uint;
     function UI_Min (Left : Int;  Right : Uint) return Uint;
     function UI_Min (Left : Uint; Right : Int)  return Uint;
-   --  Returns minimum of two integer values.
+   --  Returns minimum of two integer values
  
     function UI_Mod (Left : Uint; Right : Uint) return Uint;
     function UI_Mod (Left : Int;  Right : Uint) return Uint;
     function UI_Mod (Left : Uint; Right : Int)  return Uint;
     pragma Inline (UI_Mod);
-   --  Returns mod function of two integer values.
+   --  Returns mod function of two integer values
  
     function UI_Mul (Left : Uint; Right : Uint) return Uint;
     function UI_Mul (Left : Int;  Right : Uint) return Uint;
@@ -207,16 +207,16 @@ package Uintp is
     function UI_Ne (Left : Int;  Right : Uint) return Boolean;
     function UI_Ne (Left : Uint; Right : Int)  return Boolean;
     pragma Inline (UI_Ne);
-   --  Compares integer values for inequality.
+   --  Compares integer values for inequality
  
     function UI_Negate (Right : Uint) return Uint;
     pragma Inline (UI_Negate);
-   --  Returns negative of universal integer.
+   --  Returns negative of universal integer
  
     function UI_Rem (Left : Uint; Right : Uint) return Uint;
     function UI_Rem (Left : Int;  Right : Uint) return Uint;
     function UI_Rem (Left : Uint; Right : Int)  return Uint;
-   --  Returns rem of two integer values.
+   --  Returns rem of two integer values
  
     function UI_Sub (Left : Uint; Right : Uint) return Uint;
     function UI_Sub (Left : Int;  Right : Uint) return Uint;
diff --git a/gcc/ada/uname.ads b/gcc/ada/uname.ads

index 0b988618f08dbb65c1201344eb73e54014b784b2..bf2ed3ab99acfaafe835ee9c24fb20eb507f2291 100644 (file)
--- a/gcc/ada/uname.ads
+++ b/gcc/ada/uname.ads
@@ -74,7 +74,7 @@ package Uname is
     --  corresponding body, i.e. characters %s replaced by %b
  
     function Get_Parent_Body_Name (N : Unit_Name_Type) return Unit_Name_Type;
-   --  Given the name of a subunit, returns the name of the parent body.
+   --  Given the name of a subunit, returns the name of the parent body
  
     function Get_Parent_Spec_Name (N : Unit_Name_Type) return Unit_Name_Type;
     --  Given the name of a child unit spec or body, returns the unit name
diff --git a/gcc/ada/urealp.ads b/gcc/ada/urealp.ads

index a9cbccd23b54a760e989b3204746befb9e234997..249023938292514565aeb36ce218e4b8e5a23108 100644 (file)
--- a/gcc/ada/urealp.ads
+++ b/gcc/ada/urealp.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
@@ -148,19 +148,19 @@ package Urealp is
     --  Table.Tree_Write routines.
  
     function Rbase (Real : Ureal) return Nat;
-   --  Return the base of the universal real.
+   --  Return the base of the universal real
  
     function Denominator (Real : Ureal) return Uint;
-   --  Return the denominator of the universal real.
+   --  Return the denominator of the universal real
  
     function Numerator (Real : Ureal) return Uint;
-   --  Return the numerator of the universal real.
+   --  Return the numerator of the universal real
  
     function Norm_Den (Real : Ureal) return Uint;
-   --  Return the denominator of the universal real after a normalization.
+   --  Return the denominator of the universal real after a normalization
  
     function Norm_Num (Real : Ureal) return Uint;
-   --  Return the numerator of the universal real after a normalization.
+   --  Return the numerator of the universal real after a normalization
  
     function UR_From_Uint (UI : Uint) return Ureal;
     --  Returns real corresponding to universal integer value
@@ -234,7 +234,7 @@ package Urealp is
     --  Returns negative of real
  
     function UR_Eq (Left, Right : Ureal) return Boolean;
-   --  Compares reals for equality.
+   --  Compares reals for equality
  
     function UR_Max (Left, Right : Ureal) return Ureal;
     --  Returns the maximum of two reals
@@ -243,19 +243,19 @@ package Urealp is
     --  Returns the minimum of two reals
  
     function UR_Ne (Left, Right : Ureal) return Boolean;
-   --  Compares reals for inequality.
+   --  Compares reals for inequality
  
     function UR_Lt (Left, Right : Ureal) return Boolean;
-   --  Compares reals for less than.
+   --  Compares reals for less than
  
     function UR_Le (Left, Right : Ureal) return Boolean;
-   --  Compares reals for less than or equal.
+   --  Compares reals for less than or equal
  
     function UR_Gt (Left, Right : Ureal) return Boolean;
-   --  Compares reals for greater than.
+   --  Compares reals for greater than
  
     function UR_Ge (Left, Right : Ureal) return Boolean;
-   --  Compares reals for greater than or equal.
+   --  Compares reals for greater than or equal
  
     function UR_Is_Zero (Real : Ureal) return Boolean;
     --  Tests if real value is zero
diff --git a/gcc/ada/usage.ads b/gcc/ada/usage.ads

index 4aba2132bcd4c7a193329adca657bb9d9efbe799..d60fdffb0be482771ab94de756bb5a86ca4a1778 100644 (file)
--- a/gcc/ada/usage.ads
+++ b/gcc/ada/usage.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---        Copyright (C) 1992,1993,1994 Free Software Foundation, Inc.       --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/validsw.ads b/gcc/ada/validsw.ads

index 38214fa8b0324755447bd032d7c426fcb2fd414f..a2d0a189b38b79ff85b49feef1add1768bd329b1 100644 (file)
--- a/gcc/ada/validsw.ads
+++ b/gcc/ada/validsw.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2001-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 2001-2005, 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- --
@@ -48,11 +48,12 @@ package Validsw is
     --  expressions in object declarations are checked for validity.
  
     Validity_Check_Default : Boolean := True;
-   --  Controls default (reference manual) validity checking. If this switch
-   --  is set to True using -gnatVd or a 'd' in the argument of a Validity_
-   --  Checks pragma then left side subscripts and case statement arguments
-   --  are checked for validity. This switch is also set by default if no
-   --  -gnatV switch is used and no Validity_Checks pragma is processed.
+   --  Controls default (reference manual) validity checking. If this switch is
+   --  set to True using -gnatVd or a 'd' in the argument of a Validity_ Checks
+   --  pragma (or the initial default value is used, set True), then left side
+   --  subscripts and case statement arguments are checked for validity. This
+   --  switch is also set by default if no -gnatV switch is used and no
+   --  Validity_Checks pragma is processed.
  
     Validity_Check_Floating_Point : Boolean := False;
     --  Normally validity checking applies only to discrete values (integer
diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb

index 250e00e9d16185aae5cd608d071d0fb1d7bc3909..2157731bdf472a0c825e0ad995049a52d6bbfcdf 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-2005, 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- --
@@ -651,7 +651,7 @@ 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-2005, Free Software Foundation, Inc.");
     end Output_Version;
  
     -----------
diff --git a/gcc/ada/vms_conv.ads b/gcc/ada/vms_conv.ads

index cb59ff9bb7c1372b66473e2111be8ec1dc1580e0..1989381f5a234892b81d1e3a9e602f8539ba0560 100644 (file)
--- a/gcc/ada/vms_conv.ads
+++ b/gcc/ada/vms_conv.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 2003-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 2003-2005, 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- --
diff --git a/gcc/ada/vxaddr2line.adb b/gcc/ada/vxaddr2line.adb

index ad53b1024adeec13388ec9742eb0474d872e2131..ba87c9938a3e146ffdebc23b3a0b018971b433cf 100644 (file)
--- a/gcc/ada/vxaddr2line.adb
+++ b/gcc/ada/vxaddr2line.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---            Copyright (C) 2002-2005 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2002-2005, AdaCore                     --
  --                                                                          --
  -- 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- --
@@ -90,7 +90,7 @@ procedure VxAddr2Line is
  
     type Arch_Record is record
        Addr2line_Binary : String_Access;
-      --  Name of the addr2line utility to use.
+      --  Name of the addr2line utility to use
  
        Nm_Binary : String_Access;
        --  Name of the host nm utility, which will be used to find out the
@@ -294,7 +294,7 @@ procedure VxAddr2Line is
              return Value;
        end;
  
-      --  We can not get here
+      --  We cannot get here
  
        raise Program_Error;
  
@@ -408,7 +408,7 @@ begin
        Error ("Couldn't find " & Arch_List (Cur_Arch).Addr2line_Binary.all);
     end if;
  
-   --  The first argument specifies the image file. Check if it exists.
+   --  The first argument specifies the image file. Check if it exists
  
     if not Is_Regular_File (Argument (1)) then
        Error ("Couldn't find the executable " & Argument (1));
diff --git a/gcc/ada/widechar.adb b/gcc/ada/widechar.adb

index e1999286e4941f556b24e331ed46dff92a302ddb..31fedc48d11cd5d279265f491d5488a317f25bbe 100644 (file)
--- a/gcc/ada/widechar.adb
+++ b/gcc/ada/widechar.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/widechar.ads b/gcc/ada/widechar.ads

index cc0ab34a022074617246d0eb31d2f0ed7e3de4fd..8686f81890bba78eee62c8e9fe66cb6d0a8dbbc4 100644 (file)
--- a/gcc/ada/widechar.ads
+++ b/gcc/ada/widechar.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/xeinfo.adb b/gcc/ada/xeinfo.adb

index d057e04a551454e1662e30d7ffcdb59d09a62f3c..a24dff436c91e9cbe84fc72865c83fc834d500bb 100644 (file)
--- a/gcc/ada/xeinfo.adb
+++ b/gcc/ada/xeinfo.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/xnmake.adb b/gcc/ada/xnmake.adb

index d221d94b22c09faccbec80f06e21e765bfe5fc2c..ec08692e275413492f2cc5db4ba56ee0ea48facb 100644 (file)
--- a/gcc/ada/xnmake.adb
+++ b/gcc/ada/xnmake.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb

index 5e8cbe34a0aebca58af191630a73ab6effcb8bcc..b3aa017dd95a6e07e1fcc34979790ab0e15c45f9 100644 (file)
--- a/gcc/ada/xr_tabls.adb
+++ b/gcc/ada/xr_tabls.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1998-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2005, 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- --
@@ -131,7 +131,7 @@ package body Xr_Tabls is
     --  Column. This key should be used for lookup in Entity_HTable
  
     function Is_Less_Than (Decl1, Decl2 : Declaration_Reference) return Boolean;
-   --  Compare two declarations. The comparison is case-insensitive.
+   --  Compare two declarations (the comparison is case-insensitive)
  
     function Is_Less_Than (Ref1, Ref2 : Reference) return Boolean;
     --  Compare two references
@@ -144,14 +144,12 @@ package body Xr_Tabls is
        Get_Declaration : Boolean := False;
        Arr             : in out Reference_Array;
        Index           : in out Natural);
-   --  Store in Arr, starting at Index, all the references to Decl.
-   --  The Get_* parameters can be used to indicate which references should be
-   --  stored.
+   --  Store in Arr, starting at Index, all the references to Decl. The Get_*
+   --  parameters can be used to indicate which references should be stored.
     --  Constraint_Error will be raised if Arr is not big enough.
  
     procedure Sort (Arr : in out Reference_Array);
-   --  Sort an array of references.
-   --  Arr'First must be 1.
+   --  Sort an array of references (Arr'First must be 1)
  
     --------------
     -- Set_Next --
diff --git a/gcc/ada/xr_tabls.ads b/gcc/ada/xr_tabls.ads

index be1d8d00418beae2fe98f41c181c8c8a0c5e56d8..d2b83353e6cbbcd5b87c6b8a0511c3bfa2211b12 100644 (file)
--- a/gcc/ada/xr_tabls.ads
+++ b/gcc/ada/xr_tabls.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---         Copyright (C) 1998-2005 Free Software Foundation, Inc.           --
+--          Copyright (C) 1998-2005, 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- --
@@ -35,7 +35,7 @@ package Xr_Tabls is
     -------------------
  
     function ALI_File_Name (Ada_File_Name : String) return String;
-   --  Returns the ali file name corresponding to Ada_File_Name.
+   --  Returns the ali file name corresponding to Ada_File_Name
  
     procedure Create_Project_File (Name : String);
     --  Open and parse a new project file. If the file Name could not be
@@ -82,14 +82,14 @@ package Xr_Tabls is
        Remove_Only  : Boolean := False;
        Symbol_Match : Boolean := True)
        return         Declaration_Reference;
-   --  Add a new declaration in the table and return the index to it.
-   --  Decl_Type is the type of the entity Any previous instance of this
-   --  entity in the htable is removed. If Remove_Only is True, then any
-   --  previous instance is removed, but the new entity is never inserted.
-   --  Symbol_Match should be set to False if the name of the symbol doesn't
-   --  match the pattern from the command line. In that case, the entity will
-   --  not be output by gnatfind. If Symbol_Match is True, the entity will only
-   --  be output if the file name itself matches.
+   --  Add a new declaration in the table and return the index to it. Decl_Type
+   --  is the type of the entity Any previous instance of this entity in the
+   --  htable is removed. If Remove_Only is True, then any previous instance is
+   --  removed, but the new entity is never inserted. Symbol_Match should be
+   --  set to False if the name of the symbol doesn't match the pattern from
+   --  the command line. In that case, the entity will not be output by
+   --  gnatfind. If Symbol_Match is True, the entity will only be output if the
+   --  file name itself matches.
  
     procedure Add_Parent
       (Declaration : in out Declaration_Reference;
@@ -160,10 +160,9 @@ package Xr_Tabls is
        Get_Writes : Boolean := False;
        Get_Bodies : Boolean := False)
        return       Reference_Array_Access;
-   --  Return a sorted list of all references to the entity in decl.
-   --  The parameters Get_* are used to specify what kind of references
-   --  should be merged and returned (read-only accesses, write accesses
-   --  and bodies).
+   --  Return a sorted list of all references to the entity in decl. The
+   --  parameters Get_* are used to specify what kind of references should be
+   --  merged and returned (read-only accesses, write accesses and bodies).
  
     function Get_Column (Decl : Declaration_Reference) return String;
     function Get_Column (Ref : Reference) return String;
@@ -216,14 +215,13 @@ package Xr_Tabls is
       (File     : File_Reference;
        With_Dir : Boolean := False;
        Strip    : Natural := 0) return String;
-   --  Returns the file name (and its directory if With_Dir is True or the
-   --  user has used the -f switch on the command line. If Strip is not 0,
-   --  then the last Strip-th "-..." substrings are removed first. For
-   --  instance, with Strip=2, a file name "parent-child1-child2-child3.ali"
-   --  would be returned as "parent-child1.ali". This is used when looking
-   --  for the ALI file to use for a package, since for separates with have
-   --  to use the parent's ALI. The null string is returned if there is no
-   --  such parent unit.
+   --  Returns the file name (and its directory if With_Dir is True or the user
+   --  has used the -f switch on the command line. If Strip is not 0, then the
+   --  last Strip-th "-..." substrings are removed first. For instance, with
+   --  Strip=2, a file name "parent-child1-child2-child3.ali" would be returned
+   --  as "parent-child1.ali". This is used when looking for the ALI file to
+   --  use for a package, since for separates with have to use the parent's
+   --  ALI. The null string is returned if there is no such parent unit.
     --
     --  Note that this version of Get_File is not inlined
  
@@ -240,16 +238,16 @@ package Xr_Tabls is
     --  Return the source line associated with the reference
  
     procedure Grep_Source_Files;
-   --  Parse all the source files which have at least one reference,
-   --  and grep the appropriate source lines so that we'll be able to
-   --  display them.  This function should be called once all the .ali
-   --  files have been parsed, and only if the appropriate user switch
+   --  Parse all the source files which have at least one reference, and grep
+   --  the appropriate source lines so that we'll be able to display them. This
+   --  function should be called once all the .ali files have been parsed, and
+   --  only if the appropriate user switch
     --  has been used (gnatfind -s).
     --
-   --  Note: To save memory, the strings for the source lines are shared.
-   --  Thus it is no longer possible to free the references, or we would
-   --  free the same chunk multiple times. It doesn't matter, though, since
-   --  this is only called once, prior to exiting gnatfind.
+   --  Note: To save memory, the strings for the source lines are shared. Thus
+   --  it is no longer possible to free the references, or we would free the
+   --  same chunk multiple times. It doesn't matter, though, since this is only
+   --  called once, prior to exiting gnatfind.
  
     function Longest_File_Name return Natural;
     --  Returns the longest file name found
@@ -266,9 +264,9 @@ package Xr_Tabls is
     --  by the user
  
     function Next_Unvisited_File return File_Reference;
-   --  Returns the next unvisited library file in the list
-   --  If there is no more unvisited file, return Empty_File.
-   --  Two calls to this subprogram will return different files.
+   --  Returns the next unvisited library file in the list If there is no more
+   --  unvisited file, return Empty_File. Two calls to this subprogram will
+   --  return different files.
  
     procedure Set_Default_Match (Value : Boolean);
     --  Set the default value for match in declarations.
@@ -276,23 +274,22 @@ package Xr_Tabls is
     --  command line, then every file match
  
     procedure Reset_Directory (File : File_Reference);
-   --  Reset the cached directory for file. Next time Get_File is
-   --  called, the directory willl be recomputed.
+   --  Reset the cached directory for file. Next time Get_File is called, the
+   --  directory willl be recomputed.
  
     procedure Set_Unvisited (File_Ref : File_Reference);
-   --  Set File_Ref as unvisited. So Next_Unvisited_File will return it.
+   --  Set File_Ref as unvisited. So Next_Unvisited_File will return it
  
     procedure Read_File
       (File_Name : String;
        Contents  : out GNAT.OS_Lib.String_Access);
-   --  Reads File_Name into the newly allocated strig Contents. A
-   --  Types.EOF character will be added to the returned Contents to
-   --  simplify parsing. Name_Error is raised if the file was not found.
-   --  End_Error is raised if the file could not be read correctly. For
-   --  most systems correct reading means that the number of bytes read
-   --  is equal to the file size. The exception is OpenVMS where correct
-   --  reading means that the number of bytes read is less than or equal
-   --  to the file size.
+   --  Reads File_Name into the newly allocated strig Contents. Types.EOF
+   --  character will be added to the returned Contents to simplify parsing.
+   --  Name_Error is raised if the file was not found. End_Error is raised if
+   --  the file could not be read correctly. For most systems correct reading
+   --  means that the number of bytes read is equal to the file size. The
+   --  exception is OpenVMS where correct reading means that the number of
+   --  bytes read is less than or equal to the file size.
  
  private
     type Project_File (Src_Dir_Length, Obj_Dir_Length : Natural) is record
diff --git a/gcc/ada/xref_lib.ads b/gcc/ada/xref_lib.ads

index bc4c4fa1f00b0dbeb51a15a3335437b81ed443c1..2c9f944e594ccecbe823249496b5861362d52027 100644 (file)
--- a/gcc/ada/xref_lib.ads
+++ b/gcc/ada/xref_lib.ads
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 S p e c                                  --
  --                                                                          --
---       Copyright (C) 1998-2002 Free Software Foundation, Inc.             --
+--          Copyright (C) 1998-2005, 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- --
@@ -95,7 +95,7 @@ package Xref_Lib is
     ------------------------
  
     function Default_Project_File (Dir_Name : in String) return String;
-   --  Returns the default Project file name for the directory Dir_Name.
+   --  Returns the default Project file name for the directory Dir_Name
  
     procedure Search
       (Pattern       : Search_Pattern;
@@ -144,16 +144,16 @@ private
     type Dependencies is new Dependencies_Tables.Instance;
  
     type ALI_File is limited record
-      Buffer         : String_Access := null;
+      Buffer : String_Access := null;
        --  Buffer used to read the whole file at once
  
-      Current_Line   : Positive;
+      Current_Line : Positive;
        --  Start of the current line in Buffer
  
-      Xref_Line      : Positive;
+      Xref_Line : Positive;
        --  Start of the xref lines in Buffer
  
-      X_File         : Xr_Tabls.File_Reference;
+      X_File : Xr_Tabls.File_Reference;
        --  Stores the cross-referencing file-name ("X..." lines), as an
        --  index into the dependencies table
  
@@ -171,10 +171,10 @@ private
        --  line, it is stored as "Entity_Name Declaration_File:line:column"
  
        File_Ref : Xr_Tabls.File_Reference;
-      --  A reference to the source file, if any.
+      --  A reference to the source file, if any
  
        Initialized : Boolean := False;
-      --  Set to True when Entity has been initialized.
+      --  Set to True when Entity has been initialized
     end record;
-   --  Stores all the pattern that are search for.
+
  end Xref_Lib;
diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb

index 7ff76c605bceee1c3d32704b77a057eacbaf3a22..035109b7c30b005721e338053edc7ab3d6c2a955 100644 (file)
--- a/gcc/ada/xsinfo.adb
+++ b/gcc/ada/xsinfo.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/xsnames.adb b/gcc/ada/xsnames.adb

index 47fe13ec88a6bae85c2ffb7d97fa6b108e871be4..6781edbc9218c53e2a08f91f05549783aafddd5f 100644 (file)
--- a/gcc/ada/xsnames.adb
+++ b/gcc/ada/xsnames.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
diff --git a/gcc/ada/xtreeprs.adb b/gcc/ada/xtreeprs.adb

index eb46f3d96faf8c6cf0d63017eb68e879968f699f..59116e76475b03c08c970d3bffa74bf98800518b 100644 (file)
--- a/gcc/ada/xtreeprs.adb
+++ b/gcc/ada/xtreeprs.adb
@@ -6,7 +6,7 @@
  --                                                                          --
  --                                 B o d y                                  --
  --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005, 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- --
author	Robert Dewar <dewar@adacore.com>
	Tue, 15 Nov 2005 14:06:45 +0000 (15:06 +0100)
committer	Arnaud Charlet <charlet@gcc.gnu.org>
	Tue, 15 Nov 2005 14:06:45 +0000 (15:06 +0100)