diff options
Diffstat (limited to 'gcc/ada/a-cidlli.adb')
| -rw-r--r-- | gcc/ada/a-cidlli.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/a-cidlli.adb b/gcc/ada/a-cidlli.adb index 0752f9fa09c..f34c9e52986 100644 --- a/gcc/ada/a-cidlli.adb +++ b/gcc/ada/a-cidlli.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -789,7 +789,7 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is procedure Iterate (Container : List; - Process : not null access procedure (Position : in Cursor)) + Process : not null access procedure (Position : Cursor)) is C : List renames Container'Unrestricted_Access.all; B : Natural renames C.Busy; @@ -969,7 +969,7 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is procedure Query_Element (Position : Cursor; - Process : not null access procedure (Element : in Element_Type)) + Process : not null access procedure (Element : Element_Type)) is begin if Position.Node = null then @@ -1233,7 +1233,7 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is procedure Reverse_Iterate (Container : List; - Process : not null access procedure (Position : in Cursor)) + Process : not null access procedure (Position : Cursor)) is C : List renames Container'Unrestricted_Access.all; B : Natural renames C.Busy; |