blob: c7c7b9e10b8a292994f3e5d7fb9452ef46388b7b [file] [log] [blame]
package Aggr9_Pkg is
type Byte is range 0 .. 255;
type R1 is
record
A,B : Byte;
end record;
type R2 is
record
F : R1;
end record;
procedure Send (M : R2);
end Aggr9_Pkg;