Duncan Sands | 338b462 | 2008-01-03 11:53:52 +0000 | [diff] [blame] | 1 | package Var_Offset is |
2 | pragma Elaborate_Body; | ||||
3 | type T (L : Natural) is record | ||||
4 | Var_Len : String (1 .. L); | ||||
5 | Space : Integer; | ||||
6 | Small : Character; | ||||
7 | Bad_Field : Character; | ||||
8 | end record; | ||||
9 | end; |