diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_util.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 06d3c32d941..011ccc4977a 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -3123,13 +3123,13 @@ package body Exp_Util is is begin Remove_Side_Effects - (Exp => Exp, - Name_Req => Name_Req, - Variable_Ref => True, - Renaming_Req => False, - Related_Id => Related_Id, - Is_Low_Bound => Is_Low_Bound, - Is_High_Bound => Is_High_Bound, + (Exp => Exp, + Name_Req => Name_Req, + Variable_Ref => True, + Renaming_Req => False, + Related_Id => Related_Id, + Is_Low_Bound => Is_Low_Bound, + Is_High_Bound => Is_High_Bound, Check_Side_Effects => Is_Static_Expression (Exp) or else Mode = Relaxed); |