Browse Source

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

git-svn-id: trunk@30958 -
Károly Balogh 10 years ago
parent
commit
6e6b00377f
1 changed files with 1 additions and 1 deletions
  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.']);