diff options
| author | Matthew Heaney <heaney@adacore.com> | 2006-02-15 10:32:52 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:32:52 +0100 |
| commit | ffabcde5e102cd7cc8a283ddc89861a727226913 (patch) | |
| tree | 39a55d293e0dcbbc8992be624d0eb85bc7be0307 /gcc/ada/a-rbtgso.adb | |
| parent | 738819cdce8e966e04a3e83d305db2cfa9bdaa75 (diff) | |
| download | gcc-ffabcde5e102cd7cc8a283ddc89861a727226913.zip gcc-ffabcde5e102cd7cc8a283ddc89861a727226913.tar.gz gcc-ffabcde5e102cd7cc8a283ddc89861a727226913.tar.bz2 | |
a-rbtgso.adb, [...]: All explicit raise statements now include an exception message.
2006-02-13 Matthew Heaney <heaney@adacore.com>
* a-rbtgso.adb, a-crbtgo.adb, a-crbtgk.adb, a-coorse.adb,
a-cohama.adb, a-ciorse.adb, a-cihama.adb, a-cihase.adb,
a-cohase.adb: All explicit raise statements now include an exception
message.
* a-ciormu.ads, a-ciormu.adb, a-coormu.ads, a-coormu.adb
(Update_Element_Preserving_Key): renamed op to just Update_Element.
Explicit raise statements now include an exception message
* a-cihase.ads, a-cohase.ads: Removed comment.
* a-stboha.ads, a-stboha.adb, a-stfiha.ads, a-envvar.adb,
a-envvar.ads, a-swbwha.ads, a-swbwha.adb, a-swfwha.ads, a-szbzha.ads,
a-szbzha.adb, a-szfzha.ads: New files.
From-SVN: r111035
Diffstat (limited to 'gcc/ada/a-rbtgso.adb')
| -rw-r--r-- | gcc/ada/a-rbtgso.adb | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/gcc/ada/a-rbtgso.adb b/gcc/ada/a-rbtgso.adb index 6742e28..fcb9adf 100644 --- a/gcc/ada/a-rbtgso.adb +++ b/gcc/ada/a-rbtgso.adb @@ -96,7 +96,8 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is begin if Target'Address = Source'Address then if Target.Busy > 0 then - raise Program_Error; + raise Program_Error with + "attempt to tamper with cursors (container is busy)"; end if; Clear (Target); @@ -108,7 +109,8 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is end if; if Target.Busy > 0 then - raise Program_Error; + raise Program_Error with + "attempt to tamper with cursors (container is busy)"; end if; loop @@ -222,7 +224,8 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is end if; if Target.Busy > 0 then - raise Program_Error; + raise Program_Error with + "attempt to tamper with cursors (container is busy)"; end if; if Source.Length = 0 then @@ -400,7 +403,8 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is begin if Target.Busy > 0 then - raise Program_Error; + raise Program_Error with + "attempt to tamper with cursors (container is busy)"; end if; if Target'Address = Source'Address then @@ -566,7 +570,8 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is end if; if Target.Busy > 0 then - raise Program_Error; + raise Program_Error with + "attempt to tamper with cursors (container is busy)"; end if; Iterate (Source); |