Browse Source

amicommon: make AThreads call the thread init/exit chain

git-svn-id: trunk@30992 -
Károly Balogh 10 years ago
parent
commit
57f8922448
1 changed files with 2 additions and 0 deletions
  1. 2 0
      rtl/amicommon/athreads.pp

+ 2 - 0
rtl/amicommon/athreads.pp

@@ -460,7 +460,9 @@ begin
   if not exitSuspend then
   if not exitSuspend then
     begin
     begin
       InitThread(threadInfo^.stackLen);
       InitThread(threadInfo^.stackLen);
+      DoThreadInitProcChain;
       threadInfo^.exitCode:=Pointer(threadInfo^.f(threadInfo^.p));
       threadInfo^.exitCode:=Pointer(threadInfo^.f(threadInfo^.p));
+      DoThreadExitProcChain;
       DoneThread;
       DoneThread;
     end;
     end;