(50 . 4)(50 . 11)
353 return W_OddP(N(N'First));
354 end FZ_OddP;
355
356
357 -- 1 iff N fits inside one Word
358 function FZ_OneWordP(N : in FZ) return WBool is
359 begin
360 return FZ_ZeroP(N(N'First + 1 .. N'Last));
361 end FZ_OneWordP;
362
363 end FZ_Pred;