mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-06-20 21:03:39 +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) Expr(z3_native_object_of_ast_ptr ctx no)
else else
if (Z3native.is_numeral_ast (context_gno ctx) no) then if (Z3native.is_numeral_ast (context_gno ctx) no) then
if (sk == INT_SORT || sk == REAL_SORT || sk == BV_SORT || match sk with
sk == FLOATING_POINT_SORT || sk == ROUNDING_MODE_SORT) then | 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) Expr(z3_native_object_of_ast_ptr ctx no)
else | _ ->
raise (Z3native.Exception "Unsupported numeral object") raise (Z3native.Exception "Unsupported numeral object")
else else
Expr(z3_native_object_of_ast_ptr ctx no) Expr(z3_native_object_of_ast_ptr ctx no)