(88 . 14)(88 . 4)
760 end W_Mux;
761 pragma Inline_Always(W_Mux);
762
763
764 -- Exchange A and B.
765 procedure W_Swap(A : in out Word; B : in out Word) is
766 begin
767 A := A xor B;
768 B := A xor B;
769 A := A xor B;
770 end W_Swap;
771 pragma Inline_Always(W_Swap);
772
773 end Word_Ops;