diff options
Diffstat (limited to 'gcc/ada/s-mastop.adb')
-rw-r--r-- | gcc/ada/s-mastop.adb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/s-mastop.adb b/gcc/ada/s-mastop.adb index 16e7de2ff70..08b6844d919 100644 --- a/gcc/ada/s-mastop.adb +++ b/gcc/ada/s-mastop.adb @@ -7,9 +7,9 @@ -- B o d y -- -- (Dummy version) -- -- -- --- $Revision: 1.4 $ +-- $Revision$ -- -- --- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -39,6 +39,10 @@ package body System.Machine_State_Operations is + -- Turn off warnings since many unused parameters + + pragma Warnings (Off); + use System.Exceptions; ---------------------------- @@ -122,7 +126,8 @@ package body System.Machine_State_Operations is procedure Set_Signal_Machine_State (M : Machine_State; - Context : System.Address) is + Context : System.Address) + is begin null; end Set_Signal_Machine_State; |