Re: bitwise operations in Ada95

["Sune Falck" <Sune.Falck@telia.com>]

"Aquaman" <Matthew.Waterman@Honeywell.com> wrote in message
news:192e1f87.0107180742.4e2e83df@posting.google.com...
> My question would be for a way to do bit shifting operations (vs. & |)
> so for example shift left and shift right for use in mathmatical mult and
div
> opperations
>
> thanks for any info

The standard package Interfaces contains the following shift and rotate
functions
for all defined modular types.

From the Ada 95 standard anexx B.2

package Interfaces is
  ...
  type Unsigned_n is mod 2**n;
   function Shift_Left  (Value : Unsigned_n; Amount : Natural) return
Unsigned_n;
  function Shift_Right (Value : Unsigned_n; Amount : Natural) return
Unsigned_n;
  function Shift_Right_Arithmetic (Value : Unsigned_n; Amount : Natural)
return Unsigned_n;
  function Rotate_Left  (Value : Unsigned_n; Amount : Natural) return
Unsigned_n;
  function Rotate_Right (Value : Unsigned_n; Amount : Natural) return
Unsigned_n;
 ...
end Interfaces;

Sune Falck