From 7898bc572ac38e2f58e908acde02aadbb9268fc8 Mon Sep 17 00:00:00 2001
From: Simmo Saan <simmo.saan@gmail.com>
Date: Wed, 9 Oct 2024 16:51:20 +0300
Subject: [PATCH] Remove old unused exceptions

---
 src/analyses/base.ml             | 2 --
 src/analyses/symbLocks.ml        | 2 --
 src/analyses/varEq.ml            | 2 --
 src/solver/topDown_deprecated.ml | 2 --
 4 files changed, 8 deletions(-)

diff --git a/src/analyses/base.ml b/src/analyses/base.ml
index 1699108394..e429155e4d 100644
--- a/src/analyses/base.ml
+++ b/src/analyses/base.ml
@@ -34,8 +34,6 @@ module MainFunctor (Priv:BasePriv.S) (RVEval:BaseDomain.ExpEvaluator with type t
 struct
   include Analyses.DefaultSpec
 
-  exception Top
-
   module Dom    = BaseDomain.DomFunctor (Priv.D) (RVEval)
   type t = Dom.t
   module D      = Dom
diff --git a/src/analyses/symbLocks.ml b/src/analyses/symbLocks.ml
index 0119f09288..ab116c525d 100644
--- a/src/analyses/symbLocks.ml
+++ b/src/analyses/symbLocks.ml
@@ -21,8 +21,6 @@ module Spec =
 struct
   include Analyses.DefaultSpec
 
-  exception Top
-
   module D = SymbLocksDomain.Symbolic
   include Analyses.ValueContexts(D)
 
diff --git a/src/analyses/varEq.ml b/src/analyses/varEq.ml
index 8ece99d6e8..78013ec21d 100644
--- a/src/analyses/varEq.ml
+++ b/src/analyses/varEq.ml
@@ -11,8 +11,6 @@ open Analyses
 
 module Spec =
 struct
-  exception Top
-
   include Analyses.DefaultSpec
 
   module D =
diff --git a/src/solver/topDown_deprecated.ml b/src/solver/topDown_deprecated.ml
index 16c45fcd16..a46da9e441 100644
--- a/src/solver/topDown_deprecated.ml
+++ b/src/solver/topDown_deprecated.ml
@@ -4,8 +4,6 @@ open Batteries
 open ConstrSys
 open Messages
 
-exception SolverCannotDoGlobals
-
 
 (** modified SLR3 as top down solver *)
 module TD3 =