diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 18:03:58 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 18:03:58 +0200 |
| commit | b0d3b11d8c1b75fd46510845e2b352e8a22e1e9d (patch) | |
| tree | 9c46971d706cd103c0b864242794df7401ef4860 /gcc/ada/exp_ch9.adb | |
| parent | 1147c7040164e56f92f8f692d548049ec68189fe (diff) | |
| download | gcc-b0d3b11d8c1b75fd46510845e2b352e8a22e1e9d.zip gcc-b0d3b11d8c1b75fd46510845e2b352e8a22e1e9d.tar.gz gcc-b0d3b11d8c1b75fd46510845e2b352e8a22e1e9d.tar.bz2 | |
[multiple changes]
2009-04-10 Robert Dewar <dewar@adacore.com>
* sem_warn.ads, sem_warn.adb (Check_Low_Bound_Tested): Catch more cases
for warning suppression.
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Use_One_Type): If the two use_type clauses are
identical, there is no redudancy to check.
2009-04-10 Gary Dismukes <dismukes@adacore.com>
* exp_ch5.adb (Expand_N_Extended_Return_Statement): Delete redundant
calls initializing SS_Allocator (which is initialized in following
code).
(Expand_Simple_Function_Return): Add comment about False value for
Comes_From_Source on secondary-stack allocator.
* exp_ch9.adb (Build_Entry_Family_Name): Add comment.
(Build_Entry_Name): Add comment.
From-SVN: r145926
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 259908f..1a91bf1 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -1221,6 +1221,10 @@ package body Exp_Ch9 is -- Generate: -- new String'("<Entry name>" & Lnn'Img); + -- This is an implicit heap allocation, and Comes_From_Source is + -- False, which ensures that it will get flagged as a violation of + -- No_Implicit_Heap_Allocations when that restriction applies. + Val := Make_Allocator (Loc, Make_Qualified_Expression (Loc, @@ -1268,6 +1272,11 @@ package body Exp_Ch9 is begin Get_Name_String (Chars (Id)); + + -- This is an implicit heap allocation, and Comes_From_Source is + -- False, which ensures that it will get flagged as a violation of + -- No_Implicit_Heap_Allocations when that restriction applies. + Val := Make_Allocator (Loc, Make_Qualified_Expression (Loc, |