diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-05 09:24:44 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-05 09:24:44 +0000 |
| commit | 55c4b664c2b65a2a346b55beec474e0404634c18 (patch) | |
| tree | 3b804fec819d027d915850ec88821f23ed5538ea /gcc/ada/a-cdlili.adb | |
| parent | 3af4a6046ed483eb5301a47290e40328d40f954c (diff) | |
| download | gcc-55c4b664c2b65a2a346b55beec474e0404634c18.tar.gz | |
2011-12-05 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 182001 using svnmerge
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@182003 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-cdlili.adb')
| -rw-r--r-- | gcc/ada/a-cdlili.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/a-cdlili.adb b/gcc/ada/a-cdlili.adb index 12242583ebe..67df3093f7a 100644 --- a/gcc/ada/a-cdlili.adb +++ b/gcc/ada/a-cdlili.adb @@ -28,6 +28,7 @@ ------------------------------------------------------------------------------ with Ada.Unchecked_Deallocation; + with System; use type System.Address; package body Ada.Containers.Doubly_Linked_Lists is @@ -407,7 +408,6 @@ package body Ada.Containers.Doubly_Linked_Lists is if Object.Container /= null then declare B : Natural renames Object.Container.all.Busy; - begin B := B - 1; end; @@ -504,7 +504,6 @@ package body Ada.Containers.Doubly_Linked_Lists is procedure Free (X : in out Node_Access) is procedure Deallocate is new Ada.Unchecked_Deallocation (Node_Type, Node_Access); - begin X.Prev := X; X.Next := X; |