From ea99441e0da927e5a40cf21311265c7e22974f12 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 13 Feb 2017 13:21:17 +1100 Subject: Preference dedupe removed, bignum library obtained from internet (will be replaced later) --- src/rationals.ads | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'src/rationals.ads') 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; -- cgit