URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [loop_optimization4_pkg.adb] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log


package body Loop_Optimization4_Pkg is
 
   procedure Add (Phrase : String) is
   begin
      if Debug_Buffer_Len = Max_Debug_Buffer_Len then
         return;
      end if;
      for I in Phrase'Range loop
         Debug_Buffer_Len := Debug_Buffer_Len + 1;
         Debug_Buffer (Debug_Buffer_Len) := Phrase (I);
         if Debug_Buffer_Len = Max_Debug_Buffer_Len then
            exit;
         end if;
      end loop;
   end Add;
 
end Loop_Optimization4_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package body Loop_Optimization4_Pkg is`
2
3			`procedure Add (Phrase : String) is`
4			`begin`
5			`if Debug_Buffer_Len = Max_Debug_Buffer_Len then`
6			`return;`
7			`end if;`
8			`for I in Phrase'Range loop`
9			`Debug_Buffer_Len := Debug_Buffer_Len + 1;`
10			`Debug_Buffer (Debug_Buffer_Len) := Phrase (I);`
11			`if Debug_Buffer_Len = Max_Debug_Buffer_Len then`
12			`exit;`
13			`end if;`
14			`end loop;`
15			`end Add;`
16
17			`end Loop_Optimization4_Pkg;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [loop_optimization4_pkg.adb] - Blame information for rev 774