blob: cd6e32fe0895870e152f01fd61a3e6c57162eb79 (
plain)
1
2
3
4
5
6
7
8
|
package overriding_ops_p is
subtype Name_Type is String (1 .. 30);
type Device is synchronized interface;
-- Base type of devices
procedure Set_Name (Object : in out Device; Name : Name_Type)
is abstract;
-- Set the name of the Device
end overriding_ops_p;
|