Implementing first "strategy" for proof of concept

2025-07-11 11:06:18 +02:00
parent 644b6074d6
commit 487169afe0
20 changed files with 1761 additions and 274 deletions
@@ -153,7 +153,7 @@ type

        class function CreateLatch(Count: Integer): ILatch; static;

-        class function Enqueue1(var Gate: TLatch): TState; overload; static;
+        class function Enqueue1(var Gate: TLatch): TState; overload; static; deprecated; experimental;
        function Enqueue: TState; overload;

        class property Null: ILatch read FNull;