Subversion Repositories openrisc

-- { dg-do compile }
-- { dg-options "-gnatws -O3" }
-- { dg-options "-gnatws -O3 -msse" { target i?86-*-* x86_64-*-* } }
 
with System.Soft_Links;
 
package body Loop_Optimization9 is
 
   package SSL renames System.Soft_Links;
 
   First_Temp_File_Name : constant String := "GNAT-TEMP-000000.TMP";
 
   Current_Temp_File_Name : String := First_Temp_File_Name;
 
   Temp_File_Name_Last_Digit : constant Positive :=
                                 First_Temp_File_Name'Last - 4;
 
   function Argument_String_To_List
     (Arg_String : String) return Argument_List_Access
   is
      Max_Args : constant Integer := Arg_String'Length;
      New_Argv : Argument_List (1 .. Max_Args);
      New_Argc : Natural := 0;
      Idx      : Integer;
 
   begin
      Idx := Arg_String'First;
 
      loop
         exit when Idx > Arg_String'Last;
 
         declare
            Quoted  : Boolean := False;
            Backqd  : Boolean := False;
            Old_Idx : Integer;
 
         begin
            Old_Idx := Idx;
 
            loop
               --  An unquoted space is the end of an argument
 
               if not (Backqd or Quoted)
                 and then Arg_String (Idx) = ' '
               then
                  exit;
 
               --  Start of a quoted string
 
               elsif not (Backqd or Quoted)
                 and then Arg_String (Idx) = '"'
               then
                  Quoted := True;
 
               --  End of a quoted string and end of an argument
 
               elsif (Quoted and not Backqd)
                 and then Arg_String (Idx) = '"'
               then
                  Idx := Idx + 1;
                  exit;
 
               --  Following character is backquoted
 
               elsif Arg_String (Idx) = '\' then
                  Backqd := True;
 
               --  Turn off backquoting after advancing one character
 
               elsif Backqd then
                  Backqd := False;
 
               end if;
 
               Idx := Idx + 1;
               exit when Idx > Arg_String'Last;
            end loop;
 
            --  Found an argument
 
            New_Argc := New_Argc + 1;
            New_Argv (New_Argc) :=
              new String'(Arg_String (Old_Idx .. Idx - 1));
         end;
      end loop;
 
      return new Argument_List'(New_Argv (1 .. New_Argc));
   end Argument_String_To_List;
 
   procedure Create_Temp_File_Internal
     (FD        : out File_Descriptor;
      Name      : out String_Access)
   is
      Pos      : Positive;
   begin
      File_Loop : loop
         Locked : begin
            Pos := Temp_File_Name_Last_Digit;
 
            Digit_Loop :
            loop
               case Current_Temp_File_Name (Pos) is
                  when '0' .. '8' =>
                     Current_Temp_File_Name (Pos) :=
                       Character'Succ (Current_Temp_File_Name (Pos));
                     exit Digit_Loop;
 
                  when '9' =>
                     Current_Temp_File_Name (Pos) := '0';
                     Pos := Pos - 1;
 
                  when others =>
 
                     SSL.Unlock_Task.all;
                     FD := 0;
                     Name := null;
                     exit File_Loop;
               end case;
            end loop Digit_Loop;
         end Locked;
      end loop File_Loop;
   end Create_Temp_File_Internal;
 
end Loop_Optimization9;