(33 . 6)(33 . 19)
355 end FZ_Bitness;
356
357
358 -- Determine the Bitness of the given FZ's Length
359 function FZ_Bitness_Log2(N : in FZ) return Positive is
360 W : Bit_Count := N'Length;
361 R : Positive := 1;
362 begin
363 while W > 1 loop
364 W := W / 2;
365 R := R + 1;
366 end loop;
367 return R - 1;
368 end FZ_Bitness_Log2;
369
370
371 -- N := 0
372 procedure FZ_Clear(N : out FZ) is
373 begin