administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Add to ConceptSingleton to PABCSystem

Browse source
This commit is contained in:
Bogdan Voloshin 2018-04-13 16:53:20 +03:00
parent a6c6ce9f8f
commit cd9912deb7
3 changed files with 54 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -2048,6 +2048,24 @@ type
constructor(ptr: pointer);
end;
type
///--
__ConceptSingleton<T> = class where T: constructor;
class _instance: T;
class inited: boolean := false;
public
class function &Instance: T;
begin
if inited = false then
begin
inited := true;
_instance := new T;
end;
Result := _instance;
end;
end;
// -----------------------------------------------------
// Internal procedures for PABCRTL.dll
// -----------------------------------------------------

18
TestSuite/formatter_tests/input/PABCSystem.pas
View file

@ -1966,6 +1966,24 @@ type
constructor(ptr: pointer);
end;
type
///--
__ConceptSingleton<T> = class where T: constructor;
class _instance: T;
class inited: boolean := false;
public
class function &Instance: T;
begin
if inited = false then
begin
inited := true;
_instance := new T;
end;
Result := _instance;
end;
end;
// -----------------------------------------------------
// Internal procedures for PABCRTL.dll
// -----------------------------------------------------

18
bin/Lib/PABCSystem.pas
View file

@ -2048,6 +2048,24 @@ type
constructor(ptr: pointer);
end;
type
///--
__ConceptSingleton<T> = class where T: constructor;
class _instance: T;
class inited: boolean := false;
public
class function &Instance: T;
begin
if inited = false then
begin
inited := true;
_instance := new T;
end;
Result := _instance;
end;
end;
// -----------------------------------------------------
// Internal procedures for PABCRTL.dll
// -----------------------------------------------------