Re: shifting bits

[Michael Bode <m.g.bode@web.de>]

fmdf@tiscali.it (fabio de francesco) writes:

> Talking about C/C++ you may want to shift a signed numeric variable
> one position by one to the right in order to either inspect or print
> each single bit that composes the number.

So you are viewing your integer or float number as an array of single
bits, right? Maybe you want to manipulate single bits in random order
too? In Ada you can write it that way:

with Ada.Text_Io; use Ada.Text_Io;

procedure Bits is

   type Bit_Array is array (0 .. Integer'Size-1) of Boolean;
   pragma Pack (Bit_Array);
   
   I : Integer := 42;
   A : Bit_Array;
   for A'Address use I'Address;
   
   Bool_Image : array (Boolean'Range) of Character := ('0', '1');
   
begin
   Put_Line ("Int: " & Integer'Image (I));
   for J in reverse 0 .. Integer'Size-1 loop
      Put (Bool_Image (A (J)));
   end loop;
end Bits;