diff options
author | Matthew Heaney <heaney@adacore.com> | 2005-12-09 18:16:22 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-12-09 18:16:22 +0100 |
commit | 7cdc672b77b47c9c4794ed9b24b8dc923ea36bab (patch) | |
tree | 3d8042f676028733216495b35bc6bac0d717a751 /gcc/ada/a-cidlli.ads | |
parent | 9582a3cd55cfe9218f3fd8c80808d816c8774897 (diff) | |
download | gcc-7cdc672b77b47c9c4794ed9b24b8dc923ea36bab.zip gcc-7cdc672b77b47c9c4794ed9b24b8dc923ea36bab.tar.gz gcc-7cdc672b77b47c9c4794ed9b24b8dc923ea36bab.tar.bz2 |
a-convec.adb (Merge): Added assertions to check whether vector params are sorted.
2005-12-05 Matthew Heaney <heaney@adacore.com>
* a-convec.adb (Merge): Added assertions to check whether vector params
are sorted.
* a-coinve.adb (Merge): Added assertions to check whether vector params
are sorted.
* a-cohama.ads (Cursor'Write): raises Program_Error per latest AI-302
draft.
(Cursor'Read): raises PE
* a-cohama.adb (Insert.New_Node): Uses box-style syntax to init elem
to its default value.
* a-cihama.adb: Manually check whether cursor's key and elem are
non-null
* a-cidlli.ads, a-cidlli.adb (Splice): Changed param name and param mode
(Merge): Assert that target and source lists are in order
(Swap): Declare non-const temporaries, to pass to Splice
* a-cdlili.ads: (Splice): Changed param name and param mode
* a-cdlili.adb: (Splice): Changed param name and param mode
(Merge): Assert that target and source lists are in order
(Swap): Declare non-const temporaries, to pass to Splice
* a-ciorma.ads, a-coorma.ads: (Read): declare Stream param as not null
(Write): declare Stream param as not null
* a-ciorma.adb, a-coorma.adb: All explicit raise statements now include
an exception message.
From-SVN: r108287
Diffstat (limited to 'gcc/ada/a-cidlli.ads')
-rw-r--r-- | gcc/ada/a-cidlli.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/a-cidlli.ads b/gcc/ada/a-cidlli.ads index 9e2d235..e6fbf769 100644 --- a/gcc/ada/a-cidlli.ads +++ b/gcc/ada/a-cidlli.ads @@ -136,9 +136,9 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is Position : in out Cursor); procedure Splice - (Target : in out List; - Before : Cursor; - Position : Cursor); + (Container : in out List; + Before : Cursor; + Position : in out Cursor); function First (Container : List) return Cursor; |