From 6b6041ec651c69871cc4c8d0ba3621c575b97e75 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 21 Jan 2014 08:57:53 +0100 Subject: [multiple changes] 2014-01-21 Arnaud Charlet * exp_ch9.adb (Expand_N_Selective_Accept.Add_Accept): Always add call to Abort_Undefer, as expected by the runtime. * s-tasren.adb (Local_Complete_Rendezvous): Replace Defer_Abort_Nestable by Defer_Abort, since we do not expect abort to be deferred at this point. Update comments. 2014-01-21 Thomas Quinot * exp_ch4.adb, exp_ch5.adb, checks.adb: Minor reformatting. 2014-01-21 Arnaud Charlet * switch-c.adb, usage.adb, gnat_ugn.texi: Mark -gnates as internal, remove from doc. From-SVN: r206873 --- gcc/ada/exp_ch4.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'gcc/ada/exp_ch4.adb') diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 7d1ec81..aa39586 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -958,7 +958,7 @@ package body Exp_Ch4 is -- [Deep_]Adjust (Temp.all); -- We analyze by hand the new internal allocator to avoid any - -- recursion and inappropriate call to Initialize + -- recursion and inappropriate call to Initialize. -- We don't want to remove side effects when the expression must be -- built in place. In the case of a build-in-place function call, @@ -1046,8 +1046,7 @@ package body Exp_Ch4 is then Insert_Action (N, Make_Attach_Call ( - Obj_Ref => - New_Reference_To (Temp, Loc), + Obj_Ref => New_Reference_To (Temp, Loc), Ptr_Typ => PtrT)); end if; -- cgit v1.1