aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-cofove.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2014-11-20 16:50:29 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2014-11-20 16:50:29 +0100
commitd7d99211f9001bd2c1c5874e1bcf8bbb460aa2dc (patch)
treeccd228e8d08e9b13241e8a9753c53f579862e463 /gcc/ada/a-cofove.ads
parentde4899bb19823f4865b060823eab2bdeba9c6fee (diff)
downloadgcc-d7d99211f9001bd2c1c5874e1bcf8bbb460aa2dc.zip
gcc-d7d99211f9001bd2c1c5874e1bcf8bbb460aa2dc.tar.gz
gcc-d7d99211f9001bd2c1c5874e1bcf8bbb460aa2dc.tar.bz2
[multiple changes]
2014-11-20 Arnaud Charlet <charlet@adacore.com> * s-parame-ae653.ads: Update comments. 2014-11-20 Robert Dewar <dewar@adacore.com> * types.ads, einfo.ads: Minor reformatting. * sem_elab.adb (Check_A_Call): Add guard for reference to Alias for variable case. 2014-11-20 Bob Duff <duff@adacore.com> * a-cofove.adb (Elems,Elemsc): Use access-to-constrained arrays instead of access-to-unconstrained, because the latter doesn't work with 'Unrestricted_Access when the result is returned from a function. * a-cofove.ads (Vector): Move the discriminant-dependent array after the other components for efficiency. Otherwise the compiler will generate a lot of code to calculate the offset of the other components every time they're accessed. 2014-11-20 Olivier Hainque <hainque@adacore.com> * opt.ads: Fix comment on Generate_SCO_Instance_Table wrt when it is set to true. From-SVN: r217879
Diffstat (limited to 'gcc/ada/a-cofove.ads')
-rw-r--r--gcc/ada/a-cofove.ads2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-cofove.ads b/gcc/ada/a-cofove.ads
index 6ddd24b..0f02017 100644
--- a/gcc/ada/a-cofove.ads
+++ b/gcc/ada/a-cofove.ads
@@ -255,9 +255,9 @@ private
-- In the bounded case, the elements are stored in Elements. In the
-- unbounded case, the elements are initially stored in Elements, until
-- we run out of room, then we switch to Elements_Ptr.
- Elements : aliased Elements_Array (1 .. Capacity);
Last : Extended_Index := No_Index;
Elements_Ptr : Elements_Array_Ptr := null;
+ Elements : aliased Elements_Array (1 .. Capacity);
end record;
-- The primary reason Vector is limited is that in the unbounded case, once