diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-02-13 18:27:13 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-02-13 18:27:13 +1100 |
commit | 2b8b55de4a18757e8d6769e458c84f7c1df1e261 (patch) | |
tree | cbd62219babccc04e57fa7708f88385a7f6413d3 /src/rationals.ads | |
parent | 2b842cb65ce29071d5786bdecc834c026d1f2db2 (diff) |
Swapped out crypto package for something smaller, revised other code and readme/notes slightly
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; |