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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [controlled5_pkg.adb] - Blame information for rev 779

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


with Ada.Tags;
 
package body Controlled5_Pkg is
 
   type Child is new Root with null record;
 
   function Dummy (I : Integer) return Root'Class is
      A1 : T_Root_Class := new Child;
      My_Var : Root'Class := A1.all;
   begin
      if I = 0 then
         return My_Var;
      else
         return Dummy (I - 1);
      end if;
   end Dummy;
 
end Controlled5_Pkg;

Line No.	Rev	Author	Line
1	304	jeremybenn	`with Ada.Tags;`
2
3			`package body Controlled5_Pkg is`
4
5			`type Child is new Root with null record;`
6
7			`function Dummy (I : Integer) return Root'Class is`
8			`A1 : T_Root_Class := new Child;`
9			`My_Var : Root'Class := A1.all;`
10			`begin`
11			`if I = 0 then`
12			`return My_Var;`
13			`else`
14			`return Dummy (I - 1);`
15			`end if;`
16			`end Dummy;`
17
18			`end Controlled5_Pkg;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [controlled5_pkg.adb] - Blame information for rev 779