blob: 82b76d2f4574699638bcfb0a879db39e5845d68d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
package Pack4 is
type Buffer is array (Natural range <>) of Boolean;
type Root (Size : Natural) is tagged record
Data : Buffer (1..Size);
end record;
pragma Pack (Root);
type Derived is new Root with null record;
end Pack4;
|