Procházet zdrojové kódy

* reverted r11671 because it breaks tthread.waitfor on unix

git-svn-id: trunk@11731 -
Jonas Maebe před 17 roky
rodič
revize
4f5513466a
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  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;