From 25b589cbd523d5b7ccf42c7807f9cac86879008d Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 29 Aug 2011 10:40:53 +0200 Subject: [multiple changes] 2011-08-29 Hristian Kirtchev * exp_util.adb (Process_Statements_For_Controlled_Objects): Whenever a statement list is wrapped in a block, the block is explicitly analyzed in order to properly redecorate the entities and create a servicing finalizer. 2011-08-29 Tristan Gingold * sinfo.ads, sinfo.adb (Zero_Cost_Handling): Remove. (Set_Zero_Cost_Handling): Remove. 2011-08-29 Thomas Quinot * par_sco.adb, scos.ads, put_scos.adb, get_scos.adb: Minor reformatting From-SVN: r178162 --- gcc/ada/sinfo.adb | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'gcc/ada/sinfo.adb') diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 73b8489..11e8aa0 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -3103,15 +3103,6 @@ package body Sinfo is return Node1 (N); end Withed_Body; - function Zero_Cost_Handling - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Exception_Handler - or else NT (N).Nkind = N_Handled_Sequence_Of_Statements); - return Flag5 (N); - end Zero_Cost_Handling; - -------------------------- -- Field Set Procedures -- -------------------------- @@ -6153,15 +6144,6 @@ package body Sinfo is Set_Node1 (N, Val); end Set_Withed_Body; - procedure Set_Zero_Cost_Handling - (N : Node_Id; Val : Boolean := True) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Exception_Handler - or else NT (N).Nkind = N_Handled_Sequence_Of_Statements); - Set_Flag5 (N, Val); - end Set_Zero_Cost_Handling; - ------------------------- -- Iterator Procedures -- ------------------------- -- cgit v1.1