From 115a8ff95a7b32496cbaf73f390aaaa335b5501e Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 6 Jun 2007 10:52:10 +0000 Subject: 2007-04-20 Javier Miranda * a-cidlli.ads, a-cdlili.ads, a-cohama.ads, a-coinve.ads, a-convec.ads (Empty_Vector, Empty_Map, Empty_List): Move this object declaration after freezing point of all its associated tagged types; otherwise such types are frozen too early. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125477 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-cdlili.ads | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/a-cdlili.ads') diff --git a/gcc/ada/a-cdlili.ads b/gcc/ada/a-cdlili.ads index c5d81f78532..06603cb0541 100644 --- a/gcc/ada/a-cdlili.ads +++ b/gcc/ada/a-cdlili.ads @@ -243,8 +243,6 @@ private for List'Write use Write; - Empty_List : constant List := (Controlled with null, null, 0, 0, 0); - type List_Access is access constant List; for List_Access'Storage_Size use 0; @@ -266,6 +264,8 @@ private for Cursor'Write use Write; + Empty_List : constant List := (Controlled with null, null, 0, 0, 0); + No_Element : constant Cursor := Cursor'(null, null); end Ada.Containers.Doubly_Linked_Lists; -- cgit v1.2.1