mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-06-20 12:53:38 +00:00
Code Activity

Bugfix for ML API

Browse source
This commit is contained in:
Christoph M. Wintersteiger 2015-12-07 14:42:40 +00:00
parent cfc25b5094
commit 2a0bbad524
1 changed files with 19 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -816,10 +816,20 @@ end = struct
Expr(z3_native_object_of_ast_ptr ctx no)
else
if (Z3native.is_numeral_ast (context_gno ctx) no) then
if (sk == INT_SORT || sk == REAL_SORT || sk == BV_SORT ||
sk == FLOATING_POINT_SORT || sk == ROUNDING_MODE_SORT) then
match sk with
| REAL_SORT
| BOOL_SORT
| ARRAY_SORT
| BV_SORT
| ROUNDING_MODE_SORT
| RELATION_SORT
| UNINTERPRETED_SORT
| FLOATING_POINT_SORT
| INT_SORT
| DATATYPE_SORT
| FINITE_DOMAIN_SORT ->
Expr(z3_native_object_of_ast_ptr ctx no)
else
| _ ->
raise (Z3native.Exception "Unsupported numeral object")
else
Expr(z3_native_object_of_ast_ptr ctx no)