From: Boris Yakobowski <yakobowski@adacore.com>
Date: Wed, 9 Nov 2022 13:02:00 +0000 (+0100)
Subject: ada: Silence CodePeer false positive
X-Git-Tag: basepoints/gcc-14~3190
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5ba25973e2f403ee48af2ba579af5017b2f650fb;p=thirdparty%2Fgcc.git

ada: Silence CodePeer false positive

gcc/ada/

	* sem_case.adb: silence false positive warning emitted by CodePeer
	on predefined equality for type Choice_Range_Info.
---

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 244e53f57528..f89c3ca386f0 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;