From ebf57cd427d37a9a75f591338b498776509b8f18 Mon Sep 17 00:00:00 2001
From: Basile Desloges <basile.desloges@cea.fr>
Date: Thu, 16 Jan 2025 11:08:12 +0100
Subject: [PATCH] [Eva] Add wkey for missing assigns

---
 src/plugins/eva/self.ml  | 2 ++
 src/plugins/eva/self.mli | 1 +
 2 files changed, 3 insertions(+)

diff --git a/src/plugins/eva/self.ml b/src/plugins/eva/self.ml
index 42bc189ba1c..c9ada9d1231 100644
--- a/src/plugins/eva/self.ml
+++ b/src/plugins/eva/self.ml
@@ -140,6 +140,8 @@ let () = set_warn_status wkey_missing_loop_unroll_for Log.Winactive
 let wkey_signed_overflow = register_warn_category "signed-overflow"
 let wkey_invalid_assigns = register_warn_category "assigns:invalid"
 let () = set_warn_status wkey_invalid_assigns Log.Wfeedback
+let wkey_missing_assigns = register_warn_category "assigns:missing"
+let () = set_warn_status wkey_missing_assigns Log.Werror
 let wkey_experimental = register_warn_category "experimental"
 let wkey_unknown_size = register_warn_category "unknown-size"
 let wkey_ensures_false = register_warn_category "ensures-false"
diff --git a/src/plugins/eva/self.mli b/src/plugins/eva/self.mli
index 14c2020a033..96b5d8e4365 100644
--- a/src/plugins/eva/self.mli
+++ b/src/plugins/eva/self.mli
@@ -69,6 +69,7 @@ val wkey_missing_loop_unroll : warn_category
 val wkey_missing_loop_unroll_for : warn_category
 val wkey_signed_overflow : warn_category
 val wkey_invalid_assigns : warn_category
+val wkey_missing_assigns : warn_category
 val wkey_experimental : warn_category
 val wkey_unknown_size : warn_category
 val wkey_ensures_false : warn_category
-- 
GitLab