a-cbhama.ads, [...] (Move): Clear Source following assignment to Target.

2011-08-29  Matthew Heaney  <heaney@adacore.com>

	* a-cbhama.ads, a-cbhase.ads (Move): Clear Source following assignment
	to Target.

2011-08-29  Matthew Heaney  <heaney@adacore.com>

	* a-cborma.ads, a-cborse.ads (Cursor): Default-initialize all
	components of record type.
	* a-cborma.adb, a-cborse.adb (Move): Clear Source following assignmentw
	to Target.

From-SVN: r178243
This commit is contained in:
Matthew Heaney 2011-08-29 14:21:27 +00:00 committed by Arnaud Charlet
parent a6dd3a540a
commit dfbf013faf
7 changed files with 27 additions and 11 deletions

View File

@ -1,3 +1,15 @@
2011-08-29 Matthew Heaney <heaney@adacore.com>
* a-cbhama.ads, a-cbhase.ads (Move): Clear Source following assignment
to Target.
2011-08-29 Matthew Heaney <heaney@adacore.com>
* a-cborma.ads, a-cborse.ads (Cursor): Default-initialize all
components of record type.
* a-cborma.adb, a-cborse.adb (Move): Clear Source following assignmentw
to Target.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* a-cbhama.adb, a-cbhama.ads, a-cborma.adb, a-cborma.ads, a-cobove.adb,

View File

@ -728,7 +728,8 @@ package body Ada.Containers.Bounded_Hashed_Maps is
"attempt to tamper with cursors (container is busy)";
end if;
Assign (Target => Target, Source => Source);
Target.Assign (Source);
Source.Clear;
end Move;
----------

View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2010, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2011, 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- --
@ -925,7 +925,8 @@ package body Ada.Containers.Bounded_Hashed_Sets is
"attempt to tamper with cursors (container is busy)";
end if;
Assign (Target => Target, Source => Source);
Target.Assign (Source);
Source.Clear;
end Move;
----------

View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2010, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2011, 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- --
@ -998,7 +998,8 @@ package body Ada.Containers.Bounded_Ordered_Maps is
"attempt to tamper with cursors (container is busy)";
end if;
Assign (Target => Target, Source => Source);
Target.Assign (Source);
Source.Clear;
end Move;
----------

View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2004-2010, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2011, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@ -264,7 +264,7 @@ private
type Cursor is record
Container : Map_Access;
Node : Count_Type;
Node : Count_Type := 0;
end record;
procedure Write

View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2010, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2011, 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- --
@ -1244,7 +1244,8 @@ package body Ada.Containers.Bounded_Ordered_Sets is
"attempt to tamper with cursors (container is busy)";
end if;
Assign (Target => Target, Source => Source);
Target.Assign (Source);
Source.Clear;
end Move;
----------

View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2004-2010, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2011, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@ -257,7 +257,7 @@ private
type Cursor is record
Container : Set_Access;
Node : Count_Type;
Node : Count_Type := 0;
end record;
use Tree_Types;