diff options
Diffstat (limited to 'gcc/ada/mlib-prj.adb')
| -rw-r--r-- | gcc/ada/mlib-prj.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb index 4314a80a1d6..2805b8c97a1 100644 --- a/gcc/ada/mlib-prj.adb +++ b/gcc/ada/mlib-prj.adb @@ -1699,7 +1699,8 @@ package body MLib.Prj is -- Designates the full library path name. Either DLL_Name or -- Archive_Name, depending on the library kind. - Success : Boolean := False; + Success : Boolean; + pragma Warnings (Off, Success); -- Used to call Delete_File begin @@ -1774,6 +1775,7 @@ package body MLib.Prj is Last : Natural; Disregard : Boolean; + pragma Warnings (Off, Disregard); DLL_Name : aliased constant String := Lib_Filename.all & "." & DLL_Ext; @@ -1963,6 +1965,7 @@ package body MLib.Prj is Last : Natural; Disregard : Boolean; + pragma Warnings (Off, Disregard); begin Open (Dir, "."); @@ -2181,7 +2184,8 @@ package body MLib.Prj is ---------- procedure Copy (File_Name : File_Name_Type) is - Success : Boolean := False; + Success : Boolean; + pragma Warnings (Off, Success); begin Unit_Loop : |