(40 . 6)(40 . 12)
191 pragma Pure;
192
193 ----------------------------------------------------------------------------
194 --- Current 'deg. Kelvin' Version of FFA
195 ----------------------------------------------------------------------------
196
197 FFA_K_Version : constant Natural := 255;
198
199 ----------------------------------------------------------------------------
200 --- Fundamental Types and Sizes
201 ----------------------------------------------------------------------------
202
(290 . 7)(296 . 7)
204 ----------------------------------------------------------------------------
205
206 -- Find the index of eldest nonzero bit ( 0 if none, or 1 .. FZBitness )
207 function FFA_FZ_Measure(N : in FZ) return Word
208 function FFA_FZ_Measure(N : in FZ) return FZBit_Index
209 renames FZ_Measr.FZ_Measure;
210
211 -- Constant-time arbitrary right-shift.