anchor.diff:      property Terminated;     
     end;
   
  +
  +  TCriticalSection = class(SyncObjs.TCriticalSection)
  +  public
  +    {$IFDEF LOW_VER}
  +    function TryEnter: Boolean;
  +    {$ENDIF}
  +
  +  end;
  +
  +
     TASyncInvoker = class(TObject)
     private
       FOnAsyncEvent: TOnASyncEvent;
  
positive.code: function AtomicDecrement(var Target: Integer): Integer;{$IFDEF HAVE_INLINE} inline;{$ENDIF}
  {$IFEND <XE5}
  
  function GetCPUCount: Integer;
  
  implementation
  
negative.code: {$IF defined(FPC) or (RTLVersion>=18))}
    {$DEFINE HAVE_INLINE}
  {$IFEND HAVE_INLINE}
  
  {$if CompilerVersion< 18}
    {$DEFINE LOW_VER}
  {$ifend}
  
  type
    TASyncWorker = class;
  