Explorar o código

amicommon: since system units now contain CREATE_SUSPENDED const, use that instead of a hardwired value

git-svn-id: trunk@30958 -
Károly Balogh %!s(int64=10) %!d(string=hai) anos
pai
achega
6e6b00377f
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/amicommon/tthread.inc

+ 1 - 1
rtl/amicommon/tthread.inc

@@ -27,7 +27,7 @@ begin
   FInitialSuspended := CreateSuspended;
   { Always start in suspended state, will be resumed in AfterConstruction if necessary
     See Mantis #16884 }
-  FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), 1{CREATE_SUSPENDED},
+  FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), CREATE_SUSPENDED,
                          FThreadID);
   if FHandle = TThreadID(0) then
     raise EThread.CreateFmt(SThreadCreateError, ['Cannot create thread.']);