From 96da32848363deea28bde71dc3d42c34e7067f7a Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 15 Oct 2007 13:53:48 +0000 Subject: 2007-10-15 Robert Dewar * s-taprop-solaris.adb, s-taprop-vms.adb, s-taprop-mingw.adb, s-taprop-vxworks.adb, s-taprop-posix.adb, a-calend-vms.adb, a-calend.adb, a-nuflra.adb, a-tigeau.adb, a-wtgeau.adb, checks.adb, bindgen.adb, eval_fat.adb, exp_fixd.adb, fmap.adb, freeze.adb, g-awk.adb, g-calend.adb, g-diopit.adb, g-expect.adb, gnatchop.adb, gnatlink.adb, g-spipat.adb, g-thread.adb, make.adb, mdll.adb, mlib.adb, mlib-prj.adb, osint.adb, par-ch3.adb, prj.adb, prj-makr.adb, sem_prag.adb, sem_type.adb, s-fatgen.adb, s-fileio.adb, sinfo.ads, sinput-d.adb, s-taasde.adb, s-tasdeb.ads, s-tasren.adb, s-tassta.adb, s-tpobop.adb, s-tposen.adb, stylesw.adb, types.ads, uintp.adb, validsw.adb, makegpr.adb, a-rbtgso.adb, a-crbtgo.adb, a-coorse.adb, a-convec.adb, a-coinve.adb, a-cohama.adb, a-ciorse.adb, a-cihama.adb, a-cidlli.adb, a-chtgop.adb, a-cdlili.adb, a-cdlili.adb, a-coormu.adb, a-ciormu.adb, a-cihase.adb, a-cohase.adb, a-ciorma.adb, a-coorma.adb, a-ztgeau.adb, symbols-vms.adb, a-crdlli.adb, a-calari.adb, a-calfor.adb, s-os_lib.adb, s-regpat.adb, a-ngrear.adb: Minor reformatting. Add Unreferenced and Warnings (Off) pragmas for cases of variables modified calls where they are IN OUT or OUT parameters and the resulting values are not subsequently referenced. In a few cases, we also remove redundant code found by the new warnings. * ug_words, vms_data.ads, usage.adb, sem_util.adb, sem_util.ads, sem_warn.adb, sem_warn.ads, sem_res.adb, sem_ch7.adb, sem_ch8.adb, sem_ch5.adb, opt.ads, lib-xref.adb, lib-xref.ads, exp_smem.adb, sem_ch11.adb, exp_ch6.adb, einfo.ads, einfo.adb: implement a new warning controlled by -gnatw.o that warns on cases of out parameter values being ignored. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129318 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/mdll.adb | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/ada/mdll.adb') diff --git a/gcc/ada/mdll.adb b/gcc/ada/mdll.adb index f2d5aa97578..e6eb5e936a3 100644 --- a/gcc/ada/mdll.adb +++ b/gcc/ada/mdll.adb @@ -111,6 +111,7 @@ package body MDLL is -- Objects plus the export table (.exp) file Success : Boolean; + pragma Warnings (Off, Success); begin if not Quiet then @@ -192,6 +193,7 @@ package body MDLL is procedure Ada_Build_Reloc_DLL is Success : Boolean; + pragma Warnings (Off, Success); begin if not Quiet then @@ -296,6 +298,7 @@ package body MDLL is procedure Build_Non_Reloc_DLL is Success : Boolean; + pragma Warnings (Off, Success); begin if not Quiet then @@ -348,6 +351,7 @@ package body MDLL is procedure Ada_Build_Non_Reloc_DLL is Success : Boolean; + pragma Warnings (Off, Success); begin if not Quiet then -- cgit v1.2.1