From 2b8b55de4a18757e8d6769e458c84f7c1df1e261 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 13 Feb 2017 18:27:13 +1100
Subject: Swapped out crypto package for something smaller, revised other code
 and readme/notes slightly

---
 src/rationals.ads | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src/rationals.ads')

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;
 
 
-- 
cgit