1package body Loop_Optimization4_Pkg is 2 3 procedure Add (Phrase : String) is 4 begin 5 if Debug_Buffer_Len = Max_Debug_Buffer_Len then 6 return; 7 end if; 8 for I in Phrase'Range loop 9 Debug_Buffer_Len := Debug_Buffer_Len + 1; 10 Debug_Buffer (Debug_Buffer_Len) := Phrase (I); 11 if Debug_Buffer_Len = Max_Debug_Buffer_Len then 12 exit; 13 end if; 14 end loop; 15 end Add; 16 17end Loop_Optimization4_Pkg; 18