anchor.diff:    TPCThread = Class(TThread)
     private
       FDebugStep: String;
  -    FStartTickCount : QWord;
  +    FStartTickCount : TTickCount;
     protected
       procedure DoTerminate; override;
       procedure Execute; override;
  
positive.code:   Repeat
      Result := Lock.TryEnter;
      if Not Result then sleep(1);
    Until (Result) Or (GetTickCount64 > (tc + MaxWaitMilliseconds));
    {$IFDEF HIGHLOG}
    if Not Result then begin
      tc2 := GetTickCount;
      if lockStartedTimestamp=0 then lockStartedTimestamp := Lock.StartedTimestamp;
      if lockStartedTimestamp=0 then tc3 := 0
      else tc3 := tc2-lockStartedTimestamp;
  
negative.code: {$ELSE}
    {$IFDEF LINUX}cthreads,{$ENDIF}
  {$ENDIF}
    Classes, SyncObjs, UBaseTypes;
  
  {$I config.inc}
  
  