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:
parent
4b2e5adc11
commit
a6a6f0323e
1 changed files with 1 additions and 1 deletions
|
@ -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) =
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue