aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-cborma.ads
diff options
context:
space:
mode:
authorMatthew Heaney <heaney@adacore.com>2011-08-29 14:21:27 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2011-08-29 16:21:27 +0200
commitdfbf013faf211971823f83c39648ad98d2b557b5 (patch)
tree08443dfec4931ee42498fe054ec70bfa2e0a1c94 /gcc/ada/a-cborma.ads
parenta6dd3a540a25276f642c8aa22d97643e98dfd171 (diff)
downloadgcc-dfbf013faf211971823f83c39648ad98d2b557b5.zip
gcc-dfbf013faf211971823f83c39648ad98d2b557b5.tar.gz
gcc-dfbf013faf211971823f83c39648ad98d2b557b5.tar.bz2
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
Diffstat (limited to 'gcc/ada/a-cborma.ads')
-rw-r--r--gcc/ada/a-cborma.ads4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-cborma.ads b/gcc/ada/a-cborma.ads
index 6be9777..c0c160b 100644
--- a/gcc/ada/a-cborma.ads
+++ b/gcc/ada/a-cborma.ads
@@ -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