anchor.diff:  {$IFDEF USEPTHREADS}
     pthread_mutex_init(@_Handle, Nil);
   {$ELSE}
  +       {$IFDEF FPC}
  +	InitCriticalSection(_Handle);
  +       {$ELSE}
   	InitializeCriticalSection(_Handle);
  +        {$ENDIF}
   {$ENDIF}
   End;
   
  
positive.code:   For I:=0 To Pred(SectionCount) Do
      Log(logWarning, 'App', 'The following mutex was not released: '+Sections[I]._Name);
  {$ENDIF}
  End.
  
negative.code: {$IFDEF USEPTHREADS}
    pthread_mutex_destroy(@_Handle);
  {$ELSE}
         {$IFDEF FPC}
  	DoneCriticalSection(_Handle);
         {$ELSE}
  	DeleteCriticalSection(_Handle);
          {$ENDIF}
  {$ENDIF}
  End;
  
  