mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2026-05-25 11:26:21 +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
parent b384f74574
commit 366b197c2b
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 get_levels x literals =
let n = List.length literals in let n = List.length literals in
let levels = Array.make n 0 in
let av = Z3native.mk_ast_vector (gc x) in let av = Z3native.mk_ast_vector (gc x) in
List.iter (fun e -> Z3native.ast_vector_push (gc x) av e) literals; List.iter (fun e -> Z3native.ast_vector_push (gc x) av e) literals;
Z3native.solver_get_levels (gc x) x av n levels; let level_list = Z3native.solver_get_levels (gc x) x av n in
levels Array.of_list level_list
let congruence_root x a = Z3native.solver_congruence_root (gc x) x a let congruence_root x a = Z3native.solver_congruence_root (gc x) x a