diff options
Diffstat (limited to 'gcc/ada/a-convec.ads')
| -rw-r--r-- | gcc/ada/a-convec.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-convec.ads b/gcc/ada/a-convec.ads index bceea179995..dbb3cc4fac1 100644 --- 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; |
