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-chtgop.adb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'gcc/ada/a-chtgop.adb') diff --git a/gcc/ada/a-chtgop.adb b/gcc/ada/a-chtgop.adb index a0e0af16493..4227c8f4483 100644 --- a/gcc/ada/a-chtgop.adb +++ b/gcc/ada/a-chtgop.adb @@ -145,6 +145,7 @@ package body Ada.Containers.Hash_Tables.Generic_Operations is L := L - 1; return Result; + exception when others => B := B - 1; @@ -411,6 +412,7 @@ package body Ada.Containers.Hash_Tables.Generic_Operations is LR := LR - 1; return Result; + exception when others => BL := BL - 1; @@ -738,12 +740,14 @@ package body Ada.Containers.Hash_Tables.Generic_Operations is pragma Assert (L > 0); L := L - 1; end loop; + exception when others => + -- If there's an error computing a hash value during a - -- rehash, then AI-302 says the nodes "become lost." The + -- rehash, then AI-302 says the nodes "become lost." The -- issue is whether to actually deallocate these lost nodes, - -- since they might be designated by extant cursors. Here + -- since they might be designated by extant cursors. Here -- we decide to deallocate the nodes, since it's better to -- solve real problems (storage consumption) rather than -- imaginary ones (the user might, or might not, dereference -- cgit v1.2.1