+ procedure Check_Array_Attribute_Index
+ (N : Node_Id;
+ E1 : Node_Id;
+ D : Int);
+ -- Called for an array attribute specifying an index number. N is the
+ -- node for the attribute, and E1 is the index expression (Empty if none
+ -- present). If E1 is present, it is known to be a static integer. D is
+ -- the number of dimensions of the array.
+
+ procedure Check_Identifier
+ (Ref : Node_Or_Entity_Id;
+ Def : Node_Or_Entity_Id);
+ -- Check style of identifier occurrence. Ref is an N_Identifier node whose
+ -- spelling is to be checked against the Chars spelling in identifier node
+ -- Def (which may be either an N_Identifier, or N_Defining_Identifier node)
+
+ procedure Missing_Overriding (N : Node_Id; E : Entity_Id);
+ -- Called where N is the declaration or body of an overriding operation,
+ -- and the node does not have an overriding_indicator.
+
+ procedure Subprogram_Not_In_Alpha_Order (Name : Node_Id);
+ -- Called if Name is the name of a subprogram body in a package body
+ -- that is not in alphabetical order.
+
+ -- Remaining style routines come from instantiation of Styleg
+
+ package Style_Inst is new Styleg
+ (Errout.Error_Msg,
+ Errout.Error_Msg_S,
+ Errout.Error_Msg_SC,
+ Errout.Error_Msg_SP);
+ -- Instantiation of Styleg for compiler use
+
+ procedure Check_Abs_Not
+ renames Style_Inst.Check_Abs_Not;