1package Loop_Optimization5_Pkg is 2 3 type String_Access is access all String; 4 function Init return String; 5 function Locate (S : String) return String_Access; 6 7end Loop_Optimization5_Pkg; 8
1package Loop_Optimization5_Pkg is 2 3 type String_Access is access all String; 4 function Init return String; 5 function Locate (S : String) return String_Access; 6 7end Loop_Optimization5_Pkg; 8