From: charlet Date: Fri, 24 Apr 2009 10:06:35 +0000 (+0000) Subject: 2009-04-24 Ed Schonberg X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=c4f25730d8b192d421356904f2c5ab949d28dba3;p=thirdparty%2Fgcc.git 2009-04-24 Ed Schonberg * sem_warn.adb: Add comment on obsolete warning git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146687 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e6b69b344d4f..3e0f32644739 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2009-04-24 Ed Schonberg + + * sem_warn.adb: Add comment on obsolete warning + 2009-04-24 Arnaud Charlet * s-tassta.adb (Create_Task): Fix violation of locking rule. diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index b8ff44a72a12..ce2288af1707 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2009, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -212,6 +212,10 @@ package body Sem_Warn is end if; -- Check multiple code statements in a row + -- Note : the following code is now unreachable, because Asm statements + -- are procedure calls whose actuals are concatenations, and as a result + -- of a recent stack usage optimization each such call has its own + -- block. if Is_List_Member (N) and then Present (Prev (N))