a-filico.ads, [...]: fix incorrect header.

	* a-filico.ads, a-filico.adb: fix incorrect header.
	* a-ststio.ads: Fix typo in identifier
	* sem_ch4.adb: Minor reformatting.

From-SVN: r89644

diff --git a/gcc/ada/a-filico.adb b/gcc/ada/a-filico.adb
index 7f953bff653ecca9eb8827db7768de8bb7cf4bd1..87272802d14d205acbc63f334f86e29aafc629d7 100644 (file)
--- a/gcc/ada/a-filico.adb
+++ b/gcc/ada/a-filico.adb
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT COMPILER COMPONENTS                         --
 --                                                                          --
---                S Y S T E M . L I S T _ F I N A L I Z A T I O N           --
+--     A D A . F I N A L I Z A T I O N . L I S T _ C O N T R O L L E R      --
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute 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 4263b260cd395ffee2082393fc1fdf85da482dec..b3affda0456143aafb04d7d2d85e19e0053d712d 100644 (file)
--- a/gcc/ada/a-filico.ads
+++ b/gcc/ada/a-filico.ads
@@ -4,9 +4,9 @@
 --                                                                          --
 --     A D A . F I N A L I Z A T I O N . L I S T _ C O N T R O L L E R      --
 --                                                                          --
---                                B o d y                                   --
+--                                S p e c                                   --
 --                                                                          --
---          Copyright (C) 1992-1997 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-1997, 2004 Free Software Foundation, Inc.    --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute 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-ststio.ads b/gcc/ada/a-ststio.ads
index 6a3ff556f08734cb4be6b25e0883b548ac47772b..11040face211a1a042771f8e65a4cffa7f18a252 100644 (file)
--- a/gcc/ada/a-ststio.ads
+++ b/gcc/ada/a-ststio.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2004 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 --
@@ -51,7 +51,7 @@ package Ada.Streams.Stream_IO is
    --  used in this package and System.File_IO.
 
    for File_Mode use
-     (In_File     => 0,  -- System.FIle_IO.File_Mode'Pos (In_File)
+     (In_File     => 0,  -- System.File_IO.File_Mode'Pos (In_File)
       Out_File    => 2,  -- System.File_IO.File_Mode'Pos (Out_File)
       Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File)
 

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index a63d78e04e8cd5b081bce96e6b35f3f310b65cbe..b71e1f9aaebfa7bc85912250cbc7b7a8362a7f7d 100644 (file)
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -1603,7 +1603,7 @@ package body Sem_Ch4 is
       then
          U_N := Entity (P);
 
-         if Ekind (U_N) in  Type_Kind then
+         if Ekind (U_N) in Type_Kind then
 
             --  Reformat node as a type conversion