diff mbox series

[COMMITTED] ada: Silence CodePeer false positive

Message ID 20221114135258.53285-1-poulhies@adacore.com
State Committed
Commit 5ba25973e2f403ee48af2ba579af5017b2f650fb
Headers
Series [COMMITTED] ada: Silence CodePeer false positive |

Commit Message

Marc Poulhiès Nov. 14, 2022, 1:52 p.m. UTC 
  From: Boris Yakobowski <yakobowski@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 mbox series

Patch

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;