diff options
| author | Boris Yakobowski <yakobowski@adacore.com> | 2021-04-21 14:49:15 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-05 13:09:07 +0000 |
| commit | afe5959e11727f6ff276bc1a7c62181306157504 (patch) | |
| tree | effe3f021eaa64cda307ec29083e338f7afd4f96 /gcc | |
| parent | 0ea47850bbb38ea81a34c503533d4dd0f3391f19 (diff) | |
| download | gcc-afe5959e11727f6ff276bc1a7c62181306157504.zip gcc-afe5959e11727f6ff276bc1a7c62181306157504.tar.gz gcc-afe5959e11727f6ff276bc1a7c62181306157504.tar.bz2 | |
[Ada] Do not catch 'N rem -1' in CodePeer_Mode
gcc/ada/
* exp_ch4.adb (Expand_N_Op_Rem): Remove special case for rem -1
in CodePeer_Mode.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index a9fc2705..54e91b2 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -10393,7 +10393,9 @@ package body Exp_Ch4 is -- types and this is really marginal). We will just assume that we need -- the test if the left operand can be negative at all. - if Lneg and Rneg then + if (Lneg and Rneg) + and then not CodePeer_Mode + then Rewrite (N, Make_If_Expression (Loc, Expressions => New_List ( |