-- --
-- 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- --
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;
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;
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),