Singleton: Difference between revisions

Content added Content deleted
Line 3: Line 3:
=={{header|Ada}}==
=={{header|Ada}}==
===Non Thread Safe===
===Non Thread Safe===
⚫
<ada>package Global_Singleton is
<ada>
⚫
procedure Set_Data (Value : Integer);
⚫
package Global_Singleton is
⚫
procedure Set_Data(Value : Integer);
function Get_Data return Integer;
function Get_Data return Integer;
private
private
Retrieved from "https://rosettacode.org/wiki/Singleton"