Re: creating a 16 bit value from 2 8 bit values in Ada (again)

["SteveD" <nospam_steved94@attbi.com>]

Sorry about my previous accidental send.

Here is how I would do it (the following compiles and runs on GNAT
3.14p-nt):

with Ada.Text_Io;
with Interfaces;
 use Interfaces;
procedure Test is

  function To_Unsigned_16( lsb, msb : Unsigned_8 ) return Unsigned_16 is
  begin
    return Shift_Left( Unsigned_16( msb ), 8 ) or Unsigned_16( lsb );
  end To_Unsigned_16;

begin
  Ada.Text_Io.Put_Line( Unsigned_16'IMAGE( To_Unsigned_16( 16#01#,
16#00# ) ) );
  Ada.Text_Io.Put_Line( Unsigned_16'IMAGE( To_Unsigned_16( 16#00#,
16#01# ) ) );
end Test;

SteveD