12 lines
300 B
Ada
12 lines
300 B
Ada
|
package Protected_Singleton is
|
||
|
|
procedure Set_Data (Value : Integer);
|
||
|
|
function Get_Data return Integer;
|
||
|
|
private
|
||
|
|
protected Instance is
|
||
|
|
procedure Set(Value : Integer);
|
||
|
|
function Get return Integer;
|
||
|
|
private
|
||
|
|
Data : Integer := 0;
|
||
|
|
end Instance_Type;
|
||
|
|
end Protected_Singleton;
|