diff options
Diffstat (limited to 'gcc/ada/s-soflin.adb')
| -rw-r--r-- | gcc/ada/s-soflin.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/s-soflin.adb b/gcc/ada/s-soflin.adb index 5d14441..4ae51f3 100644 --- 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; |