1with GNAT.Strings; use GNAT.Strings;
2
3package Loop_Optimization9 is
4
5   type File_Descriptor is new Integer;
6
7   procedure Create_Temp_File_Internal
8     (FD   : out File_Descriptor;
9      Name : out String_Access);
10
11   subtype Argument_List is String_List;
12
13   subtype Argument_List_Access is String_List_Access;
14
15   function Argument_String_To_List
16     (Arg_String : String) return Argument_List_Access;
17
18end Loop_Optimization9;
19