URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [overriding_ops.ads] - Rev 304
Compare with Previous | Blame | View Log
with overriding_ops_p; use overriding_ops_p; package overriding_ops is task type Light_Programmer is new Device with overriding entry Set_Name (Name : Name_Type); end Light_Programmer; -- Object that represents a light protected type Light is new Device with overriding procedure Set_Name (Name : Name_Type); private L_Name : Name_Type; end Light; end overriding_ops;