anchor.diff:  {$IFDEF DEBUG_LOCKS}
   Var
     I:Integer;
  -{$ENDIF}  
  +{$ENDIF}
   Begin
     {$IFDEF DEBUG_LOCKS}
     I := 0;
  
positive.code:   Sections[Pred(SectionCount) ] := Self;
    {$ENDIF}
  
  {$IFDEF WINDOWS}
  	InitializeCriticalSection(_Handle);
  {$ELSE}
    pthread_mutex_init(@_Handle, Nil);
  {$ENDIF}
  End;
  
  
negative.code:       _LockID:Cardinal;
        _LockCounter:Integer;
  
        {$IFNDEF USEPTHREADS}
        _Handle:TRTLCriticalSection;
        {$ELSE}
        _Handle:pthread_mutex_t;
  