URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
with overriding_ops_p; use overriding_ops_p;
|
with overriding_ops_p; use overriding_ops_p;
|
package overriding_ops is
|
package overriding_ops is
|
task type Light_Programmer is new Device with
|
task type Light_Programmer is new Device with
|
overriding entry Set_Name (Name : Name_Type);
|
overriding entry Set_Name (Name : Name_Type);
|
end Light_Programmer;
|
end Light_Programmer;
|
-- Object that represents a light
|
-- Object that represents a light
|
protected type Light is new Device with
|
protected type Light is new Device with
|
overriding procedure Set_Name (Name : Name_Type);
|
overriding procedure Set_Name (Name : Name_Type);
|
private
|
private
|
L_Name : Name_Type;
|
L_Name : Name_Type;
|
end Light;
|
end Light;
|
end overriding_ops;
|
end overriding_ops;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.