From b0d3b11d8c1b75fd46510845e2b352e8a22e1e9d Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 10 Apr 2009 18:03:58 +0200 Subject: [multiple changes] 2009-04-10 Robert Dewar * sem_warn.ads, sem_warn.adb (Check_Low_Bound_Tested): Catch more cases for warning suppression. 2009-04-10 Ed Schonberg * 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 * 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 --- gcc/ada/exp_ch9.adb | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'gcc/ada/exp_ch9.adb') 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'("" & 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, -- cgit v1.1