[Ada] Do not catch 'N mod -1' in CodePeer_Mode
authorBoris Yakobowski <yakobowski@adacore.com>
Mon, 19 Apr 2021 10:17:07 +0000 (12:17 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 29 Jun 2021 14:23:49 +0000 (14:23 +0000)
gcc/ada/

* exp_ch4.adb (Expand_N_Op_Mod): Remove special case for mod -1
in CodePeer_Mode.

gcc/ada/exp_ch4.adb

index 9c585e7..a9fc270 100644 (file)
@@ -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,