diff options
Diffstat (limited to 'gcc/ada/sem_warn.adb')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index e917ccf7327..407171f1d7b 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -2603,7 +2603,7 @@ package body Sem_Warn is -- Output_Non_Modified_In_Out_Warnings -- ----------------------------------------- - procedure Output_Non_Modifed_In_Out_Warnings is + procedure Output_Non_Modified_In_Out_Warnings is function No_Warn_On_In_Out (E : Entity_Id) return Boolean; -- Given a formal parameter entity E, determines if there is a reason to @@ -2700,7 +2700,7 @@ package body Sem_Warn is end if; end; end loop; - end Output_Non_Modifed_In_Out_Warnings; + end Output_Non_Modified_In_Out_Warnings; ---------------------------------------- -- Output_Obsolescent_Entity_Warnings -- @@ -3966,7 +3966,7 @@ package body Sem_Warn is if Ekind (E) = E_In_Parameter or else not Referenced_As_LHS_Check_Spec (E) - or else Is_Scalar_Type (E) + or else Is_Scalar_Type (Etype (E)) then if Present (Body_E) then E := Body_E; |