mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2026-02-22 16:27:37 +00:00
Code Activity

Fix OCaml build error in solver_get_levels

Browse source 
Co-authored-by: NikolajBjorner <3085284+NikolajBjorner@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2026-02-18 22:21:58 +00:00 • committed by Nikolaj Bjorner
parent 316bc3d821
commit 2f33a34692
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/api/ml/z3.ml
View file

@ -1955,11 +1955,10 @@ struct
let get_levels x literals =
let n = List.length literals in
let levels = Array.make n 0 in
let av = Z3native.mk_ast_vector (gc x) in
List.iter (fun e -> Z3native.ast_vector_push (gc x) av e) literals;
Z3native.solver_get_levels (gc x) x av n levels;
levels
let level_list = Z3native.solver_get_levels (gc x) x av n in
Array.of_list level_list
let congruence_root x a = Z3native.solver_congruence_root (gc x) x a