mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-04-27 02:45:51 +00:00
Code Activity

fix ocaml build by moving to Zarith methods

Browse source
This commit is contained in:
Nicola Mometto 2019-10-14 17:18:24 +01:00 • committed by Nikolaj Bjorner
parent 09523a4bca
commit 77c3f1fb82
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1039,7 +1039,7 @@ struct
let get_big_int (x:expr) =
if is_int_numeral x then
let s = (Z3native.get_numeral_string (Expr.gc x) x) in
Big_int.big_int_of_string s
Z.of_string s
else
raise (Error "Conversion failed.")
@ -1063,7 +1063,7 @@ struct
let get_ratio x =
if is_rat_numeral x then
let s = Z3native.get_numeral_string (Expr.gc x) x in
Ratio.ratio_of_string s
Q.of_string s
else
raise (Error "Conversion failed.")

4
src/api/ml/z3.mli
View file

@ -1159,7 +1159,7 @@ sig
val mk_sort : context -> Sort.sort
(** Get a big_int from an integer numeral *)
val get_big_int : Expr.expr -> Big_int.big_int
val get_big_int : Expr.expr -> Z.t
(** Returns a string representation of a numeral. *)
val numeral_to_string : Expr.expr -> string
@ -1217,7 +1217,7 @@ sig
val get_denominator : Expr.expr -> Expr.expr
(** Get a ratio from a real numeral *)
val get_ratio : Expr.expr -> Ratio.ratio
val get_ratio : Expr.expr -> Q.t
(** Returns a string representation in decimal notation.
The result has at most as many decimal places as indicated by the int argument.*)