Просмотр исходного кода

Update fcl-base/src/syncobjs.pp to fix error.

Curtis Hamilton 2 недель назад
Родитель
Сommit
193eeac560
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      packages/fcl-base/src/syncobjs.pp

+ 1 - 1
packages/fcl-base/src/syncobjs.pp

@@ -1288,7 +1288,7 @@ constructor TSpinLock.Create(EnableThreadTracking: Boolean);
  
 begin
   FLock:=0;
-  FOwningThread:=0;
+  FOwningThread:=TThreadID(0);
   FRecursionCount:=0;
   FThreadTracking:=EnableThreadTracking;
 end;