From 9de475762b8d4c06370c0914be86b772ff731291 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 20 Feb 2014 13:46:15 +0000 Subject: 2014-02-20 Robert Dewar * a-crbtgk.adb, a-cihama.adb, a-coinve.adb, a-ciorse.adb, a-crbtgo.adb, a-cidlli.adb, a-cimutr.adb, a-cihase.adb, a-cohama.adb, a-coorse.adb, a-chtgke.adb, a-chtgop.adb, a-comutr.adb, a-ciorma.adb, a-cobove.adb, a-convec.adb, a-cohase.adb, a-chtgbk.adb, a-chtgbo.adb: Minor reformatting. 2014-02-20 Bob Duff * s-os_lib.ads: Minor: Remove incorrect comment. 2014-02-20 Robert Dewar * sem_elab.adb (Check_Elab_Assign): Clearer warning message. 2014-02-20 Vincent Celier * gnat_rm.texi: Minor syntax error fix. 2014-02-20 Ed Schonberg * a-cborma.adb (Assign): When creating a node without a specified element, insert an uninitialized element in the map, because the instance may provide an element type with a default initialization, e.g a scalar with a Default_Value aspect. * a-cbhama.adb (Assign_Key): Remove useless Allocate procedure. (Insert): In the version without explicit element, provide an uninitialized element, as above. * a-cbdlli.adb (Append): In the version without explicit element, provide an uninitalized element, as above. (Allocate): Remove unused version. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207945 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-coinve.adb | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/ada/a-coinve.adb') diff --git a/gcc/ada/a-coinve.adb b/gcc/ada/a-coinve.adb index 677fd97e09d..3234f5ec87a 100644 --- a/gcc/ada/a-coinve.adb +++ b/gcc/ada/a-coinve.adb @@ -543,6 +543,7 @@ package body Ada.Containers.Indefinite_Vectors is LR := LR - 1; return Result; + exception when others => BL := BL - 1; @@ -1280,6 +1281,7 @@ package body Ada.Containers.Indefinite_Vectors is when others => B := B - 1; L := L - 1; + raise; end Find_Index; @@ -1421,6 +1423,7 @@ package body Ada.Containers.Indefinite_Vectors is when others => B := B - 1; L := L - 1; + raise; end; end Is_Sorted; @@ -1599,6 +1602,7 @@ package body Ada.Containers.Indefinite_Vectors is when others => B := B - 1; L := L - 1; + raise; end; end Sort; -- cgit v1.2.1