(26 . 6)(26 . 14)
151 -- Fundamental Operations on FZ (finite integers)
152 ---------------------------------------------------------------------------
153
154 -- Determine the Bitness of N
155 function FZ_Bitness(N : in FZ) return Bit_Count is
156 begin
157 return N'Length * Words.Bitness;
158 end FZ_Bitness;
159 pragma Inline_Always(FZ_Bitness);
160
161
162 -- N := 0
163 procedure FZ_Clear(N : out FZ) is
164 begin