* decl2.c (maybe_emit_vtables): Produce same comdat group when outputting

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-soflin.adb

diff --git a/gcc/ada/s-soflin.adb b/gcc/ada/s-soflin.adb
index 5d14441..4ae51f3 100644 (file)
--- a/gcc/ada/s-soflin.adb
+++ b/gcc/ada/s-soflin.adb
@@ -29,9 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
 
 pragma Polling (Off);
 --  We must turn polling off for this unit, because otherwise we get an
@@ -309,7 +307,7 @@ package body System.Soft_Links is
    -------------------------
 
    procedure Task_Termination_NT (Excep : EO) is
-      pragma Warnings (Off, Excep);
+      pragma Unreferenced (Excep);
    begin
       null;
    end Task_Termination_NT;