diff options
Diffstat (limited to 'src/rationals.ads')
-rw-r--r-- | src/rationals.ads | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/rationals.ads b/src/rationals.ads index 03ac95e..dfa5897 100644 --- a/src/rationals.ads +++ b/src/rationals.ads @@ -1,5 +1,8 @@ +private with Crypto.Types.Big_Numbers; + + package Rationals is @@ -207,9 +210,14 @@ package Rationals is private + package Bignum is new Crypto.Types.Big_Numbers (Size => 128); + use Crypto.Types; + use Bignum; + + type Fraction is record - Num : Integer := 0; - Den : Integer := 1; + Num : Big_Unsigned := Big_Unsigned_Zero; + Den : Big_Unsigned := Big_Unsigned_One; end record; |