Subversion Repositories openrisc

with GNAT.Strings; use GNAT.Strings;

package Loop_Optimization9 is

   type File_Descriptor is new Integer;

   procedure Create_Temp_File_Internal

     (FD   : out File_Descriptor;

      Name : out String_Access);

   subtype Argument_List is String_List;

   subtype Argument_List_Access is String_List_Access;

   function Argument_String_To_List

     (Arg_String : String) return Argument_List_Access;

end Loop_Optimization9;