3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-06-25 15:23:41 +00:00

Fix out of bounds error in OCaml API (#7665)

This commit is contained in:
Brandon Stride 2025-05-29 10:45:37 -04:00
parent 4b2e5adc11
commit a6a6f0323e

View file

@ -1617,7 +1617,7 @@ struct
let g i = Z3native.model_get_const_decl (gc x) x i in
List.init (n_funcs + n_consts) (fun i ->
if i < n_funcs then f i
else g i
else g (i - n_funcs)
)
let eval (x:model) (t:expr) (completion:bool) =