paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed compilation for win64. ThreadID is DWORD on both win32 and win64.

Browse Source 
git-svn-id: trunk@13235 -
This commit is contained in:
yury 2009-06-05 14:59:42 +00:00
parent b5be9e008e
commit 3b32571557
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win/systhrd.inc
View File

@ -181,7 +181,7 @@ CONST
creationFlags : dword;var ThreadId : TThreadID) : TThreadID; creationFlags : dword;var ThreadId : TThreadID) : TThreadID;
var var
ti : pthreadinfo; ti : pthreadinfo;
_threadid : TThreadID; _threadid : dword;
begin begin
{$ifdef DEBUG_MT} {$ifdef DEBUG_MT}
writeln('Creating new thread'); writeln('Creating new thread');
@ -203,7 +203,7 @@ CONST
{$ifdef DEBUG_MT} {$ifdef DEBUG_MT}
writeln('Starting new thread'); writeln('Starting new thread');
{$endif DEBUG_MT} {$endif DEBUG_MT}
_threadid:=ThreadID; _threadid:=0;
SysBeginThread:=CreateThread(sa,stacksize,@ThreadMain,ti,creationflags,_threadid); SysBeginThread:=CreateThread(sa,stacksize,@ThreadMain,ti,creationflags,_threadid);
{ creation failed? if yes, we dispose the parameter record } { creation failed? if yes, we dispose the parameter record }