sem_warn.adb: Add comment on obsolete warning

2009-04-24  Ed Schonberg  <schonberg@adacore.com>

	* sem_warn.adb: Add comment on obsolete warning

From-SVN: r146687

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e6b69b344d4f8a3ec6ddd44342829d314b8cc4ab..3e0f32644739b6224b691b8b1f6280ee0bbe457e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-24  Ed Schonberg  <schonberg@adacore.com>
+
+       * sem_warn.adb: Add comment on obsolete warning
+
 2009-04-24  Arnaud Charlet  <charlet@adacore.com>
 
        * 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 b8ff44a72a12e7226ca7fb388a0d34aa4874d571..ce2288af1707ae06c0889f31652c4388b1ca3d2a 100644 (file)
--- 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))