From 7b2888e62cee3ff8fa44e316b8d9d21a4611dbca Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 30 Jul 2014 14:50:43 +0200 Subject: [multiple changes] 2014-07-30 Robert Dewar * s-tasuti.adb, s-tasuti.ads, einfo.ads, sem_prag.adb, s-taasde.adb, g-socthi-vms.adb, s-taprop-mingw.adb, s-interr.adb, s-interr-hwint.adb, g-decstr.adb, s-tasdeb-vms.adb, g-expect-vms.adb, makeutl.adb, s-interr-vms.adb, g-socthi.adb, exp_aggr.adb, s-tasdeb.adb, g-awk.adb, gnatls.adb, s-taspri-posix.ads, g-catiio.adb, s-interr-sigaction.adb, s-os_lib.adb, s-fileio.adb: Minor reformatting & code reorganization. 2014-07-30 Bob Duff * s-tassta.adb, sem_util.ads: Minor reformatting. 2014-07-30 Yannick Moy * inline.adb (Build_Body_To_Inline): Detect when subprogram has multiple returns, or not a single last return statement, in GNATprove mode. (Cannot_Inline): Simplify logic to handle case of GNATprove inlining first. 2014-07-30 Ed Schonberg * sem_ch6.adb: Stubs are not subject to inlining. From-SVN: r213257 --- gcc/ada/s-fileio.adb | 1 - 1 file changed, 1 deletion(-) (limited to 'gcc/ada/s-fileio.adb') diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 8a9c9c1..72f7db8 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -400,7 +400,6 @@ package body System.File_IO is Fptr2 : AFCB_Ptr; Discard : int; - pragma Unreferenced (Discard); begin -- Take a lock to protect global Open_Files data structure -- cgit v1.1