Bläddra i källkod

* fix compilation for Darwin

florian 2 veckor sedan
förälder
incheckning
6ada3577ef
1 ändrade filer med 1 tillägg och 1 borttagningar
  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
 begin
   FLock:=0;
   FLock:=0;
-  FOwningThread:=0;
+  FOwningThread:=TThreadID(0);
   FRecursionCount:=0;
   FRecursionCount:=0;
   FThreadTracking:=EnableThreadTracking;
   FThreadTracking:=EnableThreadTracking;
 end;
 end;