2007-04-20 Javier Miranda <miranda@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-convec.ads

diff --git a/gcc/ada/a-convec.ads b/gcc/ada/a-convec.ads
index bceea17..dbb3cc4 100644 (file)
--- a/gcc/ada/a-convec.ads
+++ b/gcc/ada/a-convec.ads
@@ -345,8 +345,6 @@ private
 
    for Vector'Read use Read;
 
-   Empty_Vector : constant Vector := (Controlled with null, No_Index, 0, 0);
-
    type Vector_Access is access constant Vector;
    for Vector_Access'Storage_Size use 0;
 
@@ -367,6 +365,8 @@ private
 
    for Cursor'Read use Read;
 
+   Empty_Vector : constant Vector := (Controlled with null, No_Index, 0, 0);
+
    No_Element : constant Cursor := Cursor'(null, Index_Type'First);
 
 end Ada.Containers.Vectors;