| 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; | ||||