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

Merge pull request #8683 from Z3Prover/copilot/fix-build-error-z3

Browse source 
Fix OCaml binding call to solver_get_levels
This commit is contained in:
Nikolaj Bjorner 2026-02-18 14:57:51 -08:00 • committed by GitHub
commit ddb49568d3
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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