Przeglądaj źródła

* reverted r11671 because it breaks tthread.waitfor on unix

git-svn-id: trunk@11731 -
Jonas Maebe 17 lat temu
rodzic
commit
4f5513466a
1 zmienionych plików z 2 dodań i 1 usunięć
  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;