diff options
Diffstat (limited to 'gcc/ada/s-shasto.adb')
| -rw-r--r-- | gcc/ada/s-shasto.adb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/s-shasto.adb b/gcc/ada/s-shasto.adb index 5d0d453..bda70d1a 100644 --- a/gcc/ada/s-shasto.adb +++ b/gcc/ada/s-shasto.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.11 $ +-- $Revision$ -- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- @@ -78,10 +78,9 @@ package body System.Shared_Storage is Shared_Var_Files_Open : Natural := 0; -- Number of shared variable access files currently open - type File_Stream_Type is new AS.Root_Stream_Type with - record - File : SIO.File_Type; - end record; + type File_Stream_Type is new AS.Root_Stream_Type with record + File : SIO.File_Type; + end record; type File_Stream_Access is access all File_Stream_Type'Class; procedure Read @@ -315,6 +314,7 @@ package body System.Shared_Storage is ---------------------- procedure Shared_Var_Close (Var : in SIO.Stream_Access) is + pragma Warnings (Off, Var); begin TSL.Unlock; end Shared_Var_Close; @@ -324,6 +324,8 @@ package body System.Shared_Storage is --------------------- procedure Shared_Var_Lock (Var : in String) is + pragma Warnings (Off, Var); + begin TSL.Lock; Initialize; @@ -409,6 +411,8 @@ package body System.Shared_Storage is ----------------------- procedure Shared_Var_Unlock (Var : in String) is + pragma Warnings (Off, Var); + begin TSL.Lock; Initialize; |