Test Refactoring of signals

2025-06-05 22:11:54 +02:00
parent c9817ca200
commit e06a023742
17 changed files with 528 additions and 774 deletions
@@ -24,7 +24,7 @@ type
    TMycGateFuncFuture<T> = class(TMycFuture<T>)
    private
        FInit: TState.TSubscription;
-        FDone: IMycLatch;
+        FDone: IMycEvent;
        FResult: T;
    protected
        function GetResult: T; override;
@@ -54,7 +54,7 @@ constructor TMycGateFuncFuture<T>.Create(const ATaskManager: IMycTaskManager; co
 begin
    inherited Create;

-    FDone := TLatch.Construct(1);
+    FDone := TEvent.CreateLatch(1);

    // Subscribe the job execution to AGate.
    // The job will run when AGate notifies the subscriber returned by Run.