Update changes, comment out z3 debugging code

ocaml · Nov 8, 2021 · d11556a · d11556a
1 parent bbc6e4f
commit d11556a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/master_changes.md b/master_changes.md
@@ -129,6 +129,7 @@ users)
 ## Solver
   * [BUG] Remove z3 debug output [#4723 @rjbou - fix #4717] [2.1.0~rc2 #4720]
   * Fix and improve the Z3 solver backend [#4880 @altgr]
+  * Refactored, fixed, improved and optimised the z3 solver backend [#4878 @altgr]
 
 ## Client
   *

diff --git a/src/solver/opamBuiltinZ3.real.ml b/src/solver/opamBuiltinZ3.real.ml
@@ -501,12 +501,12 @@ let call ~criteria ?timeout (preamble, universe, _ as cudf) =
   Z3.Optimize.add opt ctx.constr_defs;
   Z3.Optimize.add opt request_def;
   log "Resolving...";
-  (match Sys.getenv "OPAMZ3DEBUG" with
-   | exception Not_found -> ()
-   | f ->
-     let debug = open_out (f^".smt2") in
-     output_string debug (Z3.Optimize.to_string opt);
-     close_out debug);
+  (* (match Sys.getenv "OPAMZ3DEBUG" with
+   *  | exception Not_found -> ()
+   *  | f ->
+   *    let debug = open_out (f^".smt2") in
+   *    output_string debug (Z3.Optimize.to_string opt);
+   *    close_out debug); *)
   match Z3.Optimize.check opt with
   | UNSATISFIABLE ->
     log "UNSAT";