blob: 94be462c084da0784aa3abb03c2729733625abff [file] [log] [blame]
package Pack15 is
type Flags is array (1..2) of Boolean;
for Flags'Component_Size use 1;
type Messages is record
Status_Flags : Flags;
end record;
for Messages use record
Status_Flags at 0 range 1 .. 2;
end record;
O : Messages;
Buffer : Integer;
Status_Flags : Flags;
for Status_Flags'Address use Buffer'Address;
procedure Transfer;
end Pack15;