Skip to content

Commit 77c3f1f

Browse files
bronsaNikolajBjorner
authored andcommitted
fix ocaml build by moving to Zarith methods
1 parent 09523a4 commit 77c3f1f

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

src/api/ml/z3.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1039,7 +1039,7 @@ struct
10391039
let get_big_int (x:expr) =
10401040
if is_int_numeral x then
10411041
let s = (Z3native.get_numeral_string (Expr.gc x) x) in
1042-
Big_int.big_int_of_string s
1042+
Z.of_string s
10431043
else
10441044
raise (Error "Conversion failed.")
10451045

@@ -1063,7 +1063,7 @@ struct
10631063
let get_ratio x =
10641064
if is_rat_numeral x then
10651065
let s = Z3native.get_numeral_string (Expr.gc x) x in
1066-
Ratio.ratio_of_string s
1066+
Q.of_string s
10671067
else
10681068
raise (Error "Conversion failed.")
10691069

src/api/ml/z3.mli

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1159,7 +1159,7 @@ sig
11591159
val mk_sort : context -> Sort.sort
11601160

11611161
(** Get a big_int from an integer numeral *)
1162-
val get_big_int : Expr.expr -> Big_int.big_int
1162+
val get_big_int : Expr.expr -> Z.t
11631163

11641164
(** Returns a string representation of a numeral. *)
11651165
val numeral_to_string : Expr.expr -> string
@@ -1217,7 +1217,7 @@ sig
12171217
val get_denominator : Expr.expr -> Expr.expr
12181218

12191219
(** Get a ratio from a real numeral *)
1220-
val get_ratio : Expr.expr -> Ratio.ratio
1220+
val get_ratio : Expr.expr -> Q.t
12211221

12221222
(** Returns a string representation in decimal notation.
12231223
The result has at most as many decimal places as indicated by the int argument.*)

0 commit comments

Comments
 (0)