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

ml build failure, issue #403

Browse source 
Signed-off-by: Nikolaj Bjorner <nbjorner@microsoft.com>
This commit is contained in:
Nikolaj Bjorner 2016-01-07 20:37:47 -08:00
parent 183d3821ce
commit 98f750f90d
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -437,6 +437,8 @@ end = struct
| UNINTERPRETED_SORT | UNINTERPRETED_SORT
| FINITE_DOMAIN_SORT | FINITE_DOMAIN_SORT
| RELATION_SORT | RELATION_SORT
| RE_SORT
| SEQ_SORT
| FLOATING_POINT_SORT | FLOATING_POINT_SORT
| ROUNDING_MODE_SORT -> Sort(z3_native_object_of_ast_ptr ctx no) | ROUNDING_MODE_SORT -> Sort(z3_native_object_of_ast_ptr ctx no)
| UNKNOWN_SORT -> raise (Z3native.Exception "Unknown sort kind encountered") | UNKNOWN_SORT -> raise (Z3native.Exception "Unknown sort kind encountered")
@ -783,6 +785,10 @@ sig
val mk_numeral_string : context -> string -> Sort.sort -> expr val mk_numeral_string : context -> string -> Sort.sort -> expr
val mk_numeral_int : context -> int -> Sort.sort -> expr val mk_numeral_int : context -> int -> Sort.sort -> expr
val equal : expr -> expr -> bool val equal : expr -> expr -> bool
val apply1 : context -> (Z3native.ptr -> Z3native.ptr -> Z3native.ptr) -> expr -> expr
val apply2 : context -> (Z3native.ptr -> Z3native.ptr -> Z3native.ptr -> Z3native.ptr) -> expr -> expr -> expr
val apply3 : context -> (Z3native.ptr -> Z3native.ptr -> Z3native.ptr -> Z3native.ptr -> Z3native.ptr)
-> expr -> expr -> expr -> expr
val compare : expr -> expr -> int val compare : expr -> expr -> int
end = struct end = struct
type expr = Expr of AST.ast type expr = Expr of AST.ast
@ -1076,7 +1082,8 @@ struct
mk_list f n mk_list f n
let get_body ( x : quantifier ) = let get_body ( x : quantifier ) =
apply1 (gc x) Z3native.get_quantifier_body x let ctx = gc x in
expr_of_ptr ctx (Z3native.get_quantifier_body (context_gno ctx) (gno x))
let mk_bound ( ctx : context ) ( index : int ) ( ty : Sort.sort ) = let mk_bound ( ctx : context ) ( index : int ) ( ty : Sort.sort ) =
expr_of_ptr ctx (Z3native.mk_bound (context_gno ctx) index (Sort.gno ty)) expr_of_ptr ctx (Z3native.mk_bound (context_gno ctx) index (Sort.gno ty))
@ -1246,11 +1253,11 @@ struct
apply2 ctx Z3native.mk_set_add set element apply2 ctx Z3native.mk_set_add set element
let mk_del ( ctx : context ) ( set : expr ) ( element : expr ) = let mk_del ( ctx : context ) ( set : expr ) ( element : expr ) =
apply2 Z3native.mk_set_del set element apply2 ctx Z3native.mk_set_del set element
let mk_union ( ctx : context ) ( args : expr list ) = let mk_union ( ctx : context ) ( args : expr list ) =
let r = expr_of_ptr ctx (Z3native.mk_set_union (context_gno ctx) (List.length args) (expr_lton args)) in expr_of_ptr ctx (Z3native.mk_set_union (context_gno ctx) (List.length args) (expr_lton args))
r
let mk_intersection ( ctx : context ) ( args : expr list ) = let mk_intersection ( ctx : context ) ( args : expr list ) =
expr_of_ptr ctx (Z3native.mk_set_intersect (context_gno ctx) (List.length args) (expr_lton args)) expr_of_ptr ctx (Z3native.mk_set_intersect (context_gno ctx) (List.length args) (expr_lton args))