New tests for atomic ops

2025-06-03 19:49:48 +02:00
parent 556690fa5e
commit f438c91dbd
11 changed files with 511 additions and 951 deletions
@@ -30,7 +30,6 @@ type
        private
            FState: IMycState;
            FTag: Pointer; // Tag identifying this subscription within the notifier list.
-            function GetState: IMycState;
            constructor Create( const AState: IMycState; ATag: Pointer );
        public
            class operator Initialize( out Dest: TSubscription );
@@ -123,11 +122,6 @@ begin
    FTag := nil;
 end;

-function TState.TSubscription.GetState: IMycState;
-begin
-    Result := FState
-end;
-
 class operator TState.TSubscription.Initialize( out Dest: TSubscription );
 begin
    Dest.FState := TState.Null;