Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / ada / a-cfdlli.ads

diff --git a/gcc/ada/a-cfdlli.ads b/gcc/ada/a-cfdlli.ads
index 8bf8a3d..67ff3af 100644 (file)
--- a/gcc/ada/a-cfdlli.ads
+++ b/gcc/ada/a-cfdlli.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2011, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2012, 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 --
@@ -307,6 +307,9 @@ private
       Node : Count_Type := 0;
    end record;
 
+   type Constant_Reference_Type
+      (Element : not null access constant Element_Type) is null record;
+
    procedure Read
      (Stream : not null access Root_Stream_Type'Class;
       Item   : out Cursor);
@@ -323,7 +326,4 @@ private
 
    No_Element : constant Cursor := (Node => 0);
 
-   type Constant_Reference_Type
-      (Element : not null access constant Element_Type) is null record;
-
 end Ada.Containers.Formal_Doubly_Linked_Lists;