diff options
| author | Guillaume Melquiond | 2020-12-01 21:03:18 +0100 |
|---|---|---|
| committer | Guillaume Melquiond | 2020-12-02 07:33:24 +0100 |
| commit | 2422d7dee3fda9ac5e65636db937d3d98c85e576 (patch) | |
| tree | 5eaa572121e6eeb12ed4160fcb46fc5f94c82274 /interp | |
| parent | 9ca7e769b62173a79a1c7d12a363205dd608b519 (diff) | |
Greatly simplify the conversion functions between Z.t and Uint63.t.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/notation.ml | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index c35ba44aa5..912e52cec8 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -782,13 +782,7 @@ end let z_two = Z.of_int 2 (** Conversion from bigint to int63 *) -let rec int63_of_pos_bigint i = - if Z.(equal i zero) then Uint63.of_int 0 - else - let quo, remi = Z.div_rem i z_two in - if Z.(equal remi one) then Uint63.add (Uint63.of_int 1) - (Uint63.mul (Uint63.of_int 2) (int63_of_pos_bigint quo)) - else Uint63.mul (Uint63.of_int 2) (int63_of_pos_bigint quo) +let int63_of_pos_bigint i = Uint63.of_int64 (Z.to_int64 i) module Numbers = struct (** * Number notation *) @@ -1041,7 +1035,7 @@ let interp_int63 ?loc n = let bigint_of_int63 c = match Constr.kind c with - | Int i -> Z.of_string (Uint63.to_string i) + | Int i -> Z.of_int64 (Uint63.to_int64 i) | _ -> raise NotAValidPrimToken let interp o ?loc n = |