mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
17 lines
392 B
Ada
17 lines
392 B
Ada
package Loop_Optimization8_Pkg2 is
|
|
|
|
type Array_T is array (Natural range <>) of Integer;
|
|
|
|
type Obj_T (Length : Natural) is
|
|
record
|
|
Elements : Array_T (1 .. Length);
|
|
end record;
|
|
|
|
type T is access Obj_T;
|
|
|
|
function Length (Set : T) return Natural;
|
|
function Index (Set : T; Position : Natural) return Integer;
|
|
pragma Inline (Length, Index);
|
|
|
|
end Loop_Optimization8_Pkg2;
|