blob: 55d0eb21f7c4f0f61acfa04df80101cc217946d9 (
plain)
1
2
3
4
5
6
7
8
9
|
package Var_Offset is
pragma Elaborate_Body;
type T (L : Natural) is record
Var_Len : String (1 .. L);
Space : Integer;
Small : Character;
Bad_Field : Character;
end record;
end;
|