From a9d17e32c801cf16da607bd6befaf577af0c25a9 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 24 Apr 2009 10:06:35 +0000 Subject: sem_warn.adb: Add comment on obsolete warning 2009-04-24 Ed Schonberg * sem_warn.adb: Add comment on obsolete warning From-SVN: r146687 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_warn.adb | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e6b69b3..3e0f326 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 b8ff44a..ce2288a 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)) -- cgit v1.1