1 package Loop_Optimization12
is
3 type Enum1
is (A
, B
, C
, D
, E
, F
, G
, H
, I
, J
);
5 type Enum2
is (A
, B
, C
);
7 type Enum3
is (A
, B
, C
, D
, E
, F
);
9 type Enum4
is (A
, B
, C
, D
);
11 type Enum5
is (A
, B
, C
, D
, E
);
13 type Arr
is array (Enum3
, Enum4
, Enum4
, Enum5
, Enum5
, Enum3
,
14 Enum2
, Enum3
, Enum5
, Enum3
) of Natural;
16 type Arr_Ptr
is access Arr
;
17 type Ext_Arr
is array (Enum1
) of Arr_Ptr
;
23 type Rec_Ptr
is access Rec
;
25 procedure Reset
(S
: Rec_Ptr
);
27 end Loop_Optimization12
;