From 52307e9c388efd0d6bfd2ce2d3be23fdb42beb41 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 9 Sep 2010 13:38:12 +0000 Subject: 2010-09-09 Matthew Heaney * a-convec.adb, a-coinve.adb (Clear, Delete, Delete_Last, Finalize, Merge, Insert, Insert_Space, Move, Reserve_Capacity, Generic_Sorting, Replace_Element, Reverse_Elements, Swap): Change exception message to correctly indicate kind of tampering (cursor or element). * a-cdlili.adb, a-cidlli.adb (Clear, Delete, Delete_First, Delete_Last, Merge, Generic_Sorting, Insert, Move, Reverse_Elements, Splice, Swap_Links, Replace_Element, Swap): Ditto. * a-coorse.adb, a-ciorse.adb (Include, Replace, Replace_Element): Ditto * a-coorma.adb, a-ciorma.adb (Include, Replace, Replace_Element): Ditto * a-coormu.adb, a-ciormu.adb (Replace_Element): Ditto * a-chtgke.adb (Delete_Key_Sans_Free, Generic_Conditional_Insert, Generic_Replace_Element): Ditto * a-chtgop.adb (Clear, Move, Reserve_Capacity): Ditto * a-cohama.adb, a-cihama.adb (Delete, Include, Replace, Replace_Element): Ditto. * a-cohase.adb, a-cihase.adb (Delete, Difference, Intersection, Symmetric_Difference, Union, Include, Replace): Ditto 2010-09-09 Ed Schonberg * sprint.adb (Write_Id): If the parent node is an expanded name, check that its entity_or_associated_node is an entity before writing it out. * exp_disp.adb (Make_Tags); if a type is declared in C++ and has no constructors, there is no need for a dispatch table pointer because the table is fully inherited from the C++ code. 2010-09-09 Thomas Quinot * projects.texi: Fix wrong identifiers on package end lines in project files examples. * exp_ch6.adb: Minor reformatting. 2010-09-09 Tristan Gingold * gnatcmd.adb, vms_conv.ads, vms_help.adb, vms_cmds.ads: Extract Command_Type from vms_conv.ads. 2010-09-09 Eric Botcazou * gnat_ugn.texi: Fix description of -O3 optimization level. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164092 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-coorma.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/ada/a-coorma.adb') diff --git a/gcc/ada/a-coorma.adb b/gcc/ada/a-coorma.adb index 934d9de658c..ba865202d24 100644 --- a/gcc/ada/a-coorma.adb +++ b/gcc/ada/a-coorma.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2010, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -537,7 +537,7 @@ package body Ada.Containers.Ordered_Maps is if not Inserted then if Container.Tree.Lock > 0 then raise Program_Error with - "attempt to tamper with cursors (map is locked)"; + "attempt to tamper with elements (map is locked)"; end if; Position.Node.Key := Key; @@ -1018,7 +1018,7 @@ package body Ada.Containers.Ordered_Maps is if Container.Tree.Lock > 0 then raise Program_Error with - "attempt to tamper with cursors (map is locked)"; + "attempt to tamper with elements (map is locked)"; end if; Node.Key := Key; @@ -1047,7 +1047,7 @@ package body Ada.Containers.Ordered_Maps is if Container.Tree.Lock > 0 then raise Program_Error with - "attempt to tamper with cursors (map is locked)"; + "attempt to tamper with elements (map is locked)"; end if; pragma Assert (Vet (Container.Tree, Position.Node), -- cgit v1.2.1