diff options
Diffstat (limited to 'src/rationals.ads')
-rw-r--r-- | src/rationals.ads | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/rationals.ads b/src/rationals.ads index dfa5897..1f3de5f 100644 --- a/src/rationals.ads +++ b/src/rationals.ads @@ -1,6 +1,6 @@ -private with Crypto.Types.Big_Numbers; +private with Multi_Precision_Integers; package Rationals is @@ -210,14 +210,15 @@ package Rationals is private - package Bignum is new Crypto.Types.Big_Numbers (Size => 128); - use Crypto.Types; - use Bignum; + use Multi_Precision_Integers; + + + M_Size : constant Basic_Int := 4; type Fraction is record - Num : Big_Unsigned := Big_Unsigned_Zero; - Den : Big_Unsigned := Big_Unsigned_One; + Num : Multi_Int (M_Size); + Den : Multi_Int (M_Size); end record; |