@@ -17726,7 +17726,9 @@ package body Sem_Ch13 is
begin
-- Skip if function marked as warnings off
- if Warnings_Off (Act_Unit) or else Serious_Errors_Detected > 0 then
+ if Has_Warnings_Off (Act_Unit)
+ or else Serious_Errors_Detected > 0
+ then
goto Continue;
end if;
@@ -18767,9 +18767,9 @@ package body Sem_Elab is
T : constant Entity_Id := Etype (First_Formal (E));
begin
if Is_Controlled (T) then
- if Warnings_Off (T)
+ if Has_Warnings_Off (T)
or else (Ekind (T) = E_Private_Type
- and then Warnings_Off (Full_View (T)))
+ and then Has_Warnings_Off (Full_View (T)))
then
goto Output;
end if;