x86-symbolic: Create an exception type for missing semantics

This is an exception that consumers might want to catch.

x86_symbolic/src/Data/Macaw/X86/Crucible.hs

@@ -19,6 +19,7 @@ module Data.Macaw.X86.Crucible
     SymFuns(..), newSymFuns
 
     -- * Instruction interpretation
+  , MissingSemantics(..)
   , funcSemantics
   , stmtSemantics
   , termSemantics
@@ -129,6 +130,13 @@ withConcreteCountAndDir state val_size wrapped_count _wrapped_dir func =
       return ((), res_crux_state)
     Nothing -> error $ "Unsupported symbolic count in rep stmt: "
 
+data MissingSemantics
+  = MissingStmtSemantics String
+  | MissingTermSemantics String
+  deriving Show
+
+instance Exception MissingSemantics
+
 stmtSemantics
   :: (IsSymInterface sym, HasLLVMAnn sym, ?memOpts :: MemOptions)
   => SymFuns sym
@@ -169,9 +177,10 @@ stmtSemantics _sym_funs global_var_mem globals stmt state =
         afterWriteMem <- doWriteMem bak mem M.Addr64 mem_repr resolvedDestPtr (regValue val)
         -- Update the final state
         pure $! setMem acc_state global_var_mem afterWriteMem
-    _ -> error $
-      "Symbolic execution semantics for x86 statement are not implemented yet: "
-      <> (show $ MC.ppArchStmt (liftAtomIn (pretty . regType)) stmt)
+    _ ->
+      let msg = "Symbolic execution semantics for x86 statement are not implemented yet: "
+                ++ show (MC.ppArchStmt (liftAtomIn (pretty . regType)) stmt)
+      in throw (MissingStmtSemantics msg)
 
 -- | Dynamic semantics for x86-specific arch terminators
 --
@@ -182,8 +191,10 @@ termSemantics :: (IsSymInterface sym)
               -> M.X86TermStmt (AtomWrapper (RegEntry sym))
               -> S p sym rtp bs r ctx
               -> IO (RegValue sym UnitType, S p sym rtp bs r ctx)
-termSemantics _fs x _s = error ("Symbolic execution semantics for x86 terminators are not implemented yet: " <>
-                                show (MC.ppArchTermStmt (error "Can't print RegEntry") x))
+termSemantics _fs x _s = 
+  let msg = "Symbolic execution semantics for x86 terminators are not implemented yet: "
+            ++ show (MC.ppArchTermStmt (error "Can't print RegEntry") x)
+  in throw (MissingTermSemantics msg)
 
 data Sym s bak =
   Sym { symBackend :: bak