mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-04-28 19:35:50 +00:00
Code Activity

ML API bugfix

Browse source 
Signed-off-by: Christoph M. Wintersteiger <cwinter@microsoft.com>
This commit is contained in:
Christoph M. Wintersteiger 2014-04-17 15:06:32 +01:00
parent 83690a8fe3
commit e7345f5ea8
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1482,7 +1482,7 @@ struct
let get_big_int ( x : expr ) =
if (is_int_numeral x) then
let s = to_string(x) in
let s = (Z3native.get_numeral_string (Expr.gnc x) (Expr.gno x)) in
(Big_int.big_int_of_string s)
else raise (Z3native.Exception "Conversion failed.")
@ -1526,7 +1526,7 @@ struct
let get_ratio ( x : expr ) =
if (is_rat_numeral x) then
let s = to_string(x) in
let s = (Z3native.get_numeral_string (Expr.gnc x) (Expr.gno x)) in
(Ratio.ratio_of_string s)
else raise (Z3native.Exception "Conversion failed.")