From: Boris Yakobowski <yakobow...@adacore.com>
gcc/ada/
* sem_case.adb: silence false positive warning emitted by CodePeer
on predefined equality for type Choice_Range_Info.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/sem_case.adb | 2 ++
1 file changed, 2 insertions(+)
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 244e53f5752..f89c3ca386f 100644
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -209,6 +209,8 @@ package body Sem_Case is
null;
end case;
end record;
+ pragma Annotate (CodePeer, False_Positive, "raise exception",
+ "function is abstract, hence never called");
function "=" (X, Y : Choice_Range_Info) return Boolean is abstract;
type Choices_Range_Info is array (Choice_Id) of Choice_Range_Info;
--
2.34.1
