Re: logical operations in Ada

[Florian Weimer <fw@deneb.enyo.de>]

"David C. Hoos, Sr." <david.c.hoos.sr@ada95.com> writes:

> Here's an example of bit-wise operations on modular types
> with conversions to and from characters to do what you
> said you wanted to do.


Why are you using Ada.Unchecked_Conversion?  In this case, it is
unnecessary (and unnecessary use of Ada.Unchecked_Conversion should be
avoided IMHO).

with Ada.Text_IO;
with Interfaces;

procedure Bit_Ops is
   Mask : constant Interfaces.Unsigned_8 := 2#1101_1111#;
   use type Interfaces.Unsigned_8;

begin
   for C in CHARACTER'('a') .. CHARACTER'('z') loop
      Ada.Text_IO.Put (Character'Val (Mask and Character'Pos (C)));
   end loop;

   Ada.Text_IO.New_Line;
end Bit_Ops;