Re: Convert array to integer value

[Stuart Palin <stuart.palin@0.0>]

David Gillon wrote:
> 
> Stephen Frackelton wrote:
> > I have set up an array of integers, value 0..1, to simulate a
> > word, 16 bits.  I need to convert this array of 0's and 1's
> > from the binary value to its corresponding integer value.

> Without getting into questions over why you would want to use a
> datastructure like that, try the following algorithm:

Agreed.

The Stephen Leake suggestion is possibly the best if you
have control over the declaration of the array, and the
array is not being used for other purposes which would make
it desirable to access each element as a simple entity
(issues of execution performance may become relevant in that
case).

I think David's suggestion can be tidied a bit; I would
suggest an algorithm such as

  Sum := 0;
  for i in reverse 1..15 loop
    Sum := Sum*2 + My_Array(i);
  end loop;
  if (My_Array(16) = 1) then
    Sum := Sum - 65536;
  end if;

[ If your compiler is too dumb to optimize the *2 to either
a shift or an add then re-write it yourself as Sum+Sum].


> (And there's also a perfectly good internal company newsgroup for Ada
> questions)
Seconded!

--
Stuart Palin
Principal Software Engineer
BAE SYSTEMS Avionics Ltd, Rochester