diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-27 11:37:53 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-27 11:37:53 +0200 |
| commit | f672a756b3c82462fd4b26860a4f916218da64b9 (patch) | |
| tree | 37169ca0c07156d926d1fe1e342b29d21ab6db1c /gcc/ada/sem_util.adb | |
| parent | 7a44cb697f8804e97567650f37b216a876352a78 (diff) | |
| download | gcc-f672a756b3c82462fd4b26860a4f916218da64b9.zip gcc-f672a756b3c82462fd4b26860a4f916218da64b9.tar.gz gcc-f672a756b3c82462fd4b26860a4f916218da64b9.tar.bz2 | |
[multiple changes]
2011-09-27 Pascal Obry <obry@adacore.com>
* s-taspri-posix-noaltstack.ads (RW_Lock): This type is now defined as
OS_Interface.pthread_rwlock_t.
2011-09-27 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, a-cimutr.adb, a-cimutr.ads, gnat1drv.adb, a-comutr.adb,
a-comutr.ads, exp_dist.adb, a-cbmutr.adb, a-cbmutr.ads,
sem_ch5.adb, sem_util.adb: Minor reformatting.
From-SVN: r179252
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 26d90af..5df84dc 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -2274,9 +2274,9 @@ package body Sem_Util is is Comp : Node_Id; Comps : constant List_Id := New_List; + begin Comp := First_Component (Underlying_Type (R_Typ)); - while Present (Comp) loop if Comes_From_Source (Comp) then declare @@ -2291,6 +2291,7 @@ package body Sem_Util is (Component_Definition (Comp_Decl), New_Sloc => Loc))); end; end if; + Next_Component (Comp); end loop; |