Re: highest bit, statically determined

[Anatoly Chernyshev <achernyshev@gmail.com>]

> If you play with the memory optimization (I'm not very good at it), the array above will be made of 3 bit integers (0 to 7), which occupy lousy 3*256/8= 96 bytes of memory. Laughable by today's standards. Even if you go for long_long_long..._integers, the table will be quite small.

Here we go:

with Text_IO;
use Text_IO;
procedure xx is
type smallint is range 0..7;
type smallint_a is array(0..255) of smallint;
for smallint_a'Component_Size use 3;
last_bit_a: smallint_a:=(0|1=>0,2|3=>1,4..7=>2, 8..15=>3, 16..31=>4,32..63=>5, 64..127=>6, 128..255=>7);
begin
put_line (integer'Image (smallint_a'size/8));
end xx;