#1353. Вопрос. Как сделать потокобезопасный синглетон

Как на Delphi сделать потокобезопасный синглетон БЕЗ использования критических секций?

Ну скажем только с interlocked- операциями.

Но не так как TMonitor у Embarcadero.

У меня есть свой вариант, но я приведу его позже.

Есть такой эскиз:

Var instance : TMyClass = nil;
 Lock : Integer = 0; // - это глобальные переменные

Function getInstance: TMyClass;
Var LockValue : Integer; // - это локальная переменная
Begin
If instance = nil then
Begin
 LockValue := interlockedIncrement(lock);
 Try
 If lockValue = 1 then
 Begin
  If instance = nil then
   Instance := TMyClass.Create;
 End
 Else
 Begin
  While instance = nil do
   Sleep(0);
 End;
 Finally
  InterlockedDecrement(lock);
 End
End
Result := instance;
Assert(Result <> nil);
End;

Покатить?

(+) https://m.habrahabr.ru/post/147373/

Но там всё про C++ и C#.

Да ещё и со встроенным lock или static-переменой, которая удрвлетворяет "новому стандарту". Что по сути является критической секцией, только скрытой в потрохах языка.

 А меня интересует Delphi. И БЕЗ критических секций и TMonitor.

Или всё проще и достаточно критической секции, но ОДНОЙ. ГЛОБАЛЬНОЙ. А как там с вероятностью deadLock'ов? Когда создаваемый синглетон в своём конструкторе обращается к другому синглетону, который ещё не создан.