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:
parent
a6dd3a540a
commit
dfbf013faf
@ -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,
|
||||
|
@ -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;
|
||||
|
||||
----------
|
||||
|
@ -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;
|
||||
|
||||
----------
|
||||
|
@ -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;
|
||||
|
||||
----------
|
||||
|
@ -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
|
||||
|
@ -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;
|
||||
|
||||
----------
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user