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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [return1.ads] - Blame information for rev 749

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


package return1 is
    type Base is abstract tagged null record;
    type Child is new Base with record
       Anon_Access : access Base'Class;
    end record;
    function X_Func (O : access Child) return access Base'Class;
end return1;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package return1 is`
2			`type Base is abstract tagged null record;`
3			`type Child is new Base with record`
4			`Anon_Access : access Base'Class;`
5			`end record;`
6			`function X_Func (O : access Child) return access Base'Class;`
7			`end return1;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [return1.ads] - Blame information for rev 749