diff options
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index c55d46892fb..c6ce9dfa451 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -1449,10 +1449,12 @@ package body Freeze is procedure Freeze_Record_Type (Rec : Entity_Id) is Comp : Entity_Id; IR : Node_Id; - Junk : Boolean; ADC : Node_Id; Prev : Entity_Id; + Junk : Boolean; + pragma Warnings (Off, Junk); + Unplaced_Component : Boolean := False; -- Set True if we find at least one component with no component -- clause (used to warn about useless Pack pragmas). @@ -2899,8 +2901,10 @@ package body Freeze is and then Known_RM_Size (E) then declare + SizC : constant Node_Id := Size_Clause (E); + Discard : Boolean; - SizC : constant Node_Id := Size_Clause (E); + pragma Warnings (Off, Discard); begin -- It is not clear if it is possible to have no size |