URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [overriding_ops.ads] - Rev 696
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;