tools/gnatcheck/gnatcheck-asis_utilities.adb

229       if Expression_Kind (Called_Pref) = An_Identifier then
252                if Expression_Kind (Tmp_El) = A_Selected_Component then
390             while not (Expression_Kind (Arg_Elem) = A_Selected_Component
392                        Expression_Kind (Arg_Elem) = An_Identifier)
397             if Expression_Kind (Arg_Elem) = A_Selected_Component then
410       if Expression_Kind (Arg_Elem) = An_Identifier then
430       case Expression_Kind (Element) is
514       if Expression_Kind (Tmp) = A_Function_Call then
523       if Expression_Kind (Tmp) = A_Selected_Component then
526          if Expression_Kind (Tmp) = A_Selected_Component then
530          pragma Assert (Expression_Kind (Tmp) = An_Identifier);
560       if Expression_Kind (Arg_Element) = A_Selected_Component then
564       case Expression_Kind (Arg_Element) is
842             Expression_Kind (Result) = A_Function_Call
867       if Expression_Kind (Tmp) = An_Indexed_Component then
872       if Expression_Kind (Tmp) = A_Selected_Component then
875          if Expression_Kind (Tmp) = A_Selected_Component then
929       Arg_Kind : constant Expression_Kinds := Expression_Kind (El);
1036       if Expression_Kind (Result) = A_Selected_Component then
1208       if Expression_Kind (Result) = A_Selected_Component then
1247          case Expression_Kind (Pref) is
1261                if Expression_Kind (Pref) = An_Identifier then
1264                elsif Expression_Kind (Pref) = A_Selected_Component then
1382       if Expression_Kind (El) = A_Function_Call
1437       if Expression_Kind (El) in
1545       if Expression_Kind (El) = A_Function_Call then
1552             if Expression_Kind (Pref) = A_Selected_Component then
1556             Result := Expression_Kind (Pref) = An_Operator_Symbol;
1789       if Expression_Kind (Call) = A_Function_Call then
1795       if Expression_Kind (Tmp) = An_Explicit_Dereference
1923       case Expression_Kind (SM) is
2036       if Expression_Kind (Operation) = An_Operator_Symbol
2049             if Expression_Kind (Tmp_Element) = A_Selected_Component then