Browse Source

* reverted r11671 because it breaks tthread.waitfor on unix

git-svn-id: trunk@11731 -
Jonas Maebe 17 years ago
parent
commit
4f5513466a
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/unix/cthreads.pp

+ 2 - 1
rtl/unix/cthreads.pp

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