|
@@ -193,7 +193,7 @@ end;
|
|
|
|
|
|
function SysBeginThread(sa : Pointer;stacksize : dword;
|
|
|
ThreadFunction : tthreadfunc;p : pointer;
|
|
|
- creationFlags : dword; var ThreadId : THandle) : DWord;
|
|
|
+ creationFlags : dword; var ThreadId : TThreadID) : DWord;
|
|
|
var
|
|
|
TI: PThreadInfo;
|
|
|
begin
|
|
@@ -220,7 +220,7 @@ end;
|
|
|
{$ifdef DEBUG_MT}
|
|
|
writeln('Starting new thread');
|
|
|
{$endif DEBUG_MT}
|
|
|
- SysBeginThread := DosCreateThread (DWord(ThreadID), @ThreadMain, SA,
|
|
|
+ SysBeginThread := DosCreateThread (DWord (ThreadID), @ThreadMain, SA,
|
|
|
CreationFlags, StackSize);
|
|
|
end;
|
|
|
|
|
@@ -546,7 +546,10 @@ end;
|
|
|
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.2 2005-03-20 22:33:27 hajny
|
|
|
+ Revision 1.3 2005-04-20 21:52:16 hajny
|
|
|
+ * TThreadID fix
|
|
|
+
|
|
|
+ Revision 1.2 2005/03/20 22:33:27 hajny
|
|
|
* thread local memory freed
|
|
|
|
|
|
Revision 1.1 2005/02/06 16:57:18 peter
|