4 with Sizetype3_Pkg
; use Sizetype3_Pkg
;
6 package body Sizetype3
is
8 procedure Handle_Enum_Values
is
9 Values
: constant List
:= F
;
10 L
: Values_Array_Access
;
12 L
:= new Values_Array
(1 .. Values
'Length);
13 end Handle_Enum_Values
;
15 procedure Simplify_Type_Of
is