diff options
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 1885e89..c78ff0b 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -6389,9 +6389,6 @@ package body Exp_Ch6 is -- Expand_N_Subprogram_Body -- ------------------------------ - -- Add poll call if ATC polling is enabled, unless the body will be inlined - -- by the back-end. - -- Add dummy push/pop label nodes at start and end to clear any local -- exception indications if local-exception-to-goto optimization is active. @@ -6601,25 +6598,6 @@ package body Exp_Ch6 is end; end if; - -- Need poll on entry to subprogram if polling enabled. We only do this - -- for non-empty subprograms, since it does not seem necessary to poll - -- for a dummy null subprogram. - - if Is_Non_Empty_List (L) then - - -- Do not add a polling call if the subprogram is to be inlined by - -- the back-end, to avoid repeated calls with multiple inlinings. - - if Is_Inlined (Spec_Id) - and then Front_End_Inlining - and then Optimization_Level > 1 - then - null; - else - Generate_Poll_Call (First (L)); - end if; - end if; - -- Initialize any scalar OUT args if Initialize/Normalize_Scalars if Init_Or_Norm_Scalars and then Is_Subprogram (Spec_Id) then |