diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 15:32:09 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 15:32:09 +0200 |
| commit | 043ce308074d55f57dbb05bb2e0253417f3d0174 (patch) | |
| tree | a9617cffdcd3216494b5d8f6d2f2e270b9735a5a /gcc/ada/sem_aux.adb | |
| parent | 72df3faaf84f0ae75620cd25ee6c96e0465cc156 (diff) | |
| download | gcc-043ce308074d55f57dbb05bb2e0253417f3d0174.zip gcc-043ce308074d55f57dbb05bb2e0253417f3d0174.tar.gz gcc-043ce308074d55f57dbb05bb2e0253417f3d0174.tar.bz2 | |
[multiple changes]
2009-04-10 Robert Dewar <dewar@adacore.com>
* mlib-tgt-specific-xi.adb: Minor reformatting
2009-04-10 Bob Duff <duff@adacore.com>
* einfo.ads: Minor comment fixes
2009-04-10 Vincent Celier <celier@adacore.com>
* snames.ads-tmpl: Remove names that are no longer used in the
Project Manager.
Mark specifically those that are used only in gprbuild
2009-04-10 Eric Botcazou <ebotcazou@adacore.com>
* init.c: Adjust EH support code on Alpha/Tru64.
2009-04-10 Bob Duff <duff@adacore.com>
* sem_ch6.adb (Process_PPCs): Add a call to the _Postconditions
procedure on every path that could return implicitly (not via a return
statement) from a procedure.
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* exp_ch9.adb (Build_Master_Entity): An extended return statement is a
valid scope for a task declarations and therefore for a master id.
2009-04-10 Robert Dewar <dewar@adacore.com>
* sem_aux.adb: Minor reformatting
2009-04-10 Vincent Celier <celier@adacore.com>
* scn.adb (Obsolescent_Check_Flag): New Boolean flag, initialized to
True.
(Obsolescent_Check): Do nothing if Obsolescent_Check_Flag is False
(Set_Obsolescent_Check): New procedure to change the value of
Obsolescent_Check_Flag.
* scn.ads (Set_Obsolescent_Check): New procedure to control
Obsolescent_Check.
* sinput-l.adb (Load_File): Do not check for pragma Restrictions on
obsolescent features while preprocessing.
From-SVN: r145901
Diffstat (limited to 'gcc/ada/sem_aux.adb')
| -rwxr-xr-x | gcc/ada/sem_aux.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 884c2bd..39b7443 100755 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -733,6 +733,8 @@ package body Sem_Aux is begin pragma Assert (Is_Tag (Tag)); + -- Loop to look for next tag component + Comp := Next_Entity (Tag); while Present (Comp) loop if Is_Tag (Comp) then |