Re: How to convert record?

[sk <noname@myob.com>]

--Anyhow I tried to do Unchecked_Conversion and gnat gave me error
--message:
--
--"unchecked conversion to unconstrained array not allowed".
--
--What should I do?

Constrain it 

 o o
  |
 \_/

declare

    type X_Type is record
        a : Natural;
        b : Boolean;
    end record;

    Record_Character_Size : Natural := (
         X_Type'Size / Character'Size
    );

    type Buffer_Type is new String;
    -- Unconstrained Buffer_Type

    subtype String_For_Record is 
        Buffer_Type (1 .. Record_Character_Size);
    
    function To_Buffer is new Ada.Unchecked_Conversion (
        Source => X_Type, String_For_Record
    );

    X : X_Type;

begin
    Do_Something (To_Buffer(X));

end;