From 90c915c23bb7f80b7f3336a5051a27c0fd3f333f Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 3 Jul 2017 16:06:15 +1000
Subject: Fixed Rationals Rounding function

---
 src/rationals.ads | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src/rationals.ads')

diff --git a/src/rationals.ads b/src/rationals.ads
index f907633..fb7c5b5 100644
--- a/src/rationals.ads
+++ b/src/rationals.ads
@@ -244,6 +244,24 @@ private
 
 
 
+    --  Internal type for temporary data to make some Fraction
+    --  functions easier to show as correct
+    type Bignum is new Ada.Finalization.Controlled with record
+        Data : mpz_t;
+    end record;
+
+    overriding procedure Initialize
+           (This : in out Bignum);
+
+    overriding procedure Adjust
+           (This : in out Bignum);
+
+    overriding procedure Finalize
+           (This : in out Bignum);
+
+
+
+
     pragma Linker_Options ("-lgmp");
 
 
-- 
cgit