diff options
Diffstat (limited to 'gcc/ada/exp_ch5.adb')
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 309297b..9a31988 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -3510,17 +3510,6 @@ package body Exp_Ch5 is Analyze (N); end Expand_Formal_Container_Element_Loop; - ----------------------------- - -- Expand_N_Goto_Statement -- - ----------------------------- - - -- Add poll before goto if polling active - - procedure Expand_N_Goto_Statement (N : Node_Id) is - begin - Generate_Poll_Call (N); - end Expand_N_Goto_Statement; - --------------------------- -- Expand_N_If_Statement -- --------------------------- @@ -4608,7 +4597,6 @@ package body Exp_Ch5 is -- 4. Deal with while loops where Condition_Actions is set -- 5. Deal with loops over predicated subtypes -- 6. Deal with loops with iterators over arrays and containers - -- 7. Insert polling call if required procedure Expand_N_Loop_Statement (N : Node_Id) is Loc : constant Source_Ptr := Sloc (N); @@ -4629,12 +4617,6 @@ package body Exp_Ch5 is Adjust_Condition (Condition (Scheme)); end if; - -- Generate polling call - - if Is_Non_Empty_List (Statements (N)) then - Generate_Poll_Call (First (Statements (N))); - end if; - -- Nothing more to do for plain loop with no iteration scheme if No (Scheme) then |