Subversion Repositories openrisc

-- { dg-do compile }
-- { dg-options "-O -gnatp" }
 
package body Invariant_Index is
 
   procedure Proc (S : String) is
      N : constant Integer := S'Length;
   begin
      Name_Buffer (1 + N .. Name_Len + N) := Name_Buffer (1 .. Name_Len);
      Name_Buffer (1 .. N) := S;
      Name_Len := Name_Len + N;
   end;
 
end Invariant_Index;