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