[Ada] Ignore Predicate_Failure in CodePeer mode
authorDaniel Mercier <mercier@adacore.com>
Thu, 14 Apr 2022 15:36:17 +0000 (17:36 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 19 May 2022 14:05:31 +0000 (14:05 +0000)
gcc/ada/

* sem_ch13.adb (Build_Predicate_Function): Ignore predicate
failure in CodePeer mode.

gcc/ada/sem_ch13.adb

index c12253c..c405d15 100644 (file)
@@ -10493,6 +10493,7 @@ package body Sem_Ch13 is
 
                if Present (PF_Expr)
                  and then not GNATprove_Mode
+                 and then not CodePeer_Mode
                then
                   pragma Assert (Present (Second_Formal));