diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 11:24:17 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 11:24:17 +0100 |
| commit | 25081892c432b0234fd29bdbf970c89f2083eed5 (patch) | |
| tree | 9d6cf6a29c0a1bdac65791a5798295c1f978b73b /gcc/ada/a-cidlli.adb | |
| parent | 4f0534570bc8bb662747136a348991a964cb022b (diff) | |
| download | gcc-25081892c432b0234fd29bdbf970c89f2083eed5.zip gcc-25081892c432b0234fd29bdbf970c89f2083eed5.tar.gz gcc-25081892c432b0234fd29bdbf970c89f2083eed5.tar.bz2 | |
[multiple changes]
2012-01-30 Robert Dewar <dewar@adacore.com>
* a-cdlili.adb, a-cidlli.adb, a-cbdlli.adb: Minor reformatting.
2012-01-30 Olivier Hainque <hainque@adacore.com>
* sigtramp-ppcvxw.c (CFI_COMMON_REGS): Add rule for r1 back +
comments.
2012-01-30 Thomas Quinot <quinot@adacore.com>
* gnat_rm.texi, sem_dist.adb, sem_dist.ads, einfo.ads, sem_prag.adb,
sem_ch12.adb, sem_attr.adb, aspects.adb, aspects.ads, par-prag.adb,
sem_cat.adb, snames.ads-tmpl (Sem_Dist.Is_Valid_Remote_Object_Type):
New subprogram (extracted from
Sem_Cat.Validate_Remote_Access_Object_Type_Declaration).
(Einfo.Is_Remote_Types): Now applies to generic types. Update
documentation accordingly.
(Sem_Ch12.Analyze_Associations): A RACW type is acceptable as
actual for a formal type to which a pragma Remote_Access_Type
applies.
(Aspects, Par.Prag, Sem_Prag): Support for new pramga/aspect
Remote_Access_Type.
(Sem_Attr.Analyze_Attribute, case Stub_Type): Attribute can
be applied to a generic type if pragma Remote_Access_Type
applies, in which case the type of the attribute is
System.Partition_Interface.RACW_Stub_Type.
From-SVN: r183698
Diffstat (limited to 'gcc/ada/a-cidlli.adb')
| -rw-r--r-- | gcc/ada/a-cidlli.adb | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/gcc/ada/a-cidlli.adb b/gcc/ada/a-cidlli.adb index 9d4eea1..cac6e9c 100644 --- a/gcc/ada/a-cidlli.adb +++ b/gcc/ada/a-cidlli.adb @@ -2098,6 +2098,7 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is declare L : List renames Position.Container.all; + begin if L.Length = 0 then return False; @@ -2119,15 +2120,11 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is return False; end if; - if Position.Node.Prev = null - and then Position.Node /= L.First - then + if Position.Node.Prev = null and then Position.Node /= L.First then return False; end if; - if Position.Node.Next = null - and then Position.Node /= L.Last - then + if Position.Node.Next = null and then Position.Node /= L.Last then return False; end if; |