23 lines
383 B
Ada
23 lines
383 B
Ada
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;
|