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

* reverted r11671 because it breaks tthread.waitfor on unix

Browse Source 
git-svn-id: trunk@11731 -
This commit is contained in:
Jonas Maebe 2008-09-08 21:10:38 +00:00
parent fb8ffb0b99
commit 4f5513466a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/cthreads.pp
View File

@ -242,7 +242,8 @@ Type PINTRTLEvent = ^TINTRTLEvent;
writeln('Jumping to thread function'); writeln('Jumping to thread function');
{$endif DEBUG_MT} {$endif DEBUG_MT}
ThreadMain:=pointer(ti.f(ti.p)); ThreadMain:=pointer(ti.f(ti.p));
EndThread(0); DoneThread;
pthread_exit(ThreadMain);
end; end;