[Ada] Add overriding indicators

[Arnaud Charlet]

This patch adds some missing overriding indicators.
No change in functionality; no test available.

Tested on x86_64-pc-linux-gnu, committed on trunk

2011-12-22  Bob Duff  <duff@adacore.com>

	* a-stwima.ads (Initialize,Adjust,Finalize): Add overriding indicators.
	* a-ststio.ads (AFCB_Allocate,AFCB_Close,AFCB_Free,Read,Write): Add
	overriding indicators.

-------------- next part --------------
Index: a-ststio.ads
===================================================================
--- a-ststio.ads	(revision 182615)
+++ a-ststio.ads	(working copy)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2011, 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 --
@@ -202,18 +202,19 @@
 
    type File_Type is access all Stream_AFCB;
 
-   function AFCB_Allocate (Control_Block : Stream_AFCB) return FCB.AFCB_Ptr;
+   overriding function AFCB_Allocate
+     (Control_Block : Stream_AFCB) return FCB.AFCB_Ptr;
 
-   procedure AFCB_Close (File : not null access Stream_AFCB);
-   procedure AFCB_Free  (File : not null access Stream_AFCB);
+   overriding procedure AFCB_Close (File : not null access Stream_AFCB);
+   overriding procedure AFCB_Free  (File : not null access Stream_AFCB);
 
-   procedure Read
+   overriding procedure Read
      (File : in out Stream_AFCB;
       Item : out Ada.Streams.Stream_Element_Array;
       Last : out Ada.Streams.Stream_Element_Offset);
    --  Read operation used when Stream_IO file is treated directly as Stream
 
-   procedure Write
+   overriding procedure Write
      (File : in out Stream_AFCB;
       Item : Ada.Streams.Stream_Element_Array);
    --  Write operation used when Stream_IO file is treated directly as Stream
Index: a-stwima.ads
===================================================================
--- a-stwima.ads	(revision 182615)
+++ a-stwima.ads	(working copy)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2011, 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 --
@@ -177,9 +177,9 @@
    --  incorrect attempts to finalize constants that are statically
    --  declared here and in Ada.Strings.Wide_Maps, which is incorrect.
 
-   procedure Initialize (Object : in out Wide_Character_Set);
-   procedure Adjust     (Object : in out Wide_Character_Set);
-   procedure Finalize   (Object : in out Wide_Character_Set);
+   overriding procedure Initialize (Object : in out Wide_Character_Set);
+   overriding procedure Adjust     (Object : in out Wide_Character_Set);
+   overriding procedure Finalize   (Object : in out Wide_Character_Set);
 
    Null_Range : aliased constant Wide_Character_Ranges :=
                   (1 .. 0 => (Low => ' ', High => ' '));
@@ -224,9 +224,9 @@
    --  incorrect attempts to finalize constants that are statically
    --  declared here and in Ada.Strings.Wide_Maps, which is incorrect.
 
-   procedure Initialize (Object : in out Wide_Character_Mapping);
-   procedure Adjust     (Object : in out Wide_Character_Mapping);
-   procedure Finalize   (Object : in out Wide_Character_Mapping);
+   overriding procedure Initialize (Object : in out Wide_Character_Mapping);
+   overriding procedure Adjust     (Object : in out Wide_Character_Mapping);
+   overriding procedure Finalize   (Object : in out Wide_Character_Mapping);
 
    Null_Map : aliased constant Wide_Character_Mapping_Values :=
                  (Length => 0,