!editorial comment 098
!topic  editorial changes to function Corresponding_Declaration
!reference  ASIS 95-15.26
!from  Sergey Rybin 98-01-30

In all the tree kind lists in the specification of the
Asis.Declarations.Corresponding_Declaration function, the last two
lines are wrong.  Change them as follows:

-- Appropriate Declaration_Kinds returning a specification:
--      A_Function_Body_Declaration
--      A_Function_Renaming_Declaration (renaming-as-body)
--      A_Function_Body_Stub
--      A_Function_Instantiation
--      A_Package_Body_Declaration
--      A_Package_Body_Stub
--      A_Package_Instantiation
--      A_Procedure_Body_Declaration
--      A_Procedure_Renaming_Declaration (renaming-as-body)
--      A_Procedure_Body_Stub
--      A_Procedure_Instantiation
--      A_Task_Body_Declaration
--      A_Task_Body_Stub
--      A_Protected_Type_Declaration

Change the above to: A_Protected_Body_Declaration

--      A_Single_Protected_Declaration

Change the above to: A_Protected_Body_Stub

-- Appropriate Declaration_Kinds returning the argument Declaration:
--      A_Function_Declaration
--      A_Function_Renaming_Declaration (renaming-as-declaration)
--      A_Generic_Function_Declaration
--      A_Generic_Package_Declaration
--      A_Generic_Procedure_Declaration
--      A_Package_Declaration
--      A_Package_Renaming_Declaration
--      A_Procedure_Declaration
--      A_Procedure_Renaming_Declaration (renaming-as-declaration)
--      A_Single_Task_Declaration
--      A_Task_Type_Declaration
--      A_Protected_Body_Declaration

Change the above to: Protected_Type_Declaration

--      A_Protected_Body_Stub

Change the above to: A_Single_Protected_Declaration

-- Returns Declaration_Kinds:
--      Not_A_Declaration
--      A_Function_Declaration
--      A_Function_Renaming_Declaration
--      A_Generic_Function_Declaration
--      A_Generic_Package_Declaration
--      A_Generic_Procedure_Declaration
--      A_Package_Declaration
--      A_Package_Renaming_Declaration
--      A_Procedure_Declaration
--      A_Procedure_Renaming_Declaration
--      A_Single_Task_Declaration
--      A_Task_Type_Declaration
--      A_Protected_Body_Declaration

Change the above to: A_Protected_Type_Declaration

--      A_Protected_Body_Stub

Change the above to: A_Single_Protected_Declaration

!resolution  Accept.
Corrections made.