diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 13:12:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 13:12:17 +0200 |
| commit | ca5af305a13a6f886dc6b6e0a07863c7eeefdbee (patch) | |
| tree | 814b7943f7ccb8cd2729a81e53f68f45e54ea661 /gcc/ada/exp_util.ads | |
| parent | 5accd7b6ca81d3f3b399bf55e201fc6f78771a13 (diff) | |
| download | gcc-ca5af305a13a6f886dc6b6e0a07863c7eeefdbee.zip gcc-ca5af305a13a6f886dc6b6e0a07863c7eeefdbee.tar.gz gcc-ca5af305a13a6f886dc6b6e0a07863c7eeefdbee.tar.bz2 | |
[multiple changes]
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-exexpr-gcc.adb, a-synbar.adb, sem_ch13.adb: Minor reformatting.
2011-08-29 Bob Duff <duff@adacore.com>
* sem_aggr.adb (Resolve_Aggr_Expr): Call this routine even in the case
of <>, because this is the routine that checks for dimensionality
errors (for example, for a two-dimensional array, (others => <>) should
be (others => (others => <>)).
2011-08-29 Hristian Kirtchev <kirtchev@adacore.com>
* impunit.adb: Add new run-time units.
* freeze.adb, exp_ch7.ads, exp_ch7.adb, exp_util.ads, exp_util.adb,
s-stposu.ads, s-stposu.adb: Code clean up.
Handle protected class-wide or task class-wide types
Handle C/C++/CIL/Java types.
* s-spsufi.adb, s-spsufi.ads: New files.
From-SVN: r178205
Diffstat (limited to 'gcc/ada/exp_util.ads')
| -rw-r--r-- | gcc/ada/exp_util.ads | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 7058ceb..1f0ee42 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -198,8 +198,13 @@ package Exp_Util is (N : Node_Id; Is_Allocate : Boolean); -- Create a custom Allocate/Deallocate to be associated with an allocation - -- or deallocation of a controlled or class-wide object. In the case of - -- allocation, N is the declaration of the temporary variable which + -- or deallocation: + -- + -- 1) controlled objects + -- 2) class-wide objects + -- 3) any kind of object on a subpool + -- + -- N must be an allocator or the declaration of a temporary variable which -- represents the expression of the original allocator node, otherwise N -- must be a free statement. If flag Is_Allocate is set, the generated -- routine is allocate, deallocate otherwise. |