TPasMPMultipleReaderSingleWriterSpinLock

type TPasMPMultipleReaderSingleWriterSpinLock = class(TInterfacedObject,IReadWriteSync)

protected

  fCacheLineFillUp: array [0..(PasMPCPUCacheLineSize-((SizeOf(TPasMPInt32)*2)+SizeOf(TPasMPConditionVariableLock)+SizeOf(TPasMPConditionVariable)))-1] of TPasMPUInt8;

public

  constructor Create;

  destructor Destroy; override;

  procedure AcquireRead();

  function TryAcquireRead();

  procedure ReleaseRead();

  procedure AcquireWrite();

  function TryAcquireWrite();

  procedure ReleaseWrite();

  procedure ReadToWrite();

  procedure WriteToRead();

  procedure BeginRead;

  procedure EndRead;

  function BeginWrite;

  procedure EndWrite;

end;

TPasMPMultipleReaderSingleWriterSpinLock

TObject,IReadWriteSync