diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2009-04-24 10:06:35 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-24 12:06:35 +0200 |
| commit | a9d17e32c801cf16da607bd6befaf577af0c25a9 (patch) | |
| tree | 4346301fa4a73769895828ea6009e0308157b397 /gcc | |
| parent | fb891c8755c063221bb456ebb3730c10133854d1 (diff) | |
| download | gcc-a9d17e32c801cf16da607bd6befaf577af0c25a9.zip gcc-a9d17e32c801cf16da607bd6befaf577af0c25a9.tar.gz gcc-a9d17e32c801cf16da607bd6befaf577af0c25a9.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_warn.adb | 6 |
2 files changed, 9 insertions, 1 deletions
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 <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 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)) |