blob: 5b228821b9e98c9df557403a4bf6fe3cbe851479 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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;
|
