diff options
| author | Boris Yakobowski <yakobowski@adacore.com> | 2021-04-19 12:17:07 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-06-29 14:23:49 +0000 |
| commit | c8cb547e601f1e271243817ee6325221ba1135a3 (patch) | |
| tree | 0af92eaea9e1f12c976816ec2932ce4b2fd76550 /gcc | |
| parent | 16a0b3b4abb10d0b03877f606f13863401bbd77f (diff) | |
| download | gcc-c8cb547e601f1e271243817ee6325221ba1135a3.zip gcc-c8cb547e601f1e271243817ee6325221ba1135a3.tar.gz gcc-c8cb547e601f1e271243817ee6325221ba1135a3.tar.bz2 | |
[Ada] Do not catch 'N mod -1' in CodePeer_Mode
gcc/ada/
* exp_ch4.adb (Expand_N_Op_Mod): Remove special case for mod -1
in CodePeer_Mode.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 9c585e7..a9fc2705 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -9626,6 +9626,7 @@ package body Exp_Ch4 is if ((not ROK) or else (Rlo <= (-1) and then (-1) <= Rhi)) and then ((not LOK) or else (Llo = LLB)) + and then not CodePeer_Mode then Rewrite (N, Make_If_Expression (Loc, |