From b76829e9b0a0ee4dfa02a95af8d45612fbda21b7 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 6 Aug 2012 08:35:47 +0000 Subject: 2012-08-06 Thomas Quinot * sem_ch4.adb: Minor reformatting. 2012-08-06 Thomas Quinot * s-oscons-tmplt.c, xoscons.adb: Per the Single UNIX Specification, types cc_t, speed_t, and tcflag_t defined in all are unsigned types. Add required special handling to have their correct unsigned values in s-oscons.ads. 2012-08-06 Thomas Quinot * par-ch13.adb: Minor reformatting. 2012-08-06 Thomas Quinot * g-sercom.adb, g-sercom.ads, g-sercom-mingw.adb, g-sercom-linux.adb (Set): Add Local and Flow_Control settings. 2012-08-06 Ed Schonberg * exp_attr.adb: Suppress saving of 'Old if assertions are not enabled. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190170 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_attr.adb | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gcc/ada/exp_attr.adb') diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 6516d3bc199..b0f409d071c 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -3379,6 +3379,13 @@ package body Exp_Attr is Asn_Stm : Node_Id; begin + -- If assertions are disabled, no need to create the declaration + -- that preserves the value. + + if not Assertions_Enabled then + return; + end if; + -- Find the nearest subprogram body, ignoring _Preconditions Subp := N; -- cgit v1.2.1