(38 . 6)(38 . 14)
482 pragma Inline_Always(W_NZeroP);
483
484
485 -- Return WBool-complement of N.
486 function W_Not(N : in WBool) return WBool is
487 begin
488 return 1 xor N;
489 end W_Not;
490 pragma Inline_Always(W_Not);
491
492
493 -- Return 1 if N is odd; otherwise return 0.
494 function W_OddP(N : in Word) return WBool is
495 begin