TMonitorManager

type TMonitorManager = record

public

type

  TMonitorSetSpinCountProc = procedure(

  const aSpinCount: LongInt

);

  TMonitorGetSpinCountProc = function: LongInt;

  TMonitorProc = procedure(

  const aObject: TObject

);

  TMonitorFunc = function(

  const aObject: TObject

):Boolean;

  TMonitorTimeoutFunc = function(

  const aObject: TObject;

  aTimeout: Cardinal

):Boolean;

  TMonitorLockTimeoutFunc = function(

  const aObject: TObject;

  const aLock: TObject;

  aTimeout: Cardinal

):Boolean;

  TMonitorSetObjectDataProc = function(

  const aObject: TObject;

  aData: Pointer;

  aComparand: Pointer

):Pointer;

  TMonitorGetObjectDataFunc = function(

  const aObject: TObject

):Pointer;

  TMonitorFreeDataProc = procedure(

  aData: Pointer

);

public

  DoSetDefaultSpinCount: TMonitorSetSpinCountProc;

  DoGetDefaultSpinCount: TMonitorGetSpinCountProc;

  DoEnter: TMonitorProc;

  DoEnterTimeout: TMonitorTimeoutFunc;

  DoExit: TMonitorProc;

  DoTryEnter: TMonitorFunc;

  DoWait: TMonitorTimeoutFunc;

  DoWaitLock: TMonitorLockTimeoutFunc;

  DoPulse: TMonitorProc;

  DoPulseAll: TMonitorProc;

  DoFreeMonitorData: TMonitorFreeDataProc;

  DoGetMonitorObjectData: TMonitorGetObjectDataFunc;

  DoSetMonitorObjectData: TMonitorSetObjectDataProc;

end;