diff --git a/deps/crucible b/deps/crucible index 602cb8f04e..dba7b1be42 160000 --- a/deps/crucible +++ b/deps/crucible @@ -1 +1 @@ -Subproject commit 602cb8f04ec5f42e76a2ba0833f7e91a95d7109c +Subproject commit dba7b1be429554bcedc82514defd0c40df41392e diff --git a/src/SAWScript/Crucible/LLVM/Builtins.hs b/src/SAWScript/Crucible/LLVM/Builtins.hs index 625e0db955..1a6d914e2f 100644 --- a/src/SAWScript/Crucible/LLVM/Builtins.hs +++ b/src/SAWScript/Crucible/LLVM/Builtins.hs @@ -1313,8 +1313,9 @@ registerOverride opts cc sim_ctx _top_loc mdMap cs = $ methodSpecHandler opts sc cc mdMap cs h mem <- Crucible.readGlobal mvar let bindPtr m decl = - do printOutLn opts Info $ " variant `" ++ show (L.decName decl) ++ "`" - Crucible.bindLLVMFunPtr bak decl h m + do let declName = L.decName decl + printOutLn opts Info $ " variant `" ++ show declName ++ "`" + Crucible.bindLLVMFunPtr bak declName h m mem' <- liftIO $ foldM bindPtr mem (d:ds) Crucible.writeGlobal mvar mem' return (Crucible.SomeHandle h)