anchor.diff:  begin
     EnterCriticalSection(cs);
     try
  -    globalInt := GetCurrentThreadId;
  +    globalThread := GetCurrentThreadId;
     finally
       LeaveCriticalSection(cs);
     end;
  
positive.code:         end;
      end;
    end;
    globalInt := 100;
  end;
  
  { TTestKCriticalSectionThread }
  
negative.code: 
  procedure TXPlatformTests.TestKCriticalSectionThreaded;
  begin
    globalThread := GetCurrentThreadId;
    kcs := TFslLock.Create('none');
    try
      kcs.Enter;
      try
        TTestKCriticalSectionThread.create(false);
        Sleep(10);
        assertTrue(globalThread = GetCurrentThreadId);
      finally
        kcs.Leave;
      end;
      sleep(10);
      kcs.Enter;
      try
        assertTrue(globalThread <> GetCurrentThreadId);
      finally
        kcs.Leave;
      end;
  