diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-10 11:06:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-10 11:06:44 +0000 |
| commit | ae8e99a36859a079b40a4693302062976a537f05 (patch) | |
| tree | 294b7686614c59eae2c0a4ac8ed8cd7342de0f82 /gcc/ada/a-convec.ads | |
| parent | 43537c9651f05e0ad6ba2c752dcfdfb762ef8376 (diff) | |
| download | gcc-ae8e99a36859a079b40a4693302062976a537f05.tar.gz | |
2012-01-10 Pascal Obry <obry@adacore.com>
* prj-nmsc.adb (Check_Library_Attributes): Kill check for object/source
directories for aggregate libraries.
2012-01-10 Matthew Heaney <heaney@adacore.com>
* a-cdlili.adb, a-cdlili.ads, a-cihama.adb, a-cihama.ads, a-coinve.adb,
a-coinve.ads, a-ciorse.adb, a-ciorse.ads, a-coorma.adb, a-coorma.ads,
a-cborma.adb, a-cborma.ads, a-cidlli.adb, a-cidlli.ads, a-cimutr.adb,
a-cimutr.ads, a-cihase.adb, a-cihase.ads, a-cohama.adb, a-cohama.ads,
a-coorse.adb, a-coorse.ads, a-cbhama.adb, a-cbhama.ads, a-cborse.adb,
a-cborse.ads, a-comutr.adb, a-comutr.ads, a-ciorma.adb, a-cobove.adb,
a-ciorma.ads, a-cobove.ads, a-convec.adb, a-convec.ads, a-cohase.adb,
a-cohase.ads, a-cbdlli.adb, a-cbdlli.ads, a-cbmutr.adb, a-cbmutr.ads,
a-cbhase.adb, a-cbhase.ads (Reference, Constant_Reference): Declare
container parameter as aliased in/in out.
Code clean ups.
2012-01-10 Bob Duff <duff@adacore.com>
* s-os_lib.ads: Improve comment.
2012-01-10 Geert Bosch <bosch@adacore.com>
* s-gearop.adb (Forward_Eliminate): Avoid improper aliasing
for complex Scalar.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183060 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-convec.ads')
| -rw-r--r-- | gcc/ada/a-convec.ads | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gcc/ada/a-convec.ads b/gcc/ada/a-convec.ads index 00f9b2abbac..babf94e9c45 100644 --- a/gcc/ada/a-convec.ads +++ b/gcc/ada/a-convec.ads @@ -189,18 +189,20 @@ package Ada.Containers.Vectors is for Reference_Type'Read use Read; function Constant_Reference - (Container : Vector; Position : Cursor) -- SHOULD BE ALIASED - return Constant_Reference_Type; + (Container : aliased Vector; + Position : Cursor) return Constant_Reference_Type; - function Constant_Reference - (Container : Vector; Position : Index_Type) - return Constant_Reference_Type; + function Reference + (Container : aliased in out Vector; + Position : Cursor) return Reference_Type; - function Reference (Container : Vector; Position : Cursor) - return Reference_Type; + function Constant_Reference + (Container : aliased Vector; + Index : Index_Type) return Constant_Reference_Type; - function Reference (Container : Vector; Position : Index_Type) - return Reference_Type; + function Reference + (Container : aliased in out Vector; + Index : Index_Type) return Reference_Type; procedure Assign (Target : in out Vector; Source : Vector); |