gcc/ada/errout.adb

1385          Error_Msg_Node_1 := E;
2610         Error_Msg_Node_1 = Error
2611           or else Error_Msg_Node_1 = Any_Type;
2613       if Error_Msg_Node_1 = Empty then
2617       elsif Error_Msg_Node_1 = Error then
2621       elsif Error_Msg_Node_1 = Standard_Void_Type then
2625       elsif Nkind (Error_Msg_Node_1) in N_Entity
2626         and then Ekind (Error_Msg_Node_1) = E_Anonymous_Access_Subprogram_Type
2636          K := Nkind (Error_Msg_Node_1);
2647                       and then Is_Operator_Name (Chars (Error_Msg_Node_1)))
2649             Set_Msg_Node (Error_Msg_Node_1);
2655             Set_Qualification (Error_Msg_Qual_Level, Error_Msg_Node_1);
2656             Set_Msg_Node (Error_Msg_Node_1);
2669          Error_Msg_Node_1 := Error_Msg_Node_2;
2683       if Error_Msg_Node_1 = Standard_Void_Type then
2687       elsif Error_Msg_Node_1 = Standard_Exception_Type then
2691       elsif     Error_Msg_Node_1 = Any_Access
2692         or else Error_Msg_Node_1 = Any_Array
2693         or else Error_Msg_Node_1 = Any_Boolean
2694         or else Error_Msg_Node_1 = Any_Character
2695         or else Error_Msg_Node_1 = Any_Composite
2696         or else Error_Msg_Node_1 = Any_Discrete
2697         or else Error_Msg_Node_1 = Any_Fixed
2698         or else Error_Msg_Node_1 = Any_Integer
2699         or else Error_Msg_Node_1 = Any_Modular
2700         or else Error_Msg_Node_1 = Any_Numeric
2701         or else Error_Msg_Node_1 = Any_Real
2702         or else Error_Msg_Node_1 = Any_Scalar
2703         or else Error_Msg_Node_1 = Any_String
2705          Get_Unqualified_Decoded_Name_String (Chars (Error_Msg_Node_1));
2709       elsif Error_Msg_Node_1 = Universal_Real then
2713       elsif Error_Msg_Node_1 = Universal_Integer then
2717       elsif Error_Msg_Node_1 = Universal_Fixed then
2724       if Nkind (Error_Msg_Node_1) in N_Entity
2725         and then Is_Array_Type (Error_Msg_Node_1)
2726         and then Present (Related_Array_Object (Error_Msg_Node_1))
2729          Set_Msg_Node (Related_Array_Object (Error_Msg_Node_1));
2732            (Sloc (Related_Array_Object (Error_Msg_Node_1)), Flag);
2739       if Is_Private_Type (Error_Msg_Node_1) then
2745       Ent := Error_Msg_Node_1;
2799       if Sloc (Error_Msg_Node_1) > Standard_Location
2801           not Is_Predefined_Unit (Get_Source_Unit (Error_Msg_Node_1))
2803          Get_Name_String (Unit_File_Name (Get_Source_Unit (Error_Msg_Node_1)));
2805          Set_Msg_Insertion_Line_Number (Sloc (Error_Msg_Node_1), Flag);
2811          if Sloc (Error_Msg_Node_1) > Standard_Location then
2814                  Instantiation_Location (Sloc (Error_Msg_Node_1));