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

* fixed compilation on 64 bit platforms with DEBUG_MT enabled

Browse Source 
git-svn-id: trunk@4223 -
This commit is contained in:
tom_at_work 2006-07-16 10:19:52 +00:00
parent cd8842a74d
commit b3573feabb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/linux/tthread.inc
View File

@ -148,7 +148,7 @@ begin
// the LinuxThreads implementation is used // the LinuxThreads implementation is used
LThread.FPid := fpgetpid(); LThread.FPid := fpgetpid();
{$ENDIF} {$ENDIF}
WRITE_DEBUG('thread initing, parameter = ', LongInt(LThread)); WRITE_DEBUG('thread initing, parameter = ', PtrInt(LThread));
try try
if LThread.FInitialSuspended then begin if LThread.FInitialSuspended then begin
SemaphoreWait(LThread.FSem); SemaphoreWait(LThread.FSem);