blob: 3c3368dd4796b6440af37a4c7a5a1e58f6d1ee1b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
with Loop_Optimization8_Pkg2;
package body Loop_Optimization8_Pkg1 is
Data : Loop_Optimization8_Pkg2.T
:= new Loop_Optimization8_Pkg2.Obj_T'(Length =>1, Elements => (1 => 1));
procedure Iter is
begin
for I in 1 .. Loop_Optimization8_Pkg2.Length (Data) loop
Action (Loop_Optimization8_Pkg2.Index (Data, I));
end loop;
end;
end Loop_Optimization8_Pkg1;
|
