Fixed Rationals Rounding function

1 files changed, 18 insertions, 0 deletions

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");