gcc/ada/
* sem_attr.adb (Analyze_Attribute): Reuse Resolve with implicit
type when analysing attribute Priority.
* sem_ch5.adb (Analyze_Case_Statement): Likewise for a rare case
in analysis of case statements.
(Analyze_Iterator_Specification): Likewise for non-overloaded
domain of iteration.
or else (Is_Access_Type (Etype (P))
and then Is_Protected_Type (Designated_Type (Etype (P))))
then
- Resolve (P, Etype (P));
+ Resolve (P);
else
Error_Attr_P ("prefix of % attribute must be a protected object");
end if;
and then Present (Full_View (Etype (Exp)))
and then Is_Discrete_Type (Full_View (Etype (Exp)))
then
- Resolve (Exp, Etype (Exp));
+ Resolve (Exp);
Exp_Type := Full_View (Etype (Exp));
else
-- Domain of iteration is not overloaded
else
- Resolve (Iter_Name, Etype (Iter_Name));
+ Resolve (Iter_Name);
end if;
if not Of_Present (N) then