Subversion Repositories openrisc

-- { dg-do compile }
-- { dg-options "-O3" }
 
package body Loop_Optimization1 is
 
   procedure Create (A : in out D; Val : Integer) is
 
      M : constant Group_Chain_List := Group_Chains(Val);
      G : constant Group_List := Groups(Val);
 
      function Is_Visible (Group : Number) return Boolean is
      begin
         for I in M'Range loop
            if Group = M(I).Groups(M(I).Length) then
               return True;
            end if;
         end loop;
         return False;
      end;
 
   begin
      for I in A.L'Range loop
         A.L(I) := new R(Is_Visible(G(I)));
      end loop;
   end;
 
end Loop_Optimization1;