diff options
Diffstat (limited to 'gcc/ada/s-finimp.adb')
| -rw-r--r-- | gcc/ada/s-finimp.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/s-finimp.adb b/gcc/ada/s-finimp.adb index 724477b2b2f..83d71da1d3b 100644 --- a/gcc/ada/s-finimp.adb +++ b/gcc/ada/s-finimp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.1 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -290,6 +290,8 @@ package body System.Finalization_Implementation is A : System.Address; B : Boolean) is + pragma Warnings (Off, L); + V : constant SFR.Finalizable_Ptr := To_Finalizable_Ptr (A); Offset : constant SSE.Storage_Offset := RC_Offset (V'Tag); @@ -515,6 +517,8 @@ package body System.Finalization_Implementation is ---------------- procedure Initialize (Object : in out Limited_Record_Controller) is + pragma Warnings (Off, Object); + begin null; end Initialize; |