(25 . 7)(25 . 9)
69 pragma Pure;
70
71 -- Karatsuba Threshhold - at or below this many Words, we use Comba mult.
72 Karatsuba_Thresh : constant Indices := 8;
73 -- Edit the Karatsuba_Thresh in x86_64_comba.s as well after changing this
74 -- value.
75 Karatsuba_Thresh : constant Indices := 32;
76
77 -- Multiply. (CAUTION: UNBUFFERED)
78 procedure FZ_Multiply_Unbuffered(X : in FZ;
(33 . 6)(35 . 12)
80 XY : out FZ);
81 pragma Inline_Always(FZ_Multiply_Unbuffered);
82
83 -- Comba's multiplier in assembly (fastpath). (CAUTION: UNBUFFERED)
84 procedure FZ_Mul_Comba_Fast(X : in FZ;
85 Y : in FZ;
86 XY : out FZ);
87 pragma Inline_Always(FZ_Mul_Comba_Fast);
88
89 -- Comba's multiplier. (CAUTION: UNBUFFERED)
90 procedure FZ_Mul_Comba(X : in FZ;
91 Y : in FZ;