Re: Unchecked_Conversion on different sized types -- problem?

[Bryce Bardin <bbardin@home.com>]

Mike Silva wrote:

> type T is ( BLACK, WHITE );
> 
> for T use ( BLACK => 30, WHITE => 37 );

  for T'Size use Integer'Size;

> 
> function T_to_int is new Unchecked_Conversion( T, Integer );
> 
> T_val : T := BLACK;
> 
> Text_IO.Put( Item => T_to_int( T_val )...

> Mike

But why use a representation clause for Color?

  type Color is ( Black, White );
--  for Color use ( Black => 30, White => 37 );
  type String_Access is access String;
  Command : array (Color) of String_Access := (new String'("30"), new
String'("37"));
begin
  Text_Io.Put(Command(Color_Val).all);